Jason Soltys
714 lines
26 KiB
Plaintext
714 lines
26 KiB
Plaintext
* MIKE LEWIS -BUILD ADD, CHANGE, DELETE ARRAY- CGW0200 4-08-93
|
|
PROCEDURE BUILDACD(MALIAS, SCR_NUM)
|
|
|
|
PRIVATE ACDARR := {}
|
|
PRIVATE SCRNUM
|
|
PRIVATE FILELIST := {}
|
|
PRIVATE PREPROC := {}
|
|
PRIVATE POSTPROC := ''
|
|
PRIVATE OFFSET := 0
|
|
PRIVATE EDITPROC := ''
|
|
PRIVATE COMPLETEKEY := NIL
|
|
PRIVATE CONVERT_KEY := ''
|
|
PRIVATE RELATED_DBF := ''
|
|
PRIVATE DOPROC
|
|
PRIVATE XTRA_HEADING
|
|
PRIVATE XTRA_CARGO
|
|
PRIVATE ESC_PROC
|
|
|
|
IF SELECT('IMPCUST') = 0
|
|
IC_PARMS = DBOPEN('IMPCUST')
|
|
ENDIF
|
|
//**** ACDARR LAYOUT ****\\
|
|
// 1 = FILE ALIAS
|
|
// 2 = SCREEN NUMBER
|
|
// 3 = ARRAY OF FILES THAT NEED TO BE OPEN
|
|
// 4 = PROC TO EXECUTE BEFORE THE SAYS AND GETS
|
|
// ie TO PAINT ADDITIONAL INFO ON SCREEN, etc.....
|
|
// 5 = PROC TO EXECUTE AFTER THE GETS
|
|
// ie TO UPDATE ANY NON RELATED VARIABLES ......
|
|
// 6 = HORIZONTAL OFFSET FOR SCREEN GETS
|
|
// 7 = PROC TO EDIT THE GET FIELDS
|
|
// 8 = ARRAY OF PARTIAL KEYS WHICH MAKE RECORD UNIQUE.
|
|
// IF ARRAY IS EMPTY, THEN ONLY ONE COMPONENT OF THE KEY
|
|
// 9 = KEY CONVERSION PROC - IE PAD WITH LEADING ZEROS, ETC.
|
|
// 10 = LIST OF DBF'S THAT SHOULD BE CONSIDERED WHEN DELETING INFO
|
|
// 1 ARRAY FOR EACH DBF. ELEMENT 1 = DBF ALIAS NAME, ELEM 2 = INDEX SEEK ORDER
|
|
// 11 = OPTIONAL TOP HEADING FOR ACD_BROWSE
|
|
// 12 = OPTIONAL ACD CARGO FOR HOT KEYS USED IN ACD_BROWSE
|
|
|
|
DO CASE
|
|
|
|
// DATA DICTIONARY
|
|
CASE MALIAS = 'DATADICT'
|
|
SCRNUM = '0950'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CONTROL FILE
|
|
CASE MALIAS = 'CONTROL'
|
|
SCRNUM = '9990'
|
|
PREPROC = { { 'CURVER' , 'G'},{'OPN_MFG()', 'I' } }
|
|
******PREPROC = { { 'CURVER' , 'G'},{'SVPRNTDTS()', 'I'} } // GETKEY PREPROC TO STUFF CURVER
|
|
***** POSTPROC = {'CLOSE_MFG()'}
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// GL ALLOC FILE
|
|
CASE MALIAS = 'GL_ALLOC'
|
|
SCRNUM = '8880'
|
|
AADD(PREPROC,{'ADDL_KEY()', 'K'} ) // KEY PREPROC
|
|
******AADD(PREPROC,{'TOT_GLALLOC(MORDER_NUM)', 'P'} ) //PAINT PREPROC
|
|
******PREPROC = { { 'CURVER' , 'G'} }
|
|
******PREPROC = { { 'CURVER' , 'G'},{'SVPRNTDTS()', 'I'} } // GETKEY PREPROC TO STUFF CURVER
|
|
******POSTPROC = {'RESET_PRNTDTS()'}
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// PRODUCTS
|
|
CASE MALIAS = 'PRODUCT'
|
|
SCRNUM = '1110'
|
|
PREPROC = { {'SET_NOTES("PRODUCT->NOTES", "Product")','P'} } // SETS HOT KEY FOR NOTE UPDATE
|
|
AADD(PREPROC, {'NEW_ITEM("MODEL")', 'M'})
|
|
AADD(PREPROC, {'PAINT_KEYS("PROD_CODE",,41)','P'} ) // PAINT KEY FIELD
|
|
AADD(PREPROC, {'CAT_PAINT()', 'P'})
|
|
POSTPROC = {'RESET_NOTES()', 'CONT_PROC("Are the MODEL ATTRIBUTES",';
|
|
+ '"DIFFERENT from the STANDARD",';
|
|
+ '"CATEGORY ATTRIBUTES?")'}
|
|
AADD(POSTPROC, {'CHK_PRODDEL()','D'} ) //** P3N - 9/22/00
|
|
RELATED_DBF := { {'PROD_ATTS',1}, {'PROD_OPTS',1} }
|
|
AADD(RELATED_DBF, {'STD_SIZES', 1} )
|
|
AADD(RELATED_DBF, {'STD_SASH', 1} )
|
|
AADD(RELATED_DBF, {'CUT_SPEC', 1} )
|
|
//** AADD(RELATED_DBF, {'MATHPACK', 1} )
|
|
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
|
|
// PRODUCT CATEGORY
|
|
CASE MALIAS = 'CATEGORY'
|
|
SCRNUM = '1120'
|
|
AADD(PREPROC, {'NEW_ITEM("CATEGORY")', 'M'})
|
|
AADD(PREPROC, {'PAINT_KEYS("CAT_CODE",,41)','P'} ) // PAINT KEY FIELD
|
|
AADD(PREPROC, {'CATPAINT2()', 'P'}) //** P3N - 02/13/04
|
|
RELATED_DBF := { {'CAT_ATTS',1}, {'CAT_OPTS',1}, {'MATHPACK',1}}
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// RULES
|
|
CASE MALIAS = 'RULES'
|
|
SCRNUM = '1150'
|
|
AADD(PREPROC, {'PAINT_KEYS("RULE_CODE",,41)','P'} ) // PAINT KEY FIELD
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// MANUFACTURING LOACTION
|
|
CASE MALIAS = 'MFG_LOC'
|
|
SCRNUM := '1160'
|
|
AADD(PREPROC, {'PAINT_KEYS("LOC_CODE",,41)','P'} ) // PAINT KEY FIELD
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// SHIPPING METHODS
|
|
CASE MALIAS = 'SHIPMETH'
|
|
SCRNUM := '1180'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// SHIPPING TERMS CODES
|
|
CASE MALIAS = 'TERMS'
|
|
SCRNUM := '1190'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// SALES MEN MASTER LIST
|
|
CASE MALIAS = 'SALESMEN'
|
|
SCRNUM := '1100'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CUTTING SPEC ATTRIBUTES
|
|
CASE MALIAS = 'ATTRIB_CUT'
|
|
SCRNUM := '1130'
|
|
RELATED_DBF := { {'CUT_SPEC',3},{'MATHPACK',2} }
|
|
AADD(PREPROC, {'PAINT_KEYS("ATT_CODE",,41)','P'} ) // PAINT KEY FIELD
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// RULE PACKS
|
|
CASE MALIAS = 'RULEPACK'
|
|
FILELIST := {'ATTRIBUTES', 'ATT_OPTS', 'CAT_OPTS', 'PROD_OPTS'}
|
|
SCRNUM = '11150'
|
|
|
|
RELATED_DBF := { {'RULE_PACK',1} }
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
|
|
// ATTRIBUTES
|
|
CASE MALIAS = 'ATTRIBUTES'
|
|
SCRNUM = '1130'
|
|
|
|
AADD(PREPROC, {'PAINT_KEYS("ATT_CODE",,41)','P'} ) // PAINT KEY FIELD
|
|
RELATED_DBF := { {'ATT_OPTS',1} }
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ATTRIBUTES OPTIONS
|
|
CASE MALIAS = 'ATT_OPTS'
|
|
SCRNUM = '11350'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CATEGORY ATTRIBUTES
|
|
CASE MALIAS = 'CAT_ATTS'
|
|
SCRNUM = '112B0'
|
|
FILELIST = {"ATTRIBUTES"} // OPEN ATTRIBUTE FILE
|
|
// INITIAL PREPROC
|
|
PREPROC = { {"MAKE_MATH('5')", 'I'},{ 'COPYSTD()', 'M'} } // MODEL AFTER / KEY PROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CATEGORY SIZE TABLES
|
|
CASE MALIAS = 'STD_SIZES'
|
|
SCRNUM = '1140'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CATEGORY PRICING EXTRAS
|
|
CASE MALIAS = 'PRI_EXTRAS'
|
|
SCRNUM = '1250'
|
|
FILELIST = {"CUST_MAST"}
|
|
RELATED_DBF := { {'CUST_ATTS',1}, {'CUST_OPTS',1} }
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CATEGORY OPTIONS
|
|
CASE MALIAS = 'CAT_OPTS'
|
|
SCRNUM = '11210'
|
|
FILELIST = {"ATT_OPTS"}
|
|
AADD(FILELIST, 'RULES')
|
|
AADD(FILELIST, 'RULEPACK')
|
|
PREPROC = { {'CGW11PRE("CATEGORY", 2)', 'K'} , ; // KEY PREPROC
|
|
{'COPY_OPTS("ATT_OPTS", "CAT_OPTS")', 'M'} } // MODEL AFTER
|
|
|
|
XTRA_HEADING := SETUP_XHEAD('CAT_OPTS')
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CUSTOMER MASTER
|
|
CASE MALIAS = 'CUST_MAST'
|
|
IF SCR_NUM = NIL .OR. SCR_NUM = '1170'
|
|
SCRNUM := '1170'
|
|
FILELIST := {'TAX_SCHED', 'TAX_DETAIL'}
|
|
RELATED_DBF := { {'CUST_PRICE',1}, {'CUST_BP',1} }
|
|
PREPROC := { {'ORD_PAINT(9,14,9,47, "LNOR")','P'} } // paint bill to/ship to
|
|
AADD(PREPROC, {'PAINT_KEYS("CUST_ID",,41)','P'} ) // PAINT KEY FIELD
|
|
POSTPROC = {'SPEC_PRICING()'}
|
|
XTRA_CARGO := CUST_HOTKEYS()
|
|
//** COMMENTED OUT - WHY HERE??????? //** P3N - 5/26/98
|
|
//** ELSE //** P3N - 5/26/98
|
|
//** SCRNUM := '3245' //** P3N - 5/26/98
|
|
ENDIF
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CUSTOMER PRICING DISCOUNT TABLE
|
|
CASE MALIAS = 'CUST_PRICE'
|
|
SCRNUM := '11710'
|
|
AADD(PREPROC,{'{CUST_MAST->CUST_ID}', 'K'} ) // KEY PREPROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
CASE MALIAS = 'CUST_BP'
|
|
SCRNUM := '11720'
|
|
AADD(PREPROC,{'{CUST_MAST->CUST_ID}', 'K'} ) // KEY PREPROC
|
|
RELATED_DBF := { {'CUST_OPTS',1}, {'CUST_ATTS',1} } //** P3N - 3/12/99
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// TAX TABLE SCHEDULE
|
|
CASE MALIAS = 'TAX_SCHED'
|
|
SCRNUM := 'TX10'
|
|
FILELIST := {'TAX_DETAIL'}
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// TAX TABLE detail gl acct numbers
|
|
CASE MALIAS = 'TAX_DETAIL'
|
|
IF SCR_NUM = NIL
|
|
SCRNUM := 'TX20'
|
|
ELSE
|
|
SCRNUM := SCR_NUM
|
|
ENDIF
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// PRODUCT ATTRIBUTES
|
|
CASE MALIAS = 'PROD_ATTS'
|
|
SCRNUM = '11110'
|
|
FILELIST = {"CAT_ATTS",'CATEGORY'} // OPEN ATTRIBUTE FILE
|
|
// INITIAL PREPROC
|
|
PREPROC = { {"MAKE_MATH('5')", 'I'}, ;
|
|
{'MODELAFTER("CAT_ATTS", "USERFILE2", "PROD_ATTS", "PRODUCT", 1 )', 'M'} } // MODEL AFTER
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// PRODUCT ATTRIBUTE OPTIONS
|
|
CASE MALIAS = 'PROD_OPTS'
|
|
SCRNUM = '11120'
|
|
FILELIST = {"ATT_OPTS","CAT_OPTS",'CATEGORY'} // OPEN category level files for model after
|
|
AADD(FILELIST, 'RULES')
|
|
AADD(FILELIST, 'RULEPACK')
|
|
PREPROC = { {'CGW11PRE("PRODUCT", 2)', 'K'} ,; // KEY PREPROC
|
|
{'COPY_OPTS("CAT_OPTS", "PROD_OPTS")', 'M'} , ; // MODEL AFTER
|
|
{'COPY_OPTS("ATT_OPTS", "PROD_OPTS")', 'M'} } // MODEL AFTER
|
|
|
|
XTRA_HEADING := SETUP_XHEAD('PROD_OPTS')
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// PASSWORDS
|
|
CASE MALIAS = 'PASSWORD'
|
|
SCRNUM = '6100'
|
|
PREPROC = { {'XXXPASSP()','P'} } // PAINTS INSTRUCTION BOX ON SCREEN
|
|
POSTPROC = 'XXXPASSS()' // UPDATE PASSWORD AND AUTHORIZATION VARIABLES
|
|
// IF THE CURRENT USER CHANGES HIS OPTIONS
|
|
OFFSET = -5
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ORDER MASTER
|
|
CASE MALIAS = 'ORD_MAST'
|
|
CONVERT_KEY = 'KEY_CONV(C_MKEY)'
|
|
******IF SCR_NUM = NIL .OR. SCR_NUM = '2110' .OR. SCR_NUM = '2310'
|
|
IF SCR_NUM = NIL .OR. RIGHT( SCR_NUM, 1 )$'0'
|
|
IF SCR_NUM = NIL
|
|
// called from menu - nothing open
|
|
SCR_NUM = '2110'
|
|
PREPROC = { {'GET_ORD_NUM()','G'} } // GET ORDER NUMBER
|
|
ELSE
|
|
// screen num IS AVAILABLE - NOT SCREEN 2115 (SUMMARY)
|
|
IF SCR_NUM = '2130'
|
|
// ARCHIVE PROCESS
|
|
*********** PREPROC = { {'GET_ORD_NUM(,"MANUAL")','G'} } // GET ORDER NUMBER
|
|
ELSE
|
|
IF SCR_NUM = '2120'
|
|
// RECURSIVE ORDER PROCESSING FROM PRINT SCREEN
|
|
PREPROC = { { 'ORD_MAST->ORDER_NUM','G'} } // CHANGE ORDER
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
AADD(PREPROC, {'GET_THE_CUST( , "RESET")','I'}) // RESET STATIC VARIABLES
|
|
AADD(PREPROC, {'ZAP_FILE689()','I'}) // ZAP THE USERFILES
|
|
AADD(PREPROC, {'PAINT_KEYS("ORDER_NUM",,41)','P'} ) // PAINT KEY FIELD
|
|
AADD(PREPROC, {'ORD_PAINT(10,12,10,49, "LNOR" )','P'} ) // paint bill to/ship to
|
|
AADD(PREPROC, {'NOTES_MSG("O")','P'}) //Are notes present on order????
|
|
POSTPROC = 'ORD_USER()'
|
|
ESC_PROC := 'RESET_CNTL()'
|
|
ELSEIF SCR_NUM = '2115'
|
|
PREPROC := { {'MISCP_PAINT()','P'} } // PAINT PREPROC
|
|
ENDIF
|
|
|
|
SCRNUM := SCR_NUM
|
|
|
|
RELATED_DBF := { {'ORD_LINES',1}, {'ORDER_OPTS',1},;
|
|
{'ORD_MISC',1}, {'ORD_SHIP',1} ,;
|
|
{'ADDL_LINES',1}, {'ADDL_OPTS',1},;
|
|
{'ALTSHIPADR',1} }
|
|
|
|
XTRA_CARGO := ORD_HOTKEY("ORDERS", SCRNUM)
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
|
|
// ORDER LINES
|
|
CASE MALIAS = 'ORD_LINES'
|
|
// OPEN DBF'S
|
|
IF SCR_NUM = NIL
|
|
// extra files opened in cgwprpo0
|
|
SCRNUM = '2110'
|
|
PREPROC = { {'SET_TCALC()', 'I'}, ;
|
|
{'SEEKFUNC("ORD_LINES", "ORD_MAST->ORDER_NUM")', 'I'},; // INITIALIZE PROC
|
|
{'MODELAFTER("ORDER_OPTS", "USERFILE8", "ORDER_OPTS", "ORD_MAST",{"ORDER_OPTS->ORDER_NUM","ORD_MAST->ORDER_NUM"} )', 'I'},; // INITIALIZE PROC
|
|
{'MODELAFTER("ADDL_OPTS", "USERFILE9", "ADDL_OPTS", "ORD_MAST",{"ADDL_OPTS->ORDER_NUM", "ORD_MAST->ORDER_NUM"} )', 'I'}, ; // INITIALIZE PROC
|
|
{'MODELAFTER("ADDL_LINES", "USERFILE6", "ADDL_LINES", "ORD_MAST",{"ADDL_LINES->ORDER_NUM","ORD_MAST->ORDER_NUM"} )', 'I'}} // INITIALIZE PROC
|
|
|
|
POSTPROC = {'UPDATE_ORDS("USERFILE8")', ; // UPDATE ORDER OPTIONS FROM USERFILE8
|
|
'UPDATE_ORDS("USERFILE9")', ; // UPDATE ADDITIONAL OPTIONS FROM USERFILE9
|
|
'UPDATE_LINES("USERFILE6")', ; // UPDATE ADDITIONAL ORDER LINES FROM USERFILE6
|
|
'DO_ADDL_LINES()',; // UPDATE ADDITIONAL LINES
|
|
'UPDATE_ORDS("FILE8FILE9")', ; // UPDATE ADDITIONAL ORDER OPTIONS FROM USERFILE8
|
|
'MISC_PRICING( )' ,; // UPDATE TAX/ETC
|
|
'ORD_PRINT(NIL, "Print Order", "OE" )' } // PRINT ORDER (IN CGWPRINT)
|
|
ENDIF
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// TEMP ORDER LINES
|
|
CASE MALIAS = 'TORD_LINES'
|
|
IF SCR_NUM = NIL .OR. SCR_NUM = '322'
|
|
SCRNUM = '3220' //** ORDER CONTROL SCREEN
|
|
XTRA_CARGO := TOL_HOTKEYS('SHIP')
|
|
XTRA_HEADING := {SPACE(55)+'F1-Delete ALL Shipping', ;
|
|
SPACE(23)+'Select Product(s) to Ship'+ ;
|
|
SPACE(7) +'F2-NOTES (BO / Common)', ;
|
|
SPACE(55)+'F3-Alt. Shipping Info.', ' ' }
|
|
POSTPROC := { {'DEL_ORD_SHIP(ORD_MAST->ORDER_NUM)', 'A' } }
|
|
ELSEIF SCR_NUM = '321' //** ORDER ENTRY - BROWSE SHIPPING INFO
|
|
SCRNUM = '3210' //** BROWSE ONLY SCREEN
|
|
XTRA_HEADING := {} //** P3N - 1/27/00
|
|
XTRA_CARGO := TOL_HOTKEYS('OE') //** P3N - 1/27/00
|
|
ELSEIF SCR_NUM = '323'
|
|
SCRNUM = '3230' //** PRODUCTION CONTROL SCREEN
|
|
XTRA_CARGO := TOL_HOTKEYS('PROD')
|
|
XTRA_HEADING := {' ', SPACE(23)+'Select Product(s) Completed' , ;
|
|
' ', ' ' }
|
|
//*** POSTPROC := { {'DEL_ORD_SHIP(ORD_MAST->ORDER_NUM)', 'A' } }
|
|
ENDIF
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ORDER LINES PRODUCED - P3N - 5/13/98
|
|
CASE MALIAS = 'ORD_PROD'
|
|
IF SCR_NUM = NIL .OR. SCR_NUM = '22350'
|
|
PREPROC := {}
|
|
AADD( PREPROC, { 'GET_CTL_KEY()' , 'K' } )
|
|
AADD( PREPROC, { 'BLD_TMPOPT()' , 'I' } ) //** P3N - 1/15/02
|
|
XTRA_HEADING := {' Enter Date to INDICATE COMPLETED' , ;
|
|
' ZERO Qty to REMOVE Transaction', ' ' }
|
|
ELSEIF SCR_NUM = '22360'
|
|
AADD( PREPROC, { 'GET_CTL_KEY(1)' , 'K' } )
|
|
ELSEIF SCR_NUM = '223'
|
|
SCRNUM := SCR_NUM
|
|
ENDIF
|
|
SCRNUM = '22350'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
// ORDER LINES SHIPPED - P3N - 5/13/98
|
|
CASE MALIAS = 'ORD_SHIP'
|
|
PREPROC := {}
|
|
IF SCR_NUM = NIL .OR. SCR_NUM = '21350'
|
|
AADD( PREPROC, { 'GET_CTL_KEY()' , 'K' } )
|
|
AADD( PREPROC, { 'BLD_TMP_OST()' , 'I' } ) //** P3N - 1/15/99
|
|
//UPDATE ORDER SHIPPING TRANSACTIONS
|
|
POSTPROC := { {'DEL_ORD_SHIP(TORD_LINES->ORDER_NUM)', 'A' } }
|
|
XTRA_HEADING := {' Enter Date to INDICATE SHIPPED', ;
|
|
' ZERO Qty to REMOVE Transaction', ' ',{||DSPLBO_QTY()},' ' }
|
|
ELSEIF SCR_NUM = '21360'
|
|
AADD( PREPROC, { 'GET_CTL_KEY(1)' , 'K' } )
|
|
ENDIF
|
|
SCRNUM = '21350'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
// ADDITIONAL ORDER LINES
|
|
CASE MALIAS = 'ADDL_LINES'
|
|
// OPEN DBF'S
|
|
|
|
SCRNUM = '21120'
|
|
PREPROC = { {'ADDL_KEY()', 'K'} } // KEY PREPROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
//** P3N - 11/13/98 (FRIDAY THE 13TH-OMINUS)
|
|
// ALTERNATE SHIPPING ADDRESS INFO
|
|
CASE MALIAS = 'ALTSHIPADR'
|
|
SCRNUM := '3245'
|
|
AADD( PREPROC, { 'GET_ASA_KEY()' , 'K' } )
|
|
******PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ORDER OPTIONS
|
|
CASE MALIAS = 'ORDER_OPTS'
|
|
SCRNUM := '2120'
|
|
PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ADDITIONAL ORDER OPTIONS
|
|
CASE MALIAS = 'ADDL_OPTS'
|
|
SCRNUM := '2122'
|
|
PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
|
|
POSTPROC = { 'STUFF_ENTER_KEY()' } // FORCE ENTER ON BLANK GET
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
|
|
// QUOTE MASTER
|
|
CASE MALIAS = 'QUOTE_MAST'
|
|
CONVERT_KEY = 'KEY_CONV(C_MKEY)'
|
|
|
|
IF SCR_NUM = NIL .OR. RIGHT( SCR_NUM, 1 )$'0'
|
|
IF SCR_NUM = NIL
|
|
SCR_NUM := '2210'
|
|
PREPROC := { {'GET_ORD_NUM()','G'}, ; // GET ORDER NUMBER
|
|
{'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
|
|
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
|
|
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
|
|
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
|
|
POSTPROC := 'ORD_USER()'
|
|
ESC_PROC := 'RESET_CNTL()'
|
|
ELSEIF SCR_NUM = '2220'
|
|
PREPROC := { { 'QUOTE_MAST->ORDER_NUM','G'}, ; // CHANGE ORDER
|
|
{'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
|
|
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
|
|
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
|
|
AADD(PREPROC, {'PAINT_KEYS("ORDER_NUM",,41)','P'} ) // PAINT KEY FIELD
|
|
//** AADD(PREPROC, {'PAINT_KEYS("QUOTE_NUM",,41)','P'} ) // PAINT KEY FIELD
|
|
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
|
|
ELSEIF SCR_NUM = '2230'
|
|
PREPROC := { {'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
|
|
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
|
|
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
|
|
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
|
|
ENDIF
|
|
ELSEIF SCR_NUM = '2115'
|
|
PREPROC := { {'MISCP_PAINT()','P'} } // PAINT PREPROC
|
|
ENDIF
|
|
|
|
SCRNUM := SCR_NUM
|
|
|
|
RELATED_DBF := { {'QUOTE_OPTS',1},;
|
|
{'QUOTE_ADDL',1}, {'ADDL_QOPT',1} }
|
|
|
|
XTRA_CARGO := ORD_HOTKEY("QUOTE", SCRNUM)
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// QUOTE LINES
|
|
CASE MALIAS = 'QUOTE_LINE'
|
|
// OPEN DBF'S
|
|
IF SCR_NUM = NIL
|
|
// extra files opened in cgwprpo0
|
|
SCRNUM = '2210'
|
|
PREPROC = { {'SET_TCALC()', 'I'}, ;
|
|
{'SEEKFUNC("QUOTE_LINE", "QUOTE_MAST->ORDER_NUM")', 'I'},; // INITIALIZE PROC
|
|
{'MODELAFTER("QUOTE_OPTS", "USERFILE8", "QUOTE_OPTS", "QUOTE_LINE",{"QUOTE_OPTS->ORDER_NUM","QUOTE_MAST->ORDER_NUM"} )', 'I'},; // INITIALIZE PROC
|
|
{'MODELAFTER("ADDL_QOPT", "USERFILE9", "ADDL_QOPT", "QUOTE_LINE", {"ADDL_QOPT->ORDER_NUM", "QUOTE_MAST->ORDER_NUM"} )', 'I'}, ; // INITIALIZE PROC
|
|
{'MODELAFTER("QUOTE_ADDL", "USERFILE6", "QUOTE_ADDL", "QUOTE_LINE",{"QUOTE_ADDL->ORDER_NUM","QUOTE_MAST->ORDER_NUM"} )', 'I'}} // INITIALIZE PROC
|
|
|
|
POSTPROC = {'UPDATE_ORDS("USERFILE8")', ; // UPDATE ORDER OPTIONS FROM USERFILE8
|
|
'UPDATE_ORDS("USERFILE9")', ; // UPDATE ADDITIONAL OPTIONS FROM USERFILE9
|
|
'UPDATE_LINES("USERFILE6")', ; // UPDATE ADDITIONAL ORDER LINES FROM USERFILE6
|
|
'DO_ADDL_LINES()',; // UPDATE ADDITIONAL LINES
|
|
'UPDATE_ORDS("FILE8FILE9")', ; // UPDATE ADDITIONAL ORDER OPTIONS FROM USERFILE8
|
|
'MISC_PRICING()',; // UPDATE TAX/ETC
|
|
'ORD_PRINT(NIL, "Print Quote", "OE")' } // PRINT ORDER (IN CGWPRINT)
|
|
|
|
|
|
ELSEIF SCR_NUM = '2225'
|
|
SCRNUM := SCR_NUM
|
|
XTRA_HEADING := {'Enter Date to INDICATE COMPLETED PROCESS'}
|
|
XTRA_CARGO := { {'CTRL + T = Current Date', 20, 'GET_CURDATE()'} , ;
|
|
{'CTRL + Q = Total Qty', 17, 'GET_TOTQTY()'} }
|
|
ENDIF
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ADDITIONAL QUOTE LINES
|
|
CASE MALIAS = 'QUOTE_ADDL'
|
|
// OPEN DBF'S
|
|
|
|
SCRNUM = '2220'
|
|
PREPROC = { {'ADDL_KEY()', 'K'} } // KEY PREPROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
|
|
// QUOTE OPTIONS
|
|
CASE MALIAS = 'QUOTE_OPTS'
|
|
SCRNUM := '2230'
|
|
PREPROC := { {'?MODELAFTER("QUOTE_OPTS", "USERFILE2", "QUOTE_OPTS", "QUOTE_MAST")', 'I'} } // INITIALIZE PROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ADDITIONAL QUOTE OPTIONS
|
|
CASE MALIAS = 'ADDL_QOPT'
|
|
SCRNUM := '2232'
|
|
PREPROC := { {'?MODELAFTER("QUOTE_OPTS", "USERFILE2", "QUOTE_OPTS", "QUOTE_MAST")', 'I'} } // INITIALIZE PROC
|
|
POSTPROC = { 'STUFF_ENTER_KEY()' } // FORCE ENTER ON BLANK GET
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
|
|
// CUST ATTRIBUTES
|
|
CASE MALIAS = 'CUST_ATTS'
|
|
|
|
SCRNUM = '3110'
|
|
FILELIST = {"CAT_ATTS",'CATEGORY'} // OPEN ATTRIBUTE FILE
|
|
|
|
// INITIAL PREPROC
|
|
PREPROC = { {"MAKE_MATH('5')", 'I'} }
|
|
AADD(PREPROC, {'{USERFILE2->CUST_ID, USERFILE2->PROD_CODE}', 'K'} ) // KEY FOR CUST_ID
|
|
AADD(PREPROC, {'BLD_CUSTATTS("USERFILE2", "USERFILE3")', 'M'} ) // MODEL AFTER
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
|
|
// CUST ATTRIBUTE OPTIONS
|
|
CASE MALIAS = 'CUST_OPTS'
|
|
SCRNUM = '3120'
|
|
FILELIST = {"ATT_OPTS","CAT_OPTS",'CATEGORY'} // OPEN category level files for model after
|
|
PREPROC = { {'CGW11PRE("CUST")', 'K'} ,; // KEY PREPROC
|
|
{'COPY_OPTS("PROD_OPTS", "CUST_OPTS")', 'M'} , ; // MODEL AFTER
|
|
{'COPY_OPTS("CAT_OPTS", "CUST_OPTS")', 'M'} , ; // MODEL AFTER
|
|
{'COPY_OPTS("ATT_OPTS", "CUST_OPTS")', 'M'} } // MODEL AFTER
|
|
|
|
XTRA_HEADING := SETUP_XHEAD('CUST_OPTS')
|
|
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CUSTOMER PRICING EXTRAS
|
|
CASE MALIAS = 'CUST_PE'
|
|
SCRNUM = '3130'
|
|
PREPROC = { {'CUST_PE_KEY() ', 'K'} } // KEY PREPROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// PRODUCT STD SASH MEASUREMENTS
|
|
CASE MALIAS = 'STD_SASH'
|
|
SCRNUM = '3140'
|
|
PREPROC = { {'{PRODUCT->PROD_CODE}', 'K'} } // KEY PREPROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CLEAR SS GLASS BOX STORAGE
|
|
CASE MALIAS = 'GLASS_BOX'
|
|
SCRNUM = '3150'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// CUTTING SPECS
|
|
CASE MALIAS = 'CUT_SPEC'
|
|
SCRNUM = '3160'
|
|
AADD(FILELIST, 'MATHPACK')
|
|
AADD(FILELIST, 'ATTRIB_CUT')
|
|
AADD(FILELIST, 'ATTRIBUTES')
|
|
AADD(PREPROC, {'{PRODUCT->PROD_CODE}', 'K'} ) // KEY PREPROC
|
|
AADD(PREPROC, {"MAKE_MATH('5')", 'I'} ) // MODEL AFTER / KEY PROC
|
|
AADD(PREPROC, {'NEW_ITEM("CUTTING SPEC","USERFILET")', 'M'}) // COPY A DIFFERENT ONE
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// INTER COMPANY PURCHASE ORDERS
|
|
CASE MALIAS = 'IPO_FILE'
|
|
SCRNUM = '2160'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// MISC ITEMS MASTER FILE
|
|
CASE MALIAS = 'MISC_ITEMS'
|
|
AADD(FILELIST, 'CATEGORY')
|
|
AADD(FILELIST, 'COLOR_LIST')
|
|
AADD(FILELIST, 'UOMFILE')
|
|
AADD(PREPROC, {'PAINT_KEYS("PARTNUM",,41)','P'} ) // PAINT KEY FIELD
|
|
SCRNUM = '2170'
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// MISC ITEMS MASTER FILE PRICING/UNIT OF MEASURE
|
|
CASE MALIAS = 'MISC_PUOM'
|
|
SCRNUM = '2180'
|
|
** PREPROC = { {"MAKE_MATH('5')", 'I'} }
|
|
AADD(PREPROC,{'{MISC_ITEMS->PARTNUM}', 'K'} ) // KEY PREPROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// MISC ITEMS MASTER FILE COLORS
|
|
CASE MALIAS = 'MISC_COLOR'
|
|
SCRNUM = '2190'
|
|
AADD(PREPROC,{'{MISC_ITEMS->PARTNUM}', 'K'} ) // KEY PREPROC
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// MASTER UOM FILE
|
|
CASE MALIAS = 'UOMFILE'
|
|
//** SCRNUM = '3210' //** P3N - 1/26/00
|
|
SCRNUM = '4210' //** P3N - 1/26/00
|
|
PREPROC = { {"MAKE_MATH('5')", 'I'} }
|
|
AADD(FILELIST, 'MISC_ITEMS')
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// MASTER COLOR FILE
|
|
CASE MALIAS = 'COLOR_LIST'
|
|
//** SCRNUM = '3220' //** P3N - 5/26/98
|
|
SCRNUM = '4220' //** P3N - 5/26/98
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// ORDER MISC ITEMS
|
|
CASE MALIAS = 'ORD_MISC'
|
|
//** SCRNUM = '3230' //** P3N - 5/26/98
|
|
SCRNUM = '4230' //** P3N - 5/26/98
|
|
AADD(PREPROC,{'{ ORD_MAST->ORDER_NUM }', 'K'} ) // KEY PREPROC
|
|
//** P3N - 11/25/98 - MOVED TO MISC_ITEM()-CGWPRPO0.PRG
|
|
//** POSTPROC = { {'UP_MISCTOT(USERFILE2->ORDER_NUM)', 'B' } }
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
// QUOTE MISC ITEMS
|
|
CASE MALIAS = 'QUOTE_MISC'
|
|
SCRNUM = '2270'
|
|
AADD(PREPROC,{'{QUOTE_MAST->ORDER_NUM }', 'K'} ) // KEY PREPROC
|
|
//** P3N - 11/25/98 - MOVED TO MISC_ITEM()-CGWPRPO0.PRG
|
|
//** POSTPROC = { {'UP_MISCTOT(USERFILE2->ORDER_NUM)', 'B' } }
|
|
ACDARR := LOAD_ACDARR(MALIAS)
|
|
|
|
ENDCASE
|
|
|
|
RETURN ACDARR
|
|
|
|
|
|
|
|
CLOSE DATABASES
|
|
RETURN ACDARR
|
|
|
|
*********************************************************************
|
|
* RETURN AN ARRAY USED AS THE HEADING FOR A DBROWSE! *
|
|
* //** P3N - 2/19/98 *
|
|
*********************************************************************
|
|
FUNCTION SETUP_XHEAD(TYPE)
|
|
LOCAL RETARR
|
|
RETARR := ;
|
|
{ {||FRST_XHEAD()}, '(BLANK Value to DELETE)', ;
|
|
'PI*-Print Ind / Alt Print-Alternate Print Value', ;
|
|
'HT ADJ-Prod Height Adj / WD ADJ-Prod Width Adj', ;
|
|
{||WHEREMSG("SET")}, {||WHEREMSG()}, {|| WHEREMSG("RESET")} }
|
|
RETURN RETARR
|
|
FUNCTION FRST_XHEAD()
|
|
RETURN 'Add Options for "'+ ALLTRIM(ATT_CODE) +'" Attribute'
|
|
*********************************************************************
|
|
*********************************************************************
|
|
*********************************************************************
|
|
FUNCTION OPN_MFG()
|
|
LOCAL SVSEL := SELECT()
|
|
DBOPEN('MFG_LOC')
|
|
SELECT(SVSEL)
|
|
RETURN
|
|
**FUNCTION CLOSE_MFG()
|
|
**LOCAL SVSEL := SELECT()
|
|
**SELECT('MFG_LOC')
|
|
**USE
|
|
**SELECT(SVSEL)
|
|
**RETURN
|
|
*********************************************************************
|
|
*********************************************************************
|
|
*********************************************************************
|
|
FUNCTION COPYCUT()
|
|
LOCAL SAVESEL := SELECT(), SAVEFILT
|
|
LOCAL COPYFROM := ALLTRIM( ATTRIB_CUT )
|
|
|
|
SELECT ATTRIB_CUT
|
|
USE
|
|
SELECT USERFILE3
|
|
|
|
// APPEND ALL FROM &ATTRIB_CUT
|
|
APPEND ALL FROM ©FROM
|
|
DBOPEN('ATTRIB_CUT')
|
|
SELECT (SAVESEL)
|
|
|
|
RETURN .T.
|
|
|
|
*********************************************************************
|
|
*********************************************************************
|
|
*********************************************************************
|
|
FUNCTION COPYSTD()
|
|
LOCAL SAVESEL := SELECT(), SAVEFILT
|
|
LOCAL COPYFROM := ALLTRIM( ATTRIBUTES )
|
|
|
|
SELECT ATTRIBUTES
|
|
USE
|
|
SELECT USERFILE2
|
|
// APPEND ALL FROM &ATTRIBUTES FOR ATT_TYPE = 'S'
|
|
APPEND ALL FROM ©FROM FOR ATT_TYPE = 'S'
|
|
DBOPEN('ATTRIBUTES')
|
|
SELECT (SAVESEL)
|
|
|
|
RETURN .T.
|
|
|
|
**********************************************
|
|
FUNCTION FILL_PRODCODE
|
|
// FILL THE USERFILE (PROD_OPTS) RECORDS WITH THE PROD_ATTS->PROD_CODE
|
|
|
|
LOCAL SAVESEL := SELECT()
|
|
|
|
SELECT USERFILE2
|
|
GOTO TOP
|
|
DO WHILE !EOF()
|
|
REC_LOCK(3)
|
|
REPLACE PROD_CODE WITH PROD_ATTS->PROD_CODE
|
|
UNLOCK
|
|
SKIP 1
|
|
ENDDO
|
|
SELECT(SAVESEL)
|
|
RETURN .T.
|
|
|
|
|
|
*****************************************************************
|
|
|
|
FUNCTION SEEKFUNC(SEEK_ALIAS, SEEKKEY)
|
|
LOCAL SAVESEL := SELECT()
|
|
SELECT (SEEK_ALIAS)
|
|
SEEK &SEEKKEY
|
|
SELECT (SAVESEL)
|
|
**(&SEEK_ALIAS)->(DBSEEK(&SEEKKEY))
|
|
RETURN .T.
|
|
|