Histórico da Página
...
Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização
08. EXEMPLO
...
language | cpp |
---|---|
title | Exemplo |
linenumbers | true |
collapse | true |
...
------
#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> |