Alterações Na Unit Acbrcaixaeconomicasicob.pas

[Emerson Luis]

Olá boa tarde...

 

Gostaria que dessem uma olhada na unit ACBrCaixaEconomicaSICOB.pas pois para homologar o arquivo de remessa para a agencia de votuporanga - sp tive que fazer algumas alterações....

 

após as alterações o mesmo foi homologado...

 

sem mais agradeço a atenção

ACBrCaixaEconomicaSICOB.pas

ACBrCaixaEconomicaSICOB.pas

[Juliana Tamizou]

Bom dia.

 

Por favor  cite quais alterações foram feitas e o motivo das mesmas.

 

Att.

[Emerson Luis]

Bom dia.

 

Por favor  cite quais alterações foram feitas e o motivo das mesmas.

 

Att.

Bom dia Juliana

 

Em primeiro lugar coloquei o fpTamanhoAgencia := 4, pois ao calcular o codigo do cedente na função TACBrCaixaEconomicaSICOB.CalcularDVAgCD a agencia ficava com um 0 a mais.

 

na funçao

 

function TACBrCaixaEconomicaSICOB.CalcularDVAgCD, coloquei um parametro pois quando é chamada pelo reader gera um digito e quanto chamada pelo trailer tem que gerar outro.

 

tbm fiz alterações na GerarRegistroHeader240, pois a variavel Aconvenio deve receber o codigo do cedente com o digito.

 

ao { GERAR REGISTRO-HEADER DO ARQUIVO } na posicao 33 a 48 estava passando padL(ACodConvenio, 16, '0'){+ACodCedenteDVAg} coloquei padL(ACodConvenio, 15, '0'){+ACodCedenteDVAg}.

 

no registro Q na posição 154/154 é obrigatorio passar o tipo de inscrição mesmo que nao tenha avalista.

 

no {REGISTRO TRAILER DO LOTE} troque zeros por brancos onde era necessário...

 

OBs: dessa forma o arquivo de remessa foi homologado pela caixa...

 

Obrigado...

[Juliana Tamizou]

Bom dia.

 

Correções aplicadas no svn.

 

Att.

[Emerson Luis]

Bom dia 

 

Obrigado Juliana..

[Massao Aihara]

boa tarde pessoal!!!

 

estou corregindo meu processo de boleto, ataulizei meus fontes, mas não veio a alteração do tamanho da agencia!!!

 

continua como 

fpTamanhoAgencia := 5;

[Massao Aihara]

a alteração tambem é necessaria no fonte "ACBrCaixaEconomica.pas".