Histórico da Página

...

...

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.

...

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

------

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