Oracle Forms Developer – Form Builder Reference, Volume 1

330
WHEN VALUE_ERROR THEN
Message(’Target Date must be of the form DD-MON-YY’);
Bell;
Validation_Err := TRUE;
END;
/*
** If we get here, all parameters were valid so do the
** Update Statement.
*/
IF NOT Validation_Err THEN
UPDATE WAREHOUSE
SET QTY_TO_ORDER = QTY_TO_ORDER*0.18
WHERE TARGET_DATE = TO_DATE(:z6)
AND QTY_ON_HAND > TO_NUMBER(:q2)
AND COST_CODE LIKE :p1||’%’;
END IF;
ELSE
/*
** If Menu_Success is boolean false, then return back
** from the procedure since user cancelled the dialog
*/
RETURN;
END IF;
END LOOP;
END;