Linha Microsiga Protheus

Page tree


Descrição:

Este Ponto de Entrada permite efetuar a validação dos endereços origem/destino na rotina de endereçamento (Endereçamento e Transferência).

Localização:

Localizado na função que efetua a validação do endereço, logo após a validação de forma padrão que é a simples comparação se o valor apresentado em tela é igual ao valor informado pelo usuário. A validação do ponto de entrada substituiu a validação padrão.

Parâmetros:

NomeTipoDescrição
cConfirmaCaractereValor do campo endereço informado pelo usuário
cEnderecoCaractereValor do campo endereço exibido na tela do coletor.
nTipoNuméricoIndicador de que tipo de informação deverá ser avaliada. Onde: 1-Origem, 2-Destino

Retorno:

NomeTipoDescriçãoOpcional
lRetPELógicoIndicação se a validação do endereço foi bem sucedida ou não.Não
Versões:11.80.17 e superiores.
Observação:As mensagens de validação deverão ser exibidas pela rotina de validação via customização.

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização

Exemplo
#INCLUDE "PROTHEUS.CH"

User Function DLV080VL()
Local cConfirma := PARAMIXB[1]
Local cEndereco := PARAMIXB[2]
Local nTipo := PARAMIXB[3]
Local cCaracter := Chr(11) // Caracter especial para evitar digitação
Local lRetPE := .F.

 lRetPE := ( cConfirma == (cCaracter+cEndereco) )
 If !lRetPE
 DLVTAviso("DLV080VL","Endereço "+ Iif(nTipo==1,"origem","destino") + " inválido!")
 EndIf
Return lRetPE