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 |
...
------
User Function WMSQTDAB()
...
Local
...
cProduto
...
:=
...
PARAMIXB[1]
...
Local
...
cLocDest
...
:=
...
PARAMIXB[2]
...
Local
...
cEstDest
...
:=
...
PARAMIXB[3]
...
Local
...
cEndDest
...
:=
...
PARAMIXB[4]
...
Local
...
cLocOri
...
:=
...
PARAMIXB[5]
...
Local
...
cEstOri
...
:=
...
PARAMIXB[6]
...
Local
...
cEndOri
...
:=
...
PARAMIXB[7]
...
Local
...
nQtdAbas
...
:=
...
PARAMIXB[8]
...
Local
...
cLoteCtl
...
:=
...
PARAMIXB[9]
...
Local
...
cNumLote
...
:=
...
PARAMIXB[10]
...
Local
...
cNumSer
...
:=
...
PARAMIXB[11]
...
Local
...
cIdUnitiz
...
:=
...
PARAMIXB[12]
...
dbSelectArea("DC3")
...
dbSetOrder(2)
...
//DC3_FILIAL+DC3_CODPRO+DC3_LOCAL+DC3_TPESTR
...
IF
...
dbSeek(xFilial("DC3")+cProduto+cLocal+cTpEstr)
...
.And.
...
DC3->DC3_QTDUNI
...
>
...
1
nQtdAbas := Min(DC3->DC3_QTDUNI,
...
WmsSldD14(
...
cLocal,
...
cEnd
...
,
...
cProduto,,cLoteCtl,
...
cNumLote,
...
cNumSer,,
...
cIdUnitiz))
...
Endif
RestArea(aArea)
...
Return
...
nQtdAbas
------
09. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas