Árvore de páginas

Versões comparadas

Chave

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

...

Informações
titleIMPORTANTE!
  • Os valores retornados por este Ponto de Entrada devem possuir o mesmo tamanho dos campos correspondentes na tabela de Itens do Unitizador (D0S).
  • Caso contrário, podem ser gerados error.logs ou inconsistências na base de dados.

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

...

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>