Histórico da Página
...
A emissão de mensagens será efetuada pelo Ponto de Entrada.
08. EXEMPLO
...
language | cpp |
---|---|
title | Validação Padrão |
linenumbers | true |
collapse | true |
...
------
#include 'protheus.ch'
...
#include
...
'parmtype.ch'
...
//Ponto
...
de
...
entrada
...
para
...
ajustar
...
Tipo
...
de
...
Operação
...
com
...
a
...
Integração
...
com
...
o
...
GFE.
...
user
...
function
...
OMSCPL7E()
...
Local
...
cCodViag
...
:=
...
PARAMIXB[1]
...
//Viagem
...
Local
...
cOperaca
...
:=
...
PARAMIXB[2]
...
//cTipOper
...
Local
...
cCodRegi
...
:=
...
PARAMIXB[3]
...
//Regional
...
Local
...
cOperFrg
...
:=
...
SuperGetMv("MV_CDTPOP",.F.,"")
...
dbSelectArea("DK1")
...
DK1→ (dbSetOrder(1))
...
If DK1→ (dbSeek(xFilial("DK1")+
...
cCodRegi+cCodViag))
...
While DK1→ (!Eof())
...
.AND.
...
xFilial("DK1")
...
==
...
DK1->DK1_FILIAL
...
.AND.
...
DK1->DK1_REGID
...
==
...
cCodRegi
...
.AND.
...
DK1→ DK1
...
_VIAGID
...
==
...
cCodViag
IF DK1→ DK1_FILPED == "01001"
cOperaca := cOperFrg
exit
EndIF
DK1->(DbSkip())
...
EndDo
EndIF
return cOperaca
------
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> |