SET CURSOR ON if this.value = "C" sele 37 &&&*use COLLRCPT shared *index on dtoc(datepaid)+orno to coldtvx2 *index on orno to colOrvx2 *index on prno to colprvx2 *index on patno to colpatx2 *index on htn to HTNclOX2 set century on mn=substr(dtoc(date()),9,2) set order to credit go bottom mn1 = "C" +mn+ padl(allt(str(val(substr(orno,4,4)) + 1)),4,"0") thisform.pageframe1.page1.text10.value = mn1 thisform.pageframe1.page1.text10.enabled=.f. thisform.pageframe1.page1.combo7.SETFOCUS thisform.container1.enabled=.t. thisform.container1.visible=.t. thisform.container1.text10.enabled=.t. thisform.container1.text10.value="" thisform.container1.text10.setfocus else
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)