jairomonassa

acbrbancocaixa.pas linha 1078 '00' + // 390 391 - Terceira instrução de Cobrança Default '00' mas o correto seria PadLeft(Instrucao3, 2, '0') + // 390 391 - Terceira instrução de Cobrança Default '00'

leiaute de arquivo cnab 400 caixa, preencher com brancos ao invés de zeros , pág 34 do documento layout 007 (james bond ) veja que também pede em branco agora apartir de 7 casas do codigo beneficiario não precisa colocar zero porque já tem 7 digitos

o banco não aceitou , só isso e voltou

só complementando a confusão da remessa da caixa codigo cedente/beneficiario CNAB 400 LAYOUT ANTIGO, remessa header remessa posição 31-37 branco no 37 (no último caractere) registro 1 posição 21-27 branco no 21 (ou seja no primeiro caractere) registro 2 posição 22-28 branco no 22 (no último caractere)

eu não achei, porque o problema não é o layot novo e sim que estragou o layout antigo de remessa da caixa at Jairo Monassa

o novo layout ficou tudo ok, mas estragou o layout antigo (na linha 1034) codigo da agencia é 3 espaços ele colocou 4 numeros deve ficar igual ao layout estava assim ifthen(Length(ACodCedente) > 6, '000', RightStr(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4 )) + // 18 até 21 - Código da Agência ficará '000' + // 18 até 21 - Código da Agência fiz teste e passou pelo validador da caixa ACBrBancoCaixa.pas o problema é que estragou o layout antigo da caixa, com os ajustes do novo layout da caixa temos clientes dos dois layous e testei aqui no validador da caixa agora deu certo ACBrBancoCaixa.pas coloquei em anexo anterior

boa tarde, Ajusta o código do acbr - boleto da caixa. erro da remessa cnab 400 paar layout antigos No novo layout da caixa cnab 400 dá tudo certo, o codigo do cedente é 7 tudo ok o problema no layout antigo do cnab 400 que o codigo do cedente deveria ser 6 7 caractere em branco e ta saindo em branco olhando o acbrbancocaixa.pas tem a função tudo ok (LINHA 285 ) , ........so adicionar um espaço if ((fpLayoutVersaoArquivo = 107) and (fpLayoutVersaoLote = 67)) or (fpLayoutVersaoArquivo = 007) then Result := PadLeft( ACBrCedente.CodigoCedente, 7, '0') else Result := PadLeft( ACBrCedente.CodigoCedente, 6, '0')+ ' '; <----------------adicionar um espaço PORÉM NO HEADER DO 400 quando vai colocar o cendete ele preenche com zero (ERRADO) LINHA 486 DEVERIA FICAR ACodCedente + // 31 ate 37 - Código Identificador da Empresa na CAIXA (CEDENTE) AO INVEZ que ele volta a preencher com 0 7 caracteres PadRight(ACodCedente, 7, '0') + // 31 ate 37 - Código Identificador da Empresa na CAIXA (CEDENTE)

coloquei em anexo, na hora de ler LerRetorno240 ele le o retorno somente com tamanho 11, no manual ele diz que começa no 38 é são 20 casas ao invés de 11, como pode ver o arquivo de retorno em anexo 009 835800000014 (numero da carteira + espaços em branco e no final digito verificador) como acbr só le 11 e começando no 38 ele puxa errado o nosso numero, assim se quiser reimprimir o boleto ele não BATE o codigo de barras , eu sugeri uma correção dias atrás mas ainda não tive resposta se foi aceito ou não, minha solução é começar o nosso número em 46 NossoNumero := copy(Linha, 46, 11); arquivo acbrbancobradesco.pas linha 1713, função lerretorno240 atenciosamente Jairo Monassa CBPF231100.RET

o manual fala da numeração do noss numero apatir de 38, mas os primeiros caracteres são a carteira, depois espaços em branco, guando for para gerar boleto o noss numero usa do 46 para frente registro t 2370001300001T 0203645500000000606744009 8326000000101000590/06 1212201800000000000150000004158000059006 001580967529000087 00000000000000000000001580000000000

erro na leitura do retorno do layout 240 bradesco, ele tá lendo o numero errado quando o numero é gerado pelo banco, quando vou reimprimir este numero ele não bate o código de barras ajustes acbrboletobradesco, está na linha 1712 : estava NossoNumero := copy(Linha, 38, 11); mudei para NossoNumero := copy(Linha, 46, 11);

temos este mesmo problema e também tive que alterar o código no acbr-fortes (mas precisamente em TACBrBoletoFCFortes) homologação caixa