Liren Large Software Subsidy 5

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

/ Liren Large Software Subsidy 5 / 05.iso / a / a522 / 13.ddi / ORDERS.INP < prev next >

Wrap

Text File | 1990-05-15 | 42.9 KB | 1,862 lines

/* Copyright (c) 1988 by the Oracle Corporation */ SQL*FORMS_VERSION = 03.00.11.00.00 DEFINE FORM /* This form is used to enter, update, and query orders from customers. */ NAME = ORDERS TITLE = Orders Form DEFAULT_MENU_APPLICATION = default ROOT_MENU = GROUP_NAME = MOUSE_NAVIGATION_LIMIT = VALIDATION_UNIT = FIELD DEFINE PROCEDURE NAME = CALCULATE_ITEM_TOTAL DEFINITION = <<< PROCEDURE CALCULATE_ITEM_TOTAL IS BEGIN :ITEMTOT := :QTY * :ACTUALPRICE; END; >>> ENDDEFINE PROCEDURE DEFINE TRIGGER NAME = KEY-STARTUP TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< :SYSTEM.MESSAGE_LEVEL := 5; ExeCUTE_QUERY; EXECUTE_TRIGGER('CLEAR_DETAILS'); EXECUTE_QUERY; EXECUTE_TRIGGER('QUERY_DETAILS'); >>> ENDDEFINE TRIGGER DEFINE BLOCK NAME = ORDERS DESCRIPTION = ORDERS TABLE = ORD UNIQUE_KEY = OFF UPDATE_KEY = OFF IN_MENU = ON ROWS_DISPLAYED = 1 ROWS_BUFFERED = BASE_LINE = 1 LINES_PER_ROW = 0 ARRAY_SIZE = 0 COLUMN_SECURITY = OFF ORDERING = DEFINE TRIGGER NAME = KEY-CLRBLK TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; CLRBLK; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-CLRREC TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; CLRREC; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-CREREC TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; CREREC; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-DELREC TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< select * from ITEM where ORDID = :ORDERS.ORDID >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = You cannot delete master record when matching detail records exist ABORT = ON REVERSE = ON NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; DELREC; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-DOWN TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; DOWN; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-ENTQRY TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; ENTQRY; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-EXEQRY TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; EXEQRY; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-NXTREC TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; NXTREC; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-PRVREC TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; PRVREC; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-SCRDOWN TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; SCRDOWN; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-SCRUP TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; SCRUP; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = KEY-UP TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL EXETRG clear_details; UP; EXETRG query_details; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = clear_details TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL CASE ORDERS.ORDID IS WHEN '' THEN NULL; WHEN OTHERS THEN GOBLK ITEMS; CLRBLK; GOBLK ORDERS; END CASE; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE TRIGGER NAME = query_details TRIGGER_TYPE = V2 SHOW_KEY = ON DESCRIPTION = DEFINE STEP LABEL = TEXT = <<< #EXEMACRO NOFAIL CASE ORDERS.ORDID IS WHEN '' THEN NULL; WHEN OTHERS THEN GOBLK ITEMS; EXEQRY; GOBLK ORDERS; END CASE; >>> SUCCESS_STEP = FAILURE_STEP = FAIL_MESSAGE = ABORT = ON REVERSE = OFF NEW_CURSOR = OFF IGNORE = OFF ENDDEFINE STEP ENDDEFINE TRIGGER DEFINE FIELD NAME = ORDID DATATYPE = NUMBER LENGTH = 6 DISPLAY_LENGTH = 6 QUERY_LENGTH = 6 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 4 COLUMN = 20 HELP = Enter value for : ORDID 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 = ON 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 = 4 COLUMN = 60 HELP = To change ORDERDATE, type a new date. 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 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 = 6 COLUMN = 20 HELP = Enter value for : COMMPLAN 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 = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD 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 = 1 LINE = 6 COLUMN = 35 HELP = Enter value for : CUSTID LOW_VALUE = HIGH_VALUE = LOV_TEXT = <<< SELECT NAME,CUSTID INTO :ORDERS.CUSTNAME,:ORDERS.CUSTID FROM CUSTOMER ORDER BY NAME >>> LOV_TITLE = CUSTOMER LOV_X = 20 LOV_Y = 7 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 = BESIDE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = POST-CHANGE TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< BEGIN SELECT NAME INTO :ORDERS.CUSTNAME FROM CUSTOMER WHERE CUSTID = :ORDERS.CUSTID; EXCEPTION WHEN NO_DATA_FOUND THEN MESSAGE ('INVALID CUSTOMER. USE [LIST].'); RAISE FORM_TRIGGER_FAILURE; WHEN TOO_MANY_ROWS THEN MESSAGE ('INVALID CUSTOMER. USE [LIST].'); RAISE FORM_TRIGGER_FAILURE; END; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = CUSTNAME DATATYPE = CHAR LENGTH = 14 DISPLAY_LENGTH = 14 QUERY_LENGTH = 14 BASE_TABLE = OFF PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 6 COLUMN = 60 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 = SHIPDATE DATATYPE = DATE LENGTH = 9 DISPLAY_LENGTH = 9 QUERY_LENGTH = 9 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 8 COLUMN = 20 HELP = Enter value for : SHIPDATE 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 = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = TOTAL DATATYPE = NUMBER LENGTH = 10 DISPLAY_LENGTH = 8 QUERY_LENGTH = 10 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 8 COLUMN = 60 HELP = Press [List] to see valid CUSTID numbers. 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 = 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 = 3 ROWS_BUFFERED = 20 BASE_LINE = 14 LINES_PER_ROW = 1 ARRAY_SIZE = 10 COLUMN_SECURITY = OFF ORDERING = <<< ORDER BY ITEMID >>> 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 = 80 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 = 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 = 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 = 4 HELP = Enter value for : ITEMID 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 ENDDEFINE FIELD DEFINE FIELD NAME = PRODID DATATYPE = INT LENGTH = 6 DISPLAY_LENGTH = 6 QUERY_LENGTH = 8 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 10 HELP = Enter value for : PRODID 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 = POST_CHANGE TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< BEGIN SELECT DESCRIP,STDPRICE INTO :ITEMS.PRODUCTDESCRIPTION,:ITEMS.PRODID 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 ('INVALID PRODUCT ID. PLEASE RE-ENTER.'); RAISE FORM_TRIGGER_FAILURE; END; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = PRODUCTDESCRIPTION DATATYPE = CHAR LENGTH = 23 DISPLAY_LENGTH = 23 QUERY_LENGTH = 23 BASE_TABLE = OFF PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 18 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 = STDPRICE DATATYPE = NUMBER LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 BASE_TABLE = OFF PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 43 HELP = LOW_VALUE = HIGH_VALUE = 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 = 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 = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 10 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 53 HELP = Enter value for : ACTUALPRICE LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = $999.99 OUTPUT_MASK = $999.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 = <<< DECLARE MINIMUM NUMBER; TEMPDATE DATE; BEGIN TEMPDATE:=SYSDATE; SELECT MINPRICE INTO MINIMUM FROM PRICE WHERE PRICE.PRODID = :PRODID AND TEMPDATE BETWEEN STARTDATE AND NVL(ENDDATE, TEMPDATE); IF :ACTUALPRICE < MINIMUM THEN MESSAGE('ACTUAL PRICE MUST BE GREATER THAN'||TO_CHAR(MINIMUM)||'.'); RAISE FORM_TRIGGER_FAILURE; ELSE CALCULATE_ITEM_TOTAL; END IF; EXCEPTION WHEN NO_DATA_FOUND THEN CalCULATE_ITEM_TOTAL; END; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = QTY DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 10 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 63 HELP = Enter value for : QTY 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 = <<< CALCULATE_ITEM_TOTAL; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = ITEMTOT DATATYPE = NUMBER LENGTH = 11 DISPLAY_LENGTH = 8 QUERY_LENGTH = 11 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 70 HELP = Enter value for : ITEMTOT LOW_VALUE = HIGH_VALUE = 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 = 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 ENDDEFINE BLOCK DEFINE BLOCK NAME = CUSTOMERS DESCRIPTION = CUSTOMERS TABLE = CUSTOMER UNIQUE_KEY = OFF UPDATE_KEY = OFF IN_MENU = ON ROWS_DISPLAYED = 1 ROWS_BUFFERED = BASE_LINE = 1 LINES_PER_ROW = 0 ARRAY_SIZE = 0 COLUMN_SECURITY = OFF ORDERING = 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 = 4 COLUMN = 20 HELP = Enter value for : CUSTID 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 = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = NAME DATATYPE = CHAR LENGTH = 45 DISPLAY_LENGTH = 45 QUERY_LENGTH = 45 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 6 COLUMN = 20 HELP = Enter value for : NAME 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 = 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 = 8 COLUMN = 20 HELP = Enter value for : ADDRESS 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 = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = CITY DATATYPE = CHAR LENGTH = 30 DISPLAY_LENGTH = 30 QUERY_LENGTH = 30 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 10 COLUMN = 20 HELP = Enter value for : CITY 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 = 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 = 12 COLUMN = 20 HELP = To change value of STATE, type new entry over CA. 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 = CA ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = ON AUTOSKIP = ON 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 = 12 COLUMN = 60 HELP = Enter value for : ZIP 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 = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = AREA DATATYPE = NUMBER LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 14 COLUMN = 20 HELP = Enter value for : AREA 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 = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = PHONE DATATYPE = CHAR LENGTH = 9 DISPLAY_LENGTH = 9 QUERY_LENGTH = 9 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 14 COLUMN = 60 HELP = Enter value for : PHONE 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 = 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 = 16 COLUMN = 20 HELP = Enter value for : REPID 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 = BESIDE PROMPT_REPEAT = OFF 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 = 16 COLUMN = 60 HELP = Enter value for : CREDITLIMIT LOW_VALUE = 1000 HIGH_VALUE = 20000 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 = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = COMMENTS DATATYPE = LONG LENGTH = 240 DISPLAY_LENGTH = 40 QUERY_LENGTH = 240 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 2 LINE = 18 COLUMN = 20 HELP = Enter value for : COMMENTS 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 = COMMENTS 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 BOILER = <<< SUMMIT SPORTING GOODS ======== ORDERS ======== >>> LINE = 4 BOILER = <<< ORDID ORDERDATE >>> LINE = 6 BOILER = <<< COMMPLAN CUSTID CUSTNAME >>> LINE = 8 BOILER = <<< SHIPDATE TOTAL >>> LINE = 10 BOILER = <<< ======== ITEMS ======== >>> LINE = 12 BOILER = <<< ITEM PROD PRODUCT STDPRICE ACTUAL QTY ITEMTOT ID ID DESCRIPTION PRICE >>> MODE = BOX LINE = 3 BOILER = <<< p----------------------------------------------------------------q | | | | | | | | | | b----------------------------------------------------------------d >>> ENDDEFINE PAGE DEFINE PAGE PAGE = 2 POPUP = ON BORDER = ON HORIZONTAL_SCROLL_BAR = OFF VERTICAL_SCROLL_BAR = ON DISSOLVE = ON TITLE = PAGE_XS = 80 PAGE_YS = 18 PAGE_PX0 = 6 PAGE_PY0 = 3 PAGE_PXS = 70 PAGE_PYS = 14 PAGE_SX0 = 5 PAGE_SY0 = 2 MODE = TEXT LINE = 2 BOILER = <<< ======== CUSTOMERS ======== >>> LINE = 4 BOILER = <<< CUSTID >>> LINE = 6 BOILER = <<< NAME >>> LINE = 8 BOILER = <<< ADDRESS >>> LINE = 10 BOILER = <<< CITY >>> LINE = 12 BOILER = <<< STATE ZIP >>> LINE = 14 BOILER = <<< AREA PHONE >>> LINE = 16 BOILER = <<< REPID CREDITLIMIT >>> ENDDEFINE PAGE ENDDEFINE SCREEN ENDDEFINE FORM