DT PE WMSVLEND - Validação do endereço na execução da armazenagem

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:	WMSA150 - Execução de Serviços
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite incrementar a validação padrão na seleção de endereços durante a execução de ordens de serviço de recebimento ou de transferência sem endereço de destino.

Válido somente para armazéns não unitizados.

03. LOCALIZAÇÃO

Localizado na função que avalia se o produto a ser endereçado pode compartilhar o endereço com o produto armazenado.

Na rotina WMSA150 (Execução de Serviço), após todas as validações já existentes no produto padrão e exatamente antes da gravação das movimentações (D12).

04. PARÂMETROS

Nome	Tipo	Descrição
cArmazem	Caractere	Código do armazém destino do produto
cEndereco	Caractere	Código do endereço a ser validado
cProduto	Caractere	Código do produto a ser armazenado
cLote	Caractere	Número do lote do produto a ser armazenado

05. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

Se .T. indica que o endereço pode ser utilizado.

Se .F. indica que o endereço não pode ser utilizado.

cMensagem

Caractere

Caso lRet seja .F., este conteúdo será exibido no relatório de busca de endereços.

06. VERSÕES

Protheus 12.1.23 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 WMSVLEND()
Local aRet := {.T.,''}
Local cArmazem := PARAMIXB[1]
Local cEndereco := PARAMIXB[2]
Local cProduto := PARAMIXB[3]
Local cLote := PARAMIXB[4]

If cEndereco = 'PICKING01'
aRet[1] := .F.
aRet[2] := 'Produto ' + AllTrim(cProduto) + '/Lote ' + AllTrim(cLote) + '/Armazém ' + AllTrim(cArmazem) + '/Endereço ' + AllTrim(cEndereco) + ' não pode ser endereçado.'
ENDIF

Return aRet