Histórico da Página
...
Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas