Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function WV081VMT()
Local aAreaAnt := GetArea()
Local nCampo   := PARAMIXB[1]
Local cCodMnt  := PARAMIXB[2]
Local cCarga   := PARAMIXB[3]
Local cPedido  := PARAMIXB[4]
Local lEstorno := PARAMIXB[5]
Local lRet     := .T.

	// Se está sendo chamado do campo Pedido e não é estorno
	If nCampo == 2 .And. !lEstorno
		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.","WV081VMT",1)
				lRet := .F.
			EndIf
		EndIf
	EndIf

RestArea(aAreaAnt)
Return lRet