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 |
...
------
#INCLUDE "PROTHEUS.CH"
...
User
...
Function
...
WV080CDV()
...
Local
...
aAreaAnt
...
:=
...
GetArea()
...
Local
...
cCarga
...
:=
...
PARAMIXB[1]
...
Local
...
cPedido
...
:=
...
PARAMIXB[2]
...
Local
...
cVolume
...
:=
...
""
...
Local
...
cQuery
...
:=
...
""
...
Local
...
cAliasQry
...
:=
...
GetNextAlias()
...
cQuery
...
:=
...
"SELECT
...
MAX(DCU_CODVOL)
...
CODVOL"
...
cQuery
...
+=
...
"
...
FROM
...
"
...
+
...
RetSqlName('DCU')
...
cQuery
...
+=
...
"
...
WHERE
...
DCU_FILIAL
...
=
...
'"+xFilial('DCU')+"'"
...
cQuery
...
+=
...
"
...
AND
...
DCU_CARGA
...
=
...
'"+cCarga+"'"
...
cQuery
...
+=
...
"
...
AND
...
DCU_PEDIDO
...
=
...
'"+cPedido+"'"
...
cQuery
...
+=
...
"
...
AND
...
D_E_L_E_T_
...
=
...
'
...
'"
...
cQuery
...
:=
...
ChangeQuery(cQuery)
...
DbUseArea(.T.,'TOPCONN',TcGenQry(,,cQuery),cAliasQry,.F.,.T.)
...
If
...
!Empty((cAliasQry)->CODVOL)
...
//
...
Remove
...
os
...
espaços
...
em
...
branco
...
e
...
incrementa
...
o
...
valor
cVolume :=
...
Soma1(AllTrim((cAliasQry)->CODVOL))
...
WmsMessage("Novo
...
volume
...
criado:
...
"
...
+
...
cVolume)
...
Else
cVolume :=
...
"01"
...
EndIf
...
RestArea(aAreaAnt)
...
Return
...
cVolume
------
| 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>
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas