Bom dia ...
To disponibilizando umas alteração que fiz no ACBrBancoCaixa conforme necessidade que tive em cliente
1) Geração de nosso numero para remessa quando banco emite e entrega, neste casso o nosso numero tem que ir zerado:
"G069
Identificação do Título no Banco
Número adotado pelo Banco Cedente para identificar o Título.
Para Código de Movimento (posições 16-17 do Segmento P) igual a '01' (Entrada de Títulos):
1) Se a CAIXA for responsável pela emissão do bloqueto, o campo Carteira/Nosso Número (posições 41-
42/43-57) pode ser preenchido com zeros (‘0’), nesse caso, a numeração será feita pelo Banco."
fiz uma alteração na linha 172:
onde era:
else
ANossoNumero := '11'+PadLeft(ANossoNumero, 15, '0')
passou a :
else if (StrToIntDef(ANossoNumero,0)) <> 0 then
ANossoNumero := '11'+PadLeft(ANossoNumero, 15, '0')
else
ANossoNumero := '00'+PadLeft(ANossoNumero, 15, '0')
2) Adicionei os código de retorno na cobrança 240
‘23’ Remessa a Cartório
‘24’ Retirada de Cartório
ACBrBancoCaixa.pas