Ir para conteúdo
  • Cadastre-se

dev botao

Erro Registro E113


Ver Solução Respondido por Isaque Pinheiro,
  • Este tópico foi criado há 4059 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa noite!

 

Estou criando o registro E113 do SpedFIscal porém o mesmo não aparece no txt, Os registros pai E110 e E111 aparecem normalmente o E112 também porém o E113 não aparece de forma alguma.

O componente até soma o contador do registro E113 no registro E990.

Alguém sabe o que pode ser?

 

Obrigado!

Editado por FabricioMedeiros
Link para o comentário
Compartilhar em outros sites

Vou analisar e te retorno.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Solution

Debug nesse ponto aqui, e confira se ele está entrando no IF

 

Unit ACBrEFDBloco_E_Class.pas Linha 573

          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;

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

Boa tarde Isaque!

 

Muito obrigado pelo retorno!

 

Verifiquei o código que você me indicou acima.

 

Ele não entra em nenhum dos dois if, pois aparece o campo FBloco_0.Registro0000.COD_VER = vlVersao100.

 

Porém ao iniciar o arquivo eu seto a versão como vlVersao106 conforme o código abaixo.

 

 

procedure TFrPrincipal.GeraRegistro0000(); //Dados da Empresa
begin
  with ACBrSPEDFiscal.Bloco_0 do
  begin
    with Registro0000New do
    begin
      COD_VER    := vlVersao106;
 
      if CbFinalidade.ItemIndex = 0 then
        COD_FIN := raOriginal
      else
        COD_FIN := raSubstituto;
 
      NOME       := SdEmpresasEMPRAZAOSOCIAL.Value;
      CNPJ       := SdEmpresasEMPCNPJ.Value;
      CPF        := '';
      UF         := SdEmpresasEMPUF.Value;
 
      if SdEmpresasEMPINSCESTADUAL.Value = 'ISENTO' then
       IE := ''
      else
       IE := SdEmpresasEMPINSCESTADUAL.Value;
 
      COD_MUN    := SdEmpresasEMPCODIGOIBGE.Value;
      IM         := '';
      SUFRAMA    := '';
 
      case vPerfil of
        0 : IND_PERFIL := pfPerfilA;
        1 : IND_PERFIL := pfPerfilB;
        2 : IND_PERFIL := pfPerfilC;
      end;
 
      IND_ATIV   := atOutros;
    end;
  end;
end;
Link para o comentário
Compartilhar em outros sites

Boa tarde Isaque!

 

Acabei de achar o problema, não estava chamando a geração do registro 0000, por isso a versão ficava vlVersao100.

 

Agora gerou corretamente os registros!

 

Muito obrigado pela sua ajuda, sem ela com certeza eu não teria identificado o problema, e bom que agora eu também sei onde debugar os blocos!

 

Abraço!

Link para o comentário
Compartilhar em outros sites

Ei Fabricio que bom que encontrou o problema, precisando estamos ai, fique a vontade em perguntar.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.