Á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
titleExemplo
linenumberstrue
collapsetrue

...

------

#INCLUDE "PROTHEUS.CH"

...

User

...

Function

...

WV084AUT()

...


Local

...

cOrigem

...

:=

...

PARAMIXB[1]

...


Local

...

cIdUnit

...

:=

...

PARAMIXB[3]

...


Local

...

cSeekZZZ

...

:=

...

""

...


Local

...

nTamPrd

...

:=

...

TamSX3("D0S_CODPRO")[1]

...


Local

...

nTamLot

...

:=

...

TamSX3("D0S_LOTECT")[1]

...


Local

...

nTamSub

...

:=

...

TamSX3("D0S_NUMLOT")[1]

...


Local

...

aItensUni

...

:=

...

{}

...


Local

...

aItem

...

:=

...

{}

...

cSeekZZZ

...

:=

...

xFilial("ZZZ")+cOrigem+cIdUnit

...


//

...

Busca

...

na

...

tabela

...

específica

...

todos

...

os

...

itens

...

que

...

fazem

...

parte

...

daquela

...

origem

...

+

...

etiqueta
ZZZ→ (DbSetOrder(1))

...


ZZZ→ (DbSeek(cSeekZZZ))

...


While

...

!ZZZ->(Eof())

...

.And.

...

ZZZ→ ZZZ

...

_FILIAL+ZZZ->ZZZ_ORIGEM+ZZZ->ZZZ_IDUNIT

...

==

...

cSeekZZZ

...

//

...

Adiciona

...

o

...

item

...

relacionado

...

à

...

etiqueta

...

no

...

array

...

auxiliar

...


AAdd(aItem,PadR(

...

ZZZ→ZZZ_PRDORI

...

,nTamPrd))

...


AAdd(aItem,PadR(ZZZ→ ZZZ

...

_PRODUT

...

,nTamPrd))

...


AAdd(aItem,PadR(ZZZ→ ZZZ

...

_LOTECTL,nTamLot))

...


AAdd(aItem,PadR(ZZZ→ ZZZ

...

_SUBLOT

...

,nTamSub))

...


AAdd(aItem,ZZZ→ ZZZ

...

_QUANT)

...


//

...

Adiciona

...

o

...

item

...

no

...

array

...

principal

...

de

...

retorno

...


AAdd(aItensUni,aItem)

...


ZZZ→(DbSkip())

...

EndDo

...

Return

...

aItensUni

------


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>