Histórico da Página
...
Nome | Tipo | Descrição |
---|---|---|
cProdOrig | Caractere | Código do produto a ser endereçado |
cProdArmz | Caractere | Produto armazenado no endereço |
05. RETORNO
Nome | Descrição |
---|---|
lRetPE |
...
Indica se os produtos podem compartilhar o endereço. |
06. VERSÕES
Protheus 11.80.17 ou superiores.
07. OBSERVAÇÃO
A implementação do Ponto de Entrada não substitui a regra de que os produtos devem possuir a mesma norma para que possam compartilhar um endereço.
...
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
08. EXEMPLO
...
language | cpp |
---|---|
title | Exemplo de validação padrão |
linenumbers | true |
collapse | true |
...
------
#INCLUDE "PROTHEUS.CH"
...
User
...
Function
...
WMSCPEND()
...
Local
...
aAreaSB1
...
:=
...
SB1->(GetArea())
...
Local
...
cProdOrig
...
:=
...
PARAMIXB[1]
...
Local
...
cProdArmz
...
:=
...
PARAMIXB[2]
...
Local
...
lRet
...
:=
...
.T.
...
SB1→ (DbSetOrder(1))
...
//
...
Posiciona
...
no
...
cadastro
...
do
...
produto
...
a
...
ser
...
endereçado
SB1→ (MsSeek(xFilial('SB1')+cProdOrig,
...
.F.))
...
//
...
Guarda
...
o
...
tipo
...
e
...
grupo
...
de
...
estoque
...
do
...
produto
...
a
...
ser
...
endereçado
...
cTipoOrig
...
:=
...
SB1->B1_TIPO
...
cGrupoOrig
...
:=
...
SB1→B1_GRUPO
...
//
...
Posiciona
...
no
...
cadastro
...
produto
...
armazenado
...
no
...
endereço
SB1→ (MsSeek(xFilial('SB1')+cProdArmz,
...
.F.))
...
//
...
Retorno
...
positivo
...
caso
...
os
...
produtos
...
possuam
...
o
...
mesmo
...
tipo
...
e
...
grupo
...
de
...
estoque
...
lRet
...
:=
...
(cTipoOrig
...
==
...
SB1->B1_TIPO)
...
.And.
...
(cGrupoOrig
...
==
...
SB1→B1_GRUPO)
...
RestArea(aAreaSB1)
...
Return
...
lRet
------
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> |