Histórico da Página
Ponto de Entrada WSAP10CONS
Características do Requisito
Linha de Produto: | Microsiga Protheus - Portal Gestão do Capital Humano | ||||||||||||||||
Segmento: | Serviços | ||||||||||||||||
Módulo: | SIGAAPD | ||||||||||||||||
Rotina: |
| ||||||||||||||||
Parâmetro(s): | MV_APRPDP, MV_APRPM | ||||||||||||||||
Requisito (ISSUE): | ER_Melhorias no Consenso - http://tdn.totvs.com/x/EBEmDg | ||||||||||||||||
País(es): | Todos | ||||||||||||||||
Tabelas Utilizadas: |
|
Ponto de Entrada
Descrição: | Necessitaremos desenvolver um ponto de entrada denominado 'WSAP10CONS' para permitir ao cliente realizar uma validação final para a liberação da avaliação selecionada como item pendente para o avaliador logado no Portal GCH, observar os seguintes itens para essa atividade:
| ||||||||
Programa Fonte: | WSAPD010.PRW | ||||||||
Função: | Médodo BrwMyEvaluated | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function WSAP10CONS()
Local aParam := aClone(ParamIxb) //(RDC->RDC_FILIAL, RDC->RDC_ID, RDC->RDC_CODAVA)
Local lRet := .T.
/* Validação de registros da tabela posicionada (RDC),
uma busca simples, apenas para demonstrar o funcionamento
do Ponto de Entrda
/*
DbSelectArea("RDC")
RDC->(dbSetOrder(8)) //RDC_FILIAL+RDC_CODAVA
If RDC->(dbSeek(aParam[1]+aParam[2]+aParam[3]))
While
If lRet .And. RDC-RDC_CODADO != RDC_RDC_CODDOR
lRet := .F.
EndIf
RDC->(dbSkip(())
EndDo
EndIf
Return lRet