jsoltys/CGW
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
CGW/CGW0300.PRG
T
Jason Soltys 7905c43278 first commit
2026-07-14 00:41:31 -05:00

1862 lines
51 KiB
Plaintext
Raw Permalink Blame History

* 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

Reference in New Issue View Git Blame Copy Permalink