Jump to content

dev botao

Atualização - Evento S3000


emarcolongo
Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 1226 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_Transparent-02.png
 

 

Link to comment
Share on other sites

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