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

[RAMLUG]

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

[Paulo Aguiar Junior]

Boa tarde Ramlug, para excluir esse tipo de evento (S-1200), você precisa informar as tags:

EvtExclusao.InfoExclusao.IdeFolhaPagto.IndApuracao := iapuMensal; // ou anual
EvtExclusao.InfoExclusao.IdeFolhaPagto.perApur         := FormatDateTime('YYYY-MM', dtPeriodoApuracao);

[RAMLUG]

Boa tarde, eu fiz com essas tags, sem elas, apenas para teste e não envia, segue arquivo

20181015164354-env-lot.xml

E mesmo assim não consigo, eu já vinha excluindo normalmente, mas sabado começou a não excluir e não foi mudado nada no sistema

[Paulo Aguiar Junior]

O seu XML está como Grupo 1, sendo que o correto é Grupo 2.

<envioLoteEventos grupo="2">

[RAMLUG]

Onde eu defino o grupo para envio?

[Paulo Aguiar Junior]

No meu caso, o componente que gera isso, baseado no tipo de evento, Periódicos, Não Periódicos, etc...

Como você está gerando/enviando? Carregando arquivo?

[RAMLUG]

  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

[RAMLUG]

Concluido , na função de enviar que é onde define o grupo, era la que eu modifiquei.

 

ACBreSocial1.Enviar(TESocialGrupo(T));

 

Obrigado pela ajuda

[Juliana Tamizou]

Obrigado por reportar.

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