Boa tarde senhores, Estava fazendo homologação para este banco, porém alguns campos cujo valores estão incompatíveis com o layout do banco... conforme retornado pelo banco, os valores estão errados...
atualmente
if (CodigoMora = '') then
begin
CodigoMora := '0';
if (ValorMoraJuros > 0) then // cjValorDia, cjTaxaMensal
begin
if (CodigoMoraJuros = cjValorDia) then
CodigoMora := '0'
else if (CodigoMoraJuros = cjTaxaMensal) then
CodigoMora := '1';
end;
end;
deveria ser
if (CodigoMora = '') then
begin
CodigoMora := '0';
if (ValorMoraJuros > 0) then // cjValorDia, cjTaxaMensal
begin
if (CodigoMoraJuros = cjValorDia) then
CodigoMora := '1'
else if (CodigoMoraJuros = cjTaxaMensal) then
CodigoMora := '2';
end;
end;
*** Outro detalhe é que o Nº Sequencial do Registro no Lote se mantinha CONFORME o ultimo gerado... ou seja... caso seja gerado ARQUIVO REMESSA por mais de uma vez.. este fica errado, pois nunca zera...
fiz o ajuste e INCLUI novo registro "R"
ACBrBancoCresol.pas