Linha de Produto: | Microsiga Protheus |
---|---|
Segmento: | Recursos Humanos |
Módulo: | SIGAGPE |
Função: | GPEA180 |
Ticket: | 6239851 |
Issue: | DRHGCH-11919 |
Pacote: |
Solicitação de abertura de ponto de entrada na rotina de transferência para validação de departamento.
Para solucionar essa necessidade foram liberados 1 pontos de entrada (GP180VDP), baseado na rotina de transferência (GPEA180):
Ponto de Entrada GP180VDP:
Esse ponto de entrada substitui a validação da função fVldDepPosto() possibilitando que o usuário customize da melhor forma a validação do departamento.
Os parâmetros passados são:
Retorno esperado:
Exemplo:
#INCLUDE 'PROTHEUS.CH'
User Function GP180VDP()
Local lRet := .T.
Local nReg := PARAMIXB[1]
Local aColsDest := PARAMIXB[2]
Local aArea := GetArea()
Local cAliasRCL := "RCL"
dBSelectArea(cAliasRCL)
dBSetOrder( 1 )
If !(cAliasRCL)->(dbSeek(aColsDest[nReg, 4] + aColsDest[nReg, 10] + aColsDest[nReg, 14]))
Help(,, "SEMPOSTO",, + CRLF + "Não existe nenhum posto vinculado ao departamento selecionado.", 1, 0)
lRet := .F.
EndIf
Return lRet
Não há.
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |