Erro Registro E113

[FabricioMedeiros]

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 15 Fevereiro, 2013 por FabricioMedeiros

[Isaque Pinheiro]

Vou analisar e te retorno.

[Isaque Pinheiro]

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;

[FabricioMedeiros]

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;

[FabricioMedeiros]

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!

[Isaque Pinheiro]

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