ActiveDelphi

[dooux]

Bom dia amigos, estou com um problema e não estou conseguindo
resolve-lo, talvez por inexperiência, ou por estar com a cabeça cheia
mesmo, enfim, não consigo fazer da forma correta.

Tenho uma tabela chamada MENSALISTAS, onde tenho um campo que
diz a quantidade de vagas que um mensalista pode ter num estacionamento
(MEN_VAGAS)
Esta tabela contém o campo chave (ID_MENSALISTA), e está relacionada
com outra tabela que contém os veículos destes mensalistas.

No movimento do patio que usa uma tabela chamada TMP_LANCAMENTOS,
possui o campo(TMP_PLACA), preciso saber quando um mensalista
já excedeu seu numero de vagas no patio, levando-se em conta que uma
de suas placas já está no pátio, sabendo-se que ele pode ter mais de
um carro cadastrado, mas so pode usar aquele numero de vagas,
se por exemplo ele paga só por uma vaga e alguém já entrou no pátio
com outro carro daquele mensalista, o carro dele deve entrar
como (TIPO=A) "Avulso" e não como (TIPO=M) que era referente a
Mensalista, assim será cobrado a taxa de permanência normal do veiculo
no patio.
Não estou sabendo montar uma consulta que me dê esse resultado
envolvendo as três tabelas a seguir.
se alguém já passou por algo parecido, ou sabe com montar uma consulta
e puder me ajudar ficarei extremamente grato, já tentei de várias formas,
mas sempre resulta em algum erro. Tentei a seguinte consulta mas
também da erro:
//*******************************************************
Select
VM.ID_MENSALISTA,
VM.VEI_PLACA,
M.ID_MENSALISTA,
M.MEN_VAGAS
from VEICULOS_MENSALISTAS VM, MENSALISTAS M
where
VM.ID_MENSALISTA = M.ID_MENSALISTA
AND
VM.VEI_PLACA in (select TMP_PLACA from TMP_LANCAMENTOS)

//*******************************************************

Alguém pode dar uma sugestão ou dica.

Como saber se na tabela de LANCAMENTOS já existe uma placa do mensalista que está entrando com outra placa, se exceder o
limites de vagas do campo(MEN_VAGAS) ele mudar o campo TMP_TIPOLANCAMENTO para "A" ao invés de "M" como já ocorre,

Segue abaixo as tabelas de maneira bem resumida, apenas com campos mais necessários:

MENSALISTAS
(ID_MENSALISTA)*
MEM_NOME
MEM_SITUACAO
(MEM_VAGAS)


VEICULOS_MENSALISTAS
VEI_PLACA
ID_VEICULO
(ID_MENSALISTA)*

LANCAMENTOS
ID_LANCAMENTO
(TMP_PLACA)*
TMP_TIPOLANCAMENTO ( A=AVULSO M=MENSALISTA C=CONVENIO )
ID_USUARIO



Desde já agradeço.

[joemil]

veja se isto funciona

[dooux]

[dooux]

Olá galera, consegui resolver fazendo uma procedure executando duas consultas diferentes e depois testando o resultado armazenado em cada uma.
Obrigado pela força.

procedure BuscaVeiculoMensalistaPatio(sPlaca: string);
var
sSql1, sSqlIdMensalista : string;
ibqVeiculosMensalistaPatio : TIBQuery;
CONT : Integer;
nVeiculosTabLancamentoMensalista : Integer;
nVeiculosEntrandoPatio : Integer;
begin

nControleVagas := 0 ;
nVeiculosMensalistaNoPatio := 0 ;
nVeiculosTabLancamentoMensalista := 0 ;
nVeiculosEntrandoPatio := 0 ;
sSql1 := '';
sSqlIdMensalista := '';

//*****************************************************************************
sSqlIdMensalista :=
'SELECT ' +
' M.ID_MENSALISTA, ' +
' M.MEN_NOME, ' +
' M.MEN_VAGAS, ' +
' VM.ID_MENSALISTA, ' +
' VM.VEI_PLACA ' +
'FROM ' +
' MENSALISTAS M ' +
' INNER JOIN VEICULOS_MENSALISTAS VM ON (M.ID_MENSALISTA = VM.ID_MENSALISTA) ' +
'WHERE VM.VEI_PLACA = ' + QuotedStr(txtPlaca.Text) ;

// showmessage(sSqlIdMensalista);

ibqVeiculosMensalistaPatio := CriaIb(ibqVeiculosMensalistaPatio);
ExecutaSql(ibqVeiculosMensalistaPatio,sSqlIdMensalista);

idMensalistaControle := ibqVeiculosMensalistaPatio.FieldByName('ID_MENSALISTA').AsInteger;
nControleVagas := ibqVeiculosMensalistaPatio.FieldByName('MEN_VAGAS').AsInteger ;
nVeiculosEntrandoPatio := ibqVeiculosMensalistaPatio.RecordCount;

//*****************************************************************************
sSql1 :=
'SELECT ' +
' M.ID_MENSALISTA, ' +
' M.MEN_NOME, ' +
' M.MEN_VAGAS, ' +
' LC.ID_MENSALISTA, ' +
' LC.PLACA, ' +
' LC.DATAENTRADA, ' +
' LC.DATASAIDA, ' +
' LC.HORAENTRADA, ' +
' LC.HORASAIDA ' +
'FROM ' +
' MENSALISTAS M ' +
' INNER JOIN LANCAMENTOS_MENSALISTAS LC ON M.ID_MENSALISTA = LC.ID_MENSALISTA ' +
'WHERE LC.DATASAIDA IS NULL ' +
'AND ' +
' LC.ID_MENSALISTA = ' + IntToStr(idMensalistaControle) ;


ibqVeiculosMensalistaPatio := CriaIb(ibqVeiculosMensalistaPatio);
ExecutaSql(ibqVeiculosMensalistaPatio,sSql1);

//******************************************************************************
// APÓS COLOCAR ESSE PEQUENO CÓDIGO AQUI, O RecordCount PASSOU A EXIBIR A QTDE CORRETA DE REGISTROS / PORQUE ?
cont:=0;
while not ibqVeiculosMensalistaPatio.eof do
begin
inc(cont);
ibqVeiculosMensalistaPatio.Next;
// showmessage('REGISTRO ' + iNTtOSTR(cont) );
end;
// showmessage(sSql1);
// showmessage('NUMERO DE REGISTROS ENCONTRADOS NA TABELA LANCAMENTOS_MENSALISTAS : ' + iNTtOStr( ibqVeiculosMensalistaPatio.RecordCount ) );
nVeiculosTabLancamentoMensalista := ibqVeiculosMensalistaPatio.RecordCount;
//******************************************************************************

IF nControleVagas = 0 THEN

nControleVagas := ibqVeiculosMensalistaPatio.FieldByName('MEN_VAGAS').AsInteger ;

nVeiculosMensalistaNoPatio := nVeiculosEntrandoPatio + nVeiculosTabLancamentoMensalista; //ibqVeiculosMensalistaPatio.RecordCount ; // nVeiculosMensalistaNoPatio + ibqVeiculosMensalistaPatio.RecordCount + 1 ; ibqVeiculosMensalistaPatio.RecordCount;


ibqVeiculosMensalistaPatio.Destroy;

end;