Jason Soltys
373 lines
8.9 KiB
Plaintext
373 lines
8.9 KiB
Plaintext
# 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
|
|
|
|
**********************************************************************
|