DT PE WMS095EO - Validação no campo Produto

01. DADOS GERAIS

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

02. DESCRIÇÃO

Necessidade de realizar uma nova validação ao informar o campo "Produto".

03. LOCALIZAÇÃO

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

04. PARÂMETROS

Nome	Tipo	Descrição
cArmOri	Caractere	Armazém Origem
cEnderOri	Caractere	Endereço Origem
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 o sistema irá permitir prosseguir ou não para informação do próximo campo.

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

------

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

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

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

Return lRet