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
...
language | cpp |
---|---|
title | Exemplo |
linenumbers | true |
collapse | true |
------
#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
------
Templatedocumentos |
---|
HTML |
---|
<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> |