Subject Re: Passing info from .wfm to .prg
From Andrew Shimmin <shimmina@[IHateSpam]connexus.net.au> <Andrew Shimmin <shimmina@[IHateSpam]connexus.net.au>>
Date Mon, 08 Feb 2010 17:58:26 +1100
Newsgroups dbase.getting-started
Attachment(s) TestDoProcedureWithFormObject.wfm, TestDoProcedureWithFormObject.prg

Ben,

Try the attached.

regards, andrew

Ben Gattegno wrote:
> Form ProcessData.wfm opens a table, provides vsual info from table, and calls a .prg file for further processing.
 >
> Please advise how to pass info from the form to the prg file.  For example: on form: form.SpinTransaction i slinked to table's transaction row.  When I ask for form.SpinTransaction.value in the .prg  program
 > I get a "variable undefined" error messasge.
>
> I tried set procedure to Process.prg additive with no better results.
 >
> Can someone shed some light on this for me?  Thanks
 >



** END HEADER -- do not remove this line
//
// Generated on 08/02/2010
//
parameter bModal
local f
f = new TestDoProcedureWithFormObject()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class TestDoProcedureWithFormObject of FORM
   with (this)
      scaleFontName = "Tahoma"
      scaleFontSize = 8.0
      metric = 6  // Pixels
      height = 59.0
      left = 715.0
      top = 275.0
      width = 240.0
      text = ""
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 25.0
      left = 75.0
      top = 11.0
      width = 90.0
      text = "DoProcedure"
      fontName = "Tahoma"
      fontSize = 9.0
   endwith


   function PUSHBUTTON1_onClick
      do TestDoProcedureWithFormObject.prg with (form)
      return

endclass



/*

   TestDoProcedureWithFormObject.prg

*/

   parameter oFormObjectReference

   msgbox([FormClassname is ]+oFormObjectReference.classname,program(),64)

   return