Histórico da Página

User Function WMS095VL()
Local lRet := .T.
Local cArmOri := PARAMIXB[1] //armazém origem
Local cEnderOri := PARAMIXB[2] //endereço origem
Local cArmDes := PARAMIXB[3] //armazém destino
Local cEnderDes := PARAMIXB[4] //endereço destino
Local cProduto := PARAMIXB[5] //produto
Local cLote := PARAMIXB[6] //lote
Local cSubLote := PARAMIXB[7] //sub-lote
Local nQuantid:= PARAMIXB[8] //Quantidade digitada
    
	If Alltrim(cEnderDes) == "Teste"
	    WMSVTAviso("WMS","Transferência não permitida.")
		lRet := .F.
	EndIf

Return lRet