AJUDA COM DATA DE ATRASO FASTREPORT
12/11/2021
0
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
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
Upmilk
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)