Alterar S2300 campo natAtividade não pode ser informado para determinadas categorias

[EdmarFrazao]

o campo natAtividade não deve ser informado para as categorias.

de:

   Gerador.wCampo(tcStr, '', 'natAtividade',  1,  1, 0, ord(obj.natAtivididade) + 1);

para

  if      obj.codCateg=305 Then  //Servidor Publico Indicado a Conselho
  else if obj.codCateg=721 Then  //Diretor não empregado com FGTS
  else if obj.codCateg=722 Then  //Diretor não empregado sem FGTS
  else if obj.codCateg=771 Then  //Membro conselho tutelar
  else if obj.codCateg=901 Then  //Estagiario
  else
   Gerador.wCampo(tcStr, '', 'natAtividade',  1,  1, 0, ord(obj.natAtivididade) + 1);

 

pcesS2300.pas

Evento 2300 enviado com sucesso Categorias

721,722 e 701 , antigas categorias 11 e 13 da Sefip.

ps. So testei com este por enquanto

[Italo Giurizzato Junior]

Boa tarde Edmar,

Muito obrigado pela colaboração, já enviei para o repositório.

[Gustavo Ribeiro Croscato]

Olá Italo.

Está alteração ainda não está no repositório.

Gostaria de deixar uma sugestão para mudar os if-else vazios para :

  if (
    (obj.codCateg <> 305) and // Servidor Publico Indicado a Conselho
    (obj.codCateg <> 721) and // Diretor não empregado com FGTS
    (obj.codCateg <> 722) and // Diretor não empregado sem FGTS
    (obj.codCateg <> 771) and // Membro conselho tutelar
    (obj.codCateg <> 901)        // Estagiario
  then
    Gerador.wCampo(tcStr, '', 'natAtividade',  1,  1, 0, eSNatAtividadeToStr(obj.natAtivididade));

Segue em anexo uma unit corrigida se ajudar.

pcesS2300.pas

Edited March 27, 2018 by croscato

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

[Gustavo Ribeiro Croscato]

Olá Italo.

Estou enviando em anexo mais algumas correções para a geração dos registros S-2300 e S-2306.

Qualquer coisa estou à disposição.

pcesS2300.pas

pcesS2306.pas

[Italo Giurizzato Junior]

Bom dia Gustavo,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

[Gustavo Ribeiro Croscato]

Olá Italo.

Hoje ao fazer as atualização do ACBr percebi que a unit do S-2306 que te enviei contém um erro.

Veja o else no código abaixo.

  if
    (Self.FideTrabSemVinc.codCateg <> 305) and // Servidor Publico Indicado a Conselho
    (Self.FideTrabSemVinc.codCateg <> 721) and // Diretor não empregado com FGTS
    (Self.FideTrabSemVinc.codCateg <> 722) and // Diretor não empregado sem FGTS
    (Self.FideTrabSemVinc.codCateg <> 771) and // Membro conselho tutelar
    (Self.FideTrabSemVinc.codCateg <> 901) and // Estagiario
    (obj.natAtividade <> navNaoInformar)
  then
  else
    Gerador.wCampo(tcStr, '', 'natAtividade',  1,  1, 0, eSNatAtividadeToStr(obj.natAtividade));

Estou anexando novamente a unit correta. Peço desculpas pelo inconveniente.

pcesS2306.pas

[Italo Giurizzato Junior]

Bom dia Gustavo,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.