Subject Re: calling another form
From John Jay <bestmar@sbcglobal.net>
Date Mon, 24 Sep 2018 05:47:01 -0400
Newsgroups dbase.getting-started

Hi Bob ,
And I thought I was an old timer at 76 :-)
John

>
> Hi All:  Cancel this request.  I now have the form opening from the "ADD" button on the parent form.  It' not displaying  blank fields, like it's in the append mode.  I'm still working on the problems.  10 year memory at 95 is something we will not discuss(grin)..Bob
>
>
> >Bob McKinney Wrote:
>
> > Hi All: Using dBplus 2.8 w/wn 10.  somehow while editing a form, whatever I did must have contaminate my [ dialog.cfm ] form.  I could not open the cfm.  I could open the source editor and look at the code, whatever that's worth. (grin).  Any form that came from dialog.cfm would not work.
> >     I deleted the current dialog and created a new dialog.cfm.  This did not help.  I am now recreating any forms that are called by another wfm form via a call button.
> >     Problem:  Using a pushbutton in the calling form (New Register, 1st sample code below) , it will open "CheckEdit.wfm" with data in the entryfields rather than blank (Append Mode).  see code below.  
> > I hope someone will decipher all this and ginve this old brain some help.....Bob
> >
> >   function PBADD_onClick
> >        // Get the Vendor name & Numbr for the Remind section in checkedit.wfm
> >       _app.Vendor  = form.rowset.fields[ "Vendor" ].value
> >       _app.VendNo  = form.rowset.fields[ "VendNo" ].value
> >       local fcheck
> >       set procedure to checkEdit.wfm additive
> >       fcheck = new CheckEditForm()
> >       // add a custom property (note that the
> >       // form.rowset is pointing to the Vendor rowset
> >       fCheck.VendNo = form.rowset.fields[ "VendNo" ].value
> >       // Get the Vendor name & Numbr for the Remind section in checkedit.wfm
> > //      _app.Vendor  = form.rowset.fields[ "Vendor" ].value
> > //      _app.VendNo  = form.rowset.fields[ "VendNo" ].value
> >       do case
> >           case _app.VendNo == "193"
> >             msgbox("Protection One Automatically Pays from Visa")
> >           case _app.VendNo == "175"
> >             msgbox("Toyota's check MUST be mailed by the 5th of month"),("SPECIAL MESSAGE ")
> >                
> >       endcase
> >       // loading var for sending utility pmts to remind table
> >         if form.rowset.fields[ "Utility" ].value == true
> >           _app.remind = true
> >         else
> >           _app.remind = false
> >         endif
> >       // let the CheckEdit form know we're in the "Append" Mode
> >       fCheck.Mode = "Append"
> >       // Open the form
> >       fCheck.readModal()
> >       // close the procedure file..
> >       close procedure CheckEdit.wfm
> >       // refresh the controls on screen...
> >       form.perchecksdatamodule1.pchecks1.rowset.refreshControls()
> >       form.seeker1.setFocus()
> >       // cleanup
> >      _app.Vendor = null
> >  //     _app.Remind = null
> >       return
> >
> > ******************
> >
> > Begining code for checkEdit.wfm
> > ** END HEADER -- do not remove this line
> > //
> > // Generated on 09/19/2018
> >
> > local f
> > f = new CheckEditForm()
> > if (bModal)
> >    f.mdi = false // ensure not MDI
> >    f.readModal()
> > else
> >    f.open()
> > endif
> >
> > class CheckEditForm of DIALOGFORM from :MyControls:dialog.cfm
> >    set procedure to :BMCustom:Mypushbutton.cc additive
> >    set procedure to :MySource:mycontrols.cc additive
> >    set procedure to :MyControls:PerChecks.dmd additive
> >    with (this)
> >       onOpen = class::FORM_ONOPEN
> >       height = 549.0
> >       left = 3.0
> >       top = 40.0
> >       width = 584.0
> >       text = "CheckEdit/Add"
> >    endwith
> >
> >    this.PERCHECKSDATAMODULE1 = new PERCHECKSDATAMODULE()
> >    this.PERCHECKSDATAMODULE1.parent = this
> >    with (this.PERCHECKSDATAMODULE1)
> >       left = 497.0
> >       top = 418.0
> >    endwith
> >
> >    with (this.TITLETEXT)
> >       text = "Check/Visa -  Edit/Add form"
> >
> > *********
> >
> > Many thanks in advance......bob
> >
>