Histórico da Página

...

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>