Histórico da Página
Ponto de Entrada
PA170TOK - Permite validar os dados contidos dentro do arquivo xml.
Descrição: | Este ponto de entrada tem como objetivo permitir criar validações para os dados contidos dentro do arquivo xml. O ponto de entrada é executado ao final das validações padrões da função Rs170Grava(). | ||||||||
Programa Fonte: | RSPA170.PRW | ||||||||
Parâmetros: |
| ||||||||
Retorno: |
|
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