ECF Lfiil Integer X Data

[Renato Rubinho]

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

[Renato Rubinho]

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

[Juliomar Marchetti]

Bom dia

no svn as correções.

Obrigado pela colaboração e testes.

[Renato Rubinho]

Bom dia,

Efetuados os testes nos fontes e estão OK.

Obrigado,

Renato Rubinho

Analista de Sistemas

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