...
Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.
...
| language | cpp |
|---|---|
| title | Exemplo |
| linenumbers | true |
| collapse | true |
...
------
#INCLUDE "PROTHEUS.CH"
...
User
...
Function
...
WMSTRD12()
...
Local
...
aAreaD12
...
:=
...
D12->(GetArea())
...
Local
...
nRecnoAnt
...
:=
...
PARAMIXB[1]
...
//
...
Recno
...
(D12)
...
posicionado
...
antes
...
da
...
troca
...
Local
...
nRecnoAtu
...
:=
...
PARAMIXB[2]
...
//
...
Recno
...
(D12)
...
posicionado
...
após
...
a
...
troca
...
If
...
nRecnoAnt
...
<>
...
nRecnoAtu
D12->(DbGoTo(nRecnoAnt))
...
RecLock("D12",.F.)
...
D12->D12_XCPO
...
:=
...
"TESTE"
...
D12→ (MsUnlock())
...
EndIf
RestArea(aAreaD12)
...
Return
------
| 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>
|
