first commit
This commit is contained in:
Jason Soltys
+714
@@ -0,0 +1,714 @@
|
||||
* 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.
|
||||
|
||||
Reference in New Issue
Block a user