FORM开发

分手后的思念是犯贱 2022-09-18 02:58 66阅读 0赞

一、修改FORM级触发器

1.PRE-FORM

app_window.set_window_position('CUXCRVAS', 'FIRST_WINDOW');

2.WHEN-NEW-FORM-INSTANCE

FDRCSID('$Header: TEMPLATE.fmb 115.12 level:6 2013/11/05 10:00:48 pkm ship                                                                                                                                                                                                                                                             $');
    APP_STANDARD.EVENT('WHEN-NEW-FORM-INSTANCE');
    --
    -- app_folder.define_folder_block('template test', 'folder_block', 'prompt_block', 'stacked_canvas', 'window', 'disabled functions');
    -- app_folder.event('VERIFY');
    --
    cux_control.botton_control('when-new-form');

二、创建数据块 1.为QFIND快添加项

设置块和项的属性：

![2012032116160086.png][]

![2012032116194890.png][]

![2012032116204390.png][]

![2012032116271895.png][]

QFIND画布

![2012032116283591.png][]

修改块级触发器KEY-NXTBLK：

:parameter.G_query_find := 'TRUE';
    app_find.find('CUX_CRVAL');
    :parameter.G_query_find := 'FALSE';

分别编写以下触发器：

![2012032116310257.png][]

app_find.clear;

app_find.new('CUX_CRVAL');

:parameter.G_query_find := 'TRUE';
    app_find.find('CUX_CRVAL');
    :parameter.G_query_find := 'FALSE';

三、创建CUXCRVAS块

画布CUXCRVAS效果：

![2012032116371744.png][]

![2012032116405892.png][]

设置块和项属性

![2012032116433143.png][]

![2012032116441524.png][]

![2012032116482134.png][]

![2012032119493194.png][]

修改ITEM级触发器WHEN\_CHECKBOX\_CHANGED

BEGIN
            IF :CUX_CRVAL.ATTRIBUTE1 IS NULL THEN
                 :CUX_CRVAL.END_DATE := NULL;
                 app_item_property.set_property('CUX_CRVAL.END_DATE',INSERT_ALLOWED,PROPERTY_FALSE);
                  app_item_property.set_property('CUX_CRVAL.END_DATE',UPDATE_ALLOWED,PROPERTY_FALSE);  
            ELSE
                app_item_property.set_property('CUX_CRVAL.END_DATE',INSERT_ALLOWED,PROPERTY_TRUE);
                app_item_property.set_property('CUX_CRVAL.END_DATE',UPDATE_ALLOWED,PROPERTY_TRUE);  
            END IF;
    END;

修改块级触发器：

1、QUERY\_FIND

NULL;
    APP_FIND.QUERY_FIND('CUXCRVAS','QFIND','QFIND');

2、PRE\_INSERT

cux_private.per_insert;

3、PRE\_UPDATE

cux_private.per_update;

4、PRE\_DELETE

cux_private.per_delete;

5、PRE\_QUERY

NULL;
    IF :Parameter.G_query_find='TRUE' THEN
    :CUX_CRVAL.CUSTOMER_ID:=:QFIND.CUSTOMER_ID;
    --:CUX_CRVAL.CUSTOMER_NUMBER:=:QFIND.CUSTOMER_NUMBER;
    --:CUX_CRVAL.CUSTOMER_NAME:=:QFIND.CUSTOMER_NAME;
    :CUX_CRVAL.STATUS:=:QFIND.STATUS;
    :Parameter.G_query_find:='FALSE';
    END IF;

6、WHEN\_NEW\_RECORD\_INSTANCE

APP_STANDARD.EVENT('WHEN-NEW-RECORD-INSTANCE');
    cux_control.record_control;

四、LOV设置

![2012032116555332.png][]

![2012032116563722.png][]

![2012032116585013.png][]

![2012032116593450.png][]

![2012032117011595.png][]

![2012032117012610.png][]

五、修改程序单元

修改APP\_CUSTOM包

package body app_custom is
    
    procedure close_window(wnd in varchar2) is
      /*
        This procedure is called whenever the user closes a window, as
        a result of the WHEN-WINDOW-CLOSED trigger firing. You are responsible
        for supplying unqiue code that addresses the needs of each window, such as
        deferring master-detail relations, or closing related windows.
    
        Other windows that will be referenced into your form rely on the default
        code at the beginning and end of this procedure - under no circumstances
        should you modify that code.
      */
    begin
    
      /*
        THE FOLLOWING CODE MUST NOT BE MODIFIED. It prevents windows from closing
        while in enter-query mode.
      */
    
      if (name_in('system.mode') = 'ENTER-QUERY') then
        app_exception.disabled;
        return;
      end if;
    
      /*
        YOU MUST MODIFY THE FOLLOWING CODE to account for specific behaviors of your
        form, including:
        1. identifying the 'first window' of the form and treating
           a close window on that window like a close form.
        2. deferring master-detail relations for detail blocks that
           exist in other windows.
        3. closing other related windows.
        The default code at the end of this procedure actually closes the window.
        If you do that yourself in this code, issue a 'return;' at the end of 
        your logic for your specific windows.
      */ 
    
      if (wnd = 'CUXCRVAS') then
        app_window.close_first_window;
      elsif (wnd = '<another window>') then 
        --defer relations
        --close related windows   
        null;  
      elsif (wnd = '<yet another window>') then 
        --defer relations
        --close related windows   
        null;
      end if;
    
      /*
        THE FOLLOWING CODE MUST NOT BE MODIFIED. It ensures the cursor is not in 
        the window that will be closed (by moving it to the previous block if 
        needed), and actually closes the specified window.
      */
    
      if (wnd = get_view_property(get_item_property(:SYSTEM.CURSOR_ITEM, 
                                  ITEM_CANVAS), WINDOW_NAME)) then
        do_key('PREVIOUS_BLOCK');
      end if;
      hide_window(wnd);
    
    end close_window;
    
    procedure open_window(wnd in varchar2) is
      /*
        This procedure should be called from any code that could result
        in a non-modal window being opened.
      */
    begin  
      /*
        YOU MUST MODIFY THE FOLLOWING CODE to account for specific behaviors of your
        form, including:   
        1. Positioning the window to be opened
        2. Resetting master-detail relations for blocks in the window    
        3. navigation to a block in that window
      */
      if (wnd = '<a window>') then
        --position the window
        --reset master-detail relations
        --navigate to a block in the window
        null;
      elsif (wnd = '<another window>') then 
        --position the window
        --reset master-detail relations
        --navigate to a block in the window
        null;
      elsif (wnd = '<yet another window>') then 
        --position the window
        --reset master-detail relations
        --navigate to a block in the window
        null;
      end if;
    
    end open_window;
    
    end app_custom;

编写CUX\_CONTROL包

PACKAGE BODY cux_control IS
      procedure summit is
      begin
          if :CUX_CRVAL.credit_values is null then
                FND_MESSAGE.SET_STRING('信用额度不能为空!'); 
              FND_MESSAGE.ERROR;
              RAISE Form_Trigger_Failure; 
          elsif :CUX_CRVAL.ATTRIBUTE1 ='Y' and :CUX_CRVAL.END_DATE IS NULL then
                  FND_MESSAGE.SET_STRING('请输入截至日期!'); 
              FND_MESSAGE.ERROR;
              RAISE Form_Trigger_Failure; 
          elsif :CUX_CRVAL.ATTRIBUTE1 ='Y' and :CUX_CRVAL.credit_values = 0 then
                FND_MESSAGE.SET_STRING('临时信用额度不能为0!'); 
              FND_MESSAGE.ERROR;
              RAISE Form_Trigger_Failure; 
          ELSE
              if :CUX_CRVAL.STATUS='已输入' then                  
                      :CUX_CRVAL.STATUS:='处理中';
                  
                      if :CUX_CRVAL.ATTRIBUTE1 is null then
                             --FND_MESSAGE.DEBUG(:CUX_CRVAL.CREDIT_ID);
                             --FND_MESSAGE.DEBUG(:CUX_CRVAL.CUSTOMER_ID);
                              update cux_credit_control_all a
                              set a.STATUS='失效',a.active_flag='N',a.end_date=trunc(sysdate)
                              where (a.credit_id!=:CUX_CRVAL.CREDIT_ID or :CUX_CRVAL.CREDIT_ID is null)
                              and a.customer_id=:CUX_CRVAL.CUSTOMER_ID
                              and a.group_number=:CUX_CRVAL.group_number
                              and a.STATUS='处理中' and a.ATTRIBUTE1 is null ;
                              commit;
                    end if;    
              else
                  FND_MESSAGE.SET_STRING('当前记录不能提交!'); 
              FND_MESSAGE.ERROR;
              RAISE Form_Trigger_Failure; 
              end if;
          END IF;    
       /* set_block_property('CUX_CRVAL',UPDATE_ALLOWED,property_false);
        set_block_property('CUX_CRVAL',DELETE_ALLOWED,property_false);*/
      end summit;
      
      procedure approve is
      begin
          if :CUX_CRVAL.STATUS='处理中' then
                  :CUX_CRVAL.STATUS:='生效';
                  :CUX_CRVAL.START_DATE:=trunc(sysdate);
                  :CUX_CRVAL.ATTRIBUTE2 := TO_CHAR(sysdate,'YYYY-MM-DD HH24:MI:SS');
                  if :CUX_CRVAL.ATTRIBUTE1 is null then
                      update cux_credit_control_all a
                      set a.STATUS='失效',a.active_flag='N',a.end_date=trunc(sysdate)
                      where a.credit_id!=:CUX_CRVAL.CREDIT_ID
                      and a.customer_id=:CUX_CRVAL.CUSTOMER_ID
                      and a.group_number=:CUX_CRVAL.group_number
                      and a.STATUS='生效' 
                      and a.ATTRIBUTE1 is null ;
                  end if;    
          else
              FND_MESSAGE.SET_STRING('当前记录不能审批!'); 
          FND_MESSAGE.ERROR;
          RAISE Form_Trigger_Failure; 
        end if;
      end approve;
      
      procedure reject is
      begin
          if :CUX_CRVAL.STATUS='处理中' then
              :CUX_CRVAL.STATUS:='拒绝';
              :CUX_CRVAL.ATTRIBUTE2 := TO_CHAR(sysdate,'YYYY-MM-DD HH24:MI:SS');
          else
              FND_MESSAGE.SET_STRING('当前记录不能拒绝!'); 
          FND_MESSAGE.ERROR;
          RAISE Form_Trigger_Failure; 
        end if;
    
      end reject;
      
      procedure botton_control(p_event in varchar2) is
      v_user_id    number;
      v_approve_user_id number;
      begin
          if (p_event='when-new-form') then
              :PARAMETER.P_USER_ID:=FND_GLOBAL.USER_ID;
              v_approve_user_id:=fnd_profile.value('CUX_CREDIT_APPROVE_USER');
              if :PARAMETER.P_USER_ID=v_approve_user_id then
                app_item_property.set_property('BOTTON_CONTROL.SUMMIT',ENABLED,PROPERTY_FALSE);
                app_item_property.set_property('BOTTON_CONTROL.APPROVE',ENABLED,PROPERTY_TRUE);
                app_item_property.set_property('BOTTON_CONTROL.REJECT',ENABLED,PROPERTY_TRUE);
                
                app_item_property.set_property('CUX_CRVAL.ACTIVE_FLAG',INSERT_ALLOWED,PROPERTY_TRUE);
                app_item_property.set_property('CUX_CRVAL.ACTIVE_FLAG',UPDATE_ALLOWED,PROPERTY_TRUE);
              else
                app_item_property.set_property('BOTTON_CONTROL.SUMMIT',ENABLED,PROPERTY_TRUE);
                app_item_property.set_property('BOTTON_CONTROL.APPROVE',ENABLED,PROPERTY_FALSE);
                app_item_property.set_property('BOTTON_CONTROL.REJECT',ENABLED,PROPERTY_FALSE);
                
                app_item_property.set_property('CUX_CRVAL.ACTIVE_FLAG',INSERT_ALLOWED,PROPERTY_FALSE);
                app_item_property.set_property('CUX_CRVAL.ACTIVE_FLAG',UPDATE_ALLOWED,PROPERTY_FALSE);            
              end if;
          end if;
      end botton_control;
      
      procedure record_control is
      begin
          if :CUX_CRVAL.STATUS='已输入' then
          /*      app_item_property.set_property('CUX_CRVAL.CUSTOMER_NUMBER', ENTERABLE,PROPERTY_ON);
              --  app_item_property.set_property('CUX_CRVAL.CUSTOMER_NUMBER',UPDATE_ALLOWED,PROPERTY_TRUE);
                app_item_property.set_property('CUX_CRVAL.CUSTOMER_NAME',ENTERABLE,PROPERTY_TRUE);
                app_item_property.set_property('CUX_CRVAL.CREDIT_VALUES',ENTERABLE,PROPERTY_TRUE);
            --set_block_property('CUX_CRVAL',UPDATE_ALLOWED,PROPERTY_TRUE);  */     
            set_block_property('CUX_CRVAL',DELETE_ALLOWED,PROPERTY_TRUE);   
            if :CUX_CRVAL.ATTRIBUTE1 = 'Y' then 
                 app_item_property.set_property('CUX_CRVAL.END_DATE',INSERT_ALLOWED,PROPERTY_TRUE); 
                 app_item_property.set_property('CUX_CRVAL.END_DATE',UPDATE_ALLOWED,PROPERTY_TRUE); 
            ELSE
                  app_item_property.set_property('CUX_CRVAL.END_DATE',INSERT_ALLOWED,PROPERTY_FALSE);
                app_item_property.set_property('CUX_CRVAL.END_DATE',UPDATE_ALLOWED,PROPERTY_FALSE);       
            END IF;
            null;     
          else
            --set_block_property('CUX_CRVAL',UPDATE_ALLOWED,PROPERTY_FALSE); 
                app_item_property.set_property('CUX_CRVAL.CUSTOMER_NUMBER',UPDATE_ALLOWED,PROPERTY_FALSE);
                app_item_property.set_property('CUX_CRVAL.CUSTOMER_NAME',UPDATE_ALLOWED,PROPERTY_FALSE);
                app_item_property.set_property('CUX_CRVAL.CREDIT_VALUES',UPDATE_ALLOWED,PROPERTY_FALSE);
                app_item_property.set_property('CUX_CRVAL.END_DATE',UPDATE_ALLOWED,PROPERTY_FALSE);
                app_item_property.set_property('CUX_CRVAL.ATTRIBUTE1',UPDATE_ALLOWED,PROPERTY_FALSE);         
            set_block_property('CUX_CRVAL',DELETE_ALLOWED,PROPERTY_FALSE);                  
           end if;
      end ;
    
    END cux_control;

编写CUX\_EVENT包

PACKAGE BODY CUX_EVENT IS
      PROCEDURE SUM_TRX_QTY IS
      BEGIN      
        :BOTTON_CONTROL.SUM_TRX_QTY := 0;
        GO_BLOCK('CUX_CRVAL');
        first_record;
        LOOP
          if :CUX_CRVAL.STATUS='生效'  and  :CUX_CRVAL.ACTIVE_FLAG='Y' then
          :BOTTON_CONTROL.SUM_TRX_QTY := :BOTTON_CONTROL.SUM_TRX_QTY +
                                           nvl(:CUX_CRVAL.CREDIT_VALUES, 0);
            end if;
          IF :system.last_record = 'FALSE' THEN
            ----判断当前记录是否为最后一条 
            next_record;
          ELSE
            EXIT;
          END IF;
        END LOOP;
        first_record;
      END SUM_TRX_QTY;
      
      
    END;

编写CUX\_PRIVATE包

PACKAGE BODY cux_private IS
      procedure per_insert is
      begin
            select cux_credit_control_all_s.NEXTVAL
                into :CUX_CRVAL.CREDIT_ID
                from dual;
         FND_STANDARD.SET_WHO;
      end per_insert;
      
      procedure per_update is
      begin
      /*    if :CUX_CRVAL.STATUS='生效' then
         FND_MESSAGE.SET_STRING('当前记录不允许修改!'); 
         FND_MESSAGE.ERROR;
         RAISE Form_Trigger_Failure; 
          else
              FND_STANDARD.SET_WHO;
          end if; */     
          FND_STANDARD.SET_WHO;
      end per_update;
      
      procedure per_delete is
      begin
      /*    if :CUX_CRVAL.STATUS='生效' then
         FND_MESSAGE.SET_STRING('当前记录不允许删除!'); 
         FND_MESSAGE.ERROR;
         RAISE Form_Trigger_Failure; 
          end if; */
          null;
      end per_delete;
    END;

[2012032116160086.png]: /images/20220828/4a2300c40dc343e9ae575fade61fd522.png
[2012032116194890.png]: /images/20220828/4356d8e3b0594dacbc5d7d2e32623d6a.png
[2012032116204390.png]: /images/20220828/fd9e8e40aba0439fb9a4454b6651bbc4.png
[2012032116271895.png]: /images/20220828/c7546ab8e77a40e8bc96fa13173c84df.png
[2012032116283591.png]: /images/20220828/e728acc393444cf9be47376487dd496d.png
[2012032116310257.png]: /images/20220828/de45ff51515e472ba1c2d1d578a84043.png
[2012032116371744.png]: /images/20220828/53e1e8e88f814ae3ae85c6b3c3d852b9.png
[2012032116405892.png]: /images/20220828/1654d4050c954c778cd3609e4ff3e805.png
[2012032116433143.png]: /images/20220828/06632e16842c46ee907a9260a52d537f.png
[2012032116441524.png]: /images/20220828/62b9cb70d91141e9a9685b149bd67c4b.png
[2012032116482134.png]: /images/20220828/428f0920f5f34be1a9cb065e01636e92.png
[2012032119493194.png]: /images/20220828/8999b138131245e29c064a3e7f105aff.png
[2012032116555332.png]: /images/20220828/846f1d61dabd47bf92c7bbd45dcddfe6.png
[2012032116563722.png]: /images/20220828/6442e47b8a0d4d4a87ce723fa9e10257.png
[2012032116585013.png]: /images/20220828/c72f4b81684d4fbd9237daa1c817f98f.png
[2012032116593450.png]: /images/20220828/9dda30acd81c4d3797ca1263a7d3994f.png
[2012032117011595.png]: /images/20220828/61f24fcb0e9d404da877dc3df40498f0.png
[2012032117012610.png]: /images/20220828/5205e751c2824cbbab0420776ad1906d.png