Alterações ACBrBancoBanestes - LerRetorno400

[denerbuzato]

Prezados,

 

Realizei algumas alterações bem como correções na unit “ACBrBancoBanestes”, sendo elas:

procedure LerRetorno400

 

No manual na pagina 14 item 6.1.2 fala a respeito do tamanho do nosso numero no arquivo retorno

Notem que o nosso numero é composto de 10 números, mas eles estava copiando apenas 8. Corrigido isso.

Antes:

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

Depois:

 

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

Também a propriedade "Carteira" está sendo atribuída com sendo aviso de movimentação. Mas logo abaixo no código a mesma "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);" pois o correto é Carteira := Copy(Linha,108,1);

Removido o bloco:

   ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[1],111,2)+'/'+

                                                               Copy(ARetorno[1],113,2)+'/'+

                                                               Copy(ARetorno[1],115,2),0, 'DD/MM/YY' );

Pois as posições que estão sendo copiadas são referente ao filler – brancos, não tem valor algum.

Criado variável “CodAvisoMov” referente ao “Código do Lançamento (Aviso Movimentação)”

No manual na pagina 14 menciona essa informação que vem no retorno. No anexo XII contém uma lista de códigos que segundo o banco são meios para identificar se deve ou não realizar a baixa.

Por exemplo, o banco informou que se nesta posição vier os códigos abaixo a baixa poderá ser processada.

Obs.: Apesar desta informação ser parecida com o código de ocorrência, não é a mesma coisa, por exemplo no arquivo de retorno mencionado acima, temos duas informações em cada uma de suas posições.

Segue unit em anexo.

 

ACBrBancoBanestes.pas

Editado 17 Maio, 2016 por denerbuzato

[rrommullo]

Boa tarde pessoal,

Estou com o mesmo problema na leitura do arquivo de retorno referente ao nosso número. Não localiza o documento visto o componente está dando um copy de 8 caracteres sendo que o correto seria 10 como citado pelo colega.

Estou no aguardo da disponibilização da atualização.

Grato

[Juliana Tamizou]

Boa noite.

As 2 últimas posições retornadas são os DVs do Nosso Número, por este motivo o NossoNumero só tem 8 posições.

Att.

[rrommullo]

Bom dia,

Isso significa que terei que calcular o dígito? Vocês não acatarão a sugestão?

Como fica os demais itens sugeridos?

Em 17/05/2016 at 12:23, denerbuzato disse:

Removido a primeira citação da carteira "Carteira := copy(Linha,83,3);" pois o correto é Carteira := Copy(Linha,108,1);

Em 17/05/2016 at 12:23, denerbuzato disse:

Removido o bloco:

   ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[1],111,2)+'/'+

                                                               Copy(ARetorno[1],113,2)+'/'+

                                                               Copy(ARetorno[1],115,2),0, 'DD/MM/YY' );

Pois as posições que estão sendo copiadas são referente ao filler – brancos, não tem valor algum.

Em 17/05/2016 at 12:23, denerbuzato disse:

Criado variável “CodAvisoMov” referente ao “Código do Lançamento (Aviso Movimentação)”

Também não foram aprovados?

[rrommullo]

Ainda sobre o nosso número com 8 posições, comparando o código atual com uma cópia que tenho salvo, percebi que anteriormente era copiado as 10 posições, ou seja, depois que atualizei que passou a copiar 8. Também não achei um tópico que falasse sobre essa modificação. Um tópico que achei de modificação no banestes foi de um usuário sac onde não é possível eu ter acesso a informação que ele postou.

O que foi feito neste tópico? Como saber?

[Juliana Tamizou]

Bom dia.

1 hora atrás, rrommullo disse:

  Em 17/05/2016 at 12:23, denerbuzato disse:

Removido a primeira citação da carteira "Carteira := copy(Linha,83,3);" pois o correto é Carteira := Copy(Linha,108,1);

Será implementado.

 

1 hora atrás, rrommullo disse:

Removido o bloco:

   ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[1],111,2)+'/'+

                                                               Copy(ARetorno[1],113,2)+'/'+

                                                               Copy(ARetorno[1],115,2),0, 'DD/MM/YY' );

Pois as posições que estão sendo copiadas são referente ao filler – brancos, não tem valor algum.

Será implementado.

1 hora atrás, rrommullo disse:

Criado variável “CodAvisoMov” referente ao “Código do Lançamento (Aviso Movimentação)”

Não entendi a finalidade desta variável,  uma vez que é local e não é passada a nenhum propriedade do componente.

 

@Rrommullo

42 minutos atrás, rrommullo disse:

 

Ainda sobre o nosso número com 8 posições, comparando o código atual com uma cópia que tenho salvo, percebi que anteriormente era copiado as 10 posições, ou seja, depois que atualizei que passou a copiar 8. Também não achei um tópico que falasse sobre essa modificação. Um tópico que achei de modificação no banestes foi de um usuário sac onde não é possível eu ter acesso a informação que ele postou.

 

O código anterior estava incorreto, pois conforme citei em meu post anterior os 2 últimos dígitos são o DV, se deseja o nosso número com o DV basta utilizar a função MontarNossoNumero() em seu código.

Att.

[rrommullo]

Bom dia Juliana,

Primeiramente obrigado pelo retorno. Analisando o manual do Banestes, seria interessante o componente tratar o "Código do Lançamento (Aviso Movimentação)", visto que no arquivo retorno ele é importante para identificar as parcelas liquidadas. Poderia implementar isso? Você que conhece bem o componente talvez saberia melhor qual propriedade poderia ser usada para essa finalidade.

22 horas atrás, Juliana Tamizou disse:

23 horas atrás, rrommullo disse:

Criado variável “CodAvisoMov” referente ao “Código do Lançamento (Aviso Movimentação)”

Não entendi a finalidade desta variável,  uma vez que é local e não é passada a nenhum propriedade do componente.

Estarei no aguardo da disponibilização da atualização dos itens que você disse que será implementado.

Grato pela atenção.

[Juliana Tamizou]

Boa tarde.

Se desejar você pode implementar a questão do Código de Lançamento e anexar as alterações para serem analisadas, conforme fez com as demais.

Att.

[rrommullo]

Entendo,

Você me sugere usar alguma propriedade do ACBrBoleto ou criar uma nova para essa finalidade? Visto que terei que passar do ACBrBancoBanestes para o ACBrBoleto.

Quanto aos demais itens que você disse que seria implementado, você irá me aguardar, ou já irá disponibilizar uma atualização por se tratar de coisas mais simples?

[Juliana Tamizou]

Boa tarde.

11 minutos atrás, rrommullo disse:

Você me sugere usar alguma propriedade do ACBrBoleto ou criar uma nova para essa finalidade? Visto que terei que passar do ACBrBancoBanestes para o ACBrBoleto.

Acho interessante  observar se realmente será necessário uma nova propriedade.

 

12 minutos atrás, rrommullo disse:

Quanto aos demais itens que você disse que seria implementado, você irá me aguardar, ou já irá disponibilizar uma atualização por se tratar de coisas mais simples?

São alterações que não dependem do que você pretende fazer, logo poderão ser disponibilizadas antes.

Att.

 

[denerbuzato]

Boa tarde,

Em 25/05/2016 at 17:45, Juliana Tamizou disse:

Boa tarde.

Em 25/05/2016 at 17:32, rrommullo disse:

Você me sugere usar alguma propriedade do ACBrBoleto ou criar uma nova para essa finalidade? Visto que terei que passar do ACBrBancoBanestes para o ACBrBoleto.

Acho interessante  observar se realmente será necessário uma nova propriedade.

Não há necessidade de criar uma nova propriedade para tratar o "Código do Lançamento (Aviso Movimentação)". Podemos usar a propriedade "CodigoLiquidacao".

Para isso basta acrescentar na procedure LerRetorno400 o código

CodigoLiquidacao := Copy(Linha,83,2); //Código Lançamento (Aviso de Movimentação)

Juliana, você prefere que eu inclua esse código, ou quando você for disponibilizar os demais itens solicitados pelo colega você faz essa inclusão?

Att

[Juliana Tamizou]

Bom dia @denerbuzato

Fique a vontade para incluir, desta forma você aproveita e realiza os testes também.

Att.

[denerbuzato]

Bom dia,

Segue as alterações na unit “ACBrBancoBanestes” na procedure LerRetorno400

Removido a primeira citação da carteira "Carteira := copy(Linha,83,3);" pois o correto é Carteira := Copy(Linha,108,1); 

Removido o bloco:

   ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[1],111,2)+'/'+

                                                               Copy(ARetorno[1],113,2)+'/'+

                                                               Copy(ARetorno[1],115,2),0, 'DD/MM/YY' );

Pois as posições que estão sendo copiadas são referente ao filler – brancos, não tem valor algum.

Incluso CodigoLiquidacao := Copy(Linha,83,2); //Código Lançamento (Aviso de Movimentação)

Obs.: O nosso número não foi alterado visto que foi orientado recalcular o digito para compor o mesmo.

Segue unit em anexo.

ACBrBancoBanestes.pas

[rrommullo]

Bom dia a todos,

Juliana, pelo visto foi feito o que você pediu:

Em 30/05/2016 at 08:08, Juliana Tamizou disse:

Bom dia @denerbuzato

Fique a vontade para incluir, desta forma você aproveita e realiza os testes também.

Att.

 

Em 30/05/2016 at 11:20, denerbuzato disse:

Bom dia,

Segue as alterações na unit “ACBrBancoBanestes” na procedure LerRetorno400

...... está detalhado ...

Alguma previsão para disponibilizar no svn?

[Juliana Tamizou]

Boa tarde.

Você deve aguardar até que seja disponibilizado.

Att.

[rrommullo]

Bom dia !

Sem problemas, estou aguardando desde o dia 30/05/2016.

 

Grato pela atenção.

Editado 16 Junho, 2016 por rrommullo

[Graziele Rocha Serafim]

Boa tarde!

A correção está disponível no SVN.

Att.