Problemas Com Dt_Fin No Bloco P100

[Rinaldo Tavares de Almeida]

Estou gerando o sped contribuições pelo componente ACBR, e agora precisei gerar o bloco P, mas não sei porque o campo DT_FIN esta ficando com uma data vazia, então fiz uma alteração no ACBrEPCBloco_P_Class que estou colocando em anexo com a alteração que fiz para contornar o problema, gostaria se possível que alguém me orientasse caso eu tenha feito algo errado.

 

 

Obrigado.

ACBrEPCBloco_P_Class.pas

ACBrEPCBloco_P_Class.pas

[Juliomar Marchetti]

Boa tarde

Acredito que o problema seja somente que você está informando para o componente somente após criar os registros a DT_INI e DT_FIN

ou que nem esteja informando!

 

antes de começar a informar os arquivos você deve de informar na propriedade do componente as respectivas datas!

[Rinaldo Tavares de Almeida]

Ola Juliomar, obrigado pelo retorno, abaixo eu mostro como estou gerando:

 

                  with RegistroP100New do

                  begin

                      DT_INI            := edDati.date;

                      DT_FIN            := edDatf.date;

                      VL_REC_TOT_EST    := ValorCte + ValorSer;

                      COD_ATIV_ECON     := sqlFili.fieldbyname('empr_cnae').asstring;

                      VL_REC_ATIV_ESTAB := ValorCte + ValorSer;

                      VL_EXC            := 0;

                      VL_BC_CONT        := ValorCte + ValorSer;

                      ALIQ_CONT         := 1;

                      VL_CONT_APU       := mRound((valorCte + ValorSer) * 1 / 100,2);

                  end;

Tudo vai certinho para o registro, menos a data final DT_FIN que sempre vai com uma data 30/12/1899, já verifiquei pelo Debug que a variável edDatf.date está carregada com: 31/07/2014. 

[Juliomar Marchetti]

No caso estava falando do inicio de uso do sistema!

 

   btnTXT.Enabled := False ;


   ACBrSPEDPisCofins1.LinhasBuffer := StrToIntDef( edBufLinhas.Text, 0 );


   with ACBrSPEDPisCofins1 do
   begin
      DT_INI := StrToDate('01/04/2011');
      DT_FIN := StrToDate('30/04/2011');
   end;


   // Limpa a lista de erros.
   memoError.Lines.Clear;
   // Informa o pasta onde será salvo o arquivo TXT.
   ACBrSPEDPisCofins1.Path := '.\';
   ACBrSPEDPisCofins1.Arquivo := edtFile.Text;


   // Método que gera o arquivo TXT.
   ACBrSPEDPisCofins1.SaveFileTXT ;


   // Carrega o arquivo TXT no memo.
   LoadToMemo;

[Rinaldo Tavares de Almeida]

   with sped do
   begin
      DT_INI := edDati.date;
      DT_FIN := edDatf.date;
      LinhasBuffer := 1000;
      IniciaGeracao;
   end;

É o que faço no inicio da geração., mas pelo visto isso está funcionando para os demais, então vou procurar mais um pouco o que posso estar fazendo de errado.

Muito Obrigado.