Upgrade from version 7 to 9 1

[Triedit]

Ok, I'm just about to upgrade from version 7 to version 9...oh what joy. It looks like I'll have to re-deliver all my forms again, does anyone have a quick fix for this? (I have hundreds of forms)

Any help, as usual, would be greatly appreciated.

Annie

 

[footpad]

Annie,

While it's not a full fix, there's a sample file on my site that you may be interested in. Specifically, the article at

http://www.techtricks.com/paradox/fsrecurse.php

shows how to recursively search a directory and it's child directories for files and the sample file resaves all documents that are found.

You could easily modify this to redeliver forms, reports, scripts, and libraries.

Hope this helps...

-- Lance

 

[hcts]

I setup a script that does my delivery for me:

VAR
FILESYS FILESYSTEM
T TABLE
TC,TC1 TCURSOR
DB DATABASE
S STRING
F FORM
R REPORT
ENDVAR

FILESYS.ENUMFILELIST("*.FSL", "DELFORMS.DB&quot
T=create "RIV:FORMS.db"
WITH "FORM NAME" : "A31"
endCreate
TC1.OPEN("RIV:FORMS.DB&quot
TC1.EDIT()
TC.OPEN("DELFORMS.DB&quot
SCAN TC :
S = TC.NAME
IF
F.LOAD(S)
THEN
SLEEP(1000)
F.DELIVER()
F.CLOSE()
ELSE
TC1.INSERTRECORD()
TC1."FORM NAME"=S
TC1.POSTRECORD()
IF
MSGQUESTION("FORM "+S+" FAILED"," Do you want to continue&quot="Yes"
THEN

ELSE
RETURN
ENDIF
ENDIF
ENDSCAN
TC.CLOSE()

DB.OPEN()
DB.DELETE("DELFORMS.DB&quot

This allows me to deliver all my forms at once. Some of my forms are lookups or drilldown forms that depend on answer tables to open, so they fail. I actually compensate for that in the name of the form and deliver all of my forms module by module:

FILESYS.ENUMFILELIST("AP*.FSL", "DELFORMS.DB&quot

Hope that helps

James D. Howard

 

[Bystander]

Annie,

Once version 9 is installed

you could probably go -

Tools - Experts - Utilities - Design Object Utilities

select your forms and deliver them all in one fell swoop. Watchout for any forms that require answer tables.


Regards

Bystander