Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Bloco_E (E100 não gera)


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

Recommended Posts

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;

 

Link to comment
Share on other sites

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

 

E100.png

  • Like 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

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
             ...

 

Link to comment
Share on other sites

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