Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Problema Sped Contabil


leacarbonera
  • Este tópico foi criado há 3818 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

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