Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:Recursos Humanos
Módulo:SIGAGPE
Função:RSPA170
Ticket:4137133
Issue:DRHGCH-5739
Pacote:


02. SITUAÇÃO/REQUISITO

 Criar ponto de entrada na rotina RSPA170 (Importação de currículo).

03. SOLUÇÃO

Ponto de entrada criado ao final das validações da função Rs170Grava() conforme solicitado na issue.

04. DEMAIS INFORMAÇÕES

Exemplos de como usar o ponto de entrada:

EXEMPLO 1:

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'PARMTYPE.CH'

User Function PA170TOK()

Local lRet := .T.
Local aDados := PARAMIXB[1]
Local nX := 0

For nX := 1 To Len(aDados)

If lRet .And. aDados[nX, 1] == "BAIRRO"
If aDados[nX, 2] <> "Silva"
Help( ,, "Help",, + CRLF + "O conteudo da tag BAIRRO não é Silva.", 1, 0)
lRet := .F.
EndIf
EndIf

Next nX

Return lRet

EXEMPLO 2:

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'PARMTYPE.CH'

User Function PA170TOK()

Local lRet := .T.
Local aDados := PARAMIXB[1]

If Len(aDados) <= 0

Help( ,, "Help",, + CRLF + "Não existe informações no xml.", 1, 0)
lRet := .F.
EndIf

Return lRet

05. ASSUNTOS RELACIONADOS

  • Link para documentação do Ponto de Entrada:

            http://tdn.totvs.com/x/fM5DHQ