Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
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

12.1.17 e 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

------

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>