Ajuste Function Calcularcampoasbace Banestes

[carlos_tedex]

Boa tarde,

 

Estou homologando o boleto do Banestes e fiz uma correção na Composição da chave ASBACE conforme orientação do layout de cobrança CNAB 400 fornecido pelo banco. Para que possam conferir a composição da chave ASBACE o mesmo encontra-se na pagina 27 do manual em anexo.

 

Ainda na composição da chave ASBACE percebi que o "Tipo de Cobrança" esta sendo passado fixo o valor "4" (Cobrança Simples e Com Registro) mas o boleto que estou homologando no momento usa o código 2 (Cobrança Simples e Sem Registro).

Referente este item que esta fixo caso alguém tenha uma ideia de implementação no código para que possamos também passar este valor através de uma propriedade pois em breve irei também homologar gerando o arquivo remessa a qual o banco já me informou que devo informar "4" no Tipo de Cobrança.

 

Segundo o manual estes são os códigos validos para o campo "Tipo de Cobrança"

(2) - Sem registro

(3) - Caucionada

(4, 5, 6 e 7) - Com registro

 

NOTA: Para correta impressão do boleto tive que setar em tempo de execução a seguinte propriedade para "8" como visto no manual que o campo "nosso numero" deve conter 8 dígitos e não 9.

 

  ACBrBoleto1.Banco.TamanhoMaximoNossoNum := 8;

 

ACBrBanestes.pas

layout_cobrança_cnab400.pdf

BOLETO.PDF

[Juliana Tamizou]

Bom dia.

 

Nâo encontrei neste manual a definição do que seriam os tipos 4,5,6 e 7, considerando que o campo que define isto é um tipo enumerado seria interessante saber oque representa cada um destes números.

 

Att.

[carlos_tedex]

Bom dia.

 

Nâo encontrei neste manual a definição do que seriam os tipos 4,5,6 e 7, considerando que o campo que define isto é um tipo enumerado seria interessante saber oque representa cada um destes números.

 

Att.

 

Bom dia Juliana,

 

Conforme contato com o setor de cobrança do Banestes (27- 3383-1337 Sr. Gustavo) o qual informou que o padrão para o Tipo de Cobrança do Banestes é:

(2) - Sem registro

(3) - Caucionada

(4) - Com registro

e nos informou ainda que para cobrança com registro poderá ser usado além do (4) que é o padrão do Banestes poderá ser usado também os códigos 5, 6 e 7, sendo que estes não são muitos utilizados serve apenas para aumentar o leque de controle interno do programador/empresa.

 

Sendo assim os códigos 5, 6 e 7 tem a mesma finalidade do código 4 - Com registro.

 

Sugestão para implementação para o Tipo de Cobrança:

(2) - Sem registro

(3) - Caucionada

(4) - Com registro

(5) - Com registro

(6) - Com registro

(7) - Com registro

 

Grato pela atenção!

 

[Juliana Tamizou]

Boa tarde.

 

Neste caso isso significa que não existe nenhuma regra sobre quando utilizar 4,5,6 ou 7 ?

 

Att.

[carlos_tedex]

Boa tarde.

 

Neste caso isso significa que não existe nenhuma regra sobre quando utilizar 4,5,6 ou 7 ?

 

Att.

 

Existe sim. Para cobrança registrada deverá ser alguns destes códigos (4, 5, 6 ou 7) o banco apenas nos recomendou utilizar o código 4 que é o padrão.

Para cobrança sem registro o tipo de cobrança será o código 2. Se for cobrança caucionada deverá ser 3, e código 4 para cobrança com registro.

[Juliana Tamizou]

Bom dia.

 

Minha pergunta foi especificamente sobre os códigos "4,5,6 e 7",  com as informações que vc forneceu até agora não existe regra e todos são exatamente a mesma coisa....sem mais detalhes fica difícil qualquer alteração para resolver esta questão.

 

Att.

[carlos_tedex]

Bom dia.

 

Minha pergunta foi especificamente sobre os códigos "4,5,6 e 7",  com as informações que vc forneceu até agora não existe regra e todos são exatamente a mesma coisa....sem mais detalhes fica difícil qualquer alteração para resolver esta questão.

 

Att.

 

Bom dia,

 

Segundo o banco os códigos 4, 5, 6 e 7 são para cobrança com registro. Sobre o que você disse: "não existe regra e todos são exatamente a mesma coisa...", concordo que é a mesma coisa no que diz respeito a implementação, ou seja, o que for implementado para o código 4 funcionará para os códigos 5, 6 e 7 porém ficara a critério do usuário definir qual código para cobrança com registro ele irá adotar.

 

Exemplo:

• A empresa ABC irá utilizar o código 4 a qual fará parte da composição do Chave ASBACE, já a empresa XYZ irá utilizar o código 7, ambas são cobrança com registro e farão o mesmo calculo para tal, porem uma utilizará o código 4 para composição do campo e a outra o código 7.

OBS: O "Tipo de Cobrança" faz parte da Linha Digitável na 26ª posição.

 

No exemplo da Linha Digitável abaixo foi utilizado o Tipo de Cobrança "2":

 

02190029953010002128367862021366763030000000225

[Juliana Tamizou]

Bom dia.

 

Oque eu quiz dizer é que como o componente usa tipos enumerados para esta informação, precisamos de nomes que justifiquem a diferença, vc não consegue esta informação com o banco?

 

 

Att.

[carlos_tedex]

Bom dia,

 

Desculpe mas acho que você não esta entendendo sobre o que estamos falando.... Como já mencionado anteriormente o próprio banco informou que a utilização dos código 4, 5, 6 e 7 são para cobrança com registro e fica a critério do programador/empresa optar por um desses códigos.

 

Atualmente já temos um cliente que está utilizando o boleto do Banestes sem registro (código 2) mas como não tem o Tipo de Cobrança no componente tive que passar FIXO o código 2.

Mas o problema e que outro cliente quer utilizar a cobrança com registro (código 4) se não puderem fazer essa implementação terei que gerar os arquivos Remessa sem utilizar o ACBr.

 

O que preciso é o seguinte, que o componente tenha como ser informado qual o Tipo de Cobrança sem a necessidade de passar o código FIXO.

 

Sugestão para implementação para o Tipo de Cobrança:

(2) - Sem registro

(3) - Caucionada

(4) - Com registro

(5) - Com registro codigo 5

(6) - Com registro codigo 6

(7) - Com registro codigo 7

 

OBS: Alguém mais tem alguma ideia / sugestão?

Editado 16 Janeiro, 2015 por carlos_tedex

[Juliana Tamizou]

 

Bom dia,

 

Desculpe mas acho que você não esta entendendo sobre o que estamos falando.... Como já mencionado anteriormente o próprio banco informou que a utilização dos código 4, 5, 6 e 7 são para cobrança com registro e fica a critério do programador/empresa optar por um desses códigos.

 

Atualmente já temos um cliente que está utilizando o boleto do Banestes sem registro (código 2) mas como não tem o Tipo de Cobrança no componente tive que passar FIXO o código 2.

Mas o problema e que outro cliente quer utilizar a cobrança com registro (código 4) se não puderem fazer essa implementação terei que gerar os arquivos Remessa sem utilizar o ACBr.

 

O que preciso é o seguinte, que o componente tenha como ser informado qual o Tipo de Cobrança sem a necessidade de passar o código FIXO.

 

Sugestão para implementação para o Tipo de Cobrança:

(2) - Sem registro

(3) - Caucionada

(4) - Com registro

(5) - Com registro codigo 5

(6) - Com registro codigo 6

(7) - Com registro codigo 7

 

OBS: Alguém mais tem alguma ideia / sugestão?

 

 

Compreendi perfeitamente o caso, porém até o momento todos os bancos que possuem diferentes códigos para um mesmo campo possuem uma regra especifica de quando usar um ou outro....de acordo com oque vc está dizendo neste caso caso não existe regra nenhuma.

 

Att.

[carlos_tedex]

Compreendi perfeitamente o caso, porém até o momento todos os bancos que possuem diferentes códigos para um mesmo campo possuem uma regra especifica de quando usar um ou outro....de acordo com oque vc está dizendo neste caso caso não existe regra nenhuma.

 

Att.

 

Bom dia Juliana, não sou eu que estou dizendo que não tem regra, essa foi uma informação passada pelo próprio banco.

 

O que você sugere para este caso?

 

Lembrando que o que preciso é de um campo para passar o Tipo de Cobrança evitando usar um código fixo conforme exemplo citado no post anterior.

 

Caso ninguém mais tenha uma solução para este caso, terei que gerar o arquivo remessa do Banestes sem o uso do ACBr pois o mesmo para este banco não possibilita a identificação do Tipo de Cobrança.

[Juliana Tamizou]

Bom dia.

 

Se o banco realmente não tem nenhuma regra, só nos resta a implementação sugerida por vc a alguns posts atrás..ou seja, criar os novo tipos enumerados.

Se desejar fazer a alteração e postar aqui, podemos analisar para subir ao svn.

 

 

Att.

[carlos_tedex]

Bom dia.

 

Se o banco realmente não tem nenhuma regra, só nos resta a implementação sugerida por vc a alguns posts atrás..ou seja, criar os novo tipos enumerados.

Se desejar fazer a alteração e postar aqui, podemos analisar para subir ao svn.

 

 

Att.

 

Bom dia,

 

Qualquer novidade postarei sim.

 

Grato pela atenção.

[denerbuzato]

Prezados,

 

Alguém saberia me dizer se já foi solucionado o problema da function "CalcularCampoASBACE" no "ACBrBancoBanestes" onde o componente passa o valor "4" na posição registro sendo que este valor pode mudar de acordo com a tipo de cobrança.

Estou olhando o manual do banestes e na página 24 diz assim:

No BANESTES a Chave ASBACE.

NNNNNNNNCCCCCCCCCCCR021DD

Onde:

NNNNNNNN --------------------------------- > Nosso Número (sem os dois dígitos).

CCCCCCCCCCC -------------------------- > Conta Corrente.

R                                                                   > 2- Sem registro; 3- Caucionada; 4,5,6 e 7-Cobrança com registro.

021 --------------------------------------------- > Código do BANESTES .

DD ---------------------------------------------- > Dígitos Verificadores.

Isso quer dizer que o campo registro pode variar entre 2, 3, 4, 5, 6 e 7 e atualmente o componente passa 4 fixo. Como em Janeiro deste ano foi levantado esta questão, gostaria de saber se alguém já solucionou e talvez não tenham disponibilizado para subir no svn, pois estou como o componente atualizado e ainda continua com os valor 4 fixo, não possibilitando passar o tipo de cobrança desejada.

Desde já obrigado.

CNAB400-B.DOC

[denerbuzato]

 

 

Prezados,

Como não obtive resposta no post, resolvi fazer a implementação necessária para atender essa necessidade.

Na unit “ACBrBoleto” criei “TipoRegCob” e na unit “ACBrBancoBanestes” na function  CalcularCampoASBACE  passo o “TipoRegCob” no lugar onde estava fixo o valor "4" fixo, onde ele poderá ter os valores 2, 3, 4, 5, 6 ou 7 de acordo como for alimentado.

Ficou assim:

ACBrBoleto

  TACBrTipoRegCob = (SemRegitro=2, Caucionada=3, ComRegistroTp4=4, ComRegistroTp5=5,ComRegistroTp6=6,ComRegistroTp7=7);

ACBrBancoBanestes

 

  cLivreAsbace := copy(ACBrTitulo.NossoNumero,1,8)+
                  copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 1, 11)+
                            ACBrtitulo.ACBrBoleto.Cedente.ContaDigito+
                  VarToStr(ACBrtitulo.ACBrBoleto.Cedente.TipoRegCob)+
                  IntToStrZero(fpNumero,3);

 

No meu caso estou usando assim:

 

      case AnsiIndexStr(qryBanco.FieldByName('TIPO_REG_COB').AsString,['2','3','4','5','6','7']) of
        0: ACBrBoleto1.Cedente.TipoRegCob := SemRegitro;
        1: ACBrBoleto1.Cedente.TipoRegCob := Caucionada;
        2: ACBrBoleto1.Cedente.TipoRegCob := ComRegistroTp4;
        3: ACBrBoleto1.Cedente.TipoRegCob := ComRegistroTp5;
        4: ACBrBoleto1.Cedente.TipoRegCob := ComRegistroTp6;
        5: ACBrBoleto1.Cedente.TipoRegCob := ComRegistroTp7;
        -1: ACBrBoleto1.Cedente.TipoRegCob := SemRegitro;
      End;

 

Sendo assim, na composição da Chave Asbase o valor estará de acordo como for alimentado.

 

Caso queiram subir para o SVN para que outros possam usar, está em anexo as units

 

Abraço a todos!

 

ACBrBoleto.pas

ACBrBancoBanestes.pas

ACBrBancoBanestes.pas

Editado 26 Outubro, 2015 por denerbuzato

[Juliana Tamizou]

Boa tarde.

Observe que já existe a propriedade TACBrCaracTitulo para esta finalidade.

Att.

[denerbuzato]

Bom dia Juliana,

Observei a propriedade que você pediu, porém não entendi que ela funcione para o fim do assunto do post, pois ela não permite usar variações de códigos para cobrança registrada, como é o assunto em questão.

Observe como é essa propriedade:

TACBrCaracTitulo = (tcSimples,tcVinculada,tcCaucionada,tcDescontada,tcVendor);

Se eu estiver enganado, favor me dizer então como usar essa propriedade para cobrança com registro no código 6.

Caso eu esteja certo, favor analisar a solução proposta pois depois que implementei consegui ter os resultados que necessitava. O problema é que quando atualizar o componente, terei que sempre ficar alterando. Por isso se fosse possível subir seria muito bom.

Obrigado.

[carlos_tedex]

Bom dia, 

Desde janeiro utilizo algo semelhante ao que o denerbuzato postou, pois o Tipo de Cobrança atualmente esta fixo o código "4" com registro, mas ainda tenho clientes que utilizam o código "2" que é sem registro.

Fiz o download do ajuste proposto e o mesmo atendeu minha necessidade.

[denerbuzato]

Boa tarde Carlos,

Que bom que atendeu sua necessidade.

Agora vamos aguardar os moderadores subirem no SVN.

[Juliana Tamizou]

Boa noite.

O problema desta implementação é que esta propriedade estaria disponível para todos os bancos, porém isto é especifico do Banestes, porém notei que a propriedade Modalidade não é usada nesta classe, acredito que poderia ser utilizada neste caso.

Att.

[denerbuzato]

Boa tarde Juliana,

Vou usar a propriedade "modalidade" como sugeriu, porém, foi necessário ajustar a unit do banestes "ACBrBancoBanestes" para usar essa propriedade, pois antes estava com valor "4" fixo e agora terá que usar o valor da modalidade.

Fiz a alteração e segue a unit em anexo para inclusão no SVN.

Grato.

ACBrBancoBanestes.pas

[carlos_tedex]

Boa tarde,

Alguma novidade? Gostaria de usar a propriedade "modalidade" quando estiver disponível no SVN.

[Juliana Tamizou]

Boa noite.

Alteração disponível no svn.

Att.

[denerbuzato]

Bom dia Juliana,

Após atualizar o componente agora pela manhã, “revisão 10475”, para fazer uso da propriedade “modalidade” na composição da chave ASBACE, observei que ocorreram diferenças nos cálculos. Também os arquivos de remessa e retorno apresentaram problemas.

Após localizar o problema, resolvi consultar o manual para saber quem estava correto.

Segue minhas considerações:

1 - CalcularCampoASBACE

Nesta função, observei que o nosso numero está copiando a partir 2º posição, sendo que o correto seria da 1º. Também no numero da conta corrente está sendo copiadas apenas 10 posições, a parir da 2º posição, sendo que o correto seria 11 a partir da 1º. O Banestes não possui digito na conta, sendo assim, pode-se retirar o digito da conta, pois ele sempre ficará vazio.

Obs.: Manual página 27

Código atual:

  cLivreAsbace := copy(ACBrTitulo.NossoNumero,2,8)                       +

                  copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 2, 10) +

                  ACBrtitulo.ACBrBoleto.Cedente.ContaDigito              +

                  IfThen(ACBrtitulo.ACBrBoleto.Cedente.Modalidade = '',

                         '4', ACBrtitulo.ACBrBoleto.Cedente.Modalidade)  +

                  IntToStrZero(fpNumero,3);

Como deveria ficar:

  cLivreAsbace := copy(ACBrTitulo.NossoNumero,1,8)                       +

                  copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 1, 11) +

                  IfThen(ACBrtitulo.ACBrBoleto.Cedente.Modalidade = '',

                         '4', ACBrtitulo.ACBrBoleto.Cedente.Modalidade)  +

                  IntToStrZero(fpNumero,3);

2 - GerarRegistroTransacao400

Nesta procedure observei que o nosso numero está copiando a partir 2º posição, sendo que o correto seria da 1º.

Obs.: Manual página 08

Código atual:

                  PadRight(Copy(NossoNumero, 2, 8) + DigitoNossoNumero, 10, '0')          +

Como deveria ficar:

                  PadRight(Copy(NossoNumero, 1, 8) + DigitoNossoNumero, 10, '0')          +                 

3 - LerRetorno400

Nesta procedure observei que o nosso numero está copiando a partir 64º posição e 9 posições, sendo que o correto seria da 63º e 10 posições.

Obs.: Manual página 14

Código atual:

         NossoNumero          := Copy(Linha,64,9);

Como deveria ficar:

         NossoNumero          := Copy(Linha,63,10);        

 

Segue a unit modificada para atualização no SVN.

Grato.

layout_cobrança_cnab400.pdf

ACBrBancoBanestes.pas

[denerbuzato]

Boa tarde Juliana,

Pela manhã postei alguns itens que observei inconsistência no Banestes.

Revolvi fazer mais testes e conferir os dados ente manual com os fontes onde encontrei mais ajustes a serem realizados. Segue considerações como sequência do post anterior.

4 - GerarRegistroHeader400

Nesta procedure observei que a Conta está copiando a partir 2º posição, sendo que o correto seria da 1º. O Banestes não possui digito na conta, sendo assim, pode-se retirar o digito da conta, pois ele sempre ficará vazio.

Código atual:

  PadLeft(OnlyNumber(Copy(Trim(Conta),2,10)+trim(ContaDigito)), 11, '0')+ // Código da Empresa no Banco

Como deveria ficar:

  PadLeft(OnlyNumber(Copy(Trim(Conta),1,11)), 11, '0')+ // Conta Corrente                       

Alterações em comentários no código: No local onde passa "IntToStrzero(Numero,3)" incluído comentário para identificar que se trata do código do banco "021" e no local onde está "PadRight('BANESTES', 8)" com o comentário "Código e Nome do Banco(237 - Bradesco)" alterado comentário para "Nome do Banco (Banestes)"

Obs.: Manual página 07  

5 - GerarRegistroTransacao400

Nesta procedure observei que a Conta está copiando a partir 2º posição, sendo que o correto seria da 1º. O Banestes não possui digito na conta, sendo assim, pode-se retirar o digito da conta, pois ele sempre ficará vazio.

Código atual:

  PadLeft(OnlyNumber(Copy(Trim(Cedente.Conta),2,10)+trim(cedente.ContaDigito)), 11, '0')+ // Codigo da Empresa no Banco

Como deveria ficar: 

  PadLeft(OnlyNumber(Copy(Trim(Cedente.Conta),1,11)), 11, '0')+ // Conta Corrente

Obs.: Manual página 08

6 - LerRetorno400

Nesta procedure foram observados variáveis desnecessárias e copy de posições erradas.

Removido a variável “rDigitoConta” e uso dela “rDigitoConta := Copy(ARetorno[0],38,1);” pois o Banestes não utiliza digito de conta.

Removido a variável “rAgencia” e uso dela “rAgencia := trim(Copy(ARetorno[0],27,4));” pois no caso do arquivo retorno não consta no layout a agencia do cedente. A única agencia que vem mencionada no layout é a agencia onde foi recebido o titulo, porém, essa agencia não seria necessário usar.

Ajustado copy da conta corrente.

Código atual:

   rConta   := trim(Copy(ARetorno[0],33,5));

Como deveria ficar:

   rConta   := trim(Copy(ARetorno[0],27,11));

Removido códigos: “Cedente.AgenciaDigito:= '0';” / “Cedente.Agencia := rAgencia;” / “Cedente.ContaDigito:= rDigitoConta;” pois não está sendo necessário no arquivo retorno.

Retirado comparação de "(rAgencia <> OnlyNumber(Cedente.Agencia)" pois não mais está usando a agencia no retorno.

Uma informação que não consegui ajustar foi o "Código Lançamento (Aviso de Movimentação)" que no manual diz que está na posição 83 com 2 posições. Observei que no fonte a propriedade "Carteira" está sendo atribuída com sendo este aviso de movimentação. Mas logo abaixo no código a mesa "Carteira" está sendo atribuída com a informação correta.

1 Vez:

Carteira                    := copy(Linha,83,3);

2 Vez

 Carteira             := Copy(Linha,108,1);

Removido a primeira citação da carteira "Carteira := copy(Linha,83,3);"

Não sei qual propriedade deveria ser usada para armazenar o "Código Lançamento (Aviso de Movimentação)" para fazer o copy correto desta posição. "Copy(Linha,83,2);". Por enquanto este item não foi implementado.

Obs.: Manual página 13 e 14

Segue a unit modificada com essas novas informações.

Grato.

ACBrBancoBanestes.pas