Problema No Registro 85 - Inconsistência No Acbrsintegra

[phanet]

Estou tendo problemas na validação do SINTEGRA por causa do campo "Número do Comprovante de exportação" pois o acbrSintegra está mandando 8 posições vazias e com isso ocorre o erro! Dei uma verificada no fonte e me deparei com a seguinte situação wregistro:= wregistro + padL('',8)!  Gostaria que o pessoal do Acbr efetuasse essa correção, pois eu fiz as alterações aqui no meu fonte e deu certo, porem seria interessante já efetuar o acerto no repositório do SVN!

 

Obrigado.

[Régys Silveira]

Boa tarde, obrigado pela ajuda.

Só faltou anexar o arquivo para validarmos e subir para o SVN.

[phanet]

Basta atualizar o repositório e verificar no arquivo AcbrSintegra, que esse cara "wregistro:= wregistro + padL('',8)  " estará lá!na procedure TACBrSintegra.GerarRegistros85! Obrigado

[Régys Silveira]

Você disse que alterou e funcionou, portanto, envie para compararmos e verificarmos.

[Jefferson Lupinacci]

Redação anterior, efeitos de 16.06.04 a 30.06.05

11

Comprovante de Exportação

Número do Comprovante de Exportação

08

73

80

N

 

de:

wregistro:= wregistro + padL('',8)

 

Nova redação dada ao n.º 11. pelo Dec. n.º 1.490-R, de 20.05.05, efeitos a partir de 01.07.05:

11

Reservado

Prrencher com zeros

08

73

80

N

 

 

para:

wregistro:= wregistro + padL('',8, '0');

 

Por Favor alterar a Linha 2256 pois esta gerando 8 espaços e não 8 zeros

 

Grato!

[Jefferson Lupinacci]

Segue mais um correção no registro 85 na linha  2252

 

no campo de Nr. Conhecimento o campo é alphanumerico e não númerico alterar por favor

de
    wregistro:=wregistro+TBStrZero(TiraPontos(Registros85.Conhecimento),16);

para
    wregistro:=wregistro+padL((Registros85.Conhecimento),16);

852130094659820130129113012253400120130129AG13019122      2013020910249600000000201302140037042013012955001                  

852130114771020130204113015034000120130204BRVIX431456     2013021410249600000000201302260037302013020455001                  

[Régys Silveira]

Como dito anteriormente anexem os arquivos alterados para que seja comparadas e enviadas as correções.

[Jefferson Lupinacci]

Correção anexada

ACBrSintegra.pas

ACBrSintegra.pas

[Régys Silveira]

Conferido é enviado, obrigado pela participação.