Jump to content

click.png click.png click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Registro E113 faltando "CHV_NFE"


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

Recommended Posts

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;

Link to comment
Share on other sites

  • Membros Pro

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;

 

Link to comment
Share on other sites

  • Consultores

Boa tarde

favor atualizar e testar no svn

  • Like 1
Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • 3 weeks later...
  • Este tópico foi criado há 1617 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.