DT PE WV081VMT - Regras adicionais na validação de carga/pedido

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

02. DESCRIÇÃO

Este Ponto de Entrada permite que sejam executadas as regras adicionais na validação de Carga/Pedido, antes de iniciar o processo de montagem de
volumes do documento.

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

03. LOCALIZAÇÃO

Localizado na função de validação da Carga/Pedido, logo no início da Montagem de Volumes.

04. PARÂMETROS

Nome	Tipo	Descrição
nCampo	Numérico	Campo que será avaliado no momento de chamada do PE (1 = Carga ou 2 = Pedido)
cCodMnt	Caractere	Código da Montagem de Volumes
cCarga	Caractere	Número da Carga
cPedido	Caractere	Número do Pedido de Venda
lEstorno	Lógico	Indica se o PE está sendo chamado pelo processo de estorno da montagem de volumes

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

------

#INCLUDE "PROTHEUS.CH"

User Function WV081VMT()
Local aAreaAnt := GetArea()
Local nCampo := PARAMIXB[1]
Local cCodMnt := PARAMIXB[2]
Local cCarga := PARAMIXB[3]
Local cPedido := PARAMIXB[4]
Local lEstorno := PARAMIXB[5]
Local lRet := .T.

// Se está sendo chamado do campo Pedido e não é estorno
If nCampo == 2 .And. !lEstorno
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.","WV081VMT",1)
lRet := .F.
EndIf
EndIf
EndIf

RestArea(aAreaAnt)
Return lRet