Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Criação do Ponto de

entrada para validar a alteração do Tipo de Rescisão quando vindo do Portal

Entrada PNAPOSPC

Linha de Produto:

Microsiga Protheus

Segmento:

Recursos Humanos

Módulo:

SIGAGPESIGAPON

Rotina:

Rotina

Nome Técnico

Marcações

PONA040.PRX

Integrados

PONA280

Cálculo de Rescisão

GPEM040.PRX

Ponto de Entrada:

VLDTPRESPPNAPOSPC

Tickets relacionados

855471215145

Requisito/Story/Issue (informe o requisito relacionado):

DRHPAGDRHPONTP-2125139

País(es):

Todos

Banco(s) de Dados:

Todos

Pacote:

12.1.7: https://suporte.totvs.com/portal/p/10098/download?e=576921 ;

12.1.14: https://suporte.totvs.com/portal/p/10098/download?e=576923 ;

12.1.16: https://suporte.totvs.com/portal/p/10098/download?e=576924 ;

Descrição

Criação do ponto de Entrada PNAPOSPC, para que após as gravações dos registros dos apontamentos na tabela SPC, possa ser alterada a tabela, de acordo com a filial e matricula posicionadas

Descrição

Escreva aqui a descrição da nova implementação ou melhoria.

 

Ponto de Entrada

Descrição:Valida

a alteração Criação do tipo de rescisão ao aprovar uma solicitação de desligamento vinda do portal

Localização:

SIGAGPE / Miscelânea / Portal Protheus / Efetivar Solicitação

Eventos:

Ao aprovar uma solicitação de desligamento vinda do portalponto de Entrada PNAPOSPC, para que após as gravações dos registros dos apontamentos na tabela SPC, possa ser alterada a tabela, de acordo com a filial e matricula posicionadas.

Programa Fonte:

GPEM040PONA040 / PONA280

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Indica se o campo RG_TIPORES poderá ser alterado (.T.) ou não (.F.)

Sim

Não há retorno para a rotina padrão.

 

Exemplo:

#Include 'Protheus.ch'

User Function VLDTPRESPPNAPOSPC()

     Local lRet := .F.


Local cFil := PARAMIXB[1]
Local cMat := PARAMIXB[2]

DbSelectArea("SPC")
If SPC->(dbSeek(cFil + cMat))
        RecLock( "SPC" , .F. , .F. )
       If MsgYesNo("Confirmar alteração do tipo de rescisão?", "Solicitação do portal")
          lRet  SPC->PC_PDI := .T.
     EndIf"001"
        MsUnLock()
EndIf

ReturnReturn lRet