Jump to content

dev botao
  • Este tópico foi criado há 2766 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores
Posted

Boa tarde,

Na geração do arquivo do ECF, alguns campos inteiros estão entrando no LFill de Data, gerando a informação errada.

Verifiquei neste post LFill Integer x Data que isso já ocorreu em alguns situações.

Para corrigir, passei o tamanho do campo no segundo parâmetro do LFill e garantiu a utilização da função correta nos itens a seguir:

1. 0020
procedure  TBloco_0.WriteRegistro0020;
LFill(IND_QTE_SCP, 3)

2. Y620 
procedure TBloco_Y.WriteRegistroY620;
LFill(IND_RELAC, 1)
LFill(PAIS, 3)

3. M010
procedure TBloco_M.WriteRegistroM010(RegM001: TRegistroM001);
LFill(COD_LAN_ORIG, 6)

4. L100
procedure TBloco_L.WriteRegistroL100(RegL030: TRegistroL030);
LFill(NIVEL, 3)

5. L300
procedure TBloco_L.WriteRegistroL300(RegL030: TRegistroL030);
LFill(NIVEL, 3)

Seguem os  fontes em ACBr.rar.

Renato Rubinho

Analista de Sistemas

http://linkedin.com.br/in/renatorubinho

 

ACBr.rar

  • Thanks 1
  • Consultores
Posted

Bom dia,

Seguem mais dois ajustes (Um deles é no ECD):

1. ECF Y640, mesma situação dos itens do post anterior
procedure TBloco_Y.WriteRegistroY640;
LFill(COND_DECL, 1)

2. ECD K001
O validador acusa que o registro K001 é inválido para o tipo de escrituração quando Registro0000.IND_ESC_CONS = "N".
Adicionado tratamento para gerá-lo apenas quando Registro0000.IND_ESC_CONS também estiver preenchido com "S".

Abraççç,

Renato Rubinho

Analista de Sistemas

http://linkedin.com.br/in/renatorubinho

ACBr002.rar

  • Like 1
  • Thanks 1
  • Este tópico foi criado há 2766 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...