howdy...
I just received my new high end computer, installed Visual Studio 6.0. Setup went well. Opened up VFP6 with no issues. On my old computer I opened up my CVRT files and copied them one at a time to notepad then transfered to my new computer. I then opened up VFP and started a new .prg by doing "modify command fracvrt" no problem. I copied the below code from notepad into the new fracvrt file, safed it all went well. I ten at teh command widow typed "do fracvrt" and I get errors now and do not know why, it still works fine on my old computer with this same file, no issues.
The erros I get are on line 2 USE R:\RTLPAS10\RFMSS35\DATA\REQUEST.DBF (SAYS FILE IS IN USE, It is not, this is a mapped drive to my server)
The 2nd error is this line SET TEXTMERGE TO (OutFile) (SAYS INVALID PATH OR FILE NAME)
I have done nothing to the code at all, just changed it to a different computer, As I stated it still runs fine on the old computer with no issues. I have three cvrt files and have tried all three on this new computer with the same results Why?
Any advice is GREATLY appriciated.
SET EXCLUSIVE OFF
USE R:\RTLPAS10\RFMSS35\DATA\REQUEST.DBF (SAYS FILE IS IN USE, It is not, this is a mapped drive to my server)
DO WHILE .T.
WAIT WINDOW NOWAIT 'Waiting... <Esc> to exit, any other key to update now.'
x=INKEY(300) &&... 300 seconds = 5 minutes.
IF x = 27 &&... Escape key pressed
EXIT
ENDIF
DO MakeHTML WITH DATE(), DATE() + 90, ;
"X:\Inetpub\
DO MakeHTML WITH DATE() + 91, DATE() + 180, ;
"X:\Inetpub\
DO MakeHTML WITH DATE() + 181, DATE() + 260, ;
"X:\Inetpub\
DO MakeHTML WITH DATE(), DATE() + 365, ;
"X:\Inetpub\
ENDDO
CLOSE ALL
FUNCTION MakeHTML
PARAMETERS UseDate, EndDate, OutFile
SELECT USEDAY, ENDDAY, TRAINING, ;
UnitName, Tra_Area ;
FROM Request ;
WHERE BETWEEN(USEDAY,UseDate, EndDate );
ORDER BY USEDAY;
INTO CURSOR tmp
SELECT tmp
&&... Use 'OutFile' parameter instead of actual file name
SET TEXTMERGE TO (OutFile)
SET TEXTMERGE ON NOSHOW
\\<HTML><HEAD><TITLE>Requests by Date</TITLE></HEAD>
\<BODY>
\<TABLE BORDER=5 ALIGN=CENTER WIDTH=70%>
nCounter = 0
SCAN
IF (nCounter % 20)=0 &&... every 20 rows
\<TR>
\ <TH>Use Day
\ <TH>End Day
\ <TH>Training to be Conducted
\ <TH>Using Unit
\ <TH>Range/Training Area
\</TR>
ENDIF
nCounter = nCounter + 1
\<TR>
\ <TD><<Useday>>
\ <TD><<ENDDAY>>
\ <TD><<Training>>
\ <TD><<UnitName>>
\ <TD><<Tra_Area>>
\</TR>
ENDSCAN
SET TEXTMERGE TO
RETURN It's not a problem...It's just a Blood Pressure Monitor
I just received my new high end computer, installed Visual Studio 6.0. Setup went well. Opened up VFP6 with no issues. On my old computer I opened up my CVRT files and copied them one at a time to notepad then transfered to my new computer. I then opened up VFP and started a new .prg by doing "modify command fracvrt" no problem. I copied the below code from notepad into the new fracvrt file, safed it all went well. I ten at teh command widow typed "do fracvrt" and I get errors now and do not know why, it still works fine on my old computer with this same file, no issues.
The erros I get are on line 2 USE R:\RTLPAS10\RFMSS35\DATA\REQUEST.DBF (SAYS FILE IS IN USE, It is not, this is a mapped drive to my server)
The 2nd error is this line SET TEXTMERGE TO (OutFile) (SAYS INVALID PATH OR FILE NAME)
I have done nothing to the code at all, just changed it to a different computer, As I stated it still runs fine on the old computer with no issues. I have three cvrt files and have tried all three on this new computer with the same results Why?
Any advice is GREATLY appriciated.
SET EXCLUSIVE OFF
USE R:\RTLPAS10\RFMSS35\DATA\REQUEST.DBF (SAYS FILE IS IN USE, It is not, this is a mapped drive to my server)
DO WHILE .T.
WAIT WINDOW NOWAIT 'Waiting... <Esc> to exit, any other key to update now.'
x=INKEY(300) &&... 300 seconds = 5 minutes.
IF x = 27 &&... Escape key pressed
EXIT
ENDIF
DO MakeHTML WITH DATE(), DATE() + 90, ;
"X:\Inetpub\
DO MakeHTML WITH DATE() + 91, DATE() + 180, ;
"X:\Inetpub\
DO MakeHTML WITH DATE() + 181, DATE() + 260, ;
"X:\Inetpub\
DO MakeHTML WITH DATE(), DATE() + 365, ;
"X:\Inetpub\
ENDDO
CLOSE ALL
FUNCTION MakeHTML
PARAMETERS UseDate, EndDate, OutFile
SELECT USEDAY, ENDDAY, TRAINING, ;
UnitName, Tra_Area ;
FROM Request ;
WHERE BETWEEN(USEDAY,UseDate, EndDate );
ORDER BY USEDAY;
INTO CURSOR tmp
SELECT tmp
&&... Use 'OutFile' parameter instead of actual file name
SET TEXTMERGE TO (OutFile)
SET TEXTMERGE ON NOSHOW
\\<HTML><HEAD><TITLE>Requests by Date</TITLE></HEAD>
\<BODY>
\<TABLE BORDER=5 ALIGN=CENTER WIDTH=70%>
nCounter = 0
SCAN
IF (nCounter % 20)=0 &&... every 20 rows
\<TR>
\ <TH>Use Day
\ <TH>End Day
\ <TH>Training to be Conducted
\ <TH>Using Unit
\ <TH>Range/Training Area
\</TR>
ENDIF
nCounter = nCounter + 1
\<TR>
\ <TD><<Useday>>
\ <TD><<ENDDAY>>
\ <TD><<Training>>
\ <TD><<UnitName>>
\ <TD><<Tra_Area>>
\</TR>
ENDSCAN
SET TEXTMERGE TO
RETURN It's not a problem...It's just a Blood Pressure Monitor