Histórico da Página
...
Informações | ||
---|---|---|
| ||
|
06. VERSÕES
Protheus 12.1.17 e ou superiores.
07. OBSERVAÇÃO
Quando este Ponto de Entrada for implementado, o Sistema solicitará as informações até o Tipo e ID do Unitizador. Sendo assim, o PE permanecerá responsável por retornar um array contendo todas as informações relativas aos produtos contidos no unitizador informado.
...
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> |