Bom dia Senhores(as), Acabei de termina meu programa de emitir boleto só ta faltando alguns ajustes alguém poderia me dizer se este meu código ainda ler o arquivo retorno ou preciso fazer mais validações , ficaria muito grato ...
segue o código :
var I : Integer;
begin
if OpenDialog1.Execute then
begin
//configurar banco
ConfiguraComponenteACBr;
//
ACBrBoleto1.NomeArqRetorno := OpenDialog1.FileName;
ACBrBoleto1.LerRetorno;
for I := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do
begin
if ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido > 0 then
begin
// grava a quitaçã da conta
SQLAux.Close;
SQLAux.SQL.Clear;
SQLAux.SQL.Add('UPDATE PESCADOR SET');
SQLAux.SQL.Add('PESCADOR.DATA_QUIT = :pData,');
SQLAux.SQL.Add('PESCADOR.VALOR_QUITATO = :pValor');
SQLAux.SQL.Add('WHERE PESCADOR.NOSSO_NUMERO = :pNossoNum');
SQLAux.Params.ParamByName('pData').AsDate := ACBrBoleto1.ListadeBoletos.Objects.DataBaixa;
SQLAux.Params.ParamByName('pValor').AsFloat := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido;
SQLAux.Params.ParamByName('pNossoNum').AsInteger := StrToInt(ACBrBoleto1.ListadeBoletos.Objects.NossoNumero);
SQLAux.ExecSQL;
end;
end;
end;
end;