Bloco_E (E100 não gera)

[ailtonbrc]

Estou gerando o sped e o bloco E não esta gerando o registro E0100, da forma como esta gerando o TXT dá erro no validador, estou gerando correto conforme codigo abaixo:

no arquivo TXT mostra assim

|E001|0|
|E100|||
|E110|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|

Segue abaixo codigo:

procedure TfrmEscrituracao_Fiscal.btnB_EClick(Sender: TObject);
begin
  inherited;
   btnB_E.Enabled := false;
   btnB_H.Enabled := True ;

   with ACBrSpedFiscal1.Bloco_E do
   begin
      with RegistroE001New do
      begin
         IND_MOV := imComDados;
         with RegistroE100New do
         begin
           DT_INI := StrToDate('01/'+ cdsMesmes.AsString +'/'+cdsAnoano.AsString);;
           DT_FIN := StrToDate(FormatDateTime( 'DD/MM/YYYY',EndOfAMonth(cdsAnoano.AsInteger,cdsMesmes.AsInteger)));;
           with RegistroE110New do
           begin

             VL_TOT_DEBITOS    := 0;
             VL_AJ_DEBITOS     := 0;
             VL_TOT_AJ_DEBITOS := 0;
             VL_ESTORNOS_CRED  := 0;
             VL_TOT_CREDITOS   := 0;
             VL_AJ_CREDITOS    := 0;
             VL_TOT_AJ_CREDITOS:= 0;
             VL_ESTORNOS_DEB   := 0;
             VL_SLD_CREDOR_ANT := 0;
             VL_SLD_APURADO    := 0;
             VL_TOT_DED        := 0;
             VL_ICMS_RECOLHER  := 0;
             VL_SLD_CREDOR_TRANSPORTAR := 0;
             DEB_ESP           := 0;
           end;
         end;
      end;
   end;

   if cbConcomitante.Checked then
   begin
      ACBrSPEDFiscal1.WriteBloco_E;
      LoadToMemo;
   end;
   Application.MessageBox('Bloco E gerado com sucesso!', 'Mensagem', MB_OK +
     MB_ICONINFORMATION + MB_DEFBUTTON2);
end;

 

[Isaque Pinheiro]

Faça teste no demo, pois fiz aqui e gerou normal.

 

[ailtonbrc]

Isaque: Com base no que você me passou fiz o teste no demo deu certo e o meu estava igual ao demo então resolvi separar as duas datas nas variáveis do tipo data e funcionou, não sei porque mas só pelo fato de eu por nas variáveis deu certo.

Mas fica a dica ai para quem teve o mesmo problema.

Como estava:
         with RegistroE100New do
         begin
           DT_INI := StrToDate('01/'+ cdsMesmes.AsString +'/'+cdsAnoano.AsString);;
           DT_FIN := StrToDate(FormatDateTime( 'DD/MM/YYYY',EndOfAMonth(cdsAnoano.AsInteger,cdsMesmes.AsInteger)));;
           with RegistroE110New do
           begin
           ....

Como ficou:

         with RegistroE100New do
         begin
           dIni   := StrToDate('01/'+ cdsMesmes.AsString +'/'+cdsAnoano.AsString);
           dFim   := StrToDate(FormatDateTime( 'DD/MM/YYYY',EndOfAMonth(cdsAnoano.AsInteger,cdsMesmes.AsInteger)));


           DT_INI := dIni;
           DT_FIN := dFim;
           with RegistroE100New do
           begin
             ...