Problema Sped Contabil

[leacarbonera]

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.

[EMBarbosa]

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

[leacarbonera]

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;

[EMBarbosa]

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

[leacarbonera]

quando chamo o Registro0007.New ele vai para o construtor normal... como acontece nos outros...

Acredito que esteja certo..

[leacarbonera]

Tche.... mil desculpas... Cagada minha... pra variar...

Erro de Ctrl_C + Ctrl_V...

Coloquei o comando ACBrSPEDContabil.Bloco_0.LimpaRegistros dentro do bloco onde gero o Registro I... ai Limpava tudo...

tire e funcionou perfeitinho...

Valeu Pela atenção..

Abraço

[EMBarbosa]

Que bom que resolveu.