Histórico da Página

#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