Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.

08. EXEMPLO

...

languagecpp
titleValidação Padrão
linenumberstrue
collapsetrue

...

------

#INCLUDE "PROTHEUS.CH"

...

User

...

Function

...

WMSCPEND()

...


Local

...

aAreaSB1

...

:=

...

SB1->(GetArea())

...


Local

...

cProdOrig

...

:=

...

PARAMIXB[1]

...


Local

...

cProdArmz

...

:=

...

PARAMIXB[2]

...


Local

...

lRet

...

:=

...

.T.

...

SB1→ (DbSetOrder(1))

...

//

...

Posiciona

...

no

...

cadastro

...

do

...

produto

...

a

...

ser

...

endereçado
SB1→ (MsSeek(xFilial('SB1')+cProdOrig,

...

.F.))

...

//

...

Guarda

...

o

...

tipo

...

e

...

grupo

...

de

...

estoque

...

do

...

produto

...

a

...

ser

...

endereçado

...


cTipoOrig

...

:=

...

SB1->B1_TIPO

...


cGrupoOrig

...

:=

...

SB1→B1_GRUPO

...

//

...

Posiciona

...

no

...

cadastro

...

produto

...

armazenado

...

no

...

endereço
SB1→ (MsSeek(xFilial('SB1')+cProdArmz,

...

.F.))

...

//

...

Retorno

...

positivo

...

caso

...

os

...

produtos

...

possuam

...

o

...

mesmo

...

tipo

...

e

...

grupo

...

de

...

estoque

...


lRet

...

:=

...

(cTipoOrig

...

==

...

SB1->B1_TIPO)

...

.And.

...

(cGrupoOrig

...

==

...

SB1→B1_GRUPO)

...

RestArea(aAreaSB1)

...

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>