Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function WA091VMT()
Local aAreaAnt := GetArea()
Local cCodMnt  := PARAMIXB[1]
Local cCarga   := PARAMIXB[2]
Local cPedido  := PARAMIXB[3]
Local lRet     := .T.

	DCS->(DbSetOrder(1))
	If DCS->(DbSeek(xFilial("DCS")+cCodMnt+cCarga+cPedido))
		If DCS->DCS_QTORIG > DCS->DCS_QTSEPA
			WmsMessage("A separação do pedido ainda não foi finalizada.","WA091VMT",1)
			lRet := .F.
		EndIf
	EndIf

RestArea(aAreaAnt)
Return lRet