Melhoria no ACBrBancoCaixa

[Rodrigo de Carvalho Ribeir]

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

[Marcos Mentz_5837]

Boa tarde!

 

Eu encontrei um problema ao gerar cnab 240, no seguinte processo, emitir o boleto e em outro momento gerar a remessa.

Na geração da transação do 240, linhas 578 e 579

               PadRight(Copy(ANossoNumero,1,2), 2, '0')                                                        + //41 a 42 - Modalidade da Carteira
               PadLeft(Copy(ANossoNumero,3,17), 15, '0')                     + //43 a 57 - Nosso número - identificação do título no banco
 

Acontece que o NossoNumero não tem a modalidade da carteira quando é salvo no registro do banco de dados, fiz uma alteração interna no sistema para guardar a geração do nosso numero que é usado na impressão do boleto, mas no momento de gerar a remessa se eu passo o número integral de 17 dígitos é gerado mensagem de erro que aceita no máximo 15.

E se tenho salvo somente o "NossoNumero" se a modalidade na hora de gerar onde vai ler da propriedade não tem os 17 dígitos para ler a modalidade...

Ao meu ver não deveria fazer a leitura da modalidade pelo "nossoNumero" e sim passar a modalidade como parâmetro ao gerar a linha da remessa no segmento P.

Marcos

[Rodrigo de Carvalho Ribeir]

No meu caso não guardo a modalidade.. apenas nosso numero ..

porque a modalidade vai depender tipo de emissão:

 

CC = 11 (título Registrado emissão pela CAIXA)
CC = 14 (título Registrado emissão pelo Cedente)
CC = 21 (título Sem Registro emissão pela caixa CAIXA)
CC = 00 (título Registrado emissão pela CAIXA mas com nosso numero do cliente)

[Marcos Mentz_5837]

Bom dia!

Eu também guardo somente o "nosso número", mas o código para a geração da remessa está utilizando somente esta propriedade para a geração da "modalidade", dessa forma a remessa não gera corretamente.

 

Marcos

[Juliana Tamizou]

Bom dia.

Em 2017-5-17 at 10:53, Rodrigo de Carvalho Ribeir disse:

          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')

Em seu comentário vc diz que o preeenchimento do nosso número depende do tipo de emissão do boleto, logo o correto seria utilizar a propriedade  CarteiraEnvio.

Em 2017-5-19 at 13:28, Marcos Mentz_5837 disse:

Eu encontrei um problema ao gerar cnab 240, no seguinte processo, emitir o boleto e em outro momento gerar a remessa.

Na geração da transação do 240, linhas 578 e 579

               PadRight(Copy(ANossoNumero,1,2), 2, '0')                                                        + //41 a 42 - Modalidade da Carteira
               PadLeft(Copy(ANossoNumero,3,17), 15, '0')                     + //43 a 57 - Nosso número - identificação do título no banco

A formatação do nosso número inclusive os dois primeiros digitos ocorre na função FormataNossoNumero(), a qual faz o tratamento da modalidade.

Att.

[Marcos Mentz_5837]

Bom dia!

Fazendo o seguinte procedimento:

- emitir o boleto: o nosso número sai certo no boleto, salvo o campo "nossonumero" no registro da duplicata, ao salvar não é salvo a modalidade, a modalidade é gerada na montagem durante a emissão do boleto.

- em outro momento vou gerar a remessa das duplicatas, no final do dia por exemplo, como tenho o "nossonumero" salvo na duplicata (não está salvo a modalidade junto) e vou gerar o arquivo o "nossonumero" na remessa fica incompleto para gerar a informação na linha PadRight(Copy(ANossoNumero,1,2), 2, '0') .

Fiz a depuração e rastreamento do código e não fica a remessa de acordo com o layout do banco.

 

Marcos

[leticiasilva]

Boa Tarde, 
Alterações disponíveis no SVN.