01. DADOS GERAIS
Produto: | TOTVS Logística WMS
|
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Logística |
Módulo: | SIGAWMS - Gestão de Armazenagem |
Função: | - |
País: | Todos Países |
Ticket: | - |
Requisito/Story/Issue (informe o requisito relacionado) : | - |
02. DESCRIÇÃO
Este Ponto de Entrada permite customizar a validação padrão de cadastro de produtos no processo de compartilhamento de endereços.
03. LOCALIZAÇÃO
Localizado na função que avalia se o produto a ser endereçado pode compartilhar o endereço com o produto armazenado.
04. PARÂMETROS
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.
Para mais informações sobre os tipos de compartilhamento de endereço disponíveis no WMS, acesse: Como utilizar um endereço de forma compartilhada no WMS?
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
08. EXEMPLO
------
#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
------