Registro E113 faltando "CHV_NFE"

[Adailson Rocha]

No no Registro E113 esta faltando a chave de acesso do documento eletrônico para a versão "vlVersao110"

/// Versão do leiaute do arquivo.
          if FBloco_0.Registro0000.COD_VER = vlVersao102 then
          begin
             Add( LFill('E113') +
                  LFill( COD_PART ) +
                  LFill( COD_MOD ) +
                  LFill( SER ) +
                  LFill( SUB ) +
                  LFill( NUM_DOC ) +
                  LFill( DT_DOC ) +
                  LFill( CHV_NFE ) +
                  LFill( COD_ITEM ) +
                  LFill( VL_AJ_ITEM,0 )) ;
          end
          else
          if FBloco_0.Registro0000.COD_VER >= vlVersao103 then //trocar por FBloco_0.Registro0000.COD_VER in [vlVersao103,vlVersao104] se na versão vlVersao105 não for gerado esse registro.
          begin
             Add( LFill('E113') +
                  LFill( COD_PART ) +
                  LFill( COD_MOD ) +
                  LFill( SER ) +
                  LFill( SUB ) +
                  LFill( NUM_DOC ) +
                  LFill( DT_DOC ) +
                  LFill( COD_ITEM ) +
                  LFill( VL_AJ_ITEM,0 )) ;
          end;
        end;

[francinaldoac]

Boa tarde!

Descobri isso hoje também quando precisei usar esse registro, a partir da versão  "Versao103" o código tem que ser este:

if FBloco_0.Registro0000.COD_VER >= vlVersao103 then //trocar por FBloco_0.Registro0000.COD_VER in [vlVersao103,vlVersao104] se na versão vlVersao105 não for gerado esse registro.
          begin
             Add( LFill('E113') +
                  LFill( COD_PART ) +
                  LFill( COD_MOD ) +
                  LFill( SER ) +
                  LFill( SUB ) +
                  LFill( NUM_DOC ) +
                  LFill( DT_DOC ) +
                  LFill( COD_ITEM ) +
                  LFill( VL_AJ_ITEM,0 ) +
                  LFill( CHV_NFE )) ;
          end;

 

[Juliomar Marchetti]

Boa tarde

favor atualizar e testar no svn

[Adailson Rocha]

Esta ok, Obrigado

[Adailson Rocha]

Encontrei um um erro na programação do Bloco E113 na linha 709

IfThen( EncodeDate(2017,1,1) >= DT_INI,LFill( CHV_NFE), ''));

o correto é

IfThen(DT_INI >= EncodeDate(2017,1,1),LFill( CHV_NFE), ''));

[Juliomar Marchetti]

Anexa a unit alterada.!

[Adailson Rocha]

Linha 709

ACBrEFDBloco_E_Class.pas

[Juliomar Marchetti]

No svn