procedure TfrmGrid.btnLoadClick(Sender: TObject);
var
txt: TextFile;
treg, lreg, dc: integer;
valortxt, valorbd : double;
dt1, dt2,lTemp, valor, dtcompratxt, numnf, coo,ccf: String;
dtcompra: TDateTime;
begin
lreg:= 1;
treg:= 0;
dc := 0;
StatusBar1.Panels[0].Text:= 'Abrindo arquivo de txt';
AssignFile(txt, frmSelection.FileListBox1.FileName);
Reset(txt);
while not eof(txt) do
begin
Readln(txt, lTemp);
if (copy(lTemp, 1, 3) = 'E14') then
begin
StatusBar1.Panels[0].Text:= 'Executando a query';
dtcompra:=StrToDate(copy(lTemp,65,2)+'/'+copy(lTemp,63,2)+'/'+copy(lTemp,59,4));
dtcompratxt:= FormatDateTime('dd/MM/yyyy', dtcompra);
DModuleGrid.ZQuery1.Close;
DModuleGrid.ZQuery1.SQL.Clear;
DModuleGrid.ZQuery1.SQL.Add('SELECT dtcompra, impcaixa, numcupom, ccf, valor FROM tdcupant');
DModuleGrid.ZQuery1.SQL.Add('WHERE numcupom = :co2 AND ccf = :cc3 AND dtcompra = :dtc4 AND impcaixa = :ip5');
DModuleGrid.ZQuery1.ParamByName('co2').AsString := copy(lTemp,53,6);
DModuleGrid.ZQuery1.ParamByName('cc3').AsString := copy(lTemp,47,6);
DModuleGrid.ZQuery1.ParamByName('ip5').AsString := copy(lTemp,4,20);
DModuleGrid.ZQuery1.ParamByName('dtc4').AsDate := StrToDate(dtcompratxt);
DModuleGrid.ZQuery1.Open;
if not (DModuleGrid.ZQuery1.IsEmpty) then
begin
StatusBar1.Panels[0].Text:= 'Executando o loop de consulta/comparação';
DModuleGrid.ZQuery1.First;
if (DModuleGrid.ZQuery1.FieldByName('numcupom').AsString = DModuleGrid.ZQuery1.ParamByName('co2').AsString)
and (DModuleGrid.ZQuery1.FieldByName('ccf').AsString = DModuleGrid.ZQuery1.ParamByName('cc3').AsString)
and (DModuleGrid.ZQuery1.FieldByName('dtcompra').AsDateTime = DModuleGrid.ZQuery1.ParamByName('dtc4').AsDate)
and (DModuleGrid.ZQuery1.FieldByName('impcaixa').AsString = DModuleGrid.ZQuery1.ParamByName('ip5').AsString)
then
begin
StatusBar1.Panels[0].Text:= 'Incrementando registros';
inc(lreg);
//Valor no BD
valorbd := DModuleGrid.ZQuery1.FieldByName('valor').AsFloat;
//Valor no TXT
valortxt := StrToFloat(copy(lTemp, 109, 14))/100;
//Diferença nos valores
if (valorbd <> valortxt) then
begin
inc(treg);
if (valor = '') then
begin
valor := IntToStr(0);
end
else
valor := IntToStr(treg);
end;
end
else
begin
inc(dc);
StatusBar1.Panels[0].Text:= 'Próximo registro';
end;
DModuleGrid.ZQuery1.Next;
end;
end;
end;
Label1.Caption := 'Divergências '+'Valor'+' Cupons: '+valor;
Label7.Caption := 'Divergência de cupons: '+ IntToStr(dc);
StatusBar1.Panels[0].Text:= 'Existem '+ IntToStr(lreg) + ' linhas de Cupons(E14)';
CloseFile(txt);
end;
Otimizar consulta em banco de dados e compactar o código
O contexto da pergunta esta nos comentários, mas irei deixar claro.
O que tentei fazer foi uma comparação de um arquivo .txt com os dados contidos no DB. Eu consegui fazer a comparação com este código, lembrando, o código funciona para a comparação, mas não esta funcionando para a listagem de dados em Outro DBGrid.
Ele esta utilizando o DBGrid apenas para a comparação e não para a listagem. Alguma idéia?
@usuario
só funciona dentro dos Comentários para pessoas envolvidas no post (autor da pergunta, comentaristas, editores). Cada Pergunta deve ser auto-suficiente dando possibilidade a que qualquer um responda. Por favor, adicione detalhes que expliquem melhor seu problema.