DT PE WMS225VA – Valida a confirmação da transferência de endereços no monitor

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:	WMSA225 - Transferência WMS
País:	Todos Países
Ticket:	11859477
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGWMSMSP-12443

02. DESCRIÇÃO

Este Ponto de Entrada permite inserir validações complementares no processo de transferência WMS Protheus, via monitor, após a validação padrão do sistema.

03. LOCALIZAÇÃO

Localizado na rotina WMSA225 (Transferência WMS), na validação do modelo, após a validação do produto padrão.

É chamado ao clicar em Confirmar.

04. PARÂMETROS

Nome	Tipo	Descrição
oModel	Numérico	Objeto modelo de dados contendo todas as informações em tela

05. RETORNO

Nome

Tipo

Descrição

Obrigatório

aRet

Array

Contém duas informações:

1 - Lógico: se verdadeiro, permite continuar o processo. Se falso, o processo de inclusão é cancelado.

2 - Caractere: caso o primeiro item do array seja falso, retornará a mensagem com o motivo para cancelar a inclusão, sendo que esse motivo será exibido pelo produto padrão.

Sim

06. VERSÕES

Protheus 12.1.33 ou superiores.

07. OBSERVAÇÃO

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

Para validações antes da validação do produto padrão deve-se usar o ponto de entrada WMS332VL.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"

Static cLocDes := ''
User Function WMS225VA()
Local oModel := ParamIxb[1]
Local oModelSel := oModel:GetModel("SELECAO")
Local nI := 0
Local aRet := {.T.,""}

For nI := 1 To oModelSel:Length()
If !oModelSel:IsDeleted(nI)
cLocDes := oModelSel:GetValue("LOCDES",nI)
If oModelSel:GetValue("LOCDES",nI) = '04'
aRet := {.F., "Não é possível transferir para armazém 04."}
Exit
EndIf
EndIf
Next nI

//Se ocorrer erro, limpa a varíavel usada no PE WMSPOSDC
If !aRet[1]
cLocDes := ''
EndIf

Return aRet