DT PE WMS095VL - Valida a confirmação da transferência de endereços no coletor

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:	WMSV095 - Transferência de Produtos Entre Endereços
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite inserir as validações complementares no processo de transferência WMS Protheus via coletor.

03. LOCALIZAÇÃO

Localizado na rotina WMSV095 (Transferência de Produtos Entre Endereços), na validação do endereço destino.

04. PARÂMETROS

Nome	Tipo	Descrição
cArmOri	Caractere	Armazém Origem
cEnderOri	Caractere	Endereço Origem
cArmDes	Caractere	Armazém Destino
cEnderDes	Caractere	Endereço Destino
cProduto	Caractere	Produto
cLote	Caractere	Lote
cSubLote	Caractere	Sublote
nQuantid	Numérico	Quantidade digitada

05. RETORNO

Nome	Tipo	Descrição
lRet	Lógico	Indica se a transferência deve ser permitida.

06. VERSÕES

Protheus 12.1.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

------

User Function WMS095VL()
Local lRet := .T.
Local cArmOri := PARAMIXB[1] //armazém origem
Local cEnderOri := PARAMIXB[2] //endereço origem
Local cArmDes := PARAMIXB[3] //armazém destino
Local cEnderDes := PARAMIXB[4] //endereço destino
Local cProduto := PARAMIXB[5] //produto
Local cLote := PARAMIXB[6] //lote
Local cSubLote := PARAMIXB[7] //sub-lote
Local nQuantid:= PARAMIXB[8] //Quantidade digitada

If Alltrim(cEnderDes) == "Teste"
WMSVTAviso("WMS","Transferência não permitida.")
lRet := .F.
EndIf

Return lRet