Estoy haciendo un FORM con una serie de columnas en GRID las cuales son
PARÁMETRO - VALOR ALFA - VALOR NÚMERO - VALOR FECHA - COMENTARIO
Parámetro y Comentario son obligatorias pero quiero que el usuario tenga que introducir al menos uno de los valores. Si introduce uno de ellos los demás se inhabilitan. Hasta ahí bien. El caso es que al llegar a 'COMENTARIO', si no ha introducido uno de los 3 valores salta un trigger avisando, pero continúa al registro siguiente. Habría alguna forma de que volviera al primer campo de ese registro ('PARAMETRO') y no continuara al siguiente registro como si nada?
Agrego el trigger que estoy usando:
DISPSTD.WHEN_VALIDATE_ITEM;
DECLARE
v_alerta number;
BEGIN
IF :system.trigger_item = 'B2.VALOR_ALFA' THEN
IF :B2.VALOR_ALFA IS NOT NULL THEN
SET_ITEM_PROPERTY('B2.VALOR_NUMERO',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('B2.VALOR_FECHA',ENABLED,PROPERTY_FALSE);
END IF;
IF :B2.VALOR_ALFA IS NULL THEN
SET_ITEM_PROPERTY('B2.VALOR_NUMERO',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_NUMERO',UPDATE_ALLOWED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_FECHA',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_FECHA',UPDATE_ALLOWED,PROPERTY_TRUE);
END IF;
END IF;
IF :system.trigger_item = 'B2.VALOR_NUMERO' THEN
IF :B2.VALOR_NUMERO IS NOT NULL THEN
SET_ITEM_PROPERTY('B2.VALOR_ALFA',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('B2.VALOR_FECHA',ENABLED,PROPERTY_FALSE);
END IF;
IF :B2.VALOR_NUMERO IS NULL THEN
SET_ITEM_PROPERTY('B2.VALOR_ALFA',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_ALFA',UPDATE_ALLOWED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_FECHA',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_FECHA',UPDATE_ALLOWED,PROPERTY_TRUE);
END IF;
END IF;
IF :system.trigger_item = 'B2.VALOR_FECHA' THEN
IF :B2.VALOR_FECHA IS NOT NULL THEN
SET_ITEM_PROPERTY('B2.VALOR_NUMERO',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('B2.VALOR_ALFA',ENABLED,PROPERTY_FALSE);
END IF;
IF :B2.VALOR_FECHA IS NULL THEN
SET_ITEM_PROPERTY('B2.VALOR_NUMERO',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_NUMERO',UPDATE_ALLOWED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_ALFA',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('B2.VALOR_ALFA',UPDATE_ALLOWED,PROPERTY_TRUE);
END IF;
END IF;
IF :system.trigger_item = 'B2.D_PARAMETRO' THEN
IF :B2.VALOR_ALFA IS NULL AND :B2.VALOR_NUMERO IS NULL AND :B2.VALOR_FECHA IS NULL THEN
v_alerta := show_alert('NULL_ALERT');
END IF;
END IF;
END;