[RBASE-L] - Re: Copy form to another database

[Victor Timmons]

Here is a little I wrote that I use from with in my program. Use it how 
you wish. It may also provide you with some idea's



--MaintForms.MEN
COLUMN |-Please Select-|
|Unload Form|
|Unload Report|
|Load Form|
|Load Report|
|Close|
ENDC


--MaintForms.RMD
--Victor Timmons 6/06/03

CHOOSE vAz FROM MaintForms.MEN AT 10,20
SET VAR vFormName TEXT = NULL
SET VAR vReportName TEXT = NULL
SET VAR vFormFileName TEXT = NULL
SET VAR vReportFileName TEXT = NULL

--Unload Form
IF vAz = 1 THEN
  CHOOSE vFormName FROM #FORMS AT 10,20
  SET VAR vFormFileName = .vFormName + '.FRM'
  SET QUOTES="
  SET VAR vFormName =("'"+.vFormName+"'")
  SET QUOTES='  
  OUTPUT .vFormFileName
  BACKUP DATA FOR SYS_Forms2 WHERE  SYS_FORM_NAME = &vFormName
  OUTPUT Screen
  GOTO DONE
ENDIF

--Unload Report
IF vAz = 2 THEN
  CHOOSE vReportName FROM #REPORTS AT 10,20
  SET VAR vReportFileName = .vReportName + '.RPT'
  SET QUOTES="
  SET VAR vFormName =("'"+.vReportName+"'")
  SET QUOTES='  
  OUTPUT .vReportFileName
  BACKUP DATA FOR SYS_Forms2 WHERE  SYS_FORM_NAME = &vFormName
  OUTPUT Screen
  GOTO DONE
ENDIF

--Load Form
IF vAz = 3 THEN
  CHOOSE vFormName FROM #FORMS AT 10,20
  DROP FORM .vFormName
  SET VAR vFormFileName = .vFormName + '.FRM'
  RUN &vFormFileName
  GOTO DONE
ENDIF

--Load Report
IF vAz = 4 THEN
  CHOOSE vReportName FROM #REPORTS AT 10,20
  DROP REPORT .vReportName
  SET VAR vReportFileName = .vReportName + '.RPT'
  RUN &vReportFileName
  GOTO DONE
ENDIF

--Close
IF vAz = 5 THEN
  GOTO DONE
ENDIF

LABEL DONE
CLEAR VAR vAZ, vFormName, vReportName, vFormFileName, vReportFileName
QUIT TO Maint.RMD




On 9 Dec 2003 at 16:36, Joel Solomon wrote:

> Can anyone tell me the correct way to copy a form from one database to another?
> 
> Joel Solomon
> Controller
> Barbizon International
> Ph:    954-345-4140  ext. 203
> Fax:   954-345-8055



Victor Timmons  
Tiz's Door Sales, Inc
425-258-2391