DT PE WMSCPEND - Substitui a validação padrão de cadastro dos produtos no compartilhamento de endereço

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) :	-

Este Ponto de Entrada permite customizar a validação padrão de cadastro de produtos no processo de compartilhamento de endereços.

Localizado na função que avalia se o produto a ser endereçado pode compartilhar o endereço com o produto armazenado.

Nome	Tipo	Descrição
cProdOrig	Caractere	Código do produto a ser endereçado
cProdArmz	Caractere	Produto armazenado no endereço

Nome	Descrição
lRetPE	Indica se os produtos podem compartilhar o endereço.

Protheus 11.80.17 ou superiores.

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.

------

#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

------