AJUDA COM DATA DE ATRASO FASTREPORT

12/11/2021

5

BOA NOITE ESTOU USANDO ESSE CODIGO PARA PEGAR NO BANCO INFORMAÇOES DE DATA.
SE ESTIVER DATA ENTRADA MOSTAR OS DIAS ENTRE DATA DE SAIDA E ENTRADA
SE NAO DATA NA ENTRADA MOSTAR DIAS ENTRENTE DATA DE SAIDA ATE A DATA AUTAL

with FDQuery_Padrao do begin
FDQuery_Padrao.Close;
FDQuery1.SQL.Add('');
FDQuery1.Params.Clear;
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add('SELECT DATA_CADASTRO_SAIDA, DATA_ENTRADA FROM MOVIMENTACAO ');
FDQuery1.SQL.Add('WHERE DATA_CADASTRO_SAIDA LIKE :PDATASAIDA');
FDQuery1.SQL.Add('WHERE DATA_ENTRADA LIKE :PDATAENTRADA');
FDQuery_Padrao.Open;

vencimento := Trunc(FDQuery1.ParamByName
('PDATASAIDA').AsDateTime);
pagamento := Trunc(FDQuery1.ParamByName('PDATAENTRADA')
.AsDateTime);

if pagamento = 0 then // se não há data de pagamento, assume a data atual
pagamento := System.SysUtils.Date;
nDiasAtraso := System.Math.Max(pagamento - vencimento, 0);


// -- Imprimir Variavel no FastReport-------------
pFrxReport.Variables['NovaData'] := (nDiasAtraso);
END;
end;

MAIS NO FASTREPORT ESTA MOSTRANDO A MESMA DATA PARA TODOS OS CAMPOS
TERIA QUE MOSTRAR DATA DE CADA CAMPO
Demilk

Demilk

Responder

Posts

16/11/2021

Anderson Gonçalves

BOA NOITE ESTOU USANDO ESSE CODIGO PARA PEGAR NO BANCO INFORMAÇOES DE DATA.
SE ESTIVER DATA ENTRADA MOSTAR OS DIAS ENTRE DATA DE SAIDA E ENTRADA
SE NAO DATA NA ENTRADA MOSTAR DIAS ENTRENTE DATA DE SAIDA ATE A DATA AUTAL

with FDQuery_Padrao do begin
FDQuery_Padrao.Close;
FDQuery1.SQL.Add('');
FDQuery1.Params.Clear;
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add('SELECT DATA_CADASTRO_SAIDA, DATA_ENTRADA FROM MOVIMENTACAO ');
FDQuery1.SQL.Add('WHERE DATA_CADASTRO_SAIDA LIKE :PDATASAIDA');
FDQuery1.SQL.Add('WHERE DATA_ENTRADA LIKE :PDATAENTRADA');
FDQuery_Padrao.Open;

vencimento := Trunc(FDQuery1.ParamByName
('PDATASAIDA').AsDateTime);
pagamento := Trunc(FDQuery1.ParamByName('PDATAENTRADA')
.AsDateTime);

if pagamento = 0 then // se não há data de pagamento, assume a data atual
pagamento := System.SysUtils.Date;
nDiasAtraso := System.Math.Max(pagamento - vencimento, 0);


// -- Imprimir Variavel no FastReport-------------
pFrxReport.Variables['NovaData'] := (nDiasAtraso);
END;
end;

MAIS NO FASTREPORT ESTA MOSTRANDO A MESMA DATA PARA TODOS OS CAMPOS
TERIA QUE MOSTRAR DATA DE CADA CAMPO



Me procura que eu te ajudo.
Email/Skype: anderson.case13@gmail.com


Mas de ante mão dá uma olhada nos comandos SQL "between" que verifica intervalos de dados.

// -- Isso pode te dar uma luz, mas se precisar de mais ajuda me chama no email ou skype, que te ajudo.
with FDQuery_Padrao do
begin
Close;
SQL.Clear;
SQL.Add('Select * from TABELA');
SQL.Add('Where DataIVerificar between :Ini and :fim');
ParamByName('Ini').asDate := StrToDate(Edit1.Text);
ParamByName('Fim').asDate := StrToDate(Edit1.Text);
Open;
end;
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar