Ola bom dia, estou com um problema ao ler o retorno do CNAB240 no delphi 7.
Primeiramente estou tendo que efetuar agumas configs de banco para ele não apitar outros erros:
try
NomeBoleto := copy(FormatDateTime('yymmdd', Date), 3, 4) + copy(FormatDateTime('hhmmss', Time), 3, 4);
Boleto.NomeArqRemessa := NomeBoleto + '.rem';
with (Boleto.Banco) do
begin
case (AnsiIndexStr(CodBanco, [BANCO_SICOOB, BANCO_CAIXA])) of
0:
TipoCobranca := cobBancoob;
1:
TipoCobranca := cobCaixaEconomica;
end;
end;
Boleto.LayoutRemessa := Iif(dtmBaixaRetornoBoleto.qryCarteiraCobrancaCNAB.AsString = 'CNAB240', c240, c400);
Boleto.DataArquivo := Date;
Boleto.DirArqRemessa := ExtractFileDir(Application.ExeName) + '\Remessa\' + dtmBaixaRetornoBoleto.qryCarteiraCobrancaCODIGO.AsString + '\';
Boleto.ACBrBoletoFC.MostrarSetup := False;
Boleto.ACBrBoletoFC.DirLogo := ExtractFileDir(Application.ExeName) + '\LogosBoleto\';
ACBrBoletoFCFR1.FastReportFile := ExtractFileDir(Application.ExeName) + '\Relatorios\Boleto.fr3';
Boleto.ACBrBoletoFC.Filtro := fiNenhum;
Boleto.ACBrBoletoFC.LayOut := lPadrao;
Boleto.ACBrBoletoFC.MostrarSetup := True;
Boleto.ACBrBoletoFC.SoftwareHouse := 'Bitline Soluções Técnologicas';
except
on E: Exception do
begin
ShowMessage(E.message);
end;
end;
E o erro que aparece para mim é:
O problema é que no método validarDadosRetorno() dentro da classe ACBrBancoCaixa, ele tenta comparar o CNPJ com o CNPJ do componente ACBrBanco, porém não sei da onde carrega esse componente, não sei também se tem que popular mais algum campo do ACBrBoleto para que faça a leitura do retorno.
Alguem pode dar um help?