Valores Incorretos Gravados No Registro C860

[Verissimo]

Trabalhando nos registros C860 e C870 para o CFe, e na gravação estava sendo gravados como data os campos: NR_SAT, DOC_INI, DOC_FIM, fiz um ajuste em ACBrEPCBloco_C_Class.pas

 

procedure TBloco_C.WriteRegistroC860(RegC010: TRegistroC010);

Código Original:

...

          with RegC010.RegistroC860.Items[intFor] do

          begin

            Add( LFill('C860')       +

                 LFill( COD_MOD, 2 ) +

                 LFill( NR_SAT )     +

                 LFill( DT_DOC)      +

                 LFill( DOC_INI )    +

                 LFill( DOC_FIM )    ) ;

          end;

...

 

 

Código Alterado:

...

          with RegC010.RegistroC860.Items[intFor] do

          begin

            Add( LFill('C860')       +

                 LFill( COD_MOD, 2 ) +

                 LFill( NR_SAT, 9 )     +

                 LFill( DT_DOC)      +

                 LFill( DOC_INI, 6 )    +

                 LFill( DOC_FIM, 6 )    ) ;

          end;

...

 

 

Em anexo segue ACBrEPCBloco_C_Class.pas alterado. (Foi baixado hoje do Trunk antes da alteração)

ACBrEPCBloco_C_Class.rar

ACBrEPCBloco_C_Class.rar

Editado 19 Junho, 2015 por Verissimo

[Juliomar Marchetti]

Boa noite

não veio o anexo

[Verissimo]

Juliomar, 

 

arquivo enviado.

[Isaque Pinheiro]

Bom dia Já disponível no Rep. obrigado.