Atualização - Evento S3000

[emarcolongo]

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 3000 e precisamos modificar algumas linhas para validar corretamente.

Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 27/05/2021, abaixo tb estará disponível

 

      sSecao := 'ideFolhaPagto';
      if INIRec.ReadString(sSecao, 'indApuracao', '') <> '' then
      begin
        infoExclusao.ideFolhaPagto.indApuracao := eSStrToIndApuracao(Ok, INIRec.ReadString(sSecao, 'indApuracao', '1'));
        infoExclusao.ideFolhaPagto.perApur     := INIRec.ReadString(sSecao, 'perApur', EmptyStr);
      end;
      if (TipoEventoToStr(infoExclusao.tpEvento) = 'S-1210') then infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr);  //27/05/2021
    end;
 

      sSecao := 'ideFolhaPagto';
      if INIRec.ReadString(sSecao, 'indApuracao', '') <> '' then
      begin
        infoExclusao.ideFolhaPagto.indApuracao := eSStrToIndApuracao(Ok, INIRec.ReadString(sSecao, 'indApuracao', '1'));
        infoExclusao.ideFolhaPagto.perApur     := INIRec.ReadString(sSecao, 'perApur', EmptyStr);
      end;
      if (TipoEventoToStr(infoExclusao.tpEvento) = 'S-1210') then infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr);  //27/05/2021
    end;

Este codigo faz a leitura do perApur que deve constar no S-1210

Porém temos um problema ao gerar o XML, a tag indApuracao não pode aparecer ser for o S-1210 mas deverá constar nas demais, neste ponto eu não modifiquei.

pcesS3000.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[Walter Nilander Lemes]

bom dia povo, esta solução não deu certo, porque pra excluir um evento s-1210 não pode ter  IndApuracao pq ai vai apresentar erro ok.

provisoriamente eu criei uma rotina  2

 

    if ( self.InfoExclusao.tpEvento In [teS1200, teS1202, teS1210, teS2299] ) then
      begin
        GerarIdeTrabalhador2(self.InfoExclusao.IdeTrabalhador, True);
        GerarIdeFolhaPagto2(self.InfoExclusao.IdeFolhaPagto);
      end
    else
      begin
        if ( self.InfoExclusao.IdeFolhaPagto.perApur = '' ) then
           GerarIdeTrabalhador2(self.InfoExclusao.IdeTrabalhador, True)
        else
           GerarIdeFolhaPagto(self.InfoExclusao.IdeFolhaPagto);
      end;
 

 

 

procedure TeSocialEvento.GerarIdeFolhaPagto2(pIdeFolhaPagto: TIdeFolhaPagto);
begin
  if pIdeFolhaPagto.perApur <> EmptyStr then
  begin
    Gerador.wGrupo('ideFolhaPagto');

    Gerador.wCampo(tcStr, '', 'perApur',     7, 7, 1, pIdeFolhaPagto.perApur);

    Gerador.wGrupo('/ideFolhaPagto');
  end;

end;
 

ai deu certo

 

 

[Walter Nilander Lemes]

na verdade e precisei mudar a rotina pra ficar assim pq senao daria erro nos outros eventos:

 

    if ( self.InfoExclusao.tpEvento In [teS1200, teS1202,teS2299] ) then
      begin
        GerarIdeTrabalhador2(self.InfoExclusao.IdeTrabalhador, True);
        GerarIdeFolhaPagto(self.InfoExclusao.IdeFolhaPagto);
      end
    else if ( self.InfoExclusao.tpEvento In [teS1210] ) then
      begin
        GerarIdeTrabalhador2(self.InfoExclusao.IdeTrabalhador, True);
        GerarIdeFolhaPagto2(self.InfoExclusao.IdeFolhaPagto);
      end
    else
      begin
        if ( self.InfoExclusao.IdeFolhaPagto.perApur = '' ) then
           GerarIdeTrabalhador2(self.InfoExclusao.IdeTrabalhador, True)
        else
           GerarIdeFolhaPagto(self.InfoExclusao.IdeFolhaPagto);
      end;
 

[Juliana Tamizou]

Bom dia.

Por favor anexe o pas alterado.

Att.

[Walter Nilander Lemes]

pcesGerador.pas pcesS3000.pas

[Juliomar Marchetti]

Em 27/05/2021 at 12:06, emarcolongo disse:

Senhores, boa tarde.

Fizemos alguns testes na versão simplificada do evento 3000 e precisamos modificar algumas linhas para validar corretamente.

Segue o arquivo anexo, coloquei comentários nas linhas alteradas com a data de 27/05/2021, abaixo tb estará disponível

 

      sSecao := 'ideFolhaPagto';
      if INIRec.ReadString(sSecao, 'indApuracao', '') <> '' then
      begin
        infoExclusao.ideFolhaPagto.indApuracao := eSStrToIndApuracao(Ok, INIRec.ReadString(sSecao, 'indApuracao', '1'));
        infoExclusao.ideFolhaPagto.perApur     := INIRec.ReadString(sSecao, 'perApur', EmptyStr);
      end;
      if (TipoEventoToStr(infoExclusao.tpEvento) = 'S-1210') then infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr);  //27/05/2021
    end;
 

      sSecao := 'ideFolhaPagto';
      if INIRec.ReadString(sSecao, 'indApuracao', '') <> '' then
      begin
        infoExclusao.ideFolhaPagto.indApuracao := eSStrToIndApuracao(Ok, INIRec.ReadString(sSecao, 'indApuracao', '1'));
        infoExclusao.ideFolhaPagto.perApur     := INIRec.ReadString(sSecao, 'perApur', EmptyStr);
      end;
      if (TipoEventoToStr(infoExclusao.tpEvento) = 'S-1210') then infoExclusao.ideFolhaPagto.perApur := INIRec.ReadString(sSecao, 'perApur', EmptyStr);  //27/05/2021
    end;

Este codigo faz a leitura do perApur que deve constar no S-1210

Porém temos um problema ao gerar o XML, a tag indApuracao não pode aparecer ser for o S-1210 mas deverá constar nas demais, neste ponto eu não modifiquei.

pcesS3000.pas 10 kB · 1 download

no svn

1 hora atrás, Walter Nilander Lemes disse:

pcesGerador.pas 73 kB · 0 downloads pcesS3000.pas 10 kB · 0 downloads

no svn

Obrigado

favor testarem

[Kelly Diego Rakelly]

Boa tarde somente para reportar que o teste para o evento S-3000 deu certo, porque o tópico se encontra fechado, passando somente para reportar.

[Juliomar Marchetti]

Obrigado por reportar.

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