Jump to content

dev botao

Atualização - Evento S3000


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

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

  • Administradores

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

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

  • Administradores

Bom dia.

Por favor anexe o pas alterado.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

  • Moderadores
  • 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
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link to comment
Share on other sites

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

The popup will be closed in 10 seconds...