DT PE WA091VMT - Validações adicionais antes da montagem do volume

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

02. DESCRIÇÃO

Este Ponto de Entrada permite que sejam executadas validações adicionais antes da montagem de um volume via Monitor de Volumes.

Exemplo
Impedir o início da montagem de volumes, caso o Pedido não tenha sido completamente separado.

03. LOCALIZAÇÃO

Localizado ao clicar em Montar Volume.

04. PARÂMETROS

Nome	Tipo	Descrição
cCodMnt	Caractere	Código da Montagem de Volumes
cCarga	Caractere	Número da Carga
cPedido	Caractere	Número do Pedido de Venda

05. RETORNO

Nome	Tipo	Descrição
lRet	Lógico	Permite ou não iniciar a montagem de volumes do documento

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 WA091VMT()
Local aAreaAnt := GetArea()
Local cCodMnt := PARAMIXB[1]
Local cCarga := PARAMIXB[2]
Local cPedido := PARAMIXB[3]
Local lRet := .T.

DCS→ (DbSetOrder(1))
If DCS→ ( DbSeek(xFilial("DCS")+cCodMnt+cCarga+cPedido))
If DCS→ DCS_QTORIG > DCS→ DCS_QTSEPA
WmsMessage("A separação do pedido ainda não foi finalizada.","WA091VMT",1)
lRet := .F.
EndIf
EndIf

RestArea(aAreaAnt)
Return lRet