Tom,
This is part of code I run to load forms, reports and views from a compiled
application:
PLUGINS loadfilenameplus.rbl 'vfile_name +
|FULLPATH ON +
|TITLE Select File(s) +
|VIEW_MODE LIST +
|FILTER R:BASE Command Files +
(*.rmd,*.frm,*.rpt,*.vie)#*.RMD;*frm;*.rpt;*.vie +
|MULTISELECT OFF +
|SHOW_HIDDEN OFF +
|NO_LONG_NAMES OFF +
|OLD_STYLE OFF +
|NO_NETWORK_BUTTON OFF +
|HIDE_READ_ONLY ON'
IF vfile_name = '[Esc]' THEN
GOTO run_new_file
ENDIF
IF vfile_name IS NULL THEN
PAUSE 2 USING 'File Not Selected!' +
CAPTION 'File Selection Result' ICON stop
GOTO run_new_file
ENDIF
SET VAR vfilename = (''''+.vfile_name+'''')
SET VAR vmessage = (' Run and delete file: ' + .vfile_name)
DIALOG .vmessage=50 vyes_no vcont yes CAPTION 'Confirm Command...' +
ICON serious
IF (LUC(.vyes_no) EQ 'NO' OR vcont EQ '[Esc]' ) THEN
GOTO run_new_file
ENDIF
RUN &vfilename
-- Delete file
DELETE &vfilename
-- if form or report, delete the LOB file
SET VAR vext = (SGET( .vfilename, 4, (SLEN(.vfilename) - 4)))
IF vext IN ('.FRM','.RPT') THEN
SET VAR vfilename = (SRPL(.vfilename,.vext, '.LOB', 0))
DELETE &vfilename
ENDIF
You can include it in your own code.
Javier,
Javier Valencia, PE
913-829-0888 Office
913-915-3137 Cell
913-649-2904 Fax
<mailto:[email protected]> [email protected]
_____
From: [email protected] [mailto:[email protected]] On Behalf Of TOM HART
Sent: Monday, September 20, 2010 10:47 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Updating a form in a compiled app
I am trying to update a form in a compiled app, this is my code
connect database
input .vfilename(this is selected using loadfilenameplus, it is the
formname.frm unloaded from my forms table)
This will run fine as a rmd in my full rbase, but I get the message 'illegal
entry/exit procedure'
Can I not do this in a compiled app, or is my code wrong.
Tom Hart
