from开发学习------函数功能笔记

1.find_message.debug('触发器')

　　功能：弹框输出提示信息。

2.APP_FIELD.clear_dependent_fields和APP_FIELD.set_dependent_field

功能：

复制代码PROCEDURE clear_dependent_fields(master_field VARCHAR2, field1 VARCHAR2, field2 VARCHAR2 DEFAULT NULL, field3 VARCHAR2 DEFAULT NULL, field4 VARCHAR2 DEFAULT NULL, field5 VARCHAR2 DEFAULT NULL, field6 VARCHAR2 DEFAULT NULL, field7 VARCHAR2 DEFAULT NULL, field8 VARCHAR2 DEFAULT NULL, field9 VARCHAR2 DEFAULT NULL, field10 VARCHAR2 DEFAULT NULL) IS BEGIN COPY('Entering app_field.clear_dependent_fields.','global.frd_debug'); if (name_in(master_field) is null) then clear_fields(field1, field2, field3, field4, field5, field6, field7, field8, field9, field10); end if; COPY('Completed app_field.clear_dependent_fields.','global.frd_debug'); END clear_dependent_fields; PROCEDURE set_dependent_field(event VARCHAR2, master_field VARCHAR2, dependent_field VARCHAR2, invalidate BOOLEAN DEFAULT FALSE) IS BEGIN COPY('Entering app_field.set_dependent_field. Event is '||event||'.','global.frd_debug'); set_dependent_field(event, (name_in(master_field) is not null), dependent_field, invalidate); COPY('Completed app_field.set_dependent_field. Event is '||event||'.','global.frd_debug'); END set_dependent_field; PROCEDURE set_dependent_field(event VARCHAR2, condition BOOLEAN, dependent_field VARCHAR2, invalidate BOOLEAN DEFAULT FALSE) IS value NUMBER; itemtype VARCHAR2(32); BEGIN COPY('Entering app_field.set_dependent_field. Event is '||event||'.','global.frd_debug'); if (condition) then value := PROPERTY_ON; else value := PROPERTY_OFF; end if; if ((instr(event, 'VALIDATE') <> 0) or (event = 'INIT')) then app_item_property.set_property(dependent_field, ENTERABLE, value); itemtype := get_item_property(dependent_field, item_type); if invalidate then set_item_property(dependent_field, ITEM_IS_VALID, PROPERTY_FALSE); elsif not(itemtype = 'CHECKBOX' or (itemtype = 'LIST' and get_item_property(dependent_field, required) = 'TRUE')) then if (name_in(dependent_field) is not null) then copy('', dependent_field); end if; end if; elsif (event in ('PRE-RECORD', 'WHEN-NEW-RECORD-INSTANCE')) then app_item_property.set_property(dependent_field, ENTERABLE, value); elsif (event = 'POST-QUERY') then -- -- In R11 this set the visual attribute. Now we get the coloring -- by setting the enterable property -- app_item_property.set_property(dependent_field, ENTERABLE, value); else fnd_message.debug('DEVELOPER ERROR: Invalid arg '|| event||' to set_dependent field'); end if; COPY('Completed app_field.set_dependent_field. Event is '||event||'.','global.frd_debug'); EXCEPTION when OTHERS then app_debug.setpoint('app_field.set_dependent_field', event||', '||dependent_field); RAISE; END set_dependent_field;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
PROCEDURE clear_dependent_fields(master_field VARCHAR2,
                                   field1       VARCHAR2,
                                   field2       VARCHAR2 DEFAULT NULL,
                                   field3       VARCHAR2 DEFAULT NULL,
                                   field4       VARCHAR2 DEFAULT NULL,
                                   field5       VARCHAR2 DEFAULT NULL,
                                   field6       VARCHAR2 DEFAULT NULL,
                                   field7       VARCHAR2 DEFAULT NULL,
                                   field8       VARCHAR2 DEFAULT NULL,
                                   field9       VARCHAR2 DEFAULT NULL,
                                   field10      VARCHAR2 DEFAULT NULL) IS
  BEGIN
    COPY('Entering app_field.clear_dependent_fields.','global.frd_debug');
    if (name_in(master_field) is null) then
      clear_fields(field1, field2, field3, field4, field5,
                   field6, field7, field8, field9, field10);
    end if;
    COPY('Completed app_field.clear_dependent_fields.','global.frd_debug');
  END clear_dependent_fields;

  PROCEDURE set_dependent_field(event           VARCHAR2,
                                master_field    VARCHAR2,
                                dependent_field VARCHAR2,
        invalidate  BOOLEAN DEFAULT FALSE) IS
  BEGIN
    COPY('Entering app_field.set_dependent_field.  Event is '||event||'.','global.frd_debug');
    set_dependent_field(event,
                        (name_in(master_field) is not null),
                        dependent_field,
      invalidate);
    COPY('Completed app_field.set_dependent_field.  Event is '||event||'.','global.frd_debug');
  END set_dependent_field;

  PROCEDURE set_dependent_field(event           VARCHAR2,
                                condition       BOOLEAN,
                                dependent_field VARCHAR2,
        invalidate  BOOLEAN DEFAULT FALSE) IS
    value    NUMBER;
    itemtype VARCHAR2(32);
  BEGIN
    COPY('Entering app_field.set_dependent_field.  Event is '||event||'.','global.frd_debug');
    if (condition) then
      value := PROPERTY_ON;
    else
      value := PROPERTY_OFF;
    end if;

    if ((instr(event, 'VALIDATE') <> 0) or (event = 'INIT')) then
      app_item_property.set_property(dependent_field, ENTERABLE, value);
      itemtype := get_item_property(dependent_field, item_type);
      if invalidate then
        set_item_property(dependent_field, ITEM_IS_VALID, PROPERTY_FALSE);
      elsif not(itemtype = 'CHECKBOX' or
               (itemtype = 'LIST' and
                get_item_property(dependent_field, required) = 'TRUE')) then
        if (name_in(dependent_field) is not null) then
          copy('', dependent_field);
        end if;
      end if;

    elsif (event in ('PRE-RECORD', 'WHEN-NEW-RECORD-INSTANCE')) then
      app_item_property.set_property(dependent_field, ENTERABLE, value);

    elsif (event = 'POST-QUERY') then
      --
      -- In R11 this set the visual attribute. Now we get the coloring
      -- by setting the enterable property
      --
      app_item_property.set_property(dependent_field, ENTERABLE, value);
    else
      fnd_message.debug('DEVELOPER ERROR: Invalid arg '||
        event||' to set_dependent field');
    end if;
    COPY('Completed app_field.set_dependent_field.  Event is '||event||'.','global.frd_debug');
  EXCEPTION
    when OTHERS then
      app_debug.setpoint('app_field.set_dependent_field',
                         event||', '||dependent_field);
      RAISE;
  END set_dependent_field;

3.app_item_property.set_proprerty('ORDER_HEADERS.CUSTOMER_NMAE',UPDATE_ALLOWED,PROPERTY_TURE);     TURE状态字段可修改，FALSE状态字段不可修改，一般用在WHEN-NEW-RECORD-INSTANCE触发器进行字段和记录控制。

4.触发器KEY-LISTVAL:calendar.show;  日历控件