DT PE DLV080VL - Executa validações logo após a digitação do endereço

01. DADOS GERAIS

Produto:	TOTVS Logística WMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	SIGAWMS - Gestão de Armazenagem
Função:	-
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. 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).

03. 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.

04. PARÂMETROS

Nome

Tipo

Descrição

cConfirma

Caractere

Valor do campo endereço informado pelo usuário

cEndereco

Caractere

Valor do campo endereço exibido na tela do coletor.

nTipo

Numérico

Indicador de que tipo de informação deverá ser avaliada, onde:

1 - Origem
2 - Destino

05. RETORNO

Nome	Tipo	Descrição	Opcional
lRetPE	Lógico	Indicação se a validação do endereço foi bem sucedida ou não.	Não

06. VERSÕES

Protheus 11.80.17 ou superiores.

07. OBSERVAÇÃO

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

08. 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