01. DADOS GERAIS
Produto: | TOTVS RH
|
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | RH |
Módulo: | PORTAL CP HUMAN |
Função: | LOGIN (PCH) |
Ticket: | 12564604 |
Requisito/Story/Issue (informe o requisito relacionado) : | DRHCALCPRT-3578 |
02. SITUAÇÃO/REQUISITO
O Portal RH exibe o menu de funcionário demitido para funcionários com rescisão calculada no mês em data posterior à data corrente e mostra o menu padrão para funcionário demitidos em período seguinte, cuja data de demissão seja menor do que a data corrente
03. SOLUÇÃO
Criado ponto de entrada PRHSITFOL para alterar a validação padrão do campo RA_SITFOLH no Portal RH.
Exemplo de utilização do ponto de entrada
#INCLUDE "PROTHEUS.CH"
User Function PRHSITFOL()
Local aArea := GetArea()
Local aAreaSRA := SRA->( GetArea() )
Local aAreaSRG := SRG->( GetArea() )
Local cFilSRA := PARAMIXB[1]
Local cMatSRA := PARAMIXB[2]
Local cSitFolha := " "
SRA->( DbSetOrder(1) )
SRG->( DbSetOrder(1) )
If SRA->( dbSeek( cFilSRA + cMatSRA ) )
If !Empty(SRA->RA_DEMISSA)
If SRA->RA_DEMISSA < Date()
cSitFolha := "D"
Else
cSitFolha := " "
EndIf
ElseIf SRG->( dbSeek( cFilSRA + cMatSRA ) )
While SRG->( !EoF() ) .And. SRG->RG_FILIAL+SRG->RG_MAT == cFilSRA+cMatSRA
If SRG->RG_EFETIVA == "S"
If SRG->RG_DATADEM < Date()
cSitFolha := "D"
Exit
EndIf
EndIf
SRG->( !dbSkip() )
End
Else
cSitFolha := SRA->RA_SITFOLH
EndIf
EndIf
RestArea( aAreaSRG )
RestArea( aAreaSRA )
RestArea( aArea )
Return cSitFolha
04. DEMAIS INFORMAÇÕES
Não se aplica
05. ASSUNTOS RELACIONADOS
Não se aplica