0 
  procedure event(event_name varchar2) is 

form_name        VARCHAR2 (30)   := NAME_IN ('system.current_form');
   block_name       VARCHAR2 (30)   := NAME_IN ('system.cursor_block');
   item_name        VARCHAR2 (100)  := NAME_IN ('system.current_item');

  BEGIN   

 If  (  (event_name='PRE-UPDATE') or (EVENT_NAME = 'WHEN-VALIDATE-RECORD'   ) ) and 
           form_name ='HRWSPSF'  and block_name ='POSITIONS' and item_name IN ('SEGMENT1','SEGMENT2','SEGMENT3','LOCATION_ID')
           and   NAME_IN('SYSTEM.RECORD_STATUS')IN ('CHANGED') 
           then     
         DECLARE
                L_SEGMENT    NUMBER;
            L_POS       NUMBER;
                P_SEGMENT1 VARCHAR2(255):=NAME_IN('POSITIONS.SEGMENT1');
                P_SEGMENT2 VARCHAR2(255):=NAME_IN('POSITIONS.SEGMENT2');
                P_SEGMENT3 VARCHAR2(255):=NAME_IN('POSITIONS.SEGMENT3');
                P_LOCATION_ID NUMBER:=NAME_IN('POSITIONS.LOCATION_ID');
         BEGIN

                  SELECT count(*) into L_SEGMENT
                FROM  hr_all_positions_f hapf,
                per_position_definitions ppd
                WHERE hapf.position_definition_id = ppd.position_definition_id
                AND PPD.SEGMENT1 = P_SEGMENT1
                AND PPD.SEGMENT2=P_SEGMENT2
                AND hapf.business_group_id = 111
                AND HAPF.LOCATION_ID = P_LOCATION_ID;

           IF (L_SEGMENT>=1) THEN
            FND_MESSAGE.SET_NAME('PER','IGFMIS_DUPLICATE_POSITION');
                  FND_MESSAGE.error;
              RAISE form_trigger_failure;
           END IF;

                SELECT count(*) into L_POS
                FROM per_position_definitions ppd
                WHERE PPD.SEGMENT3 = P_SEGMENT3;

         IF (L_POS>=1) THEN
           FND_MESSAGE.SET_NAME('PER','IGFMIS_DUPLICATE_POSITION_CODE');
                  FND_MESSAGE.error;
              RAISE form_trigger_failure;
         END IF;

         END;
         END IF;
end event;

它不起作用。验证应该在插入和更新位置和位置字段时进行。我认为 IF 条件不起作用。需要知道正确的 IF 条件。如何仅针对某些特定字段进行验证。

4

1 回答 1

0

我不知道 EBS，但您检查的事件名称与 Oracle Forms 触发器相同。

PRE-UPDATE作为提交表单过程的一部分，在程序更新记录在数据库中之前触发触发器。例如，它在用户通过按 F10 提交数据后触发。

WHEN-VALIDATE-RECORD用户“离开记录”后触发触发。这意味着当用户移动到其他记录或块时。它也会在用户提交数据后触发。当用户在同一记录中的项目（字段）之间移动时，它不会触发。

如果您需要在用户离开后验证项目，请使用WHEN-VALIDATE-ITEM. 也许它也适用于 EBS。

于 2015-12-27T15:54:27.750 回答