Linha Microsiga Protheus

Árvore de páginas


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