Skip to main content
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
etiquetas editadas
Enlace
Kora
  • 71
  • 1
  • 8
Origen Enlace
Kora
  • 71
  • 1
  • 8

Oracle FORMS - Validar o invalidar registros

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;