重复插入和更新职位和位置时，人力资源管理系统职位窗口上的EBS Custom.pll验证

Question

  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;

这不是working.Validation应该在插入和更新位置和位置字段。我认为如果条件不工作.Need知道正确的IF条件。如何仅对某些特定字段进行验证。

Answer 1

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

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

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

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