Georgio
Indirection help February 18, 2009 08:53PM |
PROCEDURE CheckCode(sCode is string="",bValData is boolean=True) IF sCode <> "" THEN {gsQryName+"."+gsQryPCode,indQueryParameter} = sCode HExecuteQuery({gsQryName},hQueryDefault) HReadFirst({gsQryName}) // not a valid code IF NOT HFound({gsQryName}) THEN bValData = False NextTitle("Invalid Code! ") Info("The code you entered is invalid. Please try again. ") END END RESULT bValData
Georgio
Re: Indirection help -- ooppss February 18, 2009 09:03PM |
IF sCode <> "" THEN {(gsQryName+"."+gsQryPCode),indQueryParameter} = sCode HExecuteQuery(({gsQryName}),hQueryDefault) HReadFirst({gsQryName}) // not a valid code IF NOT HFound({gsQryName}) THEN bValData = False NextTitle("Invalid Code! ") Info("The code you entered is invalid. Please try again. ") END END RESULT bValData
Fabrice Harari
Re: Indirection help February 18, 2009 09:42PM |