G'day Jeff,
What does somebody we know say? "Ask and ye shall receive."
Here is some code you can cut and paste into your programmer's toolkit.
You just have to remember to add the version number when the dialog displays.
IF vPgmrPick1 = 'Export all reports for update' THEN
SET VAR vUpdExptRptName TEXT = 'Rpt1_ .txt'
DIALOG 'Enter file name for reports:' vUpdExptRptName =12 vEndKey 1
IF vEndKey = '[ESC]' THEN
GOTO LEndAAAA
ENDIF
SET VAR vCmdRpt TEXT = ('OUTPUT' & .vUpdExptRptName)
SET NULL -0-
&vCmdRpt
UNLOAD DATA FOR SYS_Reports2
OUTPUT SCREEN
RUN SetNull IN GlobBlok.apx
CLEAR VAR vCmdRpt,vUpdExptRptName
ENDIF
IF vPgmrPick1 = 'Export all forms for update' THEN
SET VAR vUpdExptFrmName TEXT = 'Frm1_ .txt'
DIALOG 'Enter file name for forms:' vUpdExptFrmName =12 vEndKey 1
IF vEndKey = '[ESC]' THEN
GOTO LEndAAAA
ENDIF
SET VAR vCmdFrm TEXT = ('OUTPUT' & .vUpdExptFrmName)
SET NULL -0-
&vCmdFrm
UNLOAD DATA FOR SYS_Forms2
OUTPUT SCREEN
RUN SetNull IN GlobBlok.apx
CLEAR VAR vCmdFrm,vUpdExptFrmName
ENDIF
And here's the code that runs at the user's end:
MAXIMIZE
CLS FROM 1,1 TO 1,80
WRITE 'Dropping old forms. Please wait...' AT 1,3
DEL FROM SYS_Forms2
WRITE 'Dropping old reports. Please wait...' AT 1,3
DEL FROM SYS_Reports2
CLS FROM 1,1 TO 1,80
WRITE 'Inserting new forms. Please wait...' AT 1,3
RUN Frm1_47.txt
CLS FROM 1,1 TO 1,80
WRITE 'Inserting new reports. Please wait...' AT 1,3
RUN Rpt1_47.txt
MINIMIZE
At 16:11 21/04/01 -0500, you wrote:
>This is kind of a dumb question, but can you replace the entire sys_forms2
>table in windows by unloading data from a newer sys_forms2, deleting the
>data at a client site and loading in another file. When you unload the
>entire sys_forms2 table the .LOB file is created, but I ask this because I
>am not sure if deleting rows from sys_forms2 actually effects where the
>windows reports data is stored?
>
>And for all of those grieving Ramones fans (like myself): Gabba Gabba Hey!
>
> Jeff Ward
Warmest regards,
Tom Grimshaw
coy: Just For You Software
tel: 61 (0)2 9552 3311
fax: 61 (0)2 9566 2164
email: [EMAIL PROTECTED]
mobile: 0414 675 903
street: 3/66 Wentworth Park Rd Glebe NSW 2037
post: PO Box 470 Glebe NSW 2037 Australia
_/_/_/_/_/_/_/_/ _/_/_/_/_/_/ _/ _/ _/_/_/_/_/
_/ _/ _/ _/ _/
_/ _/ _/ _/ _/
_/ _/_/_/_/ _/ _/_/_/_/_/
_/ _/ _/ _/
_/ _/ _/ _/ _/
_/ _/ _/ _/_/_/_/_/
