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: