Ir para conteúdo
  • Cadastre-se

dev botao

Problema Sped Contabil


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

Recommended Posts

Olá pessoal, estou iniciando a geração dos arquivos do Sped Contabil, e percebi que não estão sendo gravados no arquivo os registros 0007 e 0020. Tentei atualizar os componentes pelo Svn, mas não resolveu. Tentei olhar nos fontes pra ver se conseguia identificar o problema, mas a unica coisa que percebi é que no evento TACBrSPEDContabil.SaveStringList na linha 365 o teste if Bloco_0.Registro0007.Count > 0 esta retornando 0 e não esta gravando os dados no arquivo...

Alguem poeria me dar uma ajuda.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Você tentou usar o DEMO? Pois eu gerei um arquivo aqui com ele e saiu o registro 0007

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

Pois é.. testei o Demo e lá funcionou... copie toda a estrutura do Demo, e continua não gravando o registro 0007... dá uma olhada ai no codigo:

  Try

    SpedContabil.Bloco_0.LimpaRegistros;


    mmoDetalhes.Lines.Add('Adicionando Bloco 0');

    mmoDetalhes.Refresh;


    with SpedContabil.Bloco_0 do

    begin

      // Bloco 0 - Identificação e referências

      with Registro0000 do

      begin

         DT_INI  := StrToDate(edtDataIni.Text);

         DT_FIN  := StrToDate(edtDataFim.Text);

         NOME    := dtmEmpresas.cdsEmpresasNOME_EMPR.AsString;

         CNPJ    := Funcoes.RemoveCaracteres(dtmEmpresas.cdsEmpresasCNPJ_EMPR.AsString);

         UF      := Trim(dtmEmpresas.cdsEmpresasUF_EMPR.AsString);

         IE      := Funcoes.RemoveCaracteres(dtmEmpresas.cdsEmpresasIE_EMPR.AsString);

         COD_MUN := IntToStr(dtmCidades.GetCodgMunicipio(

                      dtmEmpresas.cdsEmpresasCIDD_EMPR.AsString,

                      Trim(dtmEmpresas.cdsEmpresasUF_EMPR.AsString)));

         IM      := '';

         IND_SIT_ESP := '0';

      end;


      Registro0001.IND_DAD := 0; //bloco com dados informados = 0 | sem dados inf = 1


      with Registro0007.New do

      begin

         COD_ENT_REF := 'PR';

         COD_INSCR := '1100002511';

      end;

    end;

  Finally

    ProgressBar.Position := 0;

  End;

Link para o comentário
Compartilhar em outros sites

  • Consultores

Verifique se a parte que cria o registro 0007 está sendo chamada. Talvez tenha algum erro aí...

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores

Que bom que resolveu.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 4489 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.