Lerretorno Código !

[Flávio Machado]

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;

[Flávio Machado]

Alguém ?