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() endscanAnd 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.