*********************************************************************** **&RS METHOD txtSTAYcDepHow.valid| *********************************************************************** **Created.....: &&RS 2008.01.03 PRR3 **History.....: ********************************************************************** &&RS 2008.01.04 PRR3 TODO: option to wavie deposit procedure txtSTAYcDepHow.valid WAIT WINDOW NOWAIT 'SET("CONFIRM")=' + set("CONFIRM") do case case this.value == "CC" return this.parent.txtSTAYnParty &&RS 2008.01.19 PRR2 TODO: uncomment when implemented: return this.parent.txtSTAYcAutoTag case this.value == "CK" return this.parent.txtSTAYnDepPaid case this.value == "CA" return .t. ** return this.parent.txtSTAYnDepPaid case this.value == "ND" this.parent.txtSTAYnDepPaid.value = 0 return this.parent.txtSTAYnParty &&RS 2008.01.19 PRR2 TODO: return this.parent.txtSTAYcAutoTag otherwise Msg_RS("<Indicate how the deposit is paid: CA-cash, CC-credit card, CK-check, ND-no deposit required>.","M") return .f. endcase endprocWhen the RETURN statement in the VALID method contains the name of the next control, execution does not wait for another character to be entered.