[RBASE-L] - RE: Updating a form in a compiled app

[Dennis McGrath]

Input is OLD OLD OLD history.
I haven't used it for over 20 years

Dennis

________________________________
From: rbase-l@rbase.com [mailto:rbas...@rbase.com] On Behalf Of TOM HART
Sent: Monday, September 20, 2010 11:26 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: Updating a form in a compiled app

I guess I need
run &vfilename
instead of
input .vfilename

Tom

________________________________
From: Javier Valencia <javier.valen...@vtgonline.com>
To: RBASE-L Mailing List <rbase-l@rbase.com>
Sent: Mon, September 20, 2010 11:12:13 PM
Subject: [RBASE-L] - RE: Updating a form in a compiled app
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
javier.valen...@vtgonline.com<mailto:javier.valen...@vtgonline.com>

________________________________
From: rbase-l@rbase.com [mailto: rbase-l@rbase.com ] 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