Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]Numerico

Tamanho do array contendo dados do arquivo que esta sendo importado.

Não

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Logico

Variável do tipo logica (.T. / .F.) contendo resultado da validação criada.

Sim


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