Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 10.ddi / ORDER.IN1 < prev next >

Wrap

Text File | 1990-05-21 | 46.0 KB | 2,011 lines

/* Copyright (c) 1988 by the Oracle Corporation */ SQL*FORMS_VERSION = 03.00.15.00.00 DEFINE FORM NAME = order TITLE = Order Entry DEFAULT_MENU_APPLICATION = DEFAULT ROOT_MENU = GROUP_NAME = MOUSE_NAVIGATION_LIMIT = VALIDATION_UNIT = DEFINE PROCEDURE NAME = check_total DEFINITION = <<< procedure check_total is begin if nvl(:orders.total,0) >=7500 then display_field('orders.total','bold'); else display_field('orders.total','normal'); end if; end; >>> ENDDEFINE PROCEDURE DEFINE PROCEDURE NAME = checkdate DEFINITION = <<< procedure checkdate is begin if (:orders.shipdate is not null) and (:orders.orderdate is not null) then if :shipdate < :orderdate then message('WARNING: Ship Date is before Order Date.'); end if; end if; end; >>> ENDDEFINE PROCEDURE DEFINE PROCEDURE NAME = clear_details DEFINITION = <<< procedure clear_details is temp_total number:=null; begin if (:system.record_status != 'NEW') then go_block('items'); clear_block; select sum(itemtot) into temp_total from item where ordid = :orders.ordid; if (temp_total != :orders.total) then :orders.total:=temp_total; end if; go_block('orders'); end if; exception when others then null; end; >>> ENDDEFINE PROCEDURE DEFINE PROCEDURE NAME = item_total DEFINITION = <<< procedure item_total is oldtotal number; begin oldtotal:=nvl(:items.itemtot,0); if (:system.record_status != 'QUERY') then :items.itemtot := :items.qty * :items.actualprice; if (:orders.total is null) then :orders.total:=:items.itemtot; else :orders.total:=:orders.total-oldtotal+nvl(:items.itemtot,0); end if; end if; check_total; end; >>> ENDDEFINE PROCEDURE DEFINE PROCEDURE NAME = query_details DEFINITION = <<< procedure query_details is vcount number; begin if (:orders.custid is not null) then select count(*) into vcount from item where ordid = :orders.ordid; if (vcount > 0) then go_block('items'); execute_query(all_records); go_block('orders'); end if; end if; end; >>> ENDDEFINE PROCEDURE DEFINE TRIGGER NAME = key-startup TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< :global.insert := 'N'; set_input_focus(menu); >>> ENDDEFINE TRIGGER DEFINE BLOCK NAME = orders DESCRIPTION = orders TABLE = ord UNIQUE_KEY = OFF UPDATE_KEY = OFF IN_MENU = ON ROWS_DISPLAYED = 1 ROWS_BUFFERED = 1 BASE_LINE = 1 LINES_PER_ROW = 0 ARRAY_SIZE = 0 COLUMN_SECURITY = OFF ORDERING = <<< where custid != -1 order by ordid >>> DEFINE TRIGGER NAME = POST-QUERY TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< select name into :orders.custname from customer where :orders.custid = custid; check_total; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-clrblk TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; clear_block; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-clrrec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-crerec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; create_record; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-delrec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< declare vcount number; begin select count(*) into vcount from item Where ordid = :orders.ordid; if (vcount = 0) then clear_details; delete_record; query_details; else message('Cannot delete master record when matching details exist.'); raise form_trigger_failure; end if; end; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-down TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; down; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-entqry TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; enter_query; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-exeqry TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; execute_query; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtrec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; next_record; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtset TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; next_set; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-prvrec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; previous_record; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-scrdown TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; scroll_down; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-scrup TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; scroll_up; query_details; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-up TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< clear_details; up; query_details; >>> ENDDEFINE TRIGGER DEFINE FIELD NAME = ORDID DATATYPE = NUMBER LENGTH = 4 DISPLAY_LENGTH = 4 QUERY_LENGTH = 6 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 6 COLUMN = 19 HELP = Enter the Order Number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = :sequence.ordid.nextval ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = ORDERDATE DATATYPE = DATE LENGTH = 9 DISPLAY_LENGTH = 9 QUERY_LENGTH = 9 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 6 COLUMN = 65 HELP = Enter the date the order was placed. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = mm/dd/yy OUTPUT_MASK = mm/dd/yy EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = $$date$$ ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = on-validate-field TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< checkdate; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-prvfld TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< next_block; last_record; previous_field; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = COMMPLAN DATATYPE = CHAR LENGTH = 1 DISPLAY_LENGTH = 1 QUERY_LENGTH = 1 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 7 COLUMN = 19 HELP = Enter the type of commission plan (A, B or C). LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = A ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = ON UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = SHIPDATE DATATYPE = DATE LENGTH = 9 DISPLAY_LENGTH = 9 QUERY_LENGTH = 9 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 7 COLUMN = 65 HELP = Enter the date the order was shipped. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = mm/dd/yy OUTPUT_MASK = mm/dd/yy EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = on-validate-field TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< checkdate; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = CUSTID DATATYPE = NUMBER LENGTH = 6 DISPLAY_LENGTH = 6 QUERY_LENGTH = 8 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 9 COLUMN = 21 HELP = Press [List] for values or [Edit] to enter a new customer. LOW_VALUE = HIGH_VALUE = LOV_TEXT = <<< select custid, name into :orders.custid, :orders.custname from customer order by name >>> LOV_TITLE = Customers LOV_X = 16 LOV_Y = 8 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = ON UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = on-validate-field TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< if :global.insert = 'N' then select name into :orders.custname from customer where :orders.custid = custid; end if; exception when no_data_found then message('Invalid ID. Please re-enter.'); pause; :orders.custid := null; raise form_trigger_failure; when too_many_rows then message('Error in data. Too many rows found.'); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-edit TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = New Customer TEXT = <<< :global.insert := 'Y'; go_block('customers'); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-NXTFLD TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< if :orders.custid is null then message('Customer ID must be entered.'); pause; raise form_trigger_failure; else next_block; if (form_success) then go_record(1); go_field('items.itemid'); end if; end if; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = CUSTNAME DATATYPE = CHAR LENGTH = 50 DISPLAY_LENGTH = 24 QUERY_LENGTH = 50 BASE_TABLE = OFF PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 9 COLUMN = 50 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = OFF FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = TOTAL DATATYPE = NUMBER LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 21 COLUMN = 69 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = $99999.99 OUTPUT_MASK = $99999.99 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD ENDDEFINE BLOCK DEFINE BLOCK NAME = items DESCRIPTION = items TABLE = item UNIQUE_KEY = OFF UPDATE_KEY = OFF IN_MENU = ON ROWS_DISPLAYED = 5 ROWS_BUFFERED = 5 BASE_LINE = 15 LINES_PER_ROW = 1 ARRAY_SIZE = 0 COLUMN_SECURITY = OFF ORDERING = <<< order by itemid >>> DEFINE TRIGGER NAME = key-clrblk TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-clrfrm TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-clrrec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< if (:system.record_status = 'INSERT') then if (:items.itemtot is not null) then :orders.total:= :orders.total - :items.itemtot; end if; end if; clear_record; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-cquery TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-crerec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< create_record; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-delrec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< if (:items.itemtot is not null) then :orders.total := :orders.total - :items.itemtot; end if; delete_record; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-duprec TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< duplicate_record; if (:items.itemtot is not NULL) then :orders.total := :orders.total + :items.itemtot; end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-entqry TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-exeqry TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< null; >>> ENDDEFINE TRIGGER DEFINE FIELD NAME = ORDID DATATYPE = NUMBER LENGTH = 6 DISPLAY_LENGTH = 1 QUERY_LENGTH = 6 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = OFF PAGE = 1 LINE = 1 COLUMN = 2 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ORDERS.ORDID ECHO = OFF INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = OFF FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = ABOVE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = ITEMID DATATYPE = NUMBER LENGTH = 6 DISPLAY_LENGTH = 4 QUERY_LENGTH = 6 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 3 HELP = Enter the item number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = OFF UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = ABOVE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< if :items.itemid is null then message('Item No. must be entered'); raise form_trigger_failure; else next_field; if (:items.prodid is null) then list_values; end if; end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-prvfld TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< if (:system.cursor_record != '1') then previous_record; end if; previous_field; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = PRODID DATATYPE = NUMBER LENGTH = 8 DISPLAY_LENGTH = 6 QUERY_LENGTH = 8 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 8 HELP = Enter the product identification number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = <<< select prodid,descrip into :items.prodid,:items.description from product order by prodid >>> LOV_TITLE = Available Products LOV_X = 17 LOV_Y = 9 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = ABOVE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< select descrip, stdprice into :items.description, :items.standardprice from product, price where product.prodid = :items.prodid and price.prodid = :items.prodid and startdate = (select max(startdate) from price where price.prodid = :items.prodid); exception when no_data_found then message('No such product. Press [LIST] for valid Product IDs.'); raise form_trigger_failure; when too_many_rows then message('Error in data. Too many rows found.'); >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = DESCRIPTION DATATYPE = CHAR LENGTH = 25 DISPLAY_LENGTH = 25 QUERY_LENGTH = 25 BASE_TABLE = OFF PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 15 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = OFF FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = ACTUALPRICE DATATYPE = NUMBER LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 41 HELP = Enter the actual price of the product. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = $99999.99 OUTPUT_MASK = $99999.99 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = ABOVE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = on-validate-field TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< item_total; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-prvfld TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< previous_field; if (:items.prodid is null) then list_values; end if; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = STANDARDPRICE DATATYPE = NUMBER LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 BASE_TABLE = OFF PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 52 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = $99999.99 OUTPUT_MASK = $99999.99 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = OFF FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = QTY DATATYPE = NUMBER LENGTH = 10 DISPLAY_LENGTH = 5 QUERY_LENGTH = 10 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 63 HELP = Enter the quantity desired. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = ABOVE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = on-validate-field TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< item_total; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-nxtfld TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< if ((:system.last_record = 'FALSE') or (:system.record_status = 'INSERT'))then next_record; else previous_block; end if; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = ITEMTOT DATATYPE = NUMBER LENGTH = 10 DISPLAY_LENGTH = 10 QUERY_LENGTH = 10 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 69 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = $99999.99 OUTPUT_MASK = $99999.99 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = OFF DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = OFF FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = ABOVE PROMPT_REPEAT = OFF ENDDEFINE FIELD ENDDEFINE BLOCK DEFINE BLOCK NAME = customers DESCRIPTION = customers TABLE = customer UNIQUE_KEY = OFF UPDATE_KEY = OFF IN_MENU = ON ROWS_DISPLAYED = 1 ROWS_BUFFERED = 1 BASE_LINE = 1 LINES_PER_ROW = 0 ARRAY_SIZE = 0 COLUMN_SECURITY = OFF ORDERING = DEFINE TRIGGER NAME = key-commit TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = New Customer TEXT = <<< :orders.custid:= :customers.custid; :system.message_level := 5; commit_form; :system.message_level := 0; select name into :orders.custname from customer where custid = :orders.custid; go_block('orders'); go_field('orders.custid'); :global.insert := 'N'; >>> ENDDEFINE TRIGGER DEFINE FIELD NAME = CUSTID DATATYPE = NUMBER LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 2 LINE = 1 COLUMN = 52 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = :sequence.custid.nextval ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = NAME DATATYPE = CHAR LENGTH = 45 DISPLAY_LENGTH = 40 QUERY_LENGTH = 45 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 2 LINE = 2 COLUMN = 20 HELP = Enter the name of the customer (required). LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = ON UPPERCASE = ON PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = ADDRESS DATATYPE = CHAR LENGTH = 40 DISPLAY_LENGTH = 40 QUERY_LENGTH = 40 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 4 COLUMN = 20 HELP = Enter the street address of the customer. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = CITY DATATYPE = CHAR LENGTH = 30 DISPLAY_LENGTH = 26 QUERY_LENGTH = 30 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 5 COLUMN = 9 HELP = Enter the city where customer is located. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = STATE DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 5 COLUMN = 43 HELP = Enter state where customer is located. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = CA ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = ON PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = ZIP DATATYPE = CHAR LENGTH = 9 DISPLAY_LENGTH = 9 QUERY_LENGTH = 9 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 5 COLUMN = 51 HELP = Enter customer's zip code. (Either 5 or 9 digit code) LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = AREA DATATYPE = CHAR LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 6 COLUMN = 15 HELP = Enter the area code of the customer's phone number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = "("999")" OUTPUT_MASK = "("999")" EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = PHONE DATATYPE = CHAR LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 6 COLUMN = 29 HELP = Enter the phone number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = 999"-"9999 OUTPUT_MASK = 999"-"9999 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = REPID DATATYPE = NUMBER LENGTH = 6 DISPLAY_LENGTH = 6 QUERY_LENGTH = 6 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 2 LINE = 8 COLUMN = 26 HELP = Enter customer's sales rep (required). LOW_VALUE = HIGH_VALUE = LOV_TEXT = <<< select empno, ename into :customers.repid from emp where job = 'SALESMAN' order by empno >>> LOV_TITLE = Sales Representatives LOV_X = 43 LOV_Y = 9 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = ON UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = on-validate-field TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< declare is_emp number; begin select count(*) into is_emp from emp where (empno = :customers.repid) and (job = 'SALESMAN'); if is_emp = 0 then message('No such salesman. Use list of values.'); raise form_trigger_failure; end if; end; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = CREDITLIMIT DATATYPE = NUMBER LENGTH = 11 DISPLAY_LENGTH = 11 QUERY_LENGTH = 11 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 8 COLUMN = 49 HELP = Enter customer's credit limit. LOW_VALUE = 0 HIGH_VALUE = 999999.99 LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = $999999.99 OUTPUT_MASK = $999999.99 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = 10000 ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = COMMENTS DATATYPE = LONG LENGTH = 999 DISPLAY_LENGTH = 46 QUERY_LENGTH = 0 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 10 COLUMN = 14 HELP = Press [Edit] to edit comments with the Pop-Up Field Editor. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = OFF FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = ON UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD ENDDEFINE BLOCK DEFINE SCREEN DEFINE PAGE PAGE = 1 POPUP = OFF BORDER = OFF HORIZONTAL_SCROLL_BAR = OFF VERTICAL_SCROLL_BAR = OFF DISSOLVE = OFF TITLE = PAGE_XS = 0 PAGE_YS = 0 PAGE_PX0 = 0 PAGE_PY0 = 0 PAGE_PXS = 0 PAGE_PYS = 0 PAGE_SX0 = 0 PAGE_SY0 = 0 MODE = TEXT LINE = 4 BOILER = <<< Summit Sports >>> LINE = 6 BOILER = <<< Order No. Date Ordered Comm Plan Date Shipped >>> LINE = 9 BOILER = <<< Customer ID Customer Name >>> LINE = 12 BOILER = <<< Ordered Items >>> LINE = 14 BOILER = <<< Item Code Product Description Act. Price Std. Price Qty Item Total >>> LINE = 21 BOILER = <<< Order Total >>> MODE = BOX LINE = 3 BOILER = <<< p----------------------------------------------------------------------q | | (----------------------------------------------------------------------) |