Acbrcaixaeconomica Para Acbrcaixa

[emanuels_ces]

Pessoal, Parabéns pelo Projeto!!!

 

1) Atualizei o meu ACBR e percebi que a Unit ACBrCaixaEconomica.pas foi renomeada para ACBrCaixa, é isso mesmo ?

 

2) Outro detalhe é que pra homologação que fiz anteriormente na linha 134 que era:

 

Num := ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente;

 

coloquei:

 

Num := copy( ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente, 1, 6 ); // Mudei 

 

é necessário isso mesmo ou apenas informar o código cedente com algum tamanho fixo ? Vi a juliana no posta do link a seguir informando 9 posições.

 

Link-> 

 

Segue em anexo a Unit antiga que tinha.

 

Desde já agradeço pela atenção. Pelo que procurei não encontrei essa dúvida em outros tópicos.

 

 

ACBrCaixaEconomica.pas

[Juliana Tamizou]

Bom dia.

 

A unit mudou de nome já a algum tempo, isto foi feito para mantermos a padronização dos nomes.

 

Quanto a meu post em outro tópico, era referente a outro banco,  porém neste caso também recomendo que sejam sempre informados a quantidade de caracteres correta, ou seja, do tamanho do campo. (Irei verirficar todas as classes e checar onde faltam os pads para copiar a quantidade correta de caracteres das propriedades)

 

Att.

[emanuels_ces]

Obrigado pelo retorno Juliana,

 

a linha que mudei, devo deixa-la como alterei com o copy ?

[Juliana Tamizou]

Boa noite.

 

Apliquei sua alteração com um pequeno ajuste, a mesma já está no svn.

 

Att.

[emanuels_ces]

Obrigado Juliana pelo retorno e atenção.

[Binho Biatheski]

Olá,

 

Utilizo Delphi 7 e encontrei um erro no segmento "T" (linha 685) no ACBrBancoCaixa.pas.

 

 

           // prevenir quando o seunumero não vem informado no arquivo

           if StrToIntDef(SeuNumero,0) = 0 then

            begin

              SeuNumero := NossoNumero;

              NumeroDocumento := NossoNumero

            end;         

 

O conteúdo de "SeuNumero" é "7684            ", por ter espaço após o número a função StrToIntDef está retornando zero, está certo ? Adicionei um "trim" para resolver.

 

 

          // prevenir quando o seunumero não vem informado no arquivo

            if StrToIntDef(trim(SeuNumero),0) = 0 then

            begin

              SeuNumero := NossoNumero;

              NumeroDocumento := NossoNumero

            end;            

 

 

 

ACBrBancoCaixa.pas