DT PE DLA170AR - Após validação de armazém na geração de endereços

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:	WMSA170 - Gerar Endereços
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

Este Ponto de Entrada somente é executado se a validação padrão retornar Verdadeiro.

Caso o retorno deste Ponto de Entrada seja Falso, o armazém não é validado.

Localizado dentro da função de validação do armazém na rotina WMSA170 (Gerar Endereços).

Nome	Tipo	Descrição
cArmazem	Caractere	Código do armazém informado pelo usuário.

Nome	Tipo	Descrição
lRetPE	Lógico	Indica que o armazém foi validado.

Protheus 11.80.6 e superiores.

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

------

User Function DLA170AR()
Local cArmazem := PARAMIXB[1]
Local lRet := .T.

If !(cArmazem $ '01|02|03')
lRet := .F. MsgInfo('Armazém não controlado pelo SIGAWMS!','DLA170AR')
EndIf

Return lRet

------