>>use mstr >>local lnRecno >>lnRecno = reccount() >>Append From Dbf('temp') >>goto lnRecno + 1 && if dbf('temp') contains no records, this line will fail, so you must check that before you append in the preceding line >>scan rest && without REST, you scan all records! >> replace w1 with thisform.text14.value, w2 with thisform.text16.value, dis with thisform.text27.value, net with thisform.text28.value >> replace billno with val(right (thisform.text1.Value,4)), datein with date() >>endscan >>>>thanks
>>>use mstr >>>local lnRecno >>>lnRecno = reccount() >>>Append From Dbf('temp') >>>goto lnRecno + 1 && if dbf('temp') contains no records, this line will fail, so you must check that before you append in the preceding line >>>scan rest && without REST, you scan all records! >>> replace w1 with thisform.text14.value, w2 with thisform.text16.value, dis with thisform.text27.value, net with thisform.text28.value >>> replace billno with val(right (thisform.text1.Value,4)), datein with date() >>>endscan>>>And I was sure that we have agreed that billno shall be 1,2,3,4,5... and not 05_0001!!! Remember that you SHOW billno as 05_0001, but you store it as 1. Please don't ask me to repeat that more times.
>>>>SELECT MAX(billno) from mstr INTO ARRAY laAarray >>>>thisform.text1.value=(RIGHT(STR(YEAR(mstr.datein),4),2) + '_'+RIGHT(STR(10000+mstr.billno+1,5),4)) >>>> >>>>Select 1 >>>> use mstr >>>>local lnRecno >>>>lnRecno = recno() >>>>Append From Dbf('temp') >>>>goto lnRecno + 1 && if dbf('temp') contains no records, this line will fail, so you must check that before you append in the preceding line >>>>scan rest && without REST, you scan all records! >>>> replace w1 with thisform.text14.value, w2 with thisform.text16.value, dis with thisform.text27.value, net with thisform.text28.value >>>> replace billno with val(right (thisform.text1.Value,4)), datein with date() >>>>endscan >>>> >>>> With thisform.grid1 >>>> .recordsource = '' >>>> Select temp >>>> .recordsource = 'temp' >>>> thisform.text1.SetFocus >>>> thisform.refresh >>>> endwith >>>> >>>> with thisform.Grid1 >>>> .Recordsource = .Recordsource >>>>endwith >>>> >>>> ******************************************** >>>> thisform.text1.value=space(10) >>>> thisform.text2.value=ctod(" / / ") >>>> thisform.text3.value=space(10) >>>> thisform.text4.value=space(10) >>>> thisform.text5.value=space(10) >>>> thisform.text6.value=0 >>>> thisform.text7.value=0 >>>> thisform.text8.value=0 >>>> thisform.text10.value=0 >>>>SELECT mstr >>>>SELECT MAX(billno) from mstr INTO ARRAY laAarray >>>>thisform.text1.value=(RIGHT(STR(YEAR(mstr.datein),4),2) + '_'+RIGHT(STR(10000+laAarray[1]+1,5),4)) >>>> >>>> >>>>With thisform.grid1 >>>> .recordsource = '' >>>> Select temp >>>> delete all >>>> .recordsource = 'temp' >>>> thisform.text1.SetFocus >>>> thisform.refresh >>>> endwith >>>> >>>> >>>> thisform.grid1.refresh >>>>>>>>thanks
>>>>>use mstr >>>>>local lnRecno >>>>>lnRecno = recno() >>>>>Append From Dbf('temp') >>>>>goto lnRecno + 1 && if dbf('temp') contains no records, this line will fail, so you must check that before you append in the preceding line >>>>>scan rest && without REST, you scan all records! >>>>> replace w1 with thisform.text14.value, w2 with thisform.text16.value, dis with thisform.text27.value, net with thisform.text28.value >>>>> replace billno with val(right (thisform.text1.Value,4)), datein with date() >>>>>endscan>>>>>
>>>>>>item no value .........billno datein total >>>>>>1 100 0 space 0 >>>>>>2 250 0 >>>>>>3 40 1 01/01/2005 390 >>>>>>>>>>>>********************************************************
>>>>>>i need to see at my table as >>>>>>item no value .........billno datein total >>>>>>1 100 1 01/01/2005 390 >>>>>>2 250 1 01/01/2005 390 >>>>>>3 40 1 01/01/2005 390 >>>>>>>>>>>>*********************************************************
>>>>>> use mstr >>>>>> Append From Dbf('temp') >>>>>>scan >>>>>> replace w1 with thisform.text14.value >>>>>> replace w2 with thisform.text16.value >>>>>> *INSERT INTO mstr(billno,datein) VALUES (val(right (thisform.text1.Value,4)),DATE())&& in this case it append new record but i need to insert at the same records >>>>>> replace dis with thisform.text27.value >>>>>> replace net with thisform.text28.value >>>>>>endscan >>>>>>>>>>>>thanks.