jsoltys/CGW
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

first commit

Browse Source
This commit is contained in:
Jason Soltys
2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
AOMAST.NTX
BIN
View File
Binary file not shown.
AQMAST.NTX
BIN
View File
Binary file not shown.
CGW0000.PRG
+372
View File
@@ -0,0 +1,372 @@
# include 'inkey.ch'
// #INCLUDE 'FIVEWIN.CH'
/*
DON'S NOTES FOR CONVERSION 1/20/20
************************************
MAX TTH / TTW RULES ?????
DIDN'T SEE ANY REFERENCE TO SET THESE.
//PRINTING?
//PAINT5 ABEND
LPT2 SET - TRY SETTING A PRINTER VIA WINDOWS PRINTERS
RUN THRU THE VARIOUS REPORTS.
BIG WHITE SPACE IN THE REVIEW / SELECT QUOTES FOR CONVERSION TO ORDERS.
ACCOUNTING RECAP ERRORS - FILES DON'T COPY PROPERLY
BROWSE REPORTS SHOULD CALL NOTEPAD LIKE THE OTHER PRINT - REPORT TO FILE
COPY REPORT TO DIFFERENT FILE ERRORS ON DONWAITRUN
*/
FUNCTION CGW0000(INITRUN, DBDRIVER)
LOCAL TITLEMSG, EXITPROC, USEPASS, BLD_MENU
LOCAL NILVAR
PRIVATE _THISUSER_TEMP // 6/3/2020 FOR PRINTING
PRIVATE OE_TYPE := ' ' //** P3N - 09/20/06
PRIVATE ACTION
PRIVATE SYSCODE := 'CGW'
PRIVATE FRACTION_ARR := {}
PRIVATE __DEVELYR := 1993
PRIVATE __VAL_ALL_REC := .T.
PRIVATE __VAL_ALL_RECS := .T.
PRIVATE CURVER := '3.50'
PRIVATE PRODTIME := 0 //** P3N - 01/16/02
IF DBDRIVER = 'CDX'
CURVER := '3.50'
ELSE
// CURVER := '4.10' // 1-20-20
CURVER := '3.40'
ENDIF
// PRINTER STUFF
PRIVATE _REPORT
PRIVATE _PRODUCTION
PRIVATE _ORDERDESK
PRIVATE _INVOICE
PRIVATE _QUOTE
PRIVATE _PREBILL
PRIVATE _DELIVERY
PRIVATE _GOLDEN
PRIVATE _LBLPRN
PRIVATE _ICPRN
PRIVATE _BOPRN //** P3N - 4/30/98
PRIVATE _RPTPORT
PRIVATE _PORT_PROD
PRIVATE _PORT_ORDER
PRIVATE _PORT_INVOICE
PRIVATE _PORT_QUOTE
PRIVATE _PORT_PREBILL
PRIVATE _PORT_DELIVERY
PRIVATE _PORT_GOLDEN
PRIVATE _PORT_LABEL
PRIVATE _PORT_IC
PRIVATE _PORT_BO //** P3N - 4/30/98
PRIVATE _GRAPHAPP := .F.
PRIVATE _MSHOWPARM
PRIVATE _OC_CAPABLE := .F.
// COMPILER RESOLVE 1-20-20
NILVAR := IIF( 1 = 2, .T., .F. )
#IFDEF CGWB
IF INITRUN = 'ADDREC'
ACTION = INITRUN
ENDIF
TITLEMSG := " GREAT PLAINS Customer Interface "
EXITPROC := 'CGWB0100()'
USEPASS := .F.
BLD_MENU := .F.
#ELSE
TITLEMSG := "Order Entry System (32-BIT) - "
EXITPROC := 'CGW0100()'
USEPASS := .T.
BLD_MENU := .T.
#ENDIF
IF DBDRIVER = NIL
DBDRIVER = 'NTX'
ENDIF
// msginfo( 'got to start' )
START(INITRUN, CURVER, SYSCODE, TITLEMSG, EXITPROC, USEPASS, BLD_MENU, , DBDRIVER)
RETURN //** P3N - 4/21/00
************************************************************************
// 1-20-20
FUNCTION CALL_OLAY(OPTION, TITLE, PROG, NUM_MEM, PATHNAME, ENVIR_VARS)
RETURN DONWAITRUN( PROG )
***********************************************************************
********************************************************
* CALL A PROGRAM! *
********************************************************
// 1-20-20
FUNCTION DONWAITRUN( PROG, SWITCH , ODLG, MSGARR) // PASS A WAIT DIALOG ?
#INCLUDE 'FIVEWIN.CH'
LOCAL RETVAL, RETCODE, WORKPROG, PROGCMD, PROGPARM, POS
LOCAL EVALBLOCK // 2/26/15 DON
*************************************************************
* DETERMINE THE VALIDITY OF THE PROGRAM TO BE CALLED! *
*************************************************************
// Perry - 2-11-98
PROG := ALLTRIM( PROG )
WORKPROG := ALLTRIM( UPPER(PROG) )
IF ISCODEBLOCK( WORKPROG )
EVALBLOCK := &( WORKPROG )
RETVAL := EVAL( EVALBLOCK )
// IF AT('.BAT', WORKPROG ) > 0 .OR. ;
ELSEIF .T. .OR. ;
AT('.BAT', WORKPROG ) > 0 .OR. ;
AT('.EXE', WORKPROG ) > 0 .OR. ;
AT('.COM', WORKPROG ) > 0 .OR. ;
SUBS( PROG, 1, 4 ) = 'DEL ' .OR. ;
SUBS( PROG, 1, 4 ) = 'REN ' .OR. ;
SUBS( PROG, 1, 6 ) = 'XCOPY ' .OR. ;
SUBS( PROG, 1, 5 ) = 'COPY '
//EXECUTABLE FILE TYPE FOUND - OK
IF !EMPTY( ODLG ) .AND. !EMPTY(MSGARR)
WAIT_REFRESH( ODLG, MSGARR )
ENDIF
//IF EMPTY(SWITCH)
// SWITCH := SW_MINIMIZE
//ENDIF
// RETCODE := WINEXEC( PROG )
RETCODE := WAITRUN( PROG )
// RETCODE := WAITRUN ( PROG )
// ** IF RETCODE > 0 .AND. RETCODE < 32 // changed to >1 8-31-007
// call to our exe returns 1
IF RETCODE > 1 .AND. RETCODE < 32
MSGALERT( 'Return Code From External DonWaitRun ' +CR_LF(2)+;
'The External command is - "' + PROG +'"', ;
'Execution Return Code - "' + alltrim( STR( RETCODE , 10 ) )+'"' )
RETVAL := .F.
ELSE
RETVAL := .T.
ENDIF
// IF >= 32, THIS IS THE INSTANCE(?) HANDLE RETURNED FROM WINAPI
// OTHERWISE SOME ERROR MESSAGE - SEE WINEXEC() DOCUMENTATION
// IN FIVEWIN / TURBO C++ HELP ON WINDOWS API.
ELSE
// ERRORDIALOG( , .T., ,'INVALID COMMAND During WINRUN!' ) //** force error log to be written
MSGSTOP( 'Bad COMMAND - '+ALLTRIM(PROG)+' Invalid file extention!' + CR_LF() ;
+ 'MUST have an extention of - ".BAT", ".EXE", OR ".COM", ' + CR_LF() ;
+ 'OR You May Invoke the "COPY", "REN" or "DEL" Commands.' + CR_LF() ;
, 'INVALID COMMAND During WINRUN!' )
RETVAL := .F.
ENDIF
SYSREFRESH()
RETURN RETVAL
******************************************************
//FUNCTION GET_FILEPARM(MALIAS)
//RETURN GET_FILEPA(MALIAS)
************************************************************
********************************************************
FUNCTION WAIT_REFRESH( ODLG, MSGARR )
LOCAL I
PAINTDLG( ODLG, MSGARR )
RETURN .T.
***************************************************************
// DETERMINES IS A STRING IS IN CODE BLOCK FORMAT
FUNCTION ISCODEBLOCK( PASSVAR )
LOCAL RETVAL := .F.
PASSVAR := ALLTRIM( PASSVAR )
IF LEFT( PASSVAR,1 ) = '{'
IF RIGHT( PASSVAR,1 ) = '}'
IF AT( '|', PASSVAR ) > 0 ;
.OR. AT( '\\', PASSVAR ) > 0 // DON 10-01-10
RETVAL := .T.
ENDIF
ENDIF
ENDIF
RETURN RETVAL
**************************************************************
//** P3N - 4/21/00
//** ADDED THE FOLLOWING REFERENCES TO GET RID OF ANY
//** BLINKER UNRESOLVED MESSAGES - FROM DOSWIN.PRG
FUNCTION WNETGETUSE() //** P3N - 4/21/00
RETURN //** P3N - 4/21/00
FUNCTION GETMODULEF() //** P3N - 4/21/00
RETURN //** P3N - 4/21/00
FUNCTION GETINSTANC() //** P3N - 4/21/00
RETURN //** P3N - 4/21/00
FUNCTION GETPVPROFS() //** P3N - 4/21/00
RETURN //** P3N - 4/21/00
************************************************************************
****************************
function d_altd( SETCMD ) // don't have to code altd twice 11-11-007 don
IF !EMPTY( SETCMD )
M->DEBUG_SWITCH := UPPER( SETCMD )
ENDIF
// comment out for production
altd(1)
altd()
return nil
***********************************************************************
// moved to winutil next to d_altd() function 7/8/2019
//** comment out these 2 requests for Production Make/Link
//** p3n - 03/22/13 these requests are required harb v3.2 for debug console mode
#ifdef __FWH13__
// comment out to supress extra window for debug.
// activate if you WANT the console window for debug.
REQUEST HB_GT_WIN
REQUEST HB_GT_WIN_DEFAULT
// Harbour requirement for console debug mode comment out for Production Make/Link Windows
// But always required for console mode PROGRAM EXECUTION, LIKE CGW is.
procedure hb_gt_gui_default
return
#ENDIF
***************************************
**********************************************************************
//** P3N - 03/14/14
//** USE IN LIEU OF LL_MEMOWRIT()
**********************************************************************
FUNCTION LL_MEMOWRIT( MFILE, MDATA )
LOCAL SUCCESS := .T.
LOCAL RETVAL := 0
LOCAL CREATECD
MFILE := ALLTRIM( MFILE ) // 10-12-2020
CREATECD := FCREATE( MFILE,0 ) //** NORMAL - READ/WRITE
IF CREATECD < 0
MSGSTOP('LL_MEMOWRIT() - FCreate() File Name - "'+MFILE+'"', ;
'File CREATE Error - '+STR(CREATECD) )
SUCCESS := .F.
//DISP_STACK() // 3/12/19
ENDIF
// d_altd()
IF VALTYPE( MDATA )$'C' .AND. LEN( MDATA ) > 0 // 10-5-2020 - WHY WOULD MDATA <> 'C' ???
// GOOD DATA TO WRITE
ELSE
SUCCESS := .F.
MSGSTOP( 'Bad Data to Write' + cr_lf() ;
+ "MDATA's DATA TYPE was: " + VALTYPE( MDATA ) + CR_LF() ;
+ "MDATA's LENGTH was: " + IF( VALTYPE( MDATA )$'C', STR( LEN( MDATA )) , '??' ) , ;
'Can Not Write Data File' )
ENDIF
IF SUCCESS
RETVAL := FWRITE( CREATECD, MDATA ) // write REQUEST to TXT fil
IF RETVAL = LEN( MDATA )
//** FWRITE SUCCESSFULL - CONTINUE
ELSE
MSGSTOP('FWrite() Error - "' + MFILE + '"' + CR_LF() ;
+ 'Length of Message: ' + ALLTRIM( STR( LEN( MDATA ) ) ) , ;
'File WRITE Error - '+STR(CREATECD) )
SUCCESS := .F.
ENDIF
IF SUCCESS
IF FCLOSE( CREATECD )
//** FILE SUCCESSFULLY CLOSED - CONTINUE
ELSE
MSGSTOP('FClose() Error - "'+MFILE+'"', ;
'File CLOSE Error - '+STR(CREATECD) )
SUCCESS := .F.
ENDIF
ENDIF
ENDIF
RETURN SUCCESS
**********************************************************************
CGW0100.PRG
+1062
View File
File diff suppressed because it is too large Load Diff
CGW0200.PRG
+714
View File
@@ -0,0 +1,714 @@
* MIKE LEWIS -BUILD ADD, CHANGE, DELETE ARRAY- CGW0200 4-08-93
PROCEDURE BUILDACD(MALIAS, SCR_NUM)
PRIVATE ACDARR := {}
PRIVATE SCRNUM
PRIVATE FILELIST := {}
PRIVATE PREPROC := {}
PRIVATE POSTPROC := ''
PRIVATE OFFSET := 0
PRIVATE EDITPROC := ''
PRIVATE COMPLETEKEY := NIL
PRIVATE CONVERT_KEY := ''
PRIVATE RELATED_DBF := ''
PRIVATE DOPROC
PRIVATE XTRA_HEADING
PRIVATE XTRA_CARGO
PRIVATE ESC_PROC
IF SELECT('IMPCUST') = 0
IC_PARMS = DBOPEN('IMPCUST')
ENDIF
//**** ACDARR LAYOUT ****\\
// 1 = FILE ALIAS
// 2 = SCREEN NUMBER
// 3 = ARRAY OF FILES THAT NEED TO BE OPEN
// 4 = PROC TO EXECUTE BEFORE THE SAYS AND GETS
// ie TO PAINT ADDITIONAL INFO ON SCREEN, etc.....
// 5 = PROC TO EXECUTE AFTER THE GETS
// ie TO UPDATE ANY NON RELATED VARIABLES ......
// 6 = HORIZONTAL OFFSET FOR SCREEN GETS
// 7 = PROC TO EDIT THE GET FIELDS
// 8 = ARRAY OF PARTIAL KEYS WHICH MAKE RECORD UNIQUE.
// IF ARRAY IS EMPTY, THEN ONLY ONE COMPONENT OF THE KEY
// 9 = KEY CONVERSION PROC - IE PAD WITH LEADING ZEROS, ETC.
// 10 = LIST OF DBF'S THAT SHOULD BE CONSIDERED WHEN DELETING INFO
// 1 ARRAY FOR EACH DBF. ELEMENT 1 = DBF ALIAS NAME, ELEM 2 = INDEX SEEK ORDER
// 11 = OPTIONAL TOP HEADING FOR ACD_BROWSE
// 12 = OPTIONAL ACD CARGO FOR HOT KEYS USED IN ACD_BROWSE
DO CASE
// DATA DICTIONARY
CASE MALIAS = 'DATADICT'
SCRNUM = '0950'
ACDARR := LOAD_ACDARR(MALIAS)
// CONTROL FILE
CASE MALIAS = 'CONTROL'
SCRNUM = '9990'
PREPROC = { { 'CURVER' , 'G'},{'OPN_MFG()', 'I' } }
******PREPROC = { { 'CURVER' , 'G'},{'SVPRNTDTS()', 'I'} } // GETKEY PREPROC TO STUFF CURVER
***** POSTPROC = {'CLOSE_MFG()'}
ACDARR := LOAD_ACDARR(MALIAS)
// GL ALLOC FILE
CASE MALIAS = 'GL_ALLOC'
SCRNUM = '8880'
AADD(PREPROC,{'ADDL_KEY()', 'K'} ) // KEY PREPROC
******AADD(PREPROC,{'TOT_GLALLOC(MORDER_NUM)', 'P'} ) //PAINT PREPROC
******PREPROC = { { 'CURVER' , 'G'} }
******PREPROC = { { 'CURVER' , 'G'},{'SVPRNTDTS()', 'I'} } // GETKEY PREPROC TO STUFF CURVER
******POSTPROC = {'RESET_PRNTDTS()'}
ACDARR := LOAD_ACDARR(MALIAS)
// PRODUCTS
CASE MALIAS = 'PRODUCT'
SCRNUM = '1110'
PREPROC = { {'SET_NOTES("PRODUCT->NOTES", "Product")','P'} } // SETS HOT KEY FOR NOTE UPDATE
AADD(PREPROC, {'NEW_ITEM("MODEL")', 'M'})
AADD(PREPROC, {'PAINT_KEYS("PROD_CODE",,41)','P'} ) // PAINT KEY FIELD
AADD(PREPROC, {'CAT_PAINT()', 'P'})
POSTPROC = {'RESET_NOTES()', 'CONT_PROC("Are the MODEL ATTRIBUTES",';
+ '"DIFFERENT from the STANDARD",';
+ '"CATEGORY ATTRIBUTES?")'}
AADD(POSTPROC, {'CHK_PRODDEL()','D'} ) //** P3N - 9/22/00
RELATED_DBF := { {'PROD_ATTS',1}, {'PROD_OPTS',1} }
AADD(RELATED_DBF, {'STD_SIZES', 1} )
AADD(RELATED_DBF, {'STD_SASH', 1} )
AADD(RELATED_DBF, {'CUT_SPEC', 1} )
//** AADD(RELATED_DBF, {'MATHPACK', 1} )
ACDARR := LOAD_ACDARR(MALIAS)
// PRODUCT CATEGORY
CASE MALIAS = 'CATEGORY'
SCRNUM = '1120'
AADD(PREPROC, {'NEW_ITEM("CATEGORY")', 'M'})
AADD(PREPROC, {'PAINT_KEYS("CAT_CODE",,41)','P'} ) // PAINT KEY FIELD
AADD(PREPROC, {'CATPAINT2()', 'P'}) //** P3N - 02/13/04
RELATED_DBF := { {'CAT_ATTS',1}, {'CAT_OPTS',1}, {'MATHPACK',1}}
ACDARR := LOAD_ACDARR(MALIAS)
// RULES
CASE MALIAS = 'RULES'
SCRNUM = '1150'
AADD(PREPROC, {'PAINT_KEYS("RULE_CODE",,41)','P'} ) // PAINT KEY FIELD
ACDARR := LOAD_ACDARR(MALIAS)
// MANUFACTURING LOACTION
CASE MALIAS = 'MFG_LOC'
SCRNUM := '1160'
AADD(PREPROC, {'PAINT_KEYS("LOC_CODE",,41)','P'} ) // PAINT KEY FIELD
ACDARR := LOAD_ACDARR(MALIAS)
// SHIPPING METHODS
CASE MALIAS = 'SHIPMETH'
SCRNUM := '1180'
ACDARR := LOAD_ACDARR(MALIAS)
// SHIPPING TERMS CODES
CASE MALIAS = 'TERMS'
SCRNUM := '1190'
ACDARR := LOAD_ACDARR(MALIAS)
// SALES MEN MASTER LIST
CASE MALIAS = 'SALESMEN'
SCRNUM := '1100'
ACDARR := LOAD_ACDARR(MALIAS)
// CUTTING SPEC ATTRIBUTES
CASE MALIAS = 'ATTRIB_CUT'
SCRNUM := '1130'
RELATED_DBF := { {'CUT_SPEC',3},{'MATHPACK',2} }
AADD(PREPROC, {'PAINT_KEYS("ATT_CODE",,41)','P'} ) // PAINT KEY FIELD
ACDARR := LOAD_ACDARR(MALIAS)
// RULE PACKS
CASE MALIAS = 'RULEPACK'
FILELIST := {'ATTRIBUTES', 'ATT_OPTS', 'CAT_OPTS', 'PROD_OPTS'}
SCRNUM = '11150'
RELATED_DBF := { {'RULE_PACK',1} }
ACDARR := LOAD_ACDARR(MALIAS)
// ATTRIBUTES
CASE MALIAS = 'ATTRIBUTES'
SCRNUM = '1130'
AADD(PREPROC, {'PAINT_KEYS("ATT_CODE",,41)','P'} ) // PAINT KEY FIELD
RELATED_DBF := { {'ATT_OPTS',1} }
ACDARR := LOAD_ACDARR(MALIAS)
// ATTRIBUTES OPTIONS
CASE MALIAS = 'ATT_OPTS'
SCRNUM = '11350'
ACDARR := LOAD_ACDARR(MALIAS)
// CATEGORY ATTRIBUTES
CASE MALIAS = 'CAT_ATTS'
SCRNUM = '112B0'
FILELIST = {"ATTRIBUTES"} // OPEN ATTRIBUTE FILE
// INITIAL PREPROC
PREPROC = { {"MAKE_MATH('5')", 'I'},{ 'COPYSTD()', 'M'} } // MODEL AFTER / KEY PROC
ACDARR := LOAD_ACDARR(MALIAS)
// CATEGORY SIZE TABLES
CASE MALIAS = 'STD_SIZES'
SCRNUM = '1140'
ACDARR := LOAD_ACDARR(MALIAS)
// CATEGORY PRICING EXTRAS
CASE MALIAS = 'PRI_EXTRAS'
SCRNUM = '1250'
FILELIST = {"CUST_MAST"}
RELATED_DBF := { {'CUST_ATTS',1}, {'CUST_OPTS',1} }
ACDARR := LOAD_ACDARR(MALIAS)
// CATEGORY OPTIONS
CASE MALIAS = 'CAT_OPTS'
SCRNUM = '11210'
FILELIST = {"ATT_OPTS"}
AADD(FILELIST, 'RULES')
AADD(FILELIST, 'RULEPACK')
PREPROC = { {'CGW11PRE("CATEGORY", 2)', 'K'} , ; // KEY PREPROC
{'COPY_OPTS("ATT_OPTS", "CAT_OPTS")', 'M'} } // MODEL AFTER
XTRA_HEADING := SETUP_XHEAD('CAT_OPTS')
ACDARR := LOAD_ACDARR(MALIAS)
// CUSTOMER MASTER
CASE MALIAS = 'CUST_MAST'
IF SCR_NUM = NIL .OR. SCR_NUM = '1170'
SCRNUM := '1170'
FILELIST := {'TAX_SCHED', 'TAX_DETAIL'}
RELATED_DBF := { {'CUST_PRICE',1}, {'CUST_BP',1} }
PREPROC := { {'ORD_PAINT(9,14,9,47, "LNOR")','P'} } // paint bill to/ship to
AADD(PREPROC, {'PAINT_KEYS("CUST_ID",,41)','P'} ) // PAINT KEY FIELD
POSTPROC = {'SPEC_PRICING()'}
XTRA_CARGO := CUST_HOTKEYS()
//** COMMENTED OUT - WHY HERE??????? //** P3N - 5/26/98
//** ELSE //** P3N - 5/26/98
//** SCRNUM := '3245' //** P3N - 5/26/98
ENDIF
ACDARR := LOAD_ACDARR(MALIAS)
// CUSTOMER PRICING DISCOUNT TABLE
CASE MALIAS = 'CUST_PRICE'
SCRNUM := '11710'
AADD(PREPROC,{'{CUST_MAST->CUST_ID}', 'K'} ) // KEY PREPROC
ACDARR := LOAD_ACDARR(MALIAS)
CASE MALIAS = 'CUST_BP'
SCRNUM := '11720'
AADD(PREPROC,{'{CUST_MAST->CUST_ID}', 'K'} ) // KEY PREPROC
RELATED_DBF := { {'CUST_OPTS',1}, {'CUST_ATTS',1} } //** P3N - 3/12/99
ACDARR := LOAD_ACDARR(MALIAS)
// TAX TABLE SCHEDULE
CASE MALIAS = 'TAX_SCHED'
SCRNUM := 'TX10'
FILELIST := {'TAX_DETAIL'}
ACDARR := LOAD_ACDARR(MALIAS)
// TAX TABLE detail gl acct numbers
CASE MALIAS = 'TAX_DETAIL'
IF SCR_NUM = NIL
SCRNUM := 'TX20'
ELSE
SCRNUM := SCR_NUM
ENDIF
ACDARR := LOAD_ACDARR(MALIAS)
// PRODUCT ATTRIBUTES
CASE MALIAS = 'PROD_ATTS'
SCRNUM = '11110'
FILELIST = {"CAT_ATTS",'CATEGORY'} // OPEN ATTRIBUTE FILE
// INITIAL PREPROC
PREPROC = { {"MAKE_MATH('5')", 'I'}, ;
{'MODELAFTER("CAT_ATTS", "USERFILE2", "PROD_ATTS", "PRODUCT", 1 )', 'M'} } // MODEL AFTER
ACDARR := LOAD_ACDARR(MALIAS)
// PRODUCT ATTRIBUTE OPTIONS
CASE MALIAS = 'PROD_OPTS'
SCRNUM = '11120'
FILELIST = {"ATT_OPTS","CAT_OPTS",'CATEGORY'} // OPEN category level files for model after
AADD(FILELIST, 'RULES')
AADD(FILELIST, 'RULEPACK')
PREPROC = { {'CGW11PRE("PRODUCT", 2)', 'K'} ,; // KEY PREPROC
{'COPY_OPTS("CAT_OPTS", "PROD_OPTS")', 'M'} , ; // MODEL AFTER
{'COPY_OPTS("ATT_OPTS", "PROD_OPTS")', 'M'} } // MODEL AFTER
XTRA_HEADING := SETUP_XHEAD('PROD_OPTS')
ACDARR := LOAD_ACDARR(MALIAS)
// PASSWORDS
CASE MALIAS = 'PASSWORD'
SCRNUM = '6100'
PREPROC = { {'XXXPASSP()','P'} } // PAINTS INSTRUCTION BOX ON SCREEN
POSTPROC = 'XXXPASSS()' // UPDATE PASSWORD AND AUTHORIZATION VARIABLES
// IF THE CURRENT USER CHANGES HIS OPTIONS
OFFSET = -5
ACDARR := LOAD_ACDARR(MALIAS)
// ORDER MASTER
CASE MALIAS = 'ORD_MAST'
CONVERT_KEY = 'KEY_CONV(C_MKEY)'
******IF SCR_NUM = NIL .OR. SCR_NUM = '2110' .OR. SCR_NUM = '2310'
IF SCR_NUM = NIL .OR. RIGHT( SCR_NUM, 1 )$'0'
IF SCR_NUM = NIL
// called from menu - nothing open
SCR_NUM = '2110'
PREPROC = { {'GET_ORD_NUM()','G'} } // GET ORDER NUMBER
ELSE
// screen num IS AVAILABLE - NOT SCREEN 2115 (SUMMARY)
IF SCR_NUM = '2130'
// ARCHIVE PROCESS
*********** PREPROC = { {'GET_ORD_NUM(,"MANUAL")','G'} } // GET ORDER NUMBER
ELSE
IF SCR_NUM = '2120'
// RECURSIVE ORDER PROCESSING FROM PRINT SCREEN
PREPROC = { { 'ORD_MAST->ORDER_NUM','G'} } // CHANGE ORDER
ENDIF
ENDIF
ENDIF
AADD(PREPROC, {'GET_THE_CUST( , "RESET")','I'}) // RESET STATIC VARIABLES
AADD(PREPROC, {'ZAP_FILE689()','I'}) // ZAP THE USERFILES
AADD(PREPROC, {'PAINT_KEYS("ORDER_NUM",,41)','P'} ) // PAINT KEY FIELD
AADD(PREPROC, {'ORD_PAINT(10,12,10,49, "LNOR" )','P'} ) // paint bill to/ship to
AADD(PREPROC, {'NOTES_MSG("O")','P'}) //Are notes present on order????
POSTPROC = 'ORD_USER()'
ESC_PROC := 'RESET_CNTL()'
ELSEIF SCR_NUM = '2115'
PREPROC := { {'MISCP_PAINT()','P'} } // PAINT PREPROC
ENDIF
SCRNUM := SCR_NUM
RELATED_DBF := { {'ORD_LINES',1}, {'ORDER_OPTS',1},;
{'ORD_MISC',1}, {'ORD_SHIP',1} ,;
{'ADDL_LINES',1}, {'ADDL_OPTS',1},;
{'ALTSHIPADR',1} }
XTRA_CARGO := ORD_HOTKEY("ORDERS", SCRNUM)
ACDARR := LOAD_ACDARR(MALIAS)
// ORDER LINES
CASE MALIAS = 'ORD_LINES'
// OPEN DBF'S
IF SCR_NUM = NIL
// extra files opened in cgwprpo0
SCRNUM = '2110'
PREPROC = { {'SET_TCALC()', 'I'}, ;
{'SEEKFUNC("ORD_LINES", "ORD_MAST->ORDER_NUM")', 'I'},; // INITIALIZE PROC
{'MODELAFTER("ORDER_OPTS", "USERFILE8", "ORDER_OPTS", "ORD_MAST",{"ORDER_OPTS->ORDER_NUM","ORD_MAST->ORDER_NUM"} )', 'I'},; // INITIALIZE PROC
{'MODELAFTER("ADDL_OPTS", "USERFILE9", "ADDL_OPTS", "ORD_MAST",{"ADDL_OPTS->ORDER_NUM", "ORD_MAST->ORDER_NUM"} )', 'I'}, ; // INITIALIZE PROC
{'MODELAFTER("ADDL_LINES", "USERFILE6", "ADDL_LINES", "ORD_MAST",{"ADDL_LINES->ORDER_NUM","ORD_MAST->ORDER_NUM"} )', 'I'}} // INITIALIZE PROC
POSTPROC = {'UPDATE_ORDS("USERFILE8")', ; // UPDATE ORDER OPTIONS FROM USERFILE8
'UPDATE_ORDS("USERFILE9")', ; // UPDATE ADDITIONAL OPTIONS FROM USERFILE9
'UPDATE_LINES("USERFILE6")', ; // UPDATE ADDITIONAL ORDER LINES FROM USERFILE6
'DO_ADDL_LINES()',; // UPDATE ADDITIONAL LINES
'UPDATE_ORDS("FILE8FILE9")', ; // UPDATE ADDITIONAL ORDER OPTIONS FROM USERFILE8
'MISC_PRICING( )' ,; // UPDATE TAX/ETC
'ORD_PRINT(NIL, "Print Order", "OE" )' } // PRINT ORDER (IN CGWPRINT)
ENDIF
ACDARR := LOAD_ACDARR(MALIAS)
// TEMP ORDER LINES
CASE MALIAS = 'TORD_LINES'
IF SCR_NUM = NIL .OR. SCR_NUM = '322'
SCRNUM = '3220' //** ORDER CONTROL SCREEN
XTRA_CARGO := TOL_HOTKEYS('SHIP')
XTRA_HEADING := {SPACE(55)+'F1-Delete ALL Shipping', ;
SPACE(23)+'Select Product(s) to Ship'+ ;
SPACE(7) +'F2-NOTES (BO / Common)', ;
SPACE(55)+'F3-Alt. Shipping Info.', ' ' }
POSTPROC := { {'DEL_ORD_SHIP(ORD_MAST->ORDER_NUM)', 'A' } }
ELSEIF SCR_NUM = '321' //** ORDER ENTRY - BROWSE SHIPPING INFO
SCRNUM = '3210' //** BROWSE ONLY SCREEN
XTRA_HEADING := {} //** P3N - 1/27/00
XTRA_CARGO := TOL_HOTKEYS('OE') //** P3N - 1/27/00
ELSEIF SCR_NUM = '323'
SCRNUM = '3230' //** PRODUCTION CONTROL SCREEN
XTRA_CARGO := TOL_HOTKEYS('PROD')
XTRA_HEADING := {' ', SPACE(23)+'Select Product(s) Completed' , ;
' ', ' ' }
//*** POSTPROC := { {'DEL_ORD_SHIP(ORD_MAST->ORDER_NUM)', 'A' } }
ENDIF
ACDARR := LOAD_ACDARR(MALIAS)
// ORDER LINES PRODUCED - P3N - 5/13/98
CASE MALIAS = 'ORD_PROD'
IF SCR_NUM = NIL .OR. SCR_NUM = '22350'
PREPROC := {}
AADD( PREPROC, { 'GET_CTL_KEY()' , 'K' } )
AADD( PREPROC, { 'BLD_TMPOPT()' , 'I' } ) //** P3N - 1/15/02
XTRA_HEADING := {' Enter Date to INDICATE COMPLETED' , ;
' ZERO Qty to REMOVE Transaction', ' ' }
ELSEIF SCR_NUM = '22360'
AADD( PREPROC, { 'GET_CTL_KEY(1)' , 'K' } )
ELSEIF SCR_NUM = '223'
SCRNUM := SCR_NUM
ENDIF
SCRNUM = '22350'
ACDARR := LOAD_ACDARR(MALIAS)
// ORDER LINES SHIPPED - P3N - 5/13/98
CASE MALIAS = 'ORD_SHIP'
PREPROC := {}
IF SCR_NUM = NIL .OR. SCR_NUM = '21350'
AADD( PREPROC, { 'GET_CTL_KEY()' , 'K' } )
AADD( PREPROC, { 'BLD_TMP_OST()' , 'I' } ) //** P3N - 1/15/99
//UPDATE ORDER SHIPPING TRANSACTIONS
POSTPROC := { {'DEL_ORD_SHIP(TORD_LINES->ORDER_NUM)', 'A' } }
XTRA_HEADING := {' Enter Date to INDICATE SHIPPED', ;
' ZERO Qty to REMOVE Transaction', ' ',{||DSPLBO_QTY()},' ' }
ELSEIF SCR_NUM = '21360'
AADD( PREPROC, { 'GET_CTL_KEY(1)' , 'K' } )
ENDIF
SCRNUM = '21350'
ACDARR := LOAD_ACDARR(MALIAS)
// ADDITIONAL ORDER LINES
CASE MALIAS = 'ADDL_LINES'
// OPEN DBF'S
SCRNUM = '21120'
PREPROC = { {'ADDL_KEY()', 'K'} } // KEY PREPROC
ACDARR := LOAD_ACDARR(MALIAS)
//** P3N - 11/13/98 (FRIDAY THE 13TH-OMINUS)
// ALTERNATE SHIPPING ADDRESS INFO
CASE MALIAS = 'ALTSHIPADR'
SCRNUM := '3245'
AADD( PREPROC, { 'GET_ASA_KEY()' , 'K' } )
******PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
ACDARR := LOAD_ACDARR(MALIAS)
// ORDER OPTIONS
CASE MALIAS = 'ORDER_OPTS'
SCRNUM := '2120'
PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
ACDARR := LOAD_ACDARR(MALIAS)
// ADDITIONAL ORDER OPTIONS
CASE MALIAS = 'ADDL_OPTS'
SCRNUM := '2122'
PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
POSTPROC = { 'STUFF_ENTER_KEY()' } // FORCE ENTER ON BLANK GET
ACDARR := LOAD_ACDARR(MALIAS)
// QUOTE MASTER
CASE MALIAS = 'QUOTE_MAST'
CONVERT_KEY = 'KEY_CONV(C_MKEY)'
IF SCR_NUM = NIL .OR. RIGHT( SCR_NUM, 1 )$'0'
IF SCR_NUM = NIL
SCR_NUM := '2210'
PREPROC := { {'GET_ORD_NUM()','G'}, ; // GET ORDER NUMBER
{'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
POSTPROC := 'ORD_USER()'
ESC_PROC := 'RESET_CNTL()'
ELSEIF SCR_NUM = '2220'
PREPROC := { { 'QUOTE_MAST->ORDER_NUM','G'}, ; // CHANGE ORDER
{'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
AADD(PREPROC, {'PAINT_KEYS("ORDER_NUM",,41)','P'} ) // PAINT KEY FIELD
//** AADD(PREPROC, {'PAINT_KEYS("QUOTE_NUM",,41)','P'} ) // PAINT KEY FIELD
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
ELSEIF SCR_NUM = '2230'
PREPROC := { {'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
ENDIF
ELSEIF SCR_NUM = '2115'
PREPROC := { {'MISCP_PAINT()','P'} } // PAINT PREPROC
ENDIF
SCRNUM := SCR_NUM
RELATED_DBF := { {'QUOTE_OPTS',1},;
{'QUOTE_ADDL',1}, {'ADDL_QOPT',1} }
XTRA_CARGO := ORD_HOTKEY("QUOTE", SCRNUM)
ACDARR := LOAD_ACDARR(MALIAS)
// QUOTE LINES
CASE MALIAS = 'QUOTE_LINE'
// OPEN DBF'S
IF SCR_NUM = NIL
// extra files opened in cgwprpo0
SCRNUM = '2210'
PREPROC = { {'SET_TCALC()', 'I'}, ;
{'SEEKFUNC("QUOTE_LINE", "QUOTE_MAST->ORDER_NUM")', 'I'},; // INITIALIZE PROC
{'MODELAFTER("QUOTE_OPTS", "USERFILE8", "QUOTE_OPTS", "QUOTE_LINE",{"QUOTE_OPTS->ORDER_NUM","QUOTE_MAST->ORDER_NUM"} )', 'I'},; // INITIALIZE PROC
{'MODELAFTER("ADDL_QOPT", "USERFILE9", "ADDL_QOPT", "QUOTE_LINE", {"ADDL_QOPT->ORDER_NUM", "QUOTE_MAST->ORDER_NUM"} )', 'I'}, ; // INITIALIZE PROC
{'MODELAFTER("QUOTE_ADDL", "USERFILE6", "QUOTE_ADDL", "QUOTE_LINE",{"QUOTE_ADDL->ORDER_NUM","QUOTE_MAST->ORDER_NUM"} )', 'I'}} // INITIALIZE PROC
POSTPROC = {'UPDATE_ORDS("USERFILE8")', ; // UPDATE ORDER OPTIONS FROM USERFILE8
'UPDATE_ORDS("USERFILE9")', ; // UPDATE ADDITIONAL OPTIONS FROM USERFILE9
'UPDATE_LINES("USERFILE6")', ; // UPDATE ADDITIONAL ORDER LINES FROM USERFILE6
'DO_ADDL_LINES()',; // UPDATE ADDITIONAL LINES
'UPDATE_ORDS("FILE8FILE9")', ; // UPDATE ADDITIONAL ORDER OPTIONS FROM USERFILE8
'MISC_PRICING()',; // UPDATE TAX/ETC
'ORD_PRINT(NIL, "Print Quote", "OE")' } // PRINT ORDER (IN CGWPRINT)
ELSEIF SCR_NUM = '2225'
SCRNUM := SCR_NUM
XTRA_HEADING := {'Enter Date to INDICATE COMPLETED PROCESS'}
XTRA_CARGO := { {'CTRL + T = Current Date', 20, 'GET_CURDATE()'} , ;
{'CTRL + Q = Total Qty', 17, 'GET_TOTQTY()'} }
ENDIF
ACDARR := LOAD_ACDARR(MALIAS)
// ADDITIONAL QUOTE LINES
CASE MALIAS = 'QUOTE_ADDL'
// OPEN DBF'S
SCRNUM = '2220'
PREPROC = { {'ADDL_KEY()', 'K'} } // KEY PREPROC
ACDARR := LOAD_ACDARR(MALIAS)
// QUOTE OPTIONS
CASE MALIAS = 'QUOTE_OPTS'
SCRNUM := '2230'
PREPROC := { {'?MODELAFTER("QUOTE_OPTS", "USERFILE2", "QUOTE_OPTS", "QUOTE_MAST")', 'I'} } // INITIALIZE PROC
ACDARR := LOAD_ACDARR(MALIAS)
// ADDITIONAL QUOTE OPTIONS
CASE MALIAS = 'ADDL_QOPT'
SCRNUM := '2232'
PREPROC := { {'?MODELAFTER("QUOTE_OPTS", "USERFILE2", "QUOTE_OPTS", "QUOTE_MAST")', 'I'} } // INITIALIZE PROC
POSTPROC = { 'STUFF_ENTER_KEY()' } // FORCE ENTER ON BLANK GET
ACDARR := LOAD_ACDARR(MALIAS)
// CUST ATTRIBUTES
CASE MALIAS = 'CUST_ATTS'
SCRNUM = '3110'
FILELIST = {"CAT_ATTS",'CATEGORY'} // OPEN ATTRIBUTE FILE
// INITIAL PREPROC
PREPROC = { {"MAKE_MATH('5')", 'I'} }
AADD(PREPROC, {'{USERFILE2->CUST_ID, USERFILE2->PROD_CODE}', 'K'} ) // KEY FOR CUST_ID
AADD(PREPROC, {'BLD_CUSTATTS("USERFILE2", "USERFILE3")', 'M'} ) // MODEL AFTER
ACDARR := LOAD_ACDARR(MALIAS)
// CUST ATTRIBUTE OPTIONS
CASE MALIAS = 'CUST_OPTS'
SCRNUM = '3120'
FILELIST = {"ATT_OPTS","CAT_OPTS",'CATEGORY'} // OPEN category level files for model after
PREPROC = { {'CGW11PRE("CUST")', 'K'} ,; // KEY PREPROC
{'COPY_OPTS("PROD_OPTS", "CUST_OPTS")', 'M'} , ; // MODEL AFTER
{'COPY_OPTS("CAT_OPTS", "CUST_OPTS")', 'M'} , ; // MODEL AFTER
{'COPY_OPTS("ATT_OPTS", "CUST_OPTS")', 'M'} } // MODEL AFTER
XTRA_HEADING := SETUP_XHEAD('CUST_OPTS')
ACDARR := LOAD_ACDARR(MALIAS)
// CUSTOMER PRICING EXTRAS
CASE MALIAS = 'CUST_PE'
SCRNUM = '3130'
PREPROC = { {'CUST_PE_KEY() ', 'K'} } // KEY PREPROC
ACDARR := LOAD_ACDARR(MALIAS)
// PRODUCT STD SASH MEASUREMENTS
CASE MALIAS = 'STD_SASH'
SCRNUM = '3140'
PREPROC = { {'{PRODUCT->PROD_CODE}', 'K'} } // KEY PREPROC
ACDARR := LOAD_ACDARR(MALIAS)
// CLEAR SS GLASS BOX STORAGE
CASE MALIAS = 'GLASS_BOX'
SCRNUM = '3150'
ACDARR := LOAD_ACDARR(MALIAS)
// CUTTING SPECS
CASE MALIAS = 'CUT_SPEC'
SCRNUM = '3160'
AADD(FILELIST, 'MATHPACK')
AADD(FILELIST, 'ATTRIB_CUT')
AADD(FILELIST, 'ATTRIBUTES')
AADD(PREPROC, {'{PRODUCT->PROD_CODE}', 'K'} ) // KEY PREPROC
AADD(PREPROC, {"MAKE_MATH('5')", 'I'} ) // MODEL AFTER / KEY PROC
AADD(PREPROC, {'NEW_ITEM("CUTTING SPEC","USERFILET")', 'M'}) // COPY A DIFFERENT ONE
ACDARR := LOAD_ACDARR(MALIAS)
// INTER COMPANY PURCHASE ORDERS
CASE MALIAS = 'IPO_FILE'
SCRNUM = '2160'
ACDARR := LOAD_ACDARR(MALIAS)
// MISC ITEMS MASTER FILE
CASE MALIAS = 'MISC_ITEMS'
AADD(FILELIST, 'CATEGORY')
AADD(FILELIST, 'COLOR_LIST')
AADD(FILELIST, 'UOMFILE')
AADD(PREPROC, {'PAINT_KEYS("PARTNUM",,41)','P'} ) // PAINT KEY FIELD
SCRNUM = '2170'
ACDARR := LOAD_ACDARR(MALIAS)
// MISC ITEMS MASTER FILE PRICING/UNIT OF MEASURE
CASE MALIAS = 'MISC_PUOM'
SCRNUM = '2180'
** PREPROC = { {"MAKE_MATH('5')", 'I'} }
AADD(PREPROC,{'{MISC_ITEMS->PARTNUM}', 'K'} ) // KEY PREPROC
ACDARR := LOAD_ACDARR(MALIAS)
// MISC ITEMS MASTER FILE COLORS
CASE MALIAS = 'MISC_COLOR'
SCRNUM = '2190'
AADD(PREPROC,{'{MISC_ITEMS->PARTNUM}', 'K'} ) // KEY PREPROC
ACDARR := LOAD_ACDARR(MALIAS)
// MASTER UOM FILE
CASE MALIAS = 'UOMFILE'
//** SCRNUM = '3210' //** P3N - 1/26/00
SCRNUM = '4210' //** P3N - 1/26/00
PREPROC = { {"MAKE_MATH('5')", 'I'} }
AADD(FILELIST, 'MISC_ITEMS')
ACDARR := LOAD_ACDARR(MALIAS)
// MASTER COLOR FILE
CASE MALIAS = 'COLOR_LIST'
//** SCRNUM = '3220' //** P3N - 5/26/98
SCRNUM = '4220' //** P3N - 5/26/98
ACDARR := LOAD_ACDARR(MALIAS)
// ORDER MISC ITEMS
CASE MALIAS = 'ORD_MISC'
//** SCRNUM = '3230' //** P3N - 5/26/98
SCRNUM = '4230' //** P3N - 5/26/98
AADD(PREPROC,{'{ ORD_MAST->ORDER_NUM }', 'K'} ) // KEY PREPROC
//** P3N - 11/25/98 - MOVED TO MISC_ITEM()-CGWPRPO0.PRG
//** POSTPROC = { {'UP_MISCTOT(USERFILE2->ORDER_NUM)', 'B' } }
ACDARR := LOAD_ACDARR(MALIAS)
// QUOTE MISC ITEMS
CASE MALIAS = 'QUOTE_MISC'
SCRNUM = '2270'
AADD(PREPROC,{'{QUOTE_MAST->ORDER_NUM }', 'K'} ) // KEY PREPROC
//** P3N - 11/25/98 - MOVED TO MISC_ITEM()-CGWPRPO0.PRG
//** POSTPROC = { {'UP_MISCTOT(USERFILE2->ORDER_NUM)', 'B' } }
ACDARR := LOAD_ACDARR(MALIAS)
ENDCASE
RETURN ACDARR
CLOSE DATABASES
RETURN ACDARR
*********************************************************************
* RETURN AN ARRAY USED AS THE HEADING FOR A DBROWSE! *
* //** P3N - 2/19/98 *
*********************************************************************
FUNCTION SETUP_XHEAD(TYPE)
LOCAL RETARR
RETARR := ;
{ {||FRST_XHEAD()}, '(BLANK Value to DELETE)', ;
'PI*-Print Ind / Alt Print-Alternate Print Value', ;
'HT ADJ-Prod Height Adj / WD ADJ-Prod Width Adj', ;
{||WHEREMSG("SET")}, {||WHEREMSG()}, {|| WHEREMSG("RESET")} }
RETURN RETARR
FUNCTION FRST_XHEAD()
RETURN 'Add Options for "'+ ALLTRIM(ATT_CODE) +'" Attribute'
*********************************************************************
*********************************************************************
*********************************************************************
FUNCTION OPN_MFG()
LOCAL SVSEL := SELECT()
DBOPEN('MFG_LOC')
SELECT(SVSEL)
RETURN
**FUNCTION CLOSE_MFG()
**LOCAL SVSEL := SELECT()
**SELECT('MFG_LOC')
**USE
**SELECT(SVSEL)
**RETURN
*********************************************************************
*********************************************************************
*********************************************************************
FUNCTION COPYCUT()
LOCAL SAVESEL := SELECT(), SAVEFILT
LOCAL COPYFROM := ALLTRIM( ATTRIB_CUT )
SELECT ATTRIB_CUT
USE
SELECT USERFILE3
// APPEND ALL FROM &ATTRIB_CUT
APPEND ALL FROM &COPYFROM
DBOPEN('ATTRIB_CUT')
SELECT (SAVESEL)
RETURN .T.
*********************************************************************
*********************************************************************
*********************************************************************
FUNCTION COPYSTD()
LOCAL SAVESEL := SELECT(), SAVEFILT
LOCAL COPYFROM := ALLTRIM( ATTRIBUTES )
SELECT ATTRIBUTES
USE
SELECT USERFILE2
// APPEND ALL FROM &ATTRIBUTES FOR ATT_TYPE = 'S'
APPEND ALL FROM &COPYFROM FOR ATT_TYPE = 'S'
DBOPEN('ATTRIBUTES')
SELECT (SAVESEL)
RETURN .T.
**********************************************
FUNCTION FILL_PRODCODE
// FILL THE USERFILE (PROD_OPTS) RECORDS WITH THE PROD_ATTS->PROD_CODE
LOCAL SAVESEL := SELECT()
SELECT USERFILE2
GOTO TOP
DO WHILE !EOF()
REC_LOCK(3)
REPLACE PROD_CODE WITH PROD_ATTS->PROD_CODE
UNLOCK
SKIP 1
ENDDO
SELECT(SAVESEL)
RETURN .T.
*****************************************************************
FUNCTION SEEKFUNC(SEEK_ALIAS, SEEKKEY)
LOCAL SAVESEL := SELECT()
SELECT (SEEK_ALIAS)
SEEK &SEEKKEY
SELECT (SAVESEL)
**(&SEEK_ALIAS)->(DBSEEK(&SEEKKEY))
RETURN .T.

CGW0300.PRG
+1862
View File
File diff suppressed because it is too large Load Diff
CGW0350.PRG
+1864
View File
File diff suppressed because it is too large Load Diff
CGW0400.PRG
+210
View File
@@ -0,0 +1,210 @@
* DON LOWENSTEIN -BUILD LABEL FILE ARRAY- CGW0400 9-5-95
PROCEDURE BUILDLBL(CALLPARM)
LOCAL CONVKEYX, FILEPARMS, LGET_KEY, FLD_INFO:={}, SAVESEL := SELECT()
LOCAL WORKVAR, SAVESCR, MARR, NEW_OLD, ONE_MANY, PRES_TREAS
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 _TOFILE := .F., DET_LINE_EXTRA := {}, FOOTERLINES := {}
PRIVATE LBRK_FOOTER := {}
PRIVATE REPTONLY := .F., BLD_PROC // 13-15
PRIVATE DBF_FLD_INFO := {}
PRIVATE LABELFILE := NIL
PRIVATE OUTPORT := NIL
PRIVATE NUMLBLS := 1
PRIVATE NUMBATCH := 1
PRIVATE MGET_KEY
PUBLIC LBL_DATA := CALLPARM
CALLPARM = UPPER(ALLTRIM(CALLPARM))
DO CASE
*******************************************************************
CASE CALLPARM = 'CUSTOMER'
//
PRNTNAME = 'CUSTOMER LABELS'
IF CALLPARM = 'CUSTOMER-MANY'
PARENTFILE = 'CUST_MAST'
ELSE
FILEPARMS := DBOPEN('CUST_MAST')
CLS
SAYTITLE(PRNTNAME, 'LABEL')
LGET_KEY := GET_KEY(FILEPARMS)
IF LASTKEY() = 27 .OR. EMPTY(LGET_KEY)
RETURN NIL
ENDIF
IF SELECT('USERFILEX') > 0
CLOSE USERFILEX
ENDIF
COPY NEXT 1 TO &USERFILEX
PARENTFILE := 'USERFILEX'
ENDIF
IF CALLPARM == "CUSTOMER-MANY-SHIP" .OR. ;
CALLPARM == "CUSTOMER-ONE-SHIP"
DEFINEPROC := {|| SHP_CUSTLBL() }
ELSE
DEFINEPROC := {|| BLD_CUSTLBL() }
ENDIF
LABELFILE := WHICH_LABEL()
IF LABELFILE = NIL
RETURN NIL
ENDIF
IF CALLPARM = 'CUSTOMER-MANY'
MDESC = 'Cust#'
PIC = ''
KEYVAR = 'CUST_ID'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = 1
NDXEXP = 'CUST_ID'
LVLBRK = {}
AADD(SORTARR, {'Cust#', KEYVAR, NDXEXP, SYSNTX, LVLBRK})
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'Name'
PIC = ''
KEYVAR = 'COMP_NAME'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = 2
NDXEXP = 'COMP_NAME'
LVLBRK = {}
AADD(SORTARR, {'Name', KEYVAR, NDXEXP, SYSNTX, LVLBRK})
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'ZIP Code'
PIC = ''
KEYVAR = 'CUST_ZIP'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
NDXEXP = 'CUST_ZIP+COMP_NAME'
LVLBRK = {}
AADD(SORTARR, {'ZIP Code', KEYVAR, NDXEXP, SYSNTX, LVLBRK})
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'State'
PIC = '!!'
KEYVAR = 'CUST_STATE'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'Salesman'
PIC = ''
KEYVAR = 'SLSMAN'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'Terms Code'
PIC = ''
KEYVAR = 'TERMS'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'Delivery Route'
PIC = ''
KEYVAR = 'DEL_ROUTE'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'Price Sheet'
PIC = ''
KEYVAR = 'PRICE_SHT'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
MDESC = 'Tax Schedule'
PIC = ''
KEYVAR = 'TAXSCH'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
AADD(RANGEARR, {MDESC, KEYVAR, PIC, RANGETYPE, CUTOFF})
ELSE
MDESC = 'One LABEL for Customer - ' + CUST_MAST->CUST_ID
PIC = ''
KEYVAR = 'CUST_ID'
RANGETYPE = 'R'
CUTOFF = .F.
SYSNTX = NIL
NDXEXP = 'CUST_ID'
LVLBRK = {}
AADD(SORTARR, {MDESC, KEYVAR, NDXEXP, SYSNTX, LVLBRK})
ENDIF
PRNTARR := LOAD_LBLARR()
************************************************************************
OTHERWISE
PRNTARR := NIL
ENDCASE
RETURN PRNTARR
**********************************************************
FUNCTION WHICH_LABEL()
// GET WHICH LABELS
LOCAL SAVESCR := SAVESCREEN()
LOCAL MARR := {}, WORKVAR, LABELFILE
@ 02,0 CLEAR
AADD(MARR,'Standard labels, 3 across, 5 Lines ( 15/16")')
AADD(MARR,'Laser labels, 3 across, 5 Lines')
AADD(MARR,'Standard labels, 1 across, 8 Lines (1 7/16")')
AADD(MARR,'Standard labels, 1 across, 5 Lines ( 15/16") ')
//
WORKVAR = PICKLIST(MARR,10,, 'Which Labels?')
IF LASTKEY() = 27
RETURN NIL
ENDIF
IF WORKVAR = 1
LABELFILE = 'LBL3X1' // { 'LBL3X1', LBL_SIZE } // LBL_TYPE 9 IS A MESSAGE '1 ACROSS, 2 X 3
ELSE
IF WORKVAR = 2
LABELFILE = 'CGWLBL7' // laser labels
ELSE // 8 lines
IF WORKVAR = 3
LABELFILE = 'CGWLBL9' // 5 lines - BIG
ELSE
IF WORKVAR = 4
LABELFILE = 'CGWLBL2' // 5 lines - LITTLE
ELSE
LABELFILE := NIL
ENDIF
ENDIF
ENDIF
ENDIF
RESTSCREEN(,,,,SAVESCR)
RETURN LABELFILE

CGW0450.PRG
+50
View File
@@ -0,0 +1,50 @@
// ufd0450 - don and mike - 03-02-95 LABEL LINE DEFINITIONS
*************************************************
*********************************************************
* Customer Mailing lables - Cusomter BILLING address. *
*********************************************************
FUNCTION BLD_CUSTLBL()
LOCAL LBL_LINEARR := {}
LOCAL EVALLINE
EVALLINE := 'COMP_NAME'
AADD(LBL_LINEARR, EVALLINE)
EVALLINE := 'CUST_ADDR'
AADD(LBL_LINEARR, EVALLINE)
EVALLINE := 'CUST_ADDR2'
AADD(LBL_LINEARR, EVALLINE)
EVALLINE := 'TRIM(CUST_CITY)+" "+ CUST_STATE +" " + CUST_ZIP'
AADD(LBL_LINEARR, EVALLINE)
RETURN LBL_LINEARR
**********************************************************
* Customer Mailing lables - Cusomter SHIPPING address. *
**********************************************************
FUNCTION SHP_CUSTLBL()
LOCAL LBL_LINEARR := {}
LOCAL EVALLINE
EVALLINE := 'COMP_NAME'
AADD(LBL_LINEARR, EVALLINE)
EVALLINE := 'SHIPADD1'
AADD(LBL_LINEARR, EVALLINE)
**EVALLINE := 'SHIPADD2'
**AADD(LBL_LINEARR, EVALLINE)
EVALLINE := 'TRIM(SHIPADD2)+" "+ SHIPST +" " + SHIPZIP'
AADD(LBL_LINEARR, EVALLINE)
RETURN LBL_LINEARR

CGW0AC.NTX
BIN
View File
Binary file not shown.
CGW0AO.NTX
BIN
View File
Binary file not shown.
CGW0AR.NTX
BIN
View File
Binary file not shown.
CGW0AT.NTX
BIN
View File
Binary file not shown.
CGW0BP.NTX
BIN
View File
Binary file not shown.
CGW0CA.NTX
BIN
View File
Binary file not shown.
CGW0CB.NTX
BIN
View File
Binary file not shown.
CGW0CBL.NTX
BIN
View File
Binary file not shown.
CGW0CM.NTX
BIN
View File
Binary file not shown.
CGW0CO.NTX
BIN
View File
Binary file not shown.
CGW0CP.NTX
BIN
View File
Binary file not shown.
CGW0CPE.NTX
BIN
View File
Binary file not shown.
CGW0CPO.NTX
BIN
View File
Binary file not shown.
CGW0CPT.NTX
BIN
View File
Binary file not shown.
CGW0CS.NTX
BIN
View File
Binary file not shown.
CGW0GB.NTX
BIN
View File
Binary file not shown.
CGW0IM.NTX
BIN
View File
Binary file not shown.
CGW0IPO.NTX
BIN
View File
Binary file not shown.
CGW0KA.NTX
BIN
View File
Binary file not shown.
CGW0MC.NTX
BIN
View File
Binary file not shown.
CGW0MI.NTX
BIN
View File
Binary file not shown.
CGW0MIC.NTX
BIN
View File
Binary file not shown.
CGW0MIP.NTX
BIN
View File
Binary file not shown.
CGW0ML.NTX
BIN
View File
Binary file not shown.
CGW0MP.NTX
BIN
View File
Binary file not shown.
CGW0MU.NTX
BIN
View File
Binary file not shown.
CGW0OL.NTX
BIN
View File
Binary file not shown.
CGW0OMI.NTX
BIN
View File
Binary file not shown.
CGW0OO.NTX
BIN
View File
Binary file not shown.
CGW0PA.NTX
BIN
View File
Binary file not shown.
CGW0PC.NTX
BIN
View File
Binary file not shown.
CGW0PE.NTX
BIN
View File
Binary file not shown.
CGW0PO.NTX
BIN
View File
Binary file not shown.
CGW0PR.NTX
BIN
View File
Binary file not shown.
CGW0PT.NTX
BIN
View File
Binary file not shown.
CGW0QL.NTX
BIN
View File
Binary file not shown.
CGW0QM.NTX
BIN
View File
Binary file not shown.
CGW0QMI.NTX
BIN
View File
Binary file not shown.
CGW0QO.NTX
BIN
View File
Binary file not shown.
CGW0QX.NTX
BIN
View File
Binary file not shown.
CGW0QXO.NTX
BIN
View File
Binary file not shown.
CGW0RP.NTX
BIN
View File
Binary file not shown.
CGW0RU.NTX
BIN
View File
Binary file not shown.
CGW0SBS.NTX
BIN
View File
Binary file not shown.
CGW0SC.NTX
BIN
View File
Binary file not shown.
CGW0SM.NTX
BIN
View File
Binary file not shown.
CGW0SS.NTX
BIN
View File
Binary file not shown.
CGW0SV.NTX
BIN
View File
Binary file not shown.
CGW0TD.NTX
BIN
View File
Binary file not shown.
CGW0TR.NTX
BIN
View File
Binary file not shown.
CGW0TS.NTX
BIN
View File
Binary file not shown.
CGW0XL.NTX
BIN
View File
Binary file not shown.
CGW0XO.NTX
BIN
View File
Binary file not shown.
CGW1170.PRG
+160
View File
@@ -0,0 +1,160 @@
* MIKE LEWIS - UPDATE CUSTMAST FROM GREAT PLAINS DBF - CGW1170 04-26-94
#INCLUDE 'F:\CLIP52\RASQLB\52\RQB.CH'
#include "F:\CLIP52\RASQLB\52\RASQLB.CH"
#INCLUDE 'INKEY.CH'
// CONSTANTS
#define T_CM_CUSNO 1 // 1ST Index order for CUSMAS.DAT (customer #)
#define T_CM_NAME 2 // 2nd Index order for CUSMAS.DAT (customer name)
#define A_CUSNO 2 // 2nd Element in CUSMAS Field Array (customer #)
#define A_NAME 4 // 4TH Element in CUSMAS Field Array (customer name)
EXTERNAL N_XVIA
*****************************************************
FUNCTION CGW1170
// UPDATE CUSTOMER DBF WITH GREAT PLAINS INFO
LOCAL MSTRUCT, MFLD_NAMES
LOCAL FLDS_TO_GET := {}, GP_FLD, CGW_FLD, MVAL
LOCAL BARM_FACTOR, XXX, OPT, MWORK_AREA
CLS
@ 10,15 SAY 'About to UPDATE the CUSTOMER File from the'
@ 11,15 SAY 'Great Plains File. This process may take '
@ 12,15 SAY 'several minutes to complete.'
OPT = ' '
@ 14,20 SAY 'Do you wish to continue? (Y/N)' GET OPT PICTURE '!' VALID OPT$'YN'
READ()
IF LASTKEY() = 27 .OR. OPT$'N'
RETURN
ENDIF
CLS
WAIT_BOX(' *** UPDATING CUSTOMER FILE *** ',;
' *** PLEASE WAIT *** ')
N_XLOGIN()
N_XERRLVL(3)
MSTRUCT := {}
MFLD_NAMES := {}
SELECT 0
USE CUSTMAST ALIAS DEFINITIONS
NET_USE('CUSTMAST', .F., 5, 'DEFINITIONS') && CUSTOMER CHANGE FLAG
DO WHILE !EOF()
AADD(MSTRUCT, FNAME + TYPE + LENGTH + DECIMAL_PT + NUM_DECS + FILLER + SEMI_COLON)
AADD(MFLD_NAMES, FNAME)
SKIP 1
ENDDO
USE
DBOPEN('CUST_MAST')
DONSETORD(4) // INDEXED ON GP_CUST
DBOPEN('CONTROL', .F.)
*-NET_USE('&CONTROL', .F., 5, 'CONTROL') && CUSTOMER CHANGE FLAG
MPATH = ALLTRIM(CONTROL->BTR_PATH)
MTABLE = MPATH + 'CUSMAS.DAT'
USE
SET DEFAULT FILETYPE TO '.DAT'
SET RDD TO 'RQBRDD'
NEW_STRUCT := RQBSTRUCT('CUSMAS')
N_XSELECT(0) // SELECT NEXT EMPTY BTRIEVE WORK AREA
N_XUSE(MTABLE, MSTRUCT)
MWORK_AREA = N_XSELECT()
*-N_XORDER(MORDER) // SET TO CORRECT INDEX ORDER
N_XSRECSIZ()
N_XRECSIZ()
SET DEFAULT FILETYPE TO
SET RDD TO
// BUILD LIST OF FIELDS TO GET INFO FROM
*-AADD(FLDS_TO_GET, {'CUSNO', 'GP_CUST'})
AADD(FLDS_TO_GET, {'NAME', 'COMP_NAME'})
AADD(FLDS_TO_GET, {'SLSMAN', 'SLSMAN'})
AADD(FLDS_TO_GET, {'DSHP', 'SHP_METHOD'})
AADD(FLDS_TO_GET, {'DTRM', 'TERMS'})
AADD(FLDS_TO_GET, {'CUSDSC', 'DISCOUNT'})
AADD(FLDS_TO_GET, {'DAYSTOPAY', 'DAYSTOPAY'})
AADD(FLDS_TO_GET, {'ADD1', 'CUST_ADDR'})
AADD(FLDS_TO_GET, {'ADD2', 'CUST_ADDR2'})
AADD(FLDS_TO_GET, {'CONTACT', 'CONT_LNAME'})
AADD(FLDS_TO_GET, {'COMMENT', 'COMMENT'})
AADD(FLDS_TO_GET, {'TAXNUM', 'TAXNUM'})
AADD(FLDS_TO_GET, {'CITY', 'CUST_CITY'})
AADD(FLDS_TO_GET, {'CUSTYP', 'CUSTYP'})
AADD(FLDS_TO_GET, {'STATE', 'CUST_STATE'})
AADD(FLDS_TO_GET, {'UPSZONE', 'UPSZONE'})
AADD(FLDS_TO_GET, {'ZIP', 'CUST_ZIP'})
AADD(FLDS_TO_GET, {'PHONE', 'PHONE'})
AADD(FLDS_TO_GET, {'TAXSCH', 'TAXSCH'})
AADD(FLDS_TO_GET, {'SHIPNAME', 'SHIPNAME'})
AADD(FLDS_TO_GET, {'SHIPADD1', 'SHIPADD1'})
AADD(FLDS_TO_GET, {'SHIPADD2', 'SHIPADD2'})
AADD(FLDS_TO_GET, {'SHIPST', 'SHIPST'})
AADD(FLDS_TO_GET, {'SHIPZIP', 'SHIPZIP'})
AADD(FLDS_TO_GET, {'SHIPPHN', 'SHIPPHN'})
AADD(FLDS_TO_GET, {'SHIPFAX', 'SHIPFAX'})
AADD(FLDS_TO_GET, {'FAX', 'FAX'})
AADD(FLDS_TO_GET, {'TAXRGST', 'TAXRGST'})
AADD(FLDS_TO_GET, {'CURRID', 'CURRID'})
*-QBROWSE(2,2,20,79)
BARM_FACTOR = SETBARM(,, 20, N_XLASTREC() )
XXX = 0
N_XGOTOTOP() // TOP OF BTRIVE FILE
DO WHILE !N_XEOF()
XXX++
BARM_UPDATE(,,XXX, BARM_FACTOR)
MCUSNO = N_XFETCH(A_CUSNO) // GET CURRENT CUSTOMER ID
SELECT CUST_MAST
SEEK MCUSNO
IF !FOUND()
ADD_REC(1)
REPLACE GP_CUST WITH MCUSNO
///////////////////////////////////////////////////
// TEMPORARY FOR NOW
REPLACE CUST_ID WITH MCUSNO
ELSE
REC_LOCK(1)
ENDIF
N_XSELECT(MWORK_AREA) // SELECT BTRIEVE FILE
FOR L = 1 TO LEN(FLDS_TO_GET)
GP_FLD = FLDS_TO_GET[L,1]
CGW_FLD = FLDS_TO_GET[L,2]
IF GP_FLD == 'DTRM'
MVAL = STR(N_XFETCH(GP_FLD),12)
ELSE
MVAL = N_XFETCH(GP_FLD)
ENDIF
REPLACE CUST_MAST->&CGW_FLD WITH MVAL
NEXT
N_XSKIP(1)
ENDDO
CLOSE DATABASES
RETURN

CGW1AC.NTX
BIN
View File
Binary file not shown.
CGW1AO.NTX
BIN
View File
Binary file not shown.
CGW1AR.NTX
BIN
View File
Binary file not shown.
CGW1ASA.NTX
BIN
View File
Binary file not shown.
CGW1AT.NTX
BIN
View File
Binary file not shown.
CGW1BP.NTX
BIN
View File
Binary file not shown.
CGW1BT.NTX
BIN
View File
Binary file not shown.
CGW1CA.NTX
BIN
View File
Binary file not shown.
CGW1CB.NTX
BIN
View File
Binary file not shown.
CGW1CBL.NTX
BIN
View File
Binary file not shown.
CGW1CM.NTX
BIN
View File
Binary file not shown.
CGW1CO.NTX
BIN
View File
Binary file not shown.
CGW1CP.NTX
BIN
View File
Binary file not shown.
CGW1CPE.NTX
BIN
View File
Binary file not shown.
CGW1CPO.NTX
BIN
View File
Binary file not shown.
CGW1CPT.NTX
BIN
View File
Binary file not shown.
CGW1CS.NTX
BIN
View File
Binary file not shown.
CGW1DD.NTX
BIN
View File
Binary file not shown.
CGW1GB.NTX
BIN
View File
Binary file not shown.
CGW1GL.NTX
BIN
View File
Binary file not shown.
CGW1IC.NTX
BIN
View File
Binary file not shown.
CGW1IM.NTX
BIN
View File
Binary file not shown.
CGW1IPO.NTX
BIN
View File
Binary file not shown.
CGW1KA.NTX
BIN
View File
Binary file not shown.
CGW1MC.NTX
BIN
View File
Binary file not shown.
CGW1MI.NTX
BIN
View File
Binary file not shown.
CGW1MIC.NTX
BIN
View File
Binary file not shown.
CGW1MIP.NTX
BIN
View File
Binary file not shown.
CGW1ML.NTX
BIN
View File
Binary file not shown.
CGW1MP.NTX
BIN
View File
Binary file not shown.
CGW1MU.NTX
BIN
View File
Binary file not shown.
CGW1OL.NTX
BIN
View File
Binary file not shown.
CGW1OM.NTX
BIN
View File
Binary file not shown.
CGW1OMI.NTX
BIN
View File
Binary file not shown.
CGW1OO.NTX
BIN
View File
Binary file not shown.
CGW1OPT.NTX
BIN
View File
Binary file not shown.
CGW1OPW.NTX
BIN
View File
Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More