if :block_name.field_name is null then
   vb$message.notice('its work');
   raise form_trigger_failure;
end if;

/* CGAP$OLES_SEQUENCE_BEFORE */
begin
	if VB$Do_Key.Key_COMMIT('BEFORE')
	then
		return;
	end if;
exception
 	when others then
 		VB$Trace.Error_Handler;
end;
BEGIN
check_details;
END;

/* CGAP$OLES_SEQUENCE_AFTER */

BEGIN
if VB$Do_Key.Key_COMMIT('AFTER')
	then
  	return;
	end if;
exception
 	when others then
 		VB$Trace.Error_Handler;
/*-8<-----End-Of-OL-Trigger-----------*/

END;