Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS RH

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:SIGAGPE
Função:GPEM030
Ticket:

9110833

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

DRHPAG-38045

Pacote:12.1.27:https://r.totvs.io/p/970309 ; 12.1.25:https://r.totvs.io/p/970308 ; 12.1.23:https://r.totvs.io/p/970307 ; 12.1.17:https://r.totvs.io/p/970306 ;


02. SITUAÇÃO/REQUISITO

O ponto de entrada GP030CAN da rotina GPEM030 é executado mas a rotina não acata o retorno informado.

03. SOLUÇÃO

Retirada da chamada do ponto de entrada GP030CAN da rotina GPEM030 pois como a mesma foi convertida para MVC, deve-se utilizar o ponto de entrada padrão de MVC, conforme exemplo no TDN no link: https://tdn.totvs.com/x/cBtrD.


Exemplo

Exemplo de implementação de ponto de entrada para exclusão para a rotina GPEM030:


#INCLUDE "PROTHEUS.CH"

User Function GPEM030()

Local aParam        := PARAMIXB
Local lRet          := .T.
Local nOperation    := 0
Local oModel        := Nil

If aParam[2] == "MODELPOS"
    oModel      := FWModelActive()
    nOperation  := oModel:GetOperation()
    If nOperation == 5//Exclusão
        /*
            If [Validação específica]
        */
            lRet  := .F.
            Help(,,"Atenção",, "Não é possível excluir o cálculo",1,0 )
    EndIf
EndIf

Return lRet



04. DEMAIS INFORMAÇÕES



05. ASSUNTOS RELACIONADOS