Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

Atualização - Evento S3000


Go to solution Solved by Juliomar Marchetti,

Recommended Posts

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.

image.png.7f19ed3a3f46a2ada45d51bacb102756.png

pcesS3000.pas

Link to post
Share on other sites

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

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 post
Share on other sites

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

 

 

Link to post
Share on other sites

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;
 

Link to post
Share on other sites

Bom dia.

Por favor anexe o pas alterado.

Att.

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 post
Share on other sites
  • Solution
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.

image.png.7f19ed3a3f46a2ada45d51bacb102756.png

pcesS3000.pas 10 kB · 1 download

no svn

1 hora atrás, Walter Nilander Lemes disse:

no svn

Obrigado

favor testarem

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...