Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

Tipos de Avaliações

APDA040.PRW

Montagem das Avaliações de DesempenhoAPDA270.PRW

Rotina(s) envolvida(s)

Nome Técnico

Webservice Avaliações de Desempenho

WSAPD010.PRW

Client Serviço Aval. Desempenho  

WSCLIENT_WSRHPERFORMANCEEVALUATE
Manutenção da Avaliação de DesempenhoPWSA010.PRW
Manutenção da Avaliação de ConsensoPWSA015.APH

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:

  • RD6 – Cabeçalho da Montagem da Avaliação
  • RDB – Itens Respostas de Avaliações
  • RDC – Itens Envio/Retorno Avaliações
  • RDD – Itens Resultado das Avaliações
  • RDH – Itens Tipo de Avaliação x Rede

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:

  • Atualizar o método BRWMYEVALUATED do serviço RHPERFORMANCEEVALUATE (WSAPD010) incluindo o novo ponto de entrada, antes que os dados sejam carregados para a estrutura ListOfEvaluate.
  • Realizando a chamada ao ponto de entrada apenas se a variável local "LOK" encontrar-se ".T."
  • Passar como parâmetro os campos RDC_FILIAL, RDC_ID, RDC_CODAVA  

Programa Fonte:

WSAPD010.PRW

Função:

Médodo BrwMyEvaluated

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lógico  

 

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