>thisform.cmdResolutions.Visible = .f. >THISFORM.edtSelectedProblem.VALUE = "" >PRIVATE poParamObject >poParamObject = CREATEOBJECT('oParameter') >poParamObject.iProblem_Code = 0 >poParamObject.iResolution_Code = 0 >LOCAL lnSoftware_Code, lnHardware_Code, lnOther_Code >lnSoftware_Code = EVL(this.parent.cboSoftware.Value, -1) >lnHardware_Code = EVL(this.parent.cboHardware.Value, -1) >lnOther_Code = EVL(this.parent.cboOther.Value, - 1) > >SELECT LEFT(Problems.mDescription,200) as cDescription, Problems.iProblem_Code, ; >NVL(Software.cDescription, SPACE(30)) as cSoftware, ; >NVL(Hardware.cDescription, SPACE(30)) as cHardware, ; >NVL(Other.cDescription, SPACE(30)) as cOther ; >from Problems ; >left join Software on Problems.iSoftware_Code = Software.iSoftware_Code AND Software.iActive_Flag = 1 ; >left join Hardware on Problems.iHardware_Code = Hardware.iHardware_Code AND Hardware.iActive_Flag = 1; >LEFT JOIN Other ON Problems.iOther_Code = Other.iOther_Code AND Other.iActive_Flag = 1 ; >WHERE (Problems.iSoftware_Code = m.lnSoftware_Code OR ; >Problems.iHardware_Code = m.lnHardware_Code OR ; >Problems.iOther_Code = m.lnOther_Code) ; >ORDER BY 1 into cursor curPickProblems readwrite >USE IN SELECT('Problems') > >DoForm('frm_ProblemPicker', m.poParamObject)>