Histórico da Página
...
07. OBSERVAÇÃO
Não se aplica.
08. EXEMPLO
...
| language | cpp |
|---|---|
| title | Exemplo |
| linenumbers | true |
| collapse | true |
...
------
#INCLUDE "PROTHEUS.CH"
...
#INCLUDE
...
'APVT100.CH'
...
#INCLUDE
...
"FWMVCDEF.CH"
...
User
...
function
...
OMCPL001()
...
Local
...
cBodyXML
...
:=
...
PARAMIXB[1]
...
Local
...
nPosInicio
...
:=
...
0
...
Local
...
nPosFim
...
:=
...
0
...
Local
...
cValor
...
:=
...
0
//Tratamento
...
para
...
mudança
...
de
...
código
...
da
...
filial
nPosInicio :=
...
At(
...
"<orderSourceId>",
...
cBodyXML)
...
+
...
Len("<orderSourceId>")
...
//Posição
...
início
...
da
...
tag
...
nPosFim
...
:=
...
At(
...
"</orderSourceId>",
...
cBodyXML)
...
//Posição
...
fim
...
da
...
tag
...
cValor
...
:=
...
SubStr(cBodyXML,nPosInicio,
...
nPosFim
...
-
...
nPosInicio)
...
cValor
...
:=
...
"99"
...
+
...
SubStr(cValor,3
...
)
cBodyXML :=
...
SubStr(cBodyXML,1,nPosInicio
...
-
...
1)
...
+
...
cValor
...
+
...
SubStr(cBodyXML,nPosFim)
...
Return
...
cBodyXML
------
| Templatedocumentos |
|---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas