* DON LOWENSTEIN -BUILD PRINT FILE ARRAY-  CGW0300   5-28-93
PROCEDURE BUILDPRNT(CALLPARM)

****CONVKEYX := MAKE_BLOCK('CONV_RANGE(RANGE1, RANGE2)')
****AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF,,, CONVKEYX})
LOCAL ATRB_SOURCE, NCHOICE, PT_PARM, NDX_EXP
LOCAL DEL_ADD_ARR := {'DA(1)', 'DA(2)', 'DA(3)', 'DA(4)', 'DA(5)'}
LOCAL GET_PARMS1, GET_PARMS2, PARR:={}, CHOICE, TAGNAME
* * * * * * * * * * * * * * * * * * *

PRIVATE PRNTARR := {}, PARENTFILE, CHILDFILE, MDESC, CUTOFF, PIC, FILEFILTER
PRIVATE PRNTNAME, KEYVAR, RANGETYPE, NDXEXP, RANGEARR := {}, LVLBRK, SORTARR := {}
PRIVATE PARENTFILTER := NIL, REPTHEAD, DEFINEPROC:= NIL
PRIVATE DET_SUMM := .F., DET_LINE_EXTRA := {}, FOOTERLINES := {}
PRIVATE LBRK_FOOTER := {}
PRIVATE REPTONLY := .F., BLD_PROC       // 13-15
PRIVATE DBF_FLD_INFO := {}
PRIVATE MAXLINES := 55
PRIVATE OUTPORT := NIL
PRIVATE SYSNTX := NIL


* * * * * * * * * * * * * * * * * * *

DO CASE


    * * * * * * * * * * * * * * * * * * *

  CASE ALLTRIM(CALLPARM) = 'BILLTRAN RECAP'
    PRNTNAME = 'Billing Transaction Recap'
    PARENTFILE = 'BILLTRAN'
    CHILDFILE = NIL
    FILEFILTER = 'RCDCD = "RE"'
    REPTHEAD = PRNTNAME
    DET_SUMM := .T.

    //** P3N - 3/18/99  ADDED DEF_BILLTRAN TO LIMIT THE REPORT FIELDS
    DEFINEPROC = {|| DEF_BILLTRAN() }       // FOUND IN 0350

    MDESC = 'Order #'
    KEYVAR = 'ORDER_NUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ORDER_NUM + RCDCD '
    SYSNTX = 1
    LVLBRK = {}
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    IF ALLTRIM(CALLPARM) = 'BILLTRAN RECAP-F'
    ELSE

      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })


      MDESC = 'Company'
      KEYVAR = 'COMNO'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'COMNO + ORDER_NUM + RCDCD'
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'COMNO', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Customer'
      KEYVAR = 'CUSNR'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'CUSNR + ORDER_NUM + RCDCD'
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'CUSNR', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Sales Rep'
      KEYVAR = 'SLSNR'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'SLSNR + ORDER_NUM + RCDCD'
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'SLSNR', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Tran Date (YYMMDD)'
      KEYVAR = 'TRNDT'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'TRNDT + ORDER_NUM + RCDCD '
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'TRNDT', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})



    ENDIF
    PRNTARR := LOAD_PRNTARR()

***********************************************
*
  CASE ALLTRIM(CALLPARM) = 'SALEHIST RECAP'
    PRNTNAME   := 'Sales History Recap'
    PARENTFILE := 'SALEHIST'
    CHILDFILE  := NIL
    FILEFILTER := NIL
    REPTHEAD   := PRNTNAME
    DET_SUMM   := .T.



    IF ALLTRIM(CALLPARM) = 'SALEHIST RECAP-F'
      MDESC = 'GL Acct #'
      KEYVAR = 'GL_NUM'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'GL_NUM + ORDER_NUM'
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'GL_NUM', MDESC } )
      AADD(LVLBRK, { 'COMP_CODE', 'Company' } )
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})


    ELSE

      MDESC = 'GL Acct #'
      KEYVAR = 'GL_NUM'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'GL_NUM + ORDER_NUM'
      SYSNTX = 2
      LVLBRK = {}
      AADD(LVLBRK, { 'GL_NUM', MDESC } )
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })


      MDESC = 'Company'
      KEYVAR = 'COMP_CODE'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'COMP_CODE + ORDER_NUM'
      SYSNTX = 5
      LVLBRK = {}
      AADD(LVLBRK, { 'COMP_CODE', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Customer'
      KEYVAR = 'CUST_ID'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'CUST_ID + GL_NUM + ORDER_NUM'
******SYSNTX = 3
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'CUST_ID', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Order #'
      KEYVAR = 'ORDER_NUM'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'ORDER_NUM + GL_NUM'
      SYSNTX = 1
      LVLBRK = {}
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Sales Rep'
      KEYVAR = 'SLSMAN'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'SLSMAN + GL_NUM + ORDER_NUM '
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'SLSMAN', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Invoice Date'
      KEYVAR = 'IDATE_FST'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'DTOS(IDATE_FST) + GL_NUM + ORDER_NUM '
******SYSNTX = 4
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'DTOC(IDATE_FST)', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

      MDESC = 'Post Date'
      KEYVAR = 'POST_DATE'
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      NDXEXP =  'DTOS(POST_DATE) + POST_TIME + ORDER_NUM + GL_NUM'
      SYSNTX = NIL
      LVLBRK = {}
      AADD(LVLBRK, { 'DTOC(POST_DATE)', MDESC } )
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
      AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})



    ENDIF
    PRNTARR := LOAD_PRNTARR()

  ****************************************************

  CASE ALLTRIM(CALLPARM) == 'ORDER FULFILLMENT'
    PRNTNAME = 'ORDERS WHICH NEED FULFILLMENT / CLOSURE'
    PARENTFILE = 'ORD_MAST'
    FILEFILTER = 'EMPTY(SHIP_DATE)'        //** P3N - 08/29/01
//**FILEFILTER = 'EMPTY(IDATE_FST)'        //** CHANGED PER ELLEN
    CHILDFILE = NIL
*** DEFINEPROC = {|| DEF_FULFILL() }   // FOUND IN 0350
    DEFINEPROC = {|| DEF_ORDERS('FULFILLMENT') }   // FOUND IN 0350

    DBOPEN('CUST_MAST')

    MDESC = 'Cust #'
    KEYVAR = 'CUST_ID'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'CUST_ID + ORDER_NUM'
    SYSNTX = 2
    LVLBRK = {}
    AADD(LVLBRK, {'GET_NAME(CUST_ID)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

//**    MDESC = 'Order #'
//**    KEYVAR = 'ORDER_NUM'
//**    PIC =  ''
//**    RANGETYPE = 'R'
//**    CUTOFF = .F.
//**    NDXEXP =  'ORDER_NUM'
//**    SYSNTX = 1
//**    LVLBRK = {}
//**    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
//**    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

//**    MDESC = 'Customer PO #'
//**    KEYVAR = 'CUST_PO'
//**    PIC =  ''
//**    RANGETYPE = 'R'
//**    CUTOFF = .F.
//**    NDXEXP =  'CUST_PO + ORDER_NUM'
//**    SYSNTX = NIL
//**    LVLBRK = {}
//**    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
//**    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Invoice #'
    KEYVAR = 'INVOICENUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'INVOICENUM + GL_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Order Date'
    KEYVAR = 'ORDER_DATE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DTOS(ORDER_DATE) + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DTOC(ORDER_DATE)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

//**    MDESC = 'Call Date'
//**    KEYVAR = 'CALL_DATE'
//**    PIC =  ''
//**    RANGETYPE = 'R'
//**    CUTOFF = .F.
//**    NDXEXP =  'DTOS(CALL_DATE) + ORDER_NUM'
//**    SYSNTX = NIL
//**    LVLBRK = {}
//**    AADD(LVLBRK, {'DTOC(CALL_DATE)', ' ' } )
//**    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
//**    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

//**    MDESC = 'Production Date'
//**    KEYVAR = 'PDATE_LAST'
//**    PIC =  ''
//**    RANGETYPE = 'R'
//**    CUTOFF = .F.
//**    NDXEXP =  'DTOS(PDATE_LAST) + ORDER_NUM'
//**    SYSNTX = NIL
//**    LVLBRK = {}
//**    AADD(LVLBRK, {'DTOC(PDATE_LAST)', ' ' } )
//**    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
//**    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  ****************************************************

  CASE ALLTRIM(CALLPARM) == 'ORDER MASTER'
    PRNTNAME = 'ORDER MASTER REPORT'
    PARENTFILE = 'ORD_MAST'
    CHILDFILE = NIL
    DEFINEPROC = {|| DEF_ORDERS() }   // FOUND IN 0350

    MDESC = 'Cust #'
    KEYVAR = 'CUST_ID'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'CUST_ID + ORDER_NUM'
    SYSNTX = 2
    LVLBRK = {}
    AADD(LVLBRK, {'GET_NAME(CUST_ID)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Order #'
    KEYVAR = 'ORDER_NUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ORDER_NUM'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Customer PO #'
    KEYVAR = 'CUST_PO'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'CUST_PO + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Invoice #'
    KEYVAR = 'INVOICENUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
****NDXEXP =  'INVOICENUM + GL_NUM'
    NDXEXP =  'INVOICENUM '           //** P3N - 4/27/98
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Order Date'
    KEYVAR = 'ORDER_DATE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DTOS(ORDER_DATE) + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DTOC(ORDER_DATE)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Call Date'
    KEYVAR = 'CALL_DATE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DTOS(CALL_DATE) + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DTOC(CALL_DATE)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Production Date'
    KEYVAR = 'PDATE_LAST'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DTOS(PDATE_LAST) + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DTOC(PDATE_LAST)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Delivery Date'
    KEYVAR = 'DDATE_LAST'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DTOS(DDATE_LAST) + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DTOC(DDATE_LAST)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Sales Person'
    KEYVAR = 'SLSMAN'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'SLSMAN + CUST_ID + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'SLSMAN', ' ' } )
    AADD(LVLBRK, {'CUST_ID', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Terms'
    KEYVAR = 'TERMS'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'TERMS + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'TERMS', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Shipping Method'
    KEYVAR = 'SHP_METHOD'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'SHP_METHOD + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'SHP_METHOD', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Price Sheet'
    KEYVAR = 'PRICE_SHT'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'PRICE_SHT + CUST_ID + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'PRICE_SHT', ' ' } )
    AADD(LVLBRK, {'CUST_ID', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Tax Schedule'
    KEYVAR = 'TAXSCH'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'TAXSCH + ORDER_NUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'TAXSCH', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()


  ****************************************************

  CASE ALLTRIM(CALLPARM) == 'MISC ITEMS'
    PRNTNAME = 'MISCELLEANOUS ITEMS REPORT'
    PARENTFILE = 'MISC_PUOM'
    CHILDFILE = NIL
    DEFINEPROC = {|| DEF_MITEMS() }   // FOUND IN 0350
    DBOPEN('MISC_ITEMS')

    MDESC = 'Part #'
    KEYVAR = 'PARTNUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'PARTNUM'
    SYSNTX = 1
    LVLBRK = {}
****AADD(LVLBRK, {'GET_NAME(CUST_ID)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Description'
****KEYVAR = 'DESC'
    KEYVAR = {{'MISC_ITEMS','DESC'}  , 'DISPVALUE(PARTNUM,"MISC_ITEMS",{"DESC"}) '} //DATABASE VARIABLE USED FOR RANGE
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
****NDXEXP =  'DESC'
    NDXEXP = 'DISPVALUE(PARTNUM,"MISC_ITEMS",{"DESC"})'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'GL Num'
    KEYVAR = {{'MISC_ITEMS','GL_NUM'}  , 'DISPVALUE(PARTNUM,"MISC_ITEMS",{"GL_NUM"}) '} //DATABASE VARIABLE USED FOR RANGE
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'DISPVALUE(PARTNUM,"MISC_ITEMS",{"GL_NUM"})'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'UOM'
    KEYVAR = 'UOM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'UOM + PARTNUM'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Dealer Amounts'
    KEYVAR = 'DLR_AMT'
    PIC =  '9999999.9999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })

    MDESC = 'Sp Dealer Amounts'
    KEYVAR = 'SD_AMT'
    PIC =  '9999999.9999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })

    MDESC = 'Builder Amounts'
    KEYVAR = 'BU_AMT'
    PIC =  '9999999.9999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })

    MDESC = 'Distributor Amounts'
    KEYVAR = 'DIST_AMT'
    PIC =  '9999999.9999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })

    MDESC = 'Lumbermen Amounts'
    KEYVAR = 'LUMB_AMT'
    PIC =  '9999999.9999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })

    MDESC = 'Intercompany Amounts'
    KEYVAR = 'IC_AMT'
    PIC =  '9999999.9999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })


    PRNTARR := LOAD_PRNTARR()


  CASE ALLTRIM(CALLPARM) == 'CATEGORY OPTIONS'
    // PRODUCT CATEGORY OPTIONS
    PRNTNAME = 'PRODUCT CATEGORY OPTIONS'
    PARENTFILE = 'CAT_OPTS'
    CHILDFILE = NIL
    FILEFILTER = 'CAT_OPTS->CAT_CODE == CATEGORY->CAT_CODE'
    REPTHEAD = {['UNIQUE CATEGORY CHOICES for "' + ALLTRIM(CATEGORY->CAT_CODE) + '" - ' + CATEGORY->DESC],;
                'DTOC(CURDATE) '}

    MDESC = 'Attribute'
    KEYVAR = 'ATT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ATT_CODE + STR(SEQ_NUM,2)'
    SYSNTX = 1
    LVLBRK = {}
    AADD(LVLBRK, {'SEEKATTDESC(ATT_CODE)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF, , , })
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'TAX SUMMARY SCHEDULES'
    // TAX_SCHED
    PRNTNAME = CALLPARM
    PARENTFILE = 'TAX_SCHED'
    REPTHEAD = PRNTNAME
    DBOPEN('TAX_DETAIL')

    MDESC = 'Schedule Code'
    KEYVAR = 'STAXSCH'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'STAXSCH'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Description'
    KEYVAR = 'DESC'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DESC'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()


  CASE ALLTRIM(CALLPARM) == 'TAX DETAIL COMPONENTS'
    // TAX_SCHED
    PRNTNAME = CALLPARM
    PARENTFILE = 'TAX_DETAIL'
    REPTHEAD = PRNTNAME

    MDESC = 'Sequence Code'
    KEYVAR = 'SSTAXSEQ'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'SSTAXSEQ'
    SYSNTX = 1
    LVLBRK = {}
    CONVKEYX := MAKE_BLOCK('CONV_RANGE(RANGE1, RANGE2)')
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF,,, CONVKEYX})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Description'
    KEYVAR = 'SDETDESC'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'SDETDESC'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()



  CASE ALLTRIM(CALLPARM) == 'CATEGORY ATTRIBUTES'
    // PRODUCT CATEGORY OPTIONS
    PRNTNAME = 'PRODUCT CATEGORY ATTRIBUTES'
    PARENTFILE = 'CATEGORY'
    CHILDFILE = 'CAT_ATTS'
    FILEFILTER = 'CAT_ATTS->CAT_CODE == CATEGORY->CAT_CODE'
    REPTHEAD = {"'UNIQUE ATTRIBUTES for CATEGORY ' + ALLTRIM(CATEGORY->DESC)",;
                'DTOC(CURDATE) '}

    MDESC = 'Screen Order'
    KEYVAR = 'ORDER'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'STR(ORDER,2)'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Attribute'
    KEYVAR = 'ATT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ATT_CODE + STR(ORDER,2)'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'CATEGORY'
    // PRODUCT CATEGORYS
    PRNTNAME = 'List of System CATEGORIES'
    PARENTFILE = 'CATEGORY'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME

    MDESC = 'Category CODE'
    KEYVAR = 'CAT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'CAT_CODE'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Description'
    KEYVAR = 'DESC'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DESC + CAT_CODE'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'MODEL'
    // PRODUCT FILE
    DBOPEN('CATEGORY')
    PRNTNAME = 'List of MODELS'
    PARENTFILE = 'PRODUCT'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME

    MDESC = 'Model'
    KEYVAR = 'PROD_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'PROD_CODE'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Description'
    KEYVAR = 'DESC'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DESC + PROD_CODE'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Category'
    KEYVAR = 'CAT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'CAT_CODE + PROD_CODE'
    SYSNTX = 3
    LVLBRK = {}
    AADD(LVLBRK, {'SEEKCATDESC(CAT_CODE)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Mgf Location'
    KEYVAR = 'LOC_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'LOC_CODE + PROD_CODE'
    SYSNTX = 4
    LVLBRK = {}
    AADD(LVLBRK, {'LOC_CODE', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'MODEL ATTRIBUTES'
    // PRODUCT ATTRIBUTES
    DBOPEN('CATEGORY')
    PRNTNAME = CALLPARM
    PARENTFILE = 'PRODUCT'
    CHILDFILE = 'PROD_ATTS'
    FILEFILTER = 'PROD_ATTS->PROD_CODE == PRODUCT->PROD_CODE'
    REPTHEAD = {"'UNIQUE ATTRIBUTES for MODEL/PRODUCT ' + ALLTRIM(PRODUCT->DESC)",;
                'DTOC(CURDATE) '}


    MDESC = 'Screen Order'
    KEYVAR = 'ORDER'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'STR(ORDER,2)'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Attribute'
    KEYVAR = 'ATT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ATT_CODE + STR(ORDER,2)'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'MODEL OPTIONS'
    // PRODUCT OPTIONS
    PRNTNAME = 'MODELS'
    PARENTFILE = 'PROD_OPTS'
    CHILDFILE = NIL
    FILEFILTER = 'PROD_OPTS->PROD_CODE == PRODUCT->PROD_CODE'
    REPTHEAD = {['UNIQUE CHOICES for MODEL/PRODUCT "' + ALLTRIM(PRODUCT->PROD_CODE) + '" - ' + PRODUCT->DESC],;
                'DTOC(CURDATE) '}

    MDESC = 'Attribute'
    KEYVAR = 'ATT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ATT_CODE + STR(SEQ_NUM,2)'
    SYSNTX = 1
    LVLBRK = {}
    AADD(LVLBRK, {'SEEKATTDESC(ATT_CODE)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'ATTRIBUTES'
    // ATTRIBUTES
    PRNTNAME = 'List of SYSTEM ATTRIBUTES'
    PARENTFILE = 'ATTRIBUTES'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME

    MDESC = 'Attribute'
    KEYVAR = 'ATT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ATT_CODE'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Description'
    KEYVAR = 'DESC'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'DESC + ATT_CODE'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Attribute Type'
    KEYVAR = 'ATT_TYPE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ATT_TYPE + ATT_CODE'
    SYSNTX = 3
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'ATTRIBUTE OPTIONS'
    // ATTRIBUTE OPTIONS
    DBOPEN('ATTRIBUTES')
    PRNTNAME = CALLPARM
    PARENTFILE = 'ATT_OPTS'
    CHILDFILE = NIL
    REPTHEAD = {"'OPTION CHOICES for System ATTRIBUTES '",;
                'DTOC(CURDATE) '}


    MDESC = 'Attribute'
    KEYVAR = 'ATT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'ATT_CODE + STR(SEQ_NUM,2)'
    SYSNTX = 1
    LVLBRK = {}
    AADD(LVLBRK, {'SEEKATTDESC(ATT_CODE)', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})


    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'STD_SIZES'
    // SIZES TABLES
    PRNTNAME = 'STOCKSIZE'
    PARENTFILE = 'STD_SIZES'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME

    MDESC = 'Product'
    KEYVAR = 'PROD_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'PROD_CODE'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'PROD_CODE', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'PRICING REPORT-MODEL'

  // IDENTIFY ALL OPTIONS USED TO PRICE A PRODUCT/MODEL
    SAYTITLE('Select Model to Report', '0300')
    GET_PARMS1 := DBOPEN('PRODUCT')
    @2,0 CLEAR
    PRINT_KEY := GET_KEY(GET_PARMS1, .T., , , .T.)

    DBF_FLD_INFO := {}
    AADD(DBF_FLD_INFO, {'DATA', 130, 'C', 0} )
    CREATE_U7()
    PRNTNAME = 'MODEL PRICE REPORT'
    PARENTFILE = 'USERFILE7'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    DET_SUMM = .F.
    REPTHEAD = PRNTNAME
    DEFINEPROC = {|| FLD_PRICERPT('PRICE', 'MODEL') }   // FOUND IN 0350
    **
    LVLBRK = {}
    **
    PRNTARR := LOAD_PRNTARR()


  CASE ALLTRIM(CALLPARM) == 'PRICING REPORT-CUST'

  // IDENTIFY ALL OPTIONS USED TO PRICE A PRODUCT/MODEL WITH SPECIAL PRICING CONSIDERATIONS
    SAYTITLE('Select Customer/Model', '0300')
    GET_PARMS1 := DBOPEN('CUST_MAST')
    GET_PARMS2 := DBOPEN('PRODUCT')
    @2,0 CLEAR
    PRINT_KEY := GET_KEY(GET_PARMS1, .T.,,,.T. )
    @4,0 CLEAR
    PRINT_KEY := PRINT_KEY + GET_KEY(GET_PARMS2, .T.,,5,.T.)

    DBF_FLD_INFO := {}
    AADD(DBF_FLD_INFO, {'DATA', 130, 'C', 0} )
    CREATE_U7()

    PRNTNAME = 'CUSTOMER PRICE REPORT'
    PARENTFILE = 'USERFILE7'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    DET_SUMM = .F.
    REPTHEAD = PRNTNAME
    DEFINEPROC = {|| FLD_PRICERPT('PRICE', 'CUST') }   // FOUND IN 0350
    **
    LVLBRK = {}
    **
    PRNTARR := LOAD_PRNTARR()


  CASE ALLTRIM(CALLPARM) == 'PRODUCT REPORT-MODEL'

  // IDENTIFY ALL OPTIONS USED TO PRICE A PRODUCT/MODEL
    SAYTITLE('Select Model for Production', '0300')
    GET_PARMS1 := DBOPEN('PRODUCT')
    @2,0 CLEAR
    PRINT_KEY := GET_KEY(GET_PARMS1, .T.)

    DBF_FLD_INFO := {}
    AADD(DBF_FLD_INFO, {'DATA', 130, 'C', 0} )
    CREATE_U7()

    PRNTNAME = 'MODEL PRODUCTION CUTTING SPECIFICATIONS'
    PARENTFILE = 'USERFILE7'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    DET_SUMM = .F.
    REPTHEAD = PRNTNAME
    DEFINEPROC = {|| FLD_PRICERPT('PROD', 'MODEL') }   // FOUND IN 0350
    **
    LVLBRK = {}
    **
    PRNTARR := LOAD_PRNTARR()


  CASE ALLTRIM(CALLPARM) == 'PRODUCT REPORT-CUST'

  // IDENTIFY ALL OPTIONS USED TO PRICE A PRODUCT/MODEL
*   SAYTITLE('Select Model for Production', '0300')
*   GET_PARMS := DBOPEN('PRODUCT')
*   PRINT_KEY := GET_KEY(GET_PARMS, .T.)
    SAYTITLE('Select Customer/Model', '0300')
    GET_PARMS1 := DBOPEN('CUST_MAST')
    GET_PARMS2 := DBOPEN('PRODUCT')
    @2,0 CLEAR
    PRINT_KEY := GET_KEY(GET_PARMS1, .T.,,,.T. )
    @4,0 CLEAR
    PRINT_KEY := PRINT_KEY + GET_KEY(GET_PARMS2, .T.,,5,.T.)


    DBF_FLD_INFO := {}
    AADD(DBF_FLD_INFO, {'DATA', 130, 'C', 0} )
    CREATE_U7()

    PRNTNAME = 'CUSTOMER PRODUCTION CUTTING SPECIFICATIONS'
    PARENTFILE = 'USERFILE7'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    DET_SUMM = .F.
    REPTHEAD = PRNTNAME
    DEFINEPROC = {|| FLD_PRICERPT('PROD', 'CUST') }   // FOUND IN 0350
    **
    LVLBRK = {}
    **
    PRNTARR := LOAD_PRNTARR()



  CASE ALLTRIM(CALLPARM) == 'MONTHLY PRODUCTION'

    CLS
    SAYTITLE('Monthly Production Report', '0300')
    DBOPEN('ORD_MAST')
    DBOPEN('ORD_LINES')
    DBOPEN('ORD_PROD')                              //** P3N - 01/16/02
    DBOPEN('ORDER_OPTS')                            //** P3N - 01/16/02
    DBOPEN('ADDL_OPTS')                             //** P3N - 01/16/02
    DBOPEN('ADDL_LINES')
    DBOPEN('PRODUCT')
    DET_SUMM := .T.

    DBF_FLD_INFO := {}
    AADD(DBF_FLD_INFO, {'PROD_YEAR', 4, 'C', 0} )
    AADD(DBF_FLD_INFO, {'PROD_CODE', 7, 'C', 0} )
    AADD(DBF_FLD_INFO, {'PROD_COLOR',10, 'C', 0} )  //** P3N - 01/16/02
    AADD(DBF_FLD_INFO, {'PROD_HOURS',10, 'N', 2} )  //** P3N - 01/16/02
    AADD(DBF_FLD_INFO, {'CAT_CODE', 7, 'C', 0} )
    AADD(DBF_FLD_INFO, {'LOC_CODE', 6, 'C', 0} )
    AADD(DBF_FLD_INFO, {'ORDER_NUM', 6, 'C', 0} )
    AADD(DBF_FLD_INFO, {'THIS_DATE', 8, 'D', 0} )
    AADD(DBF_FLD_INFO, {'ORDER_DATE', 8, 'D', 0} )
    AADD(DBF_FLD_INFO, {'PDATE_LAST', 8, 'D', 0} )
    AADD(DBF_FLD_INFO, {'IDATE_LAST', 8, 'D', 0} )
    AADD(DBF_FLD_INFO, {'DDATE_LAST', 8, 'D', 0} )
    AADD(DBF_FLD_INFO, {'JAN', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'FEB', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'MAR', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'APR', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'MAY', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'JUN', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'JUL', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'AUG', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'SEP', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'OCT', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'NOV', 5, 'N', 0} )
    AADD(DBF_FLD_INFO, {'DEC', 5, 'N', 0} )

    CREATE_U7()
    **INDEX ON PROD_YEAR + PROD_CODE + LOC_CODE TO &USERFILE7
    NDX_EXP := 'PROD_YEAR + PROD_CODE + LOC_CODE'
    IF __DBDRIVER = 'CDX'
      TAGNAME := 'T1'
      INDEX ON &NDX_EXP TAG &TAGNAME TO &USERFILE7
    ELSE
      INDEX ON &NDX_EXP TO &USERFILE7
    ENDIF


    // GET DRIVER DATE
    AADD(PARR, 'ORDER Totals Report')
    AADD(PARR, 'PRODUCTION Totals Report')
    AADD(PARR, 'INVOICING Totals Report')
    AADD(PARR, 'DELIVERY Totals Report')
    CHOICE = PICKLIST(PARR)
    IF LASTKEY() = 27
      RETURN NIL
    ENDIF
    M->PRODTIME := CHOICE                   //** P3N - 01/16/02

****PRNTNAME = 'MONTHLY PRODUCTION TOTALS'
    PARENTFILE = 'USERFILE7'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    DET_SUMM = .T.
    DEFINEPROC = {|| DEF_MOPROD() }   // FOUND IN 0350


    DO CASE
      CASE CHOICE = 1
        PRNTNAME = 'MONTHLY ORDER TOTALS'
        BLD_PROC = "BLD_MOPROD('ORDER')"

      CASE CHOICE = 2
        PRNTNAME = 'MONTHLY PRODUCTION TOTALS'
        BLD_PROC = "BLD_MOPROD('PRODUCTION')"

      CASE CHOICE = 3
        PRNTNAME = 'MONTHLY INVOICING TOTALS'
        BLD_PROC = "BLD_MOPROD('INVOICING')"

      CASE CHOICE = 4
        PRNTNAME = 'MONTHLY DELIVERY TOTALS'
        BLD_PROC = "BLD_MOPROD('DELIVER')"

    END CASE
    REPTHEAD = PRNTNAME
    **
    LVLBRK = {}
    **

    MDESC = 'Product'
    KEYVAR = 'PROD_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CAT_CODE + PROD_CODE + LOC_CODE + PROD_YEAR'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'CAT_CODE', ' ' } )
****AADD(LVLBRK, {'PROD_CODE', ' ' } )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Order #'
    KEYVAR = 'ORDER_NUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})

    IF CHOICE = 1
      MDESC = 'Order Date'
 ***  KEYVAR = 'ORDER_DATE'
      KEYVAR = {{'ORD_MAST','ORDER_DATE'}, ' ORD_MAST_DATA("ORDER_DATE") ' }
      PIC =  ''
      RANGETYPE = 'R'
      CUTOFF = .F.
      AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    ELSE
      IF CHOICE = 2
        MDESC = 'Production Date'
        KEYVAR = 'PDATE_LAST'
        KEYVAR = {{'ORD_MAST','ORDER_DATE'}, ' ORD_MAST_DATA("PDATE_LAST") ' }
        PIC =  ''
        RANGETYPE = 'R'
        CUTOFF = .F.
        AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
      ELSE
        IF CHOICE = 3
          MDESC = 'Invoice Date'
**        KEYVAR = 'IDATE_LAST'
          KEYVAR = {{'ORD_MAST','ORDER_DATE'}, ' ORD_MAST_DATA("IDATE_LAST") ' }
          PIC =  ''
          RANGETYPE = 'R'
          CUTOFF = .F.
          AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
        ELSE
          IF CHOICE = 4
            MDESC = 'Delivery Date'
****        KEYVAR = 'DDATE_LAST'
            KEYVAR = {{'ORD_MAST','ORDER_DATE'}, ' ORD_MAST_DATA("DDATE_LAST") ' }
            PIC =  ''
            RANGETYPE = 'R'
            CUTOFF = .F.
            AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
          ENDIF
        ENDIF
      ENDIF
    ENDIF

    MDESC = 'Category'
//**KEYVAR = 'CAT_CODE'
//** P3N - 11/22/99
    KEYVAR = {{'USERFILE7','CAT_CODE'},'GET_CATCODE(PROD_CODE)'}
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})

    MDESC = 'Location'
    KEYVAR = 'LOC_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})

    MDESC := 'Color'                         //** P3N - 01/16/02
//**KEYVAR := 'PROD_COLOR'                   //** P3N - 01/16/02
    KEYVAR := {{'USERFILE7','PROD_COLOR'},'GETCOLOR("PROD_COLOR")'} //** P3N - 01/16/02
    PIC :=  ''                               //** P3N - 01/16/02
    RANGETYPE := 'R'                         //** P3N - 01/16/02
    CUTOFF := .F.                            //** P3N - 01/16/02
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})

    PRNTARR := LOAD_PRNTARR()


  CASE ALLTRIM(CALLPARM) == 'RULE REPORT'

  // VERIFY ALL RULES USED AND NOT IN USE
    SAYTITLE('Verifying Rules Report', '0300')

    DBF_FLD_INFO := {}
    AADD(DBF_FLD_INFO, {'DATA', 100, 'C', 0} )
    CREATE_U7()

    PRNTNAME = 'RULE VERIFICATION REPORT'
    PARENTFILE = 'USERFILE7'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    DET_SUMM = .F.
    REPTHEAD = PRNTNAME
    DEFINEPROC = {|| BLD_RULERPT() }   // FOUND IN 0350
    **
    LVLBRK = {}
    **
    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'RULES'

  // VERIFY ALL RULES USED AND NOT IN USE
    SAYTITLE('Print / Display Rules', '0300')

    PRNTNAME = 'RULES REPORT'
    PARENTFILE = 'RULES'
    CHILDFILE = 'RULEPACK'
    FILEFILTER = 'RULE_CODE == RULES->RULE_CODE'
    DET_SUMM = .F.
    REPTHEAD = {"{'RULE DEFINITIONS - ' + RULES->RULE_DESC , DTOC(CURDATE) }"}
    **
    LVLBRK = {}
    **

    MDESC = 'Line Number'
    KEYVAR = 'LINE_NUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'STR(LINE_NUM,3)'
    SYSNTX = 1
    LVLBRK = {}
****AADD(LVLBRK, {'SEEKATTDESC(ATT_CODE)', ' ' } )
****AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})


    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'PRICING EXTRAS'

  // VERIFY ALL RULES USED AND NOT IN USE
    SAYTITLE('Print / Display Pricing Extras', '0300')

    PRNTNAME = 'PRICING EXTRAS REPORT'
    PARENTFILE = 'CATEGORY'
    CHILDFILE = 'PRI_EXTRAS'
    FILEFILTER = 'CAT_CODE == CATEGORY->CAT_CODE'
    DET_SUMM = .F.
    REPTHEAD = PRNTNAME
    REPTHEAD = {"{'PRICING EXTRAS  - ' + CATEGORY->DESC , DTOC(CURDATE) }"}
    **
    LVLBRK = {}
    **

    MDESC = 'Sequence Order'
    KEYVAR = 'SEQ_NUM'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'STR(SEQ_NUM,3)'
    SYSNTX = 1
    LVLBRK = {}
****AADD(LVLBRK, {'SEEKATTDESC(ATT_CODE)', ' ' } )
****AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'MANUFACTURING LOCATIONS'
    // MANUFACTURING LOCATION
    PRNTNAME = 'MANUFACTURING LOCATIONS'
    PARENTFILE = 'MFG_LOC'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    REPTHEAD = PRNTNAME

    MDESC = 'Location Code'
    KEYVAR = 'LOC_CODE'
    PIC =  '!!!!!!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'LOC_CODE'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'CUSTOMER MASTER'
    // CUSTOMER MASTER
    DBOPEN('TERMS')                       //** P3N - 02/27/02
    PRNTNAME = 'CUSTOMER MASTER'
    PARENTFILE = 'CUST_MAST'
    CHILDFILE = NIL
    FILEFILTER = '.T.'
    REPTHEAD = PRNTNAME
    DEFINEPROC = {|| DEF_CMRPT() }   // FOUND IN 0350

    MDESC = 'Customer Number'
    KEYVAR = 'CUST_ID'
    PIC =  '!!!!!!!!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP =  'CUST_ID'
    SYSNTX = 1
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Customer Name'
    KEYVAR = 'COMP_NAME'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(COMP_NAME)'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'City'
    KEYVAR = 'CUST_CITY'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(CUST_CITY + CUST_STATE + COMP_NAME)'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'State'
    KEYVAR = 'CUST_STATE'
    PIC =  '!!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(CUST_STATE + COMP_NAME)'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'CUST_STATE', MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'ZIP Code'
    KEYVAR = 'CUST_ZIP'
    PIC =  '99999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CUST_ZIP + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'CUST_ZIP',MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Delivery Route'
    KEYVAR = 'DEL_ROUTE'
    PIC =  '!!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'DEL_ROUTE + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DEL_ROUTE',MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Price Sheet'
    KEYVAR = 'PRICE_SHT'
    PIC =  '!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'PRICE_SHT + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'PRICE_SHT',MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

  CASE ALLTRIM(CALLPARM) == 'MODEL BASE PRICE' .OR. ;
       ALLTRIM(CALLPARM) == 'CATEGORY BASE PRICE'

  // IDENTIFY ALL OPTIONS USED TO PRICE A PRODUCT/MODEL
    TITLE := 'Select Price Table to Print'
    @2,0 CLEAR TO 9,80

    DBF_FLD_INFO := {}
    AADD(DBF_FLD_INFO, {'DATA', 131, 'C', 0} )
    CREATE_U7()

    NCHOICE := WHCHPRICE(1)
    IF LASTKEY() = 27
      PRNTARR := NIL
      RETURN PRNTARR
    ENDIF

    PT_PARM := CURPTBL(NCHOICE)

    PRNTNAME = 'BASE PRICE TABLES'
    PARENTFILE = 'USERFILE7'
    CHILDFILE = NIL
    FILEFILTER := '.T.'
    DET_SUMM = .F.
    REPTHEAD = {" { '" + PT_PARM + "', DTOC(CURDATE)   }"}
    IF CALLPARM = 'CATEGORY'
      BLD_PROC = "CGWBASEPRICE('CATEGORY'," + STR(NCHOICE,1) + ")"
    ELSE
      BLD_PROC = "CGWBASEPRICE('PRODUCT', " + STR(NCHOICE,1) + ")"
    ENDIF
    DEFINEPROC = {|| BASEPRICE() }   // FOUND IN 0350
    **
    LVLBRK = {}
    **
    PRNTARR := LOAD_PRNTARR()

**********

  CASE CALLPARM == 'CUSTDEL'
    //
    PRNTNAME = 'CUSTOMER LIST - DELIVERY INFORMATION'
    PARENTFILE = 'CUST_MAST'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME
    DET_SUMM := .T.
    DEFINEPROC := {|| BLD_CUSTDEL() }
    DET_LINE_EXTRA := DEL_ADD_ARR      // DELIVERY ADDRESS ARRARY

    MDESC = 'Customer ID'
    KEYVAR = 'CUST_ID'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CUST_ID'
    SYSNTX = 1
    LVLBRK = {}
    CONVKEYX := MAKE_BLOCK('CONV_RANGE(RANGE1, RANGE2)')
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF,,, CONVKEYX})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Customer Name'
    KEYVAR = 'COMP_NAME'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(COMP_NAME)'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'City'
    KEYVAR = 'CUST_CITY'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(CUST_CITY + CUST_STATE + COMP_NAME)'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'State'
    KEYVAR = 'CUST_STATE'
    PIC =  '!!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(CUST_STATE + COMP_NAME)'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'CUST_STATE', MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'ZIP Code'
    KEYVAR = 'CUST_ZIP'
    PIC =  '99999'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CUST_ZIP + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'CUST_ZIP',MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Delivery Route'
    KEYVAR = 'DEL_ROUTE'
    PIC =  '!!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'DEL_ROUTE + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DEL_ROUTE',MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

**********

  CASE CALLPARM == 'CUSTSETUP'
    //
    PRNTNAME = 'CUSTOMER LIST - TERMS and SETUP Information'
    PARENTFILE = 'CUST_MAST'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME
    DET_SUMM := .T.
    DEFINEPROC := {|| BLD_CUSTSETUP() }
    DBOPEN('TAX_SCHED')
    DBOPEN('TAX_DETAIL')

    MDESC = 'Customer ID'
    KEYVAR = 'CUST_ID'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CUST_ID'
    SYSNTX = 1
    LVLBRK = {}
    CONVKEYX := MAKE_BLOCK('CONV_RANGE(RANGE1, RANGE2)')
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF,,, CONVKEYX})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Customer Name'
    KEYVAR = 'COMP_NAME'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(COMP_NAME)'
    SYSNTX = 2
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Salesman'
    KEYVAR = 'SLSMAN'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'SLSMAN + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'SLSMAN', MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Price Sheet'
    KEYVAR = 'PRICE_SHT'
    PIC =  '!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'PRICE_SHT + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'PRICE_SHT', MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Tax Schedule'
    KEYVAR = 'TAXSCH'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'TAXSCH + COMP_NAME'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'TAXSCH',MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

**********

  CASE CALLPARM == 'DISCOUNTS'
    //
    PRNTNAME = 'CUSTOMER DISCOUNTS LIST'
    PARENTFILE = 'CUST_PRICE'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME
    DET_SUMM := .T.
    DBOPEN('CUST_MAST')

    MDESC = 'Customer ID'
    KEYVAR = 'CUST_ID'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CUST_ID'
    SYSNTX = 1
    LVLBRK = {}
    AADD(LVLBRK, {'CUST_ID', MDESC} )
    CONVKEYX := MAKE_BLOCK('CONV_RANGE(RANGE1, RANGE2)')
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF,,, CONVKEYX})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Customer Name'
    KEYVAR = {{'CUST_MAST','COMP_NAME'}, 'UPPER(DISPVALUE(CLUBID,"CLUB_MAST",{"NAME"}))'} //DATABASE VARIABLE USED FOR RANGE
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(DISPVALUE(CUST_ID,"CUST_MAST",{"COMP_NAME"}))'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DISPVALUE(CUST_ID,"CUST_MAST",{"COMP_NAME"})', ' '} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Category'
    KEYVAR = 'CAT_CODE'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CAT_CODE + PROD_CODE + CUST_ID'
    SYSNTX = 2
    LVLBRK = {}
    AADD(LVLBRK, {'CAT_CODE', MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Product'
    KEYVAR = 'PROD_CODE'
    PIC =  '!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'PROD_CODE + CAT_CODE + CUST_ID'
    SYSNTX = 3
    LVLBRK = {}
    AADD(LVLBRK, {'PROD_CODE', MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Disc %'
    KEYVAR = 'DISCOUNT'
    PIC =  '999.99'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'STR(DISCOUNT,6,2) + CUST_ID'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Price Sheet'
    KEYVAR = 'PRICE_SHT'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'PRICE_SHT + CUST_ID'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

*****************
  CASE CALLPARM == 'SPEC PRICE'
    //
    PRNTNAME = 'CUSTOMER SPECIAL PRICE SHEET LISTING'
    PARENTFILE = 'CUST_BP'
    CHILDFILE = NIL
    REPTHEAD = PRNTNAME
    DET_SUMM := .T.
    DBOPEN('CUST_MAST')

    MDESC = 'Customer ID'
    KEYVAR = 'CUST_ID'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'CUST_ID'
    SYSNTX = 1
    LVLBRK = {}
    AADD(LVLBRK, {'CUST_ID', MDESC} )
    CONVKEYX := MAKE_BLOCK('CONV_RANGE(RANGE1, RANGE2)')
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF,,, CONVKEYX})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Customer Name'
    KEYVAR = {{'CUST_MAST','COMP_NAME'}, 'UPPER(DISPVALUE(CLUBID,"CLUB_MAST",{"NAME"}))'} //DATABASE VARIABLE USED FOR RANGE
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'UPPER(DISPVALUE(CUST_ID,"CUST_MAST",{"COMP_NAME"}))'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(LVLBRK, {'DISPVALUE(CUST_ID,"CUST_MAST",{"COMP_NAME"})', ' '} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Product'
    KEYVAR = 'PROD_CODE'
    PIC =  '!'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'PROD_CODE + CAT_CODE + CUST_ID'
    SYSNTX = 2
    LVLBRK = {}
    AADD(LVLBRK, {'PROD_CODE', MDESC} )
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Base %'
    KEYVAR = 'BASEFAC'
    PIC =  '99999.99'
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'STR(BASEFAC,8,2) + CUST_ID'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'Begin Date'
    KEYVAR = 'DATE1'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'DTOS(DATE1) + CUST_ID'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    MDESC = 'End Date'
    KEYVAR = 'DATE2'
    PIC =  ''
    RANGETYPE = 'R'
    CUTOFF = .F.
    NDXEXP = 'DTOS(DATE2) + CUST_ID'
    SYSNTX = NIL
    LVLBRK = {}
    AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
    AADD(SORTARR,  {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})

    PRNTARR := LOAD_PRNTARR()

*****************

OTHERWISE
  PRNTARR := NIL
ENDCASE

RETURN PRNTARR
*******************************************************************
FUNCTION CURPTBL(WHCHTBL)
DO CASE
  CASE WHCHTBL = 1
    RETURN 'DEALER PRICE SHEET'
  CASE WHCHTBL = 2
    RETURN 'SPECIAL DEALER PRICE SHEET'
  CASE WHCHTBL = 3
    RETURN 'BUILDER PRICE SHEET'
  CASE WHCHTBL = 4
    RETURN 'LUMBERMEN PRICE SHEET'
  CASE WHCHTBL = 5
    RETURN 'DISTRIBUTOR PRICE SHEET'
  CASE WHCHTBL = 6
    RETURN 'INTERCOMPANY PRICE SHEET'
  OTHERWISE
    ? ABEND

ENDCASE


*******************************************************************
// PRINT THE DELIVERY ADDRESS AS DETAIL EXTRA LINE
FUNCTION DA(PARM)
LOCAL NUMSP1 := SPACE(09) , NUMSP2 := SPACE(48)
DO CASE
  CASE PARM = 1
    RETURN NUMSP1 + PADR(CUST_MAST->CUST_ADDR,30) ;
         + NUMSP2 + CUST_MAST->SHIPADD1
  CASE PARM = 2
    RETURN NUMSP1 + PADR(CUST_MAST->CUST_ADDR2,30) ;
         + NUMSP2 + ALLTRIM(CUST_MAST->SHIPADD2) + ' ' ;
         + CUST_MAST->SHIPST + ' ' + CUST_MAST->SHIPZIP
  CASE PARM = 3
    RETURN NUMSP1 + PADR( ALLTRIM(CUST_MAST->CUST_CITY) + ' ' ;
         + CUST_MAST->CUST_STATE + ' ' + CUST_MAST->CUST_ZIP, 30) ;
         + NUMSP2 + 'Phone: ' + ALLTRIM(CUST_MAST->SHIPPHN) + ' FAX: ' + CUST_MAST->SHIPFAX
  CASE PARM = 4
    RETURN NUMSP1 + 'Phone: ' + ALLTRIM(CUST_MAST->PHONE) + ' FAX: ' + CUST_MAST->FAX
  CASE PARM = 5
    RETURN REPLICATE('-', LEN(DATA) )
ENDCASE


***********************************************************
FUNCTION GET_NAME(MCUST_ID)
// RETURN THE CUST_ID NAME

RETURN ORD_MAST->BILL_NAME
***********************************************************
*  CREATE THE USERFILE7 FOR REPORT PROCESSING
***********************************************************
FUNCTION CREATE_U7()
IF SELECT('USERFILE7') > 0
  SELECT USERFILE7
  USE
ENDIF
IF FILE(USERFILE7 + '.DBF')
  ERASE (USERFILE7+'.DBF')
ENDIF
CREATE_DBF(USERFILE7, DBF_FLD_INFO)
NET_USE(USERFILE7, .T., 3, 'USERFILE7')
RETURN