Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS RH

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Portal CP Human

Função:WSAPD010 - Webservice Avaliação de Desempenho
País:Brasil


02. DESCRIÇÃO

Ponto de Entrada para alterar projeto.


LocalizaçãoBrwProjects - Método de recuperação das avaliações de um participante (WSAPD010).
Parâmetro

Nome

Tipo

Descrição

PARAMIXBArray

Array com informações do processamento.

Nome

Tipo

Descrição

PARAMIXB[1]CaracterDescrição do Projeto
PARAMIXB[2]CaracterCódigo do Cliente
PARAMIXB[3]CaracterCódigo da Loja
Retorno

Objeto (Dados do Projeto)


03. DEMAIS INFORMAÇÕES


Exemplo de utilização:


#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} MSBRWPROJECT 
Ponto de Entrada para alterar Projeto.

@param [1] - cDescProj - Descrição do Projeto

@param [2] - cCodCli    - Código do Cliente

@param [3] - cCodLoja - Código da Loja



/*/

User Function MSBRWPROJECT ()

Local cDescProj := PARAMIXB[1] 

Local cCodCli    := PARAMIXB[2] 

Local cCodLoja := PARAMIXB[3] 

Local nx            := 0

Local oProjects := {}

    

dbSelectArea("RDN")
dbSetOrder(2)
dbSeek(xFilial("RDN") + cDescProj )


While !Eof() .And. xFilial("RDN") == RDN->RDN_FILIAL
    If Empty(cDescProj ) .Or. AllTrim(cDescProj ) == SubStr(RDN->RDN_DESC, 1, LEN( AllTrim(cDescProj) ))
        If Empty(cCodCli) .Or. cCodcli == RDN->RDN_CODCLI    //Filtrar projetos pelo cliente informado
             aadd(oProjects ,WsClassNew('Projects'))
            nX++

            oProjects [nX]:ProjectID                  := RDN->RDN_CODIGO
            oProjects [nX]:ProjectDescription   := RDN->RDN_DESC
            oProjects [nX]:DateFrom                 := RDN->RDN_DTIPRO
            oProjects [nX]:DateTo                      := RDN->RDN_DTFPRO
        EndIf
    EndIf

    dbSkip()
EndDo

Return oProjects 


04. ASSUNTOS RELACIONADOS

  • Não há.