Thanks, I'll give it a try
----- Original Message -----
From: "Victor Timmons" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <[EMAIL PROTECTED]>
Sent: Wednesday, December 10, 2003 1:12 PM
Subject: [RBASE-L] - Re: Copy form to another database
> 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
>
>
