EBS Custom.pll 在重复插入和更新位置和位置的 HRMS 位置窗口中进行验证

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;

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

Answer 1

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

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

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

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