first commit
This commit is contained in:
Jason Soltys
BIN
Binary file not shown.
BIN
Binary file not shown.
+372
@@ -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
|
||||||
|
|
||||||
|
**********************************************************************
|
||||||
+1062
File diff suppressed because it is too large
Load Diff
+714
@@ -0,0 +1,714 @@
|
|||||||
|
* MIKE LEWIS -BUILD ADD, CHANGE, DELETE ARRAY- CGW0200 4-08-93
|
||||||
|
PROCEDURE BUILDACD(MALIAS, SCR_NUM)
|
||||||
|
|
||||||
|
PRIVATE ACDARR := {}
|
||||||
|
PRIVATE SCRNUM
|
||||||
|
PRIVATE FILELIST := {}
|
||||||
|
PRIVATE PREPROC := {}
|
||||||
|
PRIVATE POSTPROC := ''
|
||||||
|
PRIVATE OFFSET := 0
|
||||||
|
PRIVATE EDITPROC := ''
|
||||||
|
PRIVATE COMPLETEKEY := NIL
|
||||||
|
PRIVATE CONVERT_KEY := ''
|
||||||
|
PRIVATE RELATED_DBF := ''
|
||||||
|
PRIVATE DOPROC
|
||||||
|
PRIVATE XTRA_HEADING
|
||||||
|
PRIVATE XTRA_CARGO
|
||||||
|
PRIVATE ESC_PROC
|
||||||
|
|
||||||
|
IF SELECT('IMPCUST') = 0
|
||||||
|
IC_PARMS = DBOPEN('IMPCUST')
|
||||||
|
ENDIF
|
||||||
|
//**** ACDARR LAYOUT ****\\
|
||||||
|
// 1 = FILE ALIAS
|
||||||
|
// 2 = SCREEN NUMBER
|
||||||
|
// 3 = ARRAY OF FILES THAT NEED TO BE OPEN
|
||||||
|
// 4 = PROC TO EXECUTE BEFORE THE SAYS AND GETS
|
||||||
|
// ie TO PAINT ADDITIONAL INFO ON SCREEN, etc.....
|
||||||
|
// 5 = PROC TO EXECUTE AFTER THE GETS
|
||||||
|
// ie TO UPDATE ANY NON RELATED VARIABLES ......
|
||||||
|
// 6 = HORIZONTAL OFFSET FOR SCREEN GETS
|
||||||
|
// 7 = PROC TO EDIT THE GET FIELDS
|
||||||
|
// 8 = ARRAY OF PARTIAL KEYS WHICH MAKE RECORD UNIQUE.
|
||||||
|
// IF ARRAY IS EMPTY, THEN ONLY ONE COMPONENT OF THE KEY
|
||||||
|
// 9 = KEY CONVERSION PROC - IE PAD WITH LEADING ZEROS, ETC.
|
||||||
|
// 10 = LIST OF DBF'S THAT SHOULD BE CONSIDERED WHEN DELETING INFO
|
||||||
|
// 1 ARRAY FOR EACH DBF. ELEMENT 1 = DBF ALIAS NAME, ELEM 2 = INDEX SEEK ORDER
|
||||||
|
// 11 = OPTIONAL TOP HEADING FOR ACD_BROWSE
|
||||||
|
// 12 = OPTIONAL ACD CARGO FOR HOT KEYS USED IN ACD_BROWSE
|
||||||
|
|
||||||
|
DO CASE
|
||||||
|
|
||||||
|
// DATA DICTIONARY
|
||||||
|
CASE MALIAS = 'DATADICT'
|
||||||
|
SCRNUM = '0950'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CONTROL FILE
|
||||||
|
CASE MALIAS = 'CONTROL'
|
||||||
|
SCRNUM = '9990'
|
||||||
|
PREPROC = { { 'CURVER' , 'G'},{'OPN_MFG()', 'I' } }
|
||||||
|
******PREPROC = { { 'CURVER' , 'G'},{'SVPRNTDTS()', 'I'} } // GETKEY PREPROC TO STUFF CURVER
|
||||||
|
***** POSTPROC = {'CLOSE_MFG()'}
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// GL ALLOC FILE
|
||||||
|
CASE MALIAS = 'GL_ALLOC'
|
||||||
|
SCRNUM = '8880'
|
||||||
|
AADD(PREPROC,{'ADDL_KEY()', 'K'} ) // KEY PREPROC
|
||||||
|
******AADD(PREPROC,{'TOT_GLALLOC(MORDER_NUM)', 'P'} ) //PAINT PREPROC
|
||||||
|
******PREPROC = { { 'CURVER' , 'G'} }
|
||||||
|
******PREPROC = { { 'CURVER' , 'G'},{'SVPRNTDTS()', 'I'} } // GETKEY PREPROC TO STUFF CURVER
|
||||||
|
******POSTPROC = {'RESET_PRNTDTS()'}
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// PRODUCTS
|
||||||
|
CASE MALIAS = 'PRODUCT'
|
||||||
|
SCRNUM = '1110'
|
||||||
|
PREPROC = { {'SET_NOTES("PRODUCT->NOTES", "Product")','P'} } // SETS HOT KEY FOR NOTE UPDATE
|
||||||
|
AADD(PREPROC, {'NEW_ITEM("MODEL")', 'M'})
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("PROD_CODE",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
AADD(PREPROC, {'CAT_PAINT()', 'P'})
|
||||||
|
POSTPROC = {'RESET_NOTES()', 'CONT_PROC("Are the MODEL ATTRIBUTES",';
|
||||||
|
+ '"DIFFERENT from the STANDARD",';
|
||||||
|
+ '"CATEGORY ATTRIBUTES?")'}
|
||||||
|
AADD(POSTPROC, {'CHK_PRODDEL()','D'} ) //** P3N - 9/22/00
|
||||||
|
RELATED_DBF := { {'PROD_ATTS',1}, {'PROD_OPTS',1} }
|
||||||
|
AADD(RELATED_DBF, {'STD_SIZES', 1} )
|
||||||
|
AADD(RELATED_DBF, {'STD_SASH', 1} )
|
||||||
|
AADD(RELATED_DBF, {'CUT_SPEC', 1} )
|
||||||
|
//** AADD(RELATED_DBF, {'MATHPACK', 1} )
|
||||||
|
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
|
||||||
|
// PRODUCT CATEGORY
|
||||||
|
CASE MALIAS = 'CATEGORY'
|
||||||
|
SCRNUM = '1120'
|
||||||
|
AADD(PREPROC, {'NEW_ITEM("CATEGORY")', 'M'})
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("CAT_CODE",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
AADD(PREPROC, {'CATPAINT2()', 'P'}) //** P3N - 02/13/04
|
||||||
|
RELATED_DBF := { {'CAT_ATTS',1}, {'CAT_OPTS',1}, {'MATHPACK',1}}
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// RULES
|
||||||
|
CASE MALIAS = 'RULES'
|
||||||
|
SCRNUM = '1150'
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("RULE_CODE",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// MANUFACTURING LOACTION
|
||||||
|
CASE MALIAS = 'MFG_LOC'
|
||||||
|
SCRNUM := '1160'
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("LOC_CODE",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// SHIPPING METHODS
|
||||||
|
CASE MALIAS = 'SHIPMETH'
|
||||||
|
SCRNUM := '1180'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// SHIPPING TERMS CODES
|
||||||
|
CASE MALIAS = 'TERMS'
|
||||||
|
SCRNUM := '1190'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// SALES MEN MASTER LIST
|
||||||
|
CASE MALIAS = 'SALESMEN'
|
||||||
|
SCRNUM := '1100'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CUTTING SPEC ATTRIBUTES
|
||||||
|
CASE MALIAS = 'ATTRIB_CUT'
|
||||||
|
SCRNUM := '1130'
|
||||||
|
RELATED_DBF := { {'CUT_SPEC',3},{'MATHPACK',2} }
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("ATT_CODE",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// RULE PACKS
|
||||||
|
CASE MALIAS = 'RULEPACK'
|
||||||
|
FILELIST := {'ATTRIBUTES', 'ATT_OPTS', 'CAT_OPTS', 'PROD_OPTS'}
|
||||||
|
SCRNUM = '11150'
|
||||||
|
|
||||||
|
RELATED_DBF := { {'RULE_PACK',1} }
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
|
||||||
|
// ATTRIBUTES
|
||||||
|
CASE MALIAS = 'ATTRIBUTES'
|
||||||
|
SCRNUM = '1130'
|
||||||
|
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("ATT_CODE",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
RELATED_DBF := { {'ATT_OPTS',1} }
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ATTRIBUTES OPTIONS
|
||||||
|
CASE MALIAS = 'ATT_OPTS'
|
||||||
|
SCRNUM = '11350'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CATEGORY ATTRIBUTES
|
||||||
|
CASE MALIAS = 'CAT_ATTS'
|
||||||
|
SCRNUM = '112B0'
|
||||||
|
FILELIST = {"ATTRIBUTES"} // OPEN ATTRIBUTE FILE
|
||||||
|
// INITIAL PREPROC
|
||||||
|
PREPROC = { {"MAKE_MATH('5')", 'I'},{ 'COPYSTD()', 'M'} } // MODEL AFTER / KEY PROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CATEGORY SIZE TABLES
|
||||||
|
CASE MALIAS = 'STD_SIZES'
|
||||||
|
SCRNUM = '1140'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CATEGORY PRICING EXTRAS
|
||||||
|
CASE MALIAS = 'PRI_EXTRAS'
|
||||||
|
SCRNUM = '1250'
|
||||||
|
FILELIST = {"CUST_MAST"}
|
||||||
|
RELATED_DBF := { {'CUST_ATTS',1}, {'CUST_OPTS',1} }
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CATEGORY OPTIONS
|
||||||
|
CASE MALIAS = 'CAT_OPTS'
|
||||||
|
SCRNUM = '11210'
|
||||||
|
FILELIST = {"ATT_OPTS"}
|
||||||
|
AADD(FILELIST, 'RULES')
|
||||||
|
AADD(FILELIST, 'RULEPACK')
|
||||||
|
PREPROC = { {'CGW11PRE("CATEGORY", 2)', 'K'} , ; // KEY PREPROC
|
||||||
|
{'COPY_OPTS("ATT_OPTS", "CAT_OPTS")', 'M'} } // MODEL AFTER
|
||||||
|
|
||||||
|
XTRA_HEADING := SETUP_XHEAD('CAT_OPTS')
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CUSTOMER MASTER
|
||||||
|
CASE MALIAS = 'CUST_MAST'
|
||||||
|
IF SCR_NUM = NIL .OR. SCR_NUM = '1170'
|
||||||
|
SCRNUM := '1170'
|
||||||
|
FILELIST := {'TAX_SCHED', 'TAX_DETAIL'}
|
||||||
|
RELATED_DBF := { {'CUST_PRICE',1}, {'CUST_BP',1} }
|
||||||
|
PREPROC := { {'ORD_PAINT(9,14,9,47, "LNOR")','P'} } // paint bill to/ship to
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("CUST_ID",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
POSTPROC = {'SPEC_PRICING()'}
|
||||||
|
XTRA_CARGO := CUST_HOTKEYS()
|
||||||
|
//** COMMENTED OUT - WHY HERE??????? //** P3N - 5/26/98
|
||||||
|
//** ELSE //** P3N - 5/26/98
|
||||||
|
//** SCRNUM := '3245' //** P3N - 5/26/98
|
||||||
|
ENDIF
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CUSTOMER PRICING DISCOUNT TABLE
|
||||||
|
CASE MALIAS = 'CUST_PRICE'
|
||||||
|
SCRNUM := '11710'
|
||||||
|
AADD(PREPROC,{'{CUST_MAST->CUST_ID}', 'K'} ) // KEY PREPROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
CASE MALIAS = 'CUST_BP'
|
||||||
|
SCRNUM := '11720'
|
||||||
|
AADD(PREPROC,{'{CUST_MAST->CUST_ID}', 'K'} ) // KEY PREPROC
|
||||||
|
RELATED_DBF := { {'CUST_OPTS',1}, {'CUST_ATTS',1} } //** P3N - 3/12/99
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// TAX TABLE SCHEDULE
|
||||||
|
CASE MALIAS = 'TAX_SCHED'
|
||||||
|
SCRNUM := 'TX10'
|
||||||
|
FILELIST := {'TAX_DETAIL'}
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// TAX TABLE detail gl acct numbers
|
||||||
|
CASE MALIAS = 'TAX_DETAIL'
|
||||||
|
IF SCR_NUM = NIL
|
||||||
|
SCRNUM := 'TX20'
|
||||||
|
ELSE
|
||||||
|
SCRNUM := SCR_NUM
|
||||||
|
ENDIF
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// PRODUCT ATTRIBUTES
|
||||||
|
CASE MALIAS = 'PROD_ATTS'
|
||||||
|
SCRNUM = '11110'
|
||||||
|
FILELIST = {"CAT_ATTS",'CATEGORY'} // OPEN ATTRIBUTE FILE
|
||||||
|
// INITIAL PREPROC
|
||||||
|
PREPROC = { {"MAKE_MATH('5')", 'I'}, ;
|
||||||
|
{'MODELAFTER("CAT_ATTS", "USERFILE2", "PROD_ATTS", "PRODUCT", 1 )', 'M'} } // MODEL AFTER
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// PRODUCT ATTRIBUTE OPTIONS
|
||||||
|
CASE MALIAS = 'PROD_OPTS'
|
||||||
|
SCRNUM = '11120'
|
||||||
|
FILELIST = {"ATT_OPTS","CAT_OPTS",'CATEGORY'} // OPEN category level files for model after
|
||||||
|
AADD(FILELIST, 'RULES')
|
||||||
|
AADD(FILELIST, 'RULEPACK')
|
||||||
|
PREPROC = { {'CGW11PRE("PRODUCT", 2)', 'K'} ,; // KEY PREPROC
|
||||||
|
{'COPY_OPTS("CAT_OPTS", "PROD_OPTS")', 'M'} , ; // MODEL AFTER
|
||||||
|
{'COPY_OPTS("ATT_OPTS", "PROD_OPTS")', 'M'} } // MODEL AFTER
|
||||||
|
|
||||||
|
XTRA_HEADING := SETUP_XHEAD('PROD_OPTS')
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// PASSWORDS
|
||||||
|
CASE MALIAS = 'PASSWORD'
|
||||||
|
SCRNUM = '6100'
|
||||||
|
PREPROC = { {'XXXPASSP()','P'} } // PAINTS INSTRUCTION BOX ON SCREEN
|
||||||
|
POSTPROC = 'XXXPASSS()' // UPDATE PASSWORD AND AUTHORIZATION VARIABLES
|
||||||
|
// IF THE CURRENT USER CHANGES HIS OPTIONS
|
||||||
|
OFFSET = -5
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ORDER MASTER
|
||||||
|
CASE MALIAS = 'ORD_MAST'
|
||||||
|
CONVERT_KEY = 'KEY_CONV(C_MKEY)'
|
||||||
|
******IF SCR_NUM = NIL .OR. SCR_NUM = '2110' .OR. SCR_NUM = '2310'
|
||||||
|
IF SCR_NUM = NIL .OR. RIGHT( SCR_NUM, 1 )$'0'
|
||||||
|
IF SCR_NUM = NIL
|
||||||
|
// called from menu - nothing open
|
||||||
|
SCR_NUM = '2110'
|
||||||
|
PREPROC = { {'GET_ORD_NUM()','G'} } // GET ORDER NUMBER
|
||||||
|
ELSE
|
||||||
|
// screen num IS AVAILABLE - NOT SCREEN 2115 (SUMMARY)
|
||||||
|
IF SCR_NUM = '2130'
|
||||||
|
// ARCHIVE PROCESS
|
||||||
|
*********** PREPROC = { {'GET_ORD_NUM(,"MANUAL")','G'} } // GET ORDER NUMBER
|
||||||
|
ELSE
|
||||||
|
IF SCR_NUM = '2120'
|
||||||
|
// RECURSIVE ORDER PROCESSING FROM PRINT SCREEN
|
||||||
|
PREPROC = { { 'ORD_MAST->ORDER_NUM','G'} } // CHANGE ORDER
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
AADD(PREPROC, {'GET_THE_CUST( , "RESET")','I'}) // RESET STATIC VARIABLES
|
||||||
|
AADD(PREPROC, {'ZAP_FILE689()','I'}) // ZAP THE USERFILES
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("ORDER_NUM",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
AADD(PREPROC, {'ORD_PAINT(10,12,10,49, "LNOR" )','P'} ) // paint bill to/ship to
|
||||||
|
AADD(PREPROC, {'NOTES_MSG("O")','P'}) //Are notes present on order????
|
||||||
|
POSTPROC = 'ORD_USER()'
|
||||||
|
ESC_PROC := 'RESET_CNTL()'
|
||||||
|
ELSEIF SCR_NUM = '2115'
|
||||||
|
PREPROC := { {'MISCP_PAINT()','P'} } // PAINT PREPROC
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
SCRNUM := SCR_NUM
|
||||||
|
|
||||||
|
RELATED_DBF := { {'ORD_LINES',1}, {'ORDER_OPTS',1},;
|
||||||
|
{'ORD_MISC',1}, {'ORD_SHIP',1} ,;
|
||||||
|
{'ADDL_LINES',1}, {'ADDL_OPTS',1},;
|
||||||
|
{'ALTSHIPADR',1} }
|
||||||
|
|
||||||
|
XTRA_CARGO := ORD_HOTKEY("ORDERS", SCRNUM)
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
|
||||||
|
// ORDER LINES
|
||||||
|
CASE MALIAS = 'ORD_LINES'
|
||||||
|
// OPEN DBF'S
|
||||||
|
IF SCR_NUM = NIL
|
||||||
|
// extra files opened in cgwprpo0
|
||||||
|
SCRNUM = '2110'
|
||||||
|
PREPROC = { {'SET_TCALC()', 'I'}, ;
|
||||||
|
{'SEEKFUNC("ORD_LINES", "ORD_MAST->ORDER_NUM")', 'I'},; // INITIALIZE PROC
|
||||||
|
{'MODELAFTER("ORDER_OPTS", "USERFILE8", "ORDER_OPTS", "ORD_MAST",{"ORDER_OPTS->ORDER_NUM","ORD_MAST->ORDER_NUM"} )', 'I'},; // INITIALIZE PROC
|
||||||
|
{'MODELAFTER("ADDL_OPTS", "USERFILE9", "ADDL_OPTS", "ORD_MAST",{"ADDL_OPTS->ORDER_NUM", "ORD_MAST->ORDER_NUM"} )', 'I'}, ; // INITIALIZE PROC
|
||||||
|
{'MODELAFTER("ADDL_LINES", "USERFILE6", "ADDL_LINES", "ORD_MAST",{"ADDL_LINES->ORDER_NUM","ORD_MAST->ORDER_NUM"} )', 'I'}} // INITIALIZE PROC
|
||||||
|
|
||||||
|
POSTPROC = {'UPDATE_ORDS("USERFILE8")', ; // UPDATE ORDER OPTIONS FROM USERFILE8
|
||||||
|
'UPDATE_ORDS("USERFILE9")', ; // UPDATE ADDITIONAL OPTIONS FROM USERFILE9
|
||||||
|
'UPDATE_LINES("USERFILE6")', ; // UPDATE ADDITIONAL ORDER LINES FROM USERFILE6
|
||||||
|
'DO_ADDL_LINES()',; // UPDATE ADDITIONAL LINES
|
||||||
|
'UPDATE_ORDS("FILE8FILE9")', ; // UPDATE ADDITIONAL ORDER OPTIONS FROM USERFILE8
|
||||||
|
'MISC_PRICING( )' ,; // UPDATE TAX/ETC
|
||||||
|
'ORD_PRINT(NIL, "Print Order", "OE" )' } // PRINT ORDER (IN CGWPRINT)
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// TEMP ORDER LINES
|
||||||
|
CASE MALIAS = 'TORD_LINES'
|
||||||
|
IF SCR_NUM = NIL .OR. SCR_NUM = '322'
|
||||||
|
SCRNUM = '3220' //** ORDER CONTROL SCREEN
|
||||||
|
XTRA_CARGO := TOL_HOTKEYS('SHIP')
|
||||||
|
XTRA_HEADING := {SPACE(55)+'F1-Delete ALL Shipping', ;
|
||||||
|
SPACE(23)+'Select Product(s) to Ship'+ ;
|
||||||
|
SPACE(7) +'F2-NOTES (BO / Common)', ;
|
||||||
|
SPACE(55)+'F3-Alt. Shipping Info.', ' ' }
|
||||||
|
POSTPROC := { {'DEL_ORD_SHIP(ORD_MAST->ORDER_NUM)', 'A' } }
|
||||||
|
ELSEIF SCR_NUM = '321' //** ORDER ENTRY - BROWSE SHIPPING INFO
|
||||||
|
SCRNUM = '3210' //** BROWSE ONLY SCREEN
|
||||||
|
XTRA_HEADING := {} //** P3N - 1/27/00
|
||||||
|
XTRA_CARGO := TOL_HOTKEYS('OE') //** P3N - 1/27/00
|
||||||
|
ELSEIF SCR_NUM = '323'
|
||||||
|
SCRNUM = '3230' //** PRODUCTION CONTROL SCREEN
|
||||||
|
XTRA_CARGO := TOL_HOTKEYS('PROD')
|
||||||
|
XTRA_HEADING := {' ', SPACE(23)+'Select Product(s) Completed' , ;
|
||||||
|
' ', ' ' }
|
||||||
|
//*** POSTPROC := { {'DEL_ORD_SHIP(ORD_MAST->ORDER_NUM)', 'A' } }
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ORDER LINES PRODUCED - P3N - 5/13/98
|
||||||
|
CASE MALIAS = 'ORD_PROD'
|
||||||
|
IF SCR_NUM = NIL .OR. SCR_NUM = '22350'
|
||||||
|
PREPROC := {}
|
||||||
|
AADD( PREPROC, { 'GET_CTL_KEY()' , 'K' } )
|
||||||
|
AADD( PREPROC, { 'BLD_TMPOPT()' , 'I' } ) //** P3N - 1/15/02
|
||||||
|
XTRA_HEADING := {' Enter Date to INDICATE COMPLETED' , ;
|
||||||
|
' ZERO Qty to REMOVE Transaction', ' ' }
|
||||||
|
ELSEIF SCR_NUM = '22360'
|
||||||
|
AADD( PREPROC, { 'GET_CTL_KEY(1)' , 'K' } )
|
||||||
|
ELSEIF SCR_NUM = '223'
|
||||||
|
SCRNUM := SCR_NUM
|
||||||
|
ENDIF
|
||||||
|
SCRNUM = '22350'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
// ORDER LINES SHIPPED - P3N - 5/13/98
|
||||||
|
CASE MALIAS = 'ORD_SHIP'
|
||||||
|
PREPROC := {}
|
||||||
|
IF SCR_NUM = NIL .OR. SCR_NUM = '21350'
|
||||||
|
AADD( PREPROC, { 'GET_CTL_KEY()' , 'K' } )
|
||||||
|
AADD( PREPROC, { 'BLD_TMP_OST()' , 'I' } ) //** P3N - 1/15/99
|
||||||
|
//UPDATE ORDER SHIPPING TRANSACTIONS
|
||||||
|
POSTPROC := { {'DEL_ORD_SHIP(TORD_LINES->ORDER_NUM)', 'A' } }
|
||||||
|
XTRA_HEADING := {' Enter Date to INDICATE SHIPPED', ;
|
||||||
|
' ZERO Qty to REMOVE Transaction', ' ',{||DSPLBO_QTY()},' ' }
|
||||||
|
ELSEIF SCR_NUM = '21360'
|
||||||
|
AADD( PREPROC, { 'GET_CTL_KEY(1)' , 'K' } )
|
||||||
|
ENDIF
|
||||||
|
SCRNUM = '21350'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
// ADDITIONAL ORDER LINES
|
||||||
|
CASE MALIAS = 'ADDL_LINES'
|
||||||
|
// OPEN DBF'S
|
||||||
|
|
||||||
|
SCRNUM = '21120'
|
||||||
|
PREPROC = { {'ADDL_KEY()', 'K'} } // KEY PREPROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
//** P3N - 11/13/98 (FRIDAY THE 13TH-OMINUS)
|
||||||
|
// ALTERNATE SHIPPING ADDRESS INFO
|
||||||
|
CASE MALIAS = 'ALTSHIPADR'
|
||||||
|
SCRNUM := '3245'
|
||||||
|
AADD( PREPROC, { 'GET_ASA_KEY()' , 'K' } )
|
||||||
|
******PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ORDER OPTIONS
|
||||||
|
CASE MALIAS = 'ORDER_OPTS'
|
||||||
|
SCRNUM := '2120'
|
||||||
|
PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ADDITIONAL ORDER OPTIONS
|
||||||
|
CASE MALIAS = 'ADDL_OPTS'
|
||||||
|
SCRNUM := '2122'
|
||||||
|
PREPROC := { {'??MODELAFTER("ORDER_OPTS", "USERFILE2", "ORDER_OPTS", "ORD_MAST")', 'I'} } // INITIALIZE PROC
|
||||||
|
POSTPROC = { 'STUFF_ENTER_KEY()' } // FORCE ENTER ON BLANK GET
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
|
||||||
|
// QUOTE MASTER
|
||||||
|
CASE MALIAS = 'QUOTE_MAST'
|
||||||
|
CONVERT_KEY = 'KEY_CONV(C_MKEY)'
|
||||||
|
|
||||||
|
IF SCR_NUM = NIL .OR. RIGHT( SCR_NUM, 1 )$'0'
|
||||||
|
IF SCR_NUM = NIL
|
||||||
|
SCR_NUM := '2210'
|
||||||
|
PREPROC := { {'GET_ORD_NUM()','G'}, ; // GET ORDER NUMBER
|
||||||
|
{'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
|
||||||
|
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
|
||||||
|
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
|
||||||
|
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
|
||||||
|
POSTPROC := 'ORD_USER()'
|
||||||
|
ESC_PROC := 'RESET_CNTL()'
|
||||||
|
ELSEIF SCR_NUM = '2220'
|
||||||
|
PREPROC := { { 'QUOTE_MAST->ORDER_NUM','G'}, ; // CHANGE ORDER
|
||||||
|
{'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
|
||||||
|
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
|
||||||
|
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("ORDER_NUM",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
//** AADD(PREPROC, {'PAINT_KEYS("QUOTE_NUM",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
|
||||||
|
ELSEIF SCR_NUM = '2230'
|
||||||
|
PREPROC := { {'GET_THE_CUST( , "RESET")','I'}, ; // RESET STATIC VARIABLES
|
||||||
|
{'ZAP_FILE689()','I'}, ; // ZAP THE USERFILES
|
||||||
|
{'ORD_PAINT(8,12,8,49, "LNOR" )','P'} } // paint bill to/ship to
|
||||||
|
AADD(PREPROC, {'NOTES_MSG("Q")','P'}) //Are notes present on quote????
|
||||||
|
ENDIF
|
||||||
|
ELSEIF SCR_NUM = '2115'
|
||||||
|
PREPROC := { {'MISCP_PAINT()','P'} } // PAINT PREPROC
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
SCRNUM := SCR_NUM
|
||||||
|
|
||||||
|
RELATED_DBF := { {'QUOTE_OPTS',1},;
|
||||||
|
{'QUOTE_ADDL',1}, {'ADDL_QOPT',1} }
|
||||||
|
|
||||||
|
XTRA_CARGO := ORD_HOTKEY("QUOTE", SCRNUM)
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// QUOTE LINES
|
||||||
|
CASE MALIAS = 'QUOTE_LINE'
|
||||||
|
// OPEN DBF'S
|
||||||
|
IF SCR_NUM = NIL
|
||||||
|
// extra files opened in cgwprpo0
|
||||||
|
SCRNUM = '2210'
|
||||||
|
PREPROC = { {'SET_TCALC()', 'I'}, ;
|
||||||
|
{'SEEKFUNC("QUOTE_LINE", "QUOTE_MAST->ORDER_NUM")', 'I'},; // INITIALIZE PROC
|
||||||
|
{'MODELAFTER("QUOTE_OPTS", "USERFILE8", "QUOTE_OPTS", "QUOTE_LINE",{"QUOTE_OPTS->ORDER_NUM","QUOTE_MAST->ORDER_NUM"} )', 'I'},; // INITIALIZE PROC
|
||||||
|
{'MODELAFTER("ADDL_QOPT", "USERFILE9", "ADDL_QOPT", "QUOTE_LINE", {"ADDL_QOPT->ORDER_NUM", "QUOTE_MAST->ORDER_NUM"} )', 'I'}, ; // INITIALIZE PROC
|
||||||
|
{'MODELAFTER("QUOTE_ADDL", "USERFILE6", "QUOTE_ADDL", "QUOTE_LINE",{"QUOTE_ADDL->ORDER_NUM","QUOTE_MAST->ORDER_NUM"} )', 'I'}} // INITIALIZE PROC
|
||||||
|
|
||||||
|
POSTPROC = {'UPDATE_ORDS("USERFILE8")', ; // UPDATE ORDER OPTIONS FROM USERFILE8
|
||||||
|
'UPDATE_ORDS("USERFILE9")', ; // UPDATE ADDITIONAL OPTIONS FROM USERFILE9
|
||||||
|
'UPDATE_LINES("USERFILE6")', ; // UPDATE ADDITIONAL ORDER LINES FROM USERFILE6
|
||||||
|
'DO_ADDL_LINES()',; // UPDATE ADDITIONAL LINES
|
||||||
|
'UPDATE_ORDS("FILE8FILE9")', ; // UPDATE ADDITIONAL ORDER OPTIONS FROM USERFILE8
|
||||||
|
'MISC_PRICING()',; // UPDATE TAX/ETC
|
||||||
|
'ORD_PRINT(NIL, "Print Quote", "OE")' } // PRINT ORDER (IN CGWPRINT)
|
||||||
|
|
||||||
|
|
||||||
|
ELSEIF SCR_NUM = '2225'
|
||||||
|
SCRNUM := SCR_NUM
|
||||||
|
XTRA_HEADING := {'Enter Date to INDICATE COMPLETED PROCESS'}
|
||||||
|
XTRA_CARGO := { {'CTRL + T = Current Date', 20, 'GET_CURDATE()'} , ;
|
||||||
|
{'CTRL + Q = Total Qty', 17, 'GET_TOTQTY()'} }
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ADDITIONAL QUOTE LINES
|
||||||
|
CASE MALIAS = 'QUOTE_ADDL'
|
||||||
|
// OPEN DBF'S
|
||||||
|
|
||||||
|
SCRNUM = '2220'
|
||||||
|
PREPROC = { {'ADDL_KEY()', 'K'} } // KEY PREPROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
|
||||||
|
// QUOTE OPTIONS
|
||||||
|
CASE MALIAS = 'QUOTE_OPTS'
|
||||||
|
SCRNUM := '2230'
|
||||||
|
PREPROC := { {'?MODELAFTER("QUOTE_OPTS", "USERFILE2", "QUOTE_OPTS", "QUOTE_MAST")', 'I'} } // INITIALIZE PROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ADDITIONAL QUOTE OPTIONS
|
||||||
|
CASE MALIAS = 'ADDL_QOPT'
|
||||||
|
SCRNUM := '2232'
|
||||||
|
PREPROC := { {'?MODELAFTER("QUOTE_OPTS", "USERFILE2", "QUOTE_OPTS", "QUOTE_MAST")', 'I'} } // INITIALIZE PROC
|
||||||
|
POSTPROC = { 'STUFF_ENTER_KEY()' } // FORCE ENTER ON BLANK GET
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
|
||||||
|
// CUST ATTRIBUTES
|
||||||
|
CASE MALIAS = 'CUST_ATTS'
|
||||||
|
|
||||||
|
SCRNUM = '3110'
|
||||||
|
FILELIST = {"CAT_ATTS",'CATEGORY'} // OPEN ATTRIBUTE FILE
|
||||||
|
|
||||||
|
// INITIAL PREPROC
|
||||||
|
PREPROC = { {"MAKE_MATH('5')", 'I'} }
|
||||||
|
AADD(PREPROC, {'{USERFILE2->CUST_ID, USERFILE2->PROD_CODE}', 'K'} ) // KEY FOR CUST_ID
|
||||||
|
AADD(PREPROC, {'BLD_CUSTATTS("USERFILE2", "USERFILE3")', 'M'} ) // MODEL AFTER
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
|
||||||
|
// CUST ATTRIBUTE OPTIONS
|
||||||
|
CASE MALIAS = 'CUST_OPTS'
|
||||||
|
SCRNUM = '3120'
|
||||||
|
FILELIST = {"ATT_OPTS","CAT_OPTS",'CATEGORY'} // OPEN category level files for model after
|
||||||
|
PREPROC = { {'CGW11PRE("CUST")', 'K'} ,; // KEY PREPROC
|
||||||
|
{'COPY_OPTS("PROD_OPTS", "CUST_OPTS")', 'M'} , ; // MODEL AFTER
|
||||||
|
{'COPY_OPTS("CAT_OPTS", "CUST_OPTS")', 'M'} , ; // MODEL AFTER
|
||||||
|
{'COPY_OPTS("ATT_OPTS", "CUST_OPTS")', 'M'} } // MODEL AFTER
|
||||||
|
|
||||||
|
XTRA_HEADING := SETUP_XHEAD('CUST_OPTS')
|
||||||
|
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CUSTOMER PRICING EXTRAS
|
||||||
|
CASE MALIAS = 'CUST_PE'
|
||||||
|
SCRNUM = '3130'
|
||||||
|
PREPROC = { {'CUST_PE_KEY() ', 'K'} } // KEY PREPROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// PRODUCT STD SASH MEASUREMENTS
|
||||||
|
CASE MALIAS = 'STD_SASH'
|
||||||
|
SCRNUM = '3140'
|
||||||
|
PREPROC = { {'{PRODUCT->PROD_CODE}', 'K'} } // KEY PREPROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CLEAR SS GLASS BOX STORAGE
|
||||||
|
CASE MALIAS = 'GLASS_BOX'
|
||||||
|
SCRNUM = '3150'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// CUTTING SPECS
|
||||||
|
CASE MALIAS = 'CUT_SPEC'
|
||||||
|
SCRNUM = '3160'
|
||||||
|
AADD(FILELIST, 'MATHPACK')
|
||||||
|
AADD(FILELIST, 'ATTRIB_CUT')
|
||||||
|
AADD(FILELIST, 'ATTRIBUTES')
|
||||||
|
AADD(PREPROC, {'{PRODUCT->PROD_CODE}', 'K'} ) // KEY PREPROC
|
||||||
|
AADD(PREPROC, {"MAKE_MATH('5')", 'I'} ) // MODEL AFTER / KEY PROC
|
||||||
|
AADD(PREPROC, {'NEW_ITEM("CUTTING SPEC","USERFILET")', 'M'}) // COPY A DIFFERENT ONE
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// INTER COMPANY PURCHASE ORDERS
|
||||||
|
CASE MALIAS = 'IPO_FILE'
|
||||||
|
SCRNUM = '2160'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// MISC ITEMS MASTER FILE
|
||||||
|
CASE MALIAS = 'MISC_ITEMS'
|
||||||
|
AADD(FILELIST, 'CATEGORY')
|
||||||
|
AADD(FILELIST, 'COLOR_LIST')
|
||||||
|
AADD(FILELIST, 'UOMFILE')
|
||||||
|
AADD(PREPROC, {'PAINT_KEYS("PARTNUM",,41)','P'} ) // PAINT KEY FIELD
|
||||||
|
SCRNUM = '2170'
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// MISC ITEMS MASTER FILE PRICING/UNIT OF MEASURE
|
||||||
|
CASE MALIAS = 'MISC_PUOM'
|
||||||
|
SCRNUM = '2180'
|
||||||
|
** PREPROC = { {"MAKE_MATH('5')", 'I'} }
|
||||||
|
AADD(PREPROC,{'{MISC_ITEMS->PARTNUM}', 'K'} ) // KEY PREPROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// MISC ITEMS MASTER FILE COLORS
|
||||||
|
CASE MALIAS = 'MISC_COLOR'
|
||||||
|
SCRNUM = '2190'
|
||||||
|
AADD(PREPROC,{'{MISC_ITEMS->PARTNUM}', 'K'} ) // KEY PREPROC
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// MASTER UOM FILE
|
||||||
|
CASE MALIAS = 'UOMFILE'
|
||||||
|
//** SCRNUM = '3210' //** P3N - 1/26/00
|
||||||
|
SCRNUM = '4210' //** P3N - 1/26/00
|
||||||
|
PREPROC = { {"MAKE_MATH('5')", 'I'} }
|
||||||
|
AADD(FILELIST, 'MISC_ITEMS')
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// MASTER COLOR FILE
|
||||||
|
CASE MALIAS = 'COLOR_LIST'
|
||||||
|
//** SCRNUM = '3220' //** P3N - 5/26/98
|
||||||
|
SCRNUM = '4220' //** P3N - 5/26/98
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// ORDER MISC ITEMS
|
||||||
|
CASE MALIAS = 'ORD_MISC'
|
||||||
|
//** SCRNUM = '3230' //** P3N - 5/26/98
|
||||||
|
SCRNUM = '4230' //** P3N - 5/26/98
|
||||||
|
AADD(PREPROC,{'{ ORD_MAST->ORDER_NUM }', 'K'} ) // KEY PREPROC
|
||||||
|
//** P3N - 11/25/98 - MOVED TO MISC_ITEM()-CGWPRPO0.PRG
|
||||||
|
//** POSTPROC = { {'UP_MISCTOT(USERFILE2->ORDER_NUM)', 'B' } }
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
// QUOTE MISC ITEMS
|
||||||
|
CASE MALIAS = 'QUOTE_MISC'
|
||||||
|
SCRNUM = '2270'
|
||||||
|
AADD(PREPROC,{'{QUOTE_MAST->ORDER_NUM }', 'K'} ) // KEY PREPROC
|
||||||
|
//** P3N - 11/25/98 - MOVED TO MISC_ITEM()-CGWPRPO0.PRG
|
||||||
|
//** POSTPROC = { {'UP_MISCTOT(USERFILE2->ORDER_NUM)', 'B' } }
|
||||||
|
ACDARR := LOAD_ACDARR(MALIAS)
|
||||||
|
|
||||||
|
ENDCASE
|
||||||
|
|
||||||
|
RETURN ACDARR
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
CLOSE DATABASES
|
||||||
|
RETURN ACDARR
|
||||||
|
|
||||||
|
*********************************************************************
|
||||||
|
* RETURN AN ARRAY USED AS THE HEADING FOR A DBROWSE! *
|
||||||
|
* //** P3N - 2/19/98 *
|
||||||
|
*********************************************************************
|
||||||
|
FUNCTION SETUP_XHEAD(TYPE)
|
||||||
|
LOCAL RETARR
|
||||||
|
RETARR := ;
|
||||||
|
{ {||FRST_XHEAD()}, '(BLANK Value to DELETE)', ;
|
||||||
|
'PI*-Print Ind / Alt Print-Alternate Print Value', ;
|
||||||
|
'HT ADJ-Prod Height Adj / WD ADJ-Prod Width Adj', ;
|
||||||
|
{||WHEREMSG("SET")}, {||WHEREMSG()}, {|| WHEREMSG("RESET")} }
|
||||||
|
RETURN RETARR
|
||||||
|
FUNCTION FRST_XHEAD()
|
||||||
|
RETURN 'Add Options for "'+ ALLTRIM(ATT_CODE) +'" Attribute'
|
||||||
|
*********************************************************************
|
||||||
|
*********************************************************************
|
||||||
|
*********************************************************************
|
||||||
|
FUNCTION OPN_MFG()
|
||||||
|
LOCAL SVSEL := SELECT()
|
||||||
|
DBOPEN('MFG_LOC')
|
||||||
|
SELECT(SVSEL)
|
||||||
|
RETURN
|
||||||
|
**FUNCTION CLOSE_MFG()
|
||||||
|
**LOCAL SVSEL := SELECT()
|
||||||
|
**SELECT('MFG_LOC')
|
||||||
|
**USE
|
||||||
|
**SELECT(SVSEL)
|
||||||
|
**RETURN
|
||||||
|
*********************************************************************
|
||||||
|
*********************************************************************
|
||||||
|
*********************************************************************
|
||||||
|
FUNCTION COPYCUT()
|
||||||
|
LOCAL SAVESEL := SELECT(), SAVEFILT
|
||||||
|
LOCAL COPYFROM := ALLTRIM( ATTRIB_CUT )
|
||||||
|
|
||||||
|
SELECT ATTRIB_CUT
|
||||||
|
USE
|
||||||
|
SELECT USERFILE3
|
||||||
|
|
||||||
|
// APPEND ALL FROM &ATTRIB_CUT
|
||||||
|
APPEND ALL FROM ©FROM
|
||||||
|
DBOPEN('ATTRIB_CUT')
|
||||||
|
SELECT (SAVESEL)
|
||||||
|
|
||||||
|
RETURN .T.
|
||||||
|
|
||||||
|
*********************************************************************
|
||||||
|
*********************************************************************
|
||||||
|
*********************************************************************
|
||||||
|
FUNCTION COPYSTD()
|
||||||
|
LOCAL SAVESEL := SELECT(), SAVEFILT
|
||||||
|
LOCAL COPYFROM := ALLTRIM( ATTRIBUTES )
|
||||||
|
|
||||||
|
SELECT ATTRIBUTES
|
||||||
|
USE
|
||||||
|
SELECT USERFILE2
|
||||||
|
// APPEND ALL FROM &ATTRIBUTES FOR ATT_TYPE = 'S'
|
||||||
|
APPEND ALL FROM ©FROM FOR ATT_TYPE = 'S'
|
||||||
|
DBOPEN('ATTRIBUTES')
|
||||||
|
SELECT (SAVESEL)
|
||||||
|
|
||||||
|
RETURN .T.
|
||||||
|
|
||||||
|
**********************************************
|
||||||
|
FUNCTION FILL_PRODCODE
|
||||||
|
// FILL THE USERFILE (PROD_OPTS) RECORDS WITH THE PROD_ATTS->PROD_CODE
|
||||||
|
|
||||||
|
LOCAL SAVESEL := SELECT()
|
||||||
|
|
||||||
|
SELECT USERFILE2
|
||||||
|
GOTO TOP
|
||||||
|
DO WHILE !EOF()
|
||||||
|
REC_LOCK(3)
|
||||||
|
REPLACE PROD_CODE WITH PROD_ATTS->PROD_CODE
|
||||||
|
UNLOCK
|
||||||
|
SKIP 1
|
||||||
|
ENDDO
|
||||||
|
SELECT(SAVESEL)
|
||||||
|
RETURN .T.
|
||||||
|
|
||||||
|
|
||||||
|
*****************************************************************
|
||||||
|
|
||||||
|
FUNCTION SEEKFUNC(SEEK_ALIAS, SEEKKEY)
|
||||||
|
LOCAL SAVESEL := SELECT()
|
||||||
|
SELECT (SEEK_ALIAS)
|
||||||
|
SEEK &SEEKKEY
|
||||||
|
SELECT (SAVESEL)
|
||||||
|
**(&SEEK_ALIAS)->(DBSEEK(&SEEKKEY))
|
||||||
|
RETURN .T.
|
||||||
|
|
||||||
+1862
File diff suppressed because it is too large
Load Diff
+1864
File diff suppressed because it is too large
Load Diff
+210
@@ -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
|
||||||
|
|
||||||
|
|
||||||
+50
@@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
+160
@@ -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
|
||||||
|
|
||||||
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user