>SET CLASSLIB TO test additive >private oXC >oXC = CREATEOBJECT('test') >? what here for parameter >m.error = oXC.Cursorfill() >If !m.error >*Wait WINDOW "Upload Failed. Press a key..." > =Messagebox(Message(),64) >Else > brow > oXC.RELEASE() >endif >return >>Is this the right way to do this?
SET CLASSLIB TO test additive private oXC oXC = CREATEOBJECT('test') cssn = ValueForCssn && Do not declare cssn as LOCAL m.error = oXC.Cursorfill() If !m.error =Messagebox(Message(),64) Else brow oXC.RELEASE() endif returnOther way
SET CLASSLIB TO test additive private oXC oXC = CREATEOBJECT('test', ValueForCssn) m.error = oXC.Cursorfill() If !m.error =Messagebox(Message(),64) Else brow oXC.RELEASE() endif returnbut If You use that method in Init Event of the CA You must have PARAMETER named cssn