* 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 &COPYFROM
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 &COPYFROM 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.