Jump to content

Exclusão S-3000 erro O tipo de evento informado não é aceito para este tipo de lote/serviço.


RAMLUG
Go to solution Solved by RAMLUG,
  • Este tópico foi criado há 1395 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde, eu estou com esse erro, já venho utilizando o componente desde a obrigatoriedade e vinha excluindo normalmente, agora fica dando esse erro de "O tipo de evento informado não é aceito para este tipo de lote/serviço" para todo evento de exclusão.

Se alguém puder me da uma ajuda, eu ja atualizei o meus componentes e continua o erro, ele começou na sexta-feira (12) de outubro.

20181015161342-env-lot.xml

Link to comment
Share on other sites

  QrS3000.First;
  while not QrS3000.Eof do
  begin
    if QrS3000.FieldByName('ENVIAR').AsString = 'S' then
    begin
      with dmESocial.ACBreSocial1.Eventos.NaoPeriodicos.S3000.Add do
      begin
        with EvtExclusao do
        begin
          inc(dmESocial.w_Sequencial);
          Sequencial        := dmESocial.w_Sequencial;

          IdeEvento.TpAmb   := TpTpAmb(dmESocial.w_AmbienteESocial);
          IdeEvento.ProcEmi := TpProcEmi(0);
          IdeEvento.VerProc := '1.0';

          IdeEmpregador.TpInsc := tiCNPJ;
          IdeEmpregador.NrInsc := TiraMascara2(QrS3000.FieldByName('FILIAL_CGC').AsString);

          with InfoExclusao do
          begin
            case StrToInt(Copy(QrS3000.FieldByName('EVENTO_ORIGEM').AsString,2,4)) of
              2190: tpEvento := teS2190;
              2200: tpEvento := teS2200;
              2205: tpEvento := teS2205;
              2210: tpEvento := teS2210;
              2220: tpEvento := teS2220;
              2230: tpEvento := teS2230;
              2250: tpEvento := teS2250;
              2299: tpEvento := teS2299;
              2300: tpEvento := teS2300;
              1200: tpEvento := teS1200;
              1210: tpEvento := teS1210;
            end;

            nrRecEvt := QrS3000.FieldByName('NRO_RECIBO').AsString;

            ideTrabalhador.CpfTrab := TiraMascara2(QrS3000.FieldByName('FUN_NCPF').AsString);
            if StrToInt(Copy(QrS3000.FieldByName('EVENTO_ORIGEM').AsString,2,4)) <> 1210 then
              ideTrabalhador.NisTrab := TiraMascara2(QrS3000.FieldByName('FUN_PISP').AsString);


            if QrS3000.FieldByName('REF').AsString <> '' then
            begin
              if QrS3000.FieldByName('TP_APURACAO').AsString = 'M' then
              begin
                IdeFolhaPagto.IndApuracao := iapuMensal;
                IdeFolhaPagto.perApur     := FormatDateTime('YYYY-MM', StrToDate('01/' +  QrS3000.FieldByName('REF').AsString));
              end
              else
              begin
                IdeFolhaPagto.IndApuracao := ipaAnual;
                IdeFolhaPagto.perApur     := FormatDateTime('YYYY', StrToDate('01/' +  QrS3000.FieldByName('REF').AsString));
              end;
            end;
          end;
        end;
      end;
      dmESocial.AddSequencia(dmESocial.w_Sequencial, 3000);
    end;

    QrS3000.Next;
  end;

Eu utilizo o componente

Mas o mais engraçado que estava funcionando, e bem hoje que tem sempre os atrasados para envio por causa da DCTF-Web

Link to comment
Share on other sites

  • Administradores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 1395 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • 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.