Ol�!Tudo bem?Dentro da propriedade SQL do componente IBQuery coloquei este comando[code:1:4e442f112a]select a.*, b.* from cad_recebimento a, cad_recebimento_mov b[/code:1:4e442f112a]Deixei os Fields e...

F�rum Como calcular esta SQL #265475

15/01/2005

Ol�!
Tudo bem?

Dentro da propriedade SQL do componente IBQuery coloquei este comando

select a.*, b.* from cad_recebimento a, cad_recebimento_mov b

Deixei os Fields em branco.

Fiz esta SQL

with IBQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(�select A.CODIGO, A.TITULO, A.PARCELA, A.DOCUMENTO, A.SERIE, A.DT_EMIS, A.DT_VCTO, A.VLR_TIT,�);
SQL.Add(�SUM(B.VLR_PAGO) PAGO,�);
SQL.Add(�MAX(B.DT_MOVIMENTO) MOVIMENTO�);
SQL.Add(�From CAD_RECEBIMENTO A�);
SQL.Add(�Left Join CAD_RECEBIMENTO_MOV B�);
SQL.Add(�On(A.CODIGO = B.CODIGO and A.TITULO = B.TITULO and A.PARCELA = B.PARCELA)�);
SQL.Add(�GROUP BY A.CODIGO, A.TITULO, A.PARCELA, A.DOCUMENTO, A.SERIE, A.DT_EMIS, A.DT_VCTO, A.VLR_TIT�);
Open;
end;

O campo VLR_PAGO n�o pode ser somente somado. Existe um outro campo que � LIQ_EST que diz que o movimento foi uma liquida��o ou um estorno, portanto dependendo do valor deste campo eu vou ter de somar ou subtrair para achar o valor pago.

Tentei fazer um campo calculado, mas d� erro no SQL.

if ibquery1LIQ_EST.Value = �Estorno� then
begin
IBQuery1TOT_PAGO.Value:= IBQuery1TOT_PAGO.Value - ibquery1VLR_PAGO.Value;
end;
if ibquery1LIQ_EST.Value = �Liquida��o� then
begin
IBQuery1TOT_PAGO.Value:= IBQuery1TOT_PAGO.Value + ibquery1VLR_PAGO.Value;
end;

Melhor explicando, eu tenho uma tabela com os t�tulos e outra com os movimentos. Na tabela com os t�tulos eu pego os dados dos t�tulos e na tabela de movimento eu somo as parcelas pagas ou subtraio as parcelas que foram estornadas.

Neste caso ainda ter� mais alguns problemas.

Teria que mostrar os t�tulos pagos e os t�tulos que est�o em aberto testando o resultado do SUM de uma tabela com o valor do t�tulo que est� em outra tabela.

Fazer o c�lculo de dias em atraso com o resultado de MAX de uma tabela com a data de vencimento que est� em outra tabela.

Tamb�m com o resultado de MAX mostrar os t�tulos que j� foram pagos e os t�tulos que est�o em aberto.

Usando Delphi 7 Interbase 6

Ser� que algu�m poderia me dizer como resolver algum destes problemas?

Desde j� agrade�o a ajuda recebida.

Joao_schroeder

Curtir t�pico

+ 0

Responder