>local lcValue >with thisform > .cboLetterType.clear() > lcValue = alltrim(this.value) > .cmdSelector.enabled = .f. > > select cDepartments > locate for alltrim(cDepartment_name) = m.lcValue > if found() > lcValue = cDepartments.cDepartment_code > endif > > store .f. to .optSelection.enabled, ; > .txtAdmitDate.enabled, ; > .txtAccountNumber.enabled > .optSelection.value = 1 > .txtFile_Name.value = "" > .cboLetterType.addlistitem("FR - FIELD REQUEST") > .cboLetterType.addlistitem("UB - UB92 FORM") > select cLetter_masters > scan for inlist(cLetter_masters.cDepartment_code,"A", m.lcValue) > .cboLetterType.addlistitem(cLetter_masters.cLetter_Description) > endscan >endwith>
LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 7 This.DisplayValue = '' This.Value = '' this.refresh() ENDIF