Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: vaishali maske
  Where is vaishali maske?
 mumbai
 India
 vaishali maske
 To: mk sharma
  Where is mk sharma?
 mumbai
 India
 mk sharma
 Tags
Subject: RE: Process is slow
Thread ID: 268190 Message ID: 268888 # Views: 26 # Ratings: 0
Version: Visual FoxPro 6 Category: Projects and Design
Date: Thursday, July 15, 2010 8:34:01 AM         
   


> if you want to update single record
>
> Your Original Code
>
>
> **********************************
> 
> sele tmp2
> append blank
> 
> replace cmember_no with tacc1.cmember_no
> replace cgl_code with tacc1.cgl_code
> replace csl_code with tacc1.csl_code
> Replace ddoc_date with tacc1.ddoc_date
> Replace cnarration with tacc1.cnarration
> Replace Closing with bl
> Replace FirstClose with bl
> 
> 

>
>
> Change
>
>
> **********************************
> 
> 
> INSERT INTO tmp2 (cmember_no, cgl_code, csl_code, ddoc_date, cnarration, Closing, FirstClose) ;
>    values (tacc1.cmember_no, tacc1.cgl_code, tacc1.csl_code, tacc1.ddoc_date, tacc1.cnarration, bl, bl)
> 
> 

>
>
> warm regards,
> mk.
>
> > Hello Experts,
> >
> > I am having one form which process is slow.I need to make it fast but I am unable to do so.I am giving the code,Pls tell me how can I make it fast.
> >
> > &&This is ok button coding
> > *!*--------------------------------------------*!*
> >
> > If lastkey() # 27 then
> > thisform.label4.visible= .t.
> > thisform.label4.caption="Wait"
> > Thisform.bal()
> > thisform.recint()
> > *do form loanpb with 'tacc1','ddoc_date','cnarration','credit','debit','closing','bal_type'
> > *do form bal1
> > thisform.label4.caption="Generate Report "
> > Thisform.reportd()
> > thisform.label4.caption=''
> > Endif
> >
> > *!*--------------------------------------------*!*
> >
> > &&this is bal function
> > *!*--------------------------------------------*!*
> >
> > CREATE CURSOR tmp2(cmember_no C(6), cgl_code C(6), csl_code C(6),chead_short C(100),;
> > nline_no n(3),ddoc_date d(8),cct C(1),cnarration c(35), cname C(100),;
> > credit n(12,2), debit n(12,2),firstclose n(12,2), closing n(12,2),;
> > Bal_Type c(6),ccheque_no c(6),dcheque_date d(8),cuser_int c(3),;
> > cdoc_no c(6),cpsprint c(1),cpass c(10),cint n(12,2),cpint n(12,2),coff_id c(4))
> >
> > thisform.label4.visible= .t.
> > thisform.label4.caption="Wait.."
> >
> > SELECT csl_code as cmember_no, cgl_code, csl_code, chead_short;
> > FROM acctmast;
> > WHERE csl_code#"000000" and csl_code=m.cmember_no and cgl_code in (select cgl_Code from rcv_mast where left(cshort_code,1)='5' or cshort_code='11J') ;
> > ORDER BY cmember_no,cgl_code,csl_code ;
> > INTO CURSOR t1
> >
> > thisform.label4.caption="Wait..."
> > select t1.cmember_no , tran.cref_gl_code as cgl_code , tran.cref_sl_code as csl_code, tran.ddoc_date, ;
> > tran.cdoc_no, tran.cct, tran.cdoc_type, iif(left(cdoc_no,1)="C",tran.namount,-tran.namount)as namount, tran.cnarration ,;
> > tran.ccheque_no, tran.dcheque_date , t1.chead_short, tran.coff_id ;
> > from tran, t1;
> > where tran.cref_gl_code = t1.cgl_code ;
> > and tran.Ddoc_date<= edate and tran.ddoc_date >= sdate;
> > and tran.cref_sl_code = t1.csl_code ;
> > and t1.cmember_no = m.cmember_no and !empty(tran.coff_id) ;
> > into cursor t3
> >
> > cur2=dbf()
> > thisform.label4.caption="Wait...."
> >
> > select t1.cmember_no , t1.cgl_code, t1.csl_code, tran.ddoc_date, ;
> > tran.cdoc_no, tran.cct, ' ' as cdoc_type, tran.namount, tran.cnarration ,;
> > tran.ccheque_no, tran.dcheque_date , t1.chead_short, tran.coff_id ;
> > from tran, t1;
> > where tran.cgl_code = t1.cgl_code ;
> > and tran.csl_code = t1.csl_code ;
> > and t1.cmember_no = m.cmember_no and !empty(tran.coff_id);
> > and tran.Ddoc_date<= edate and tran.ddoc_date >= sdate;
> > order by t1.cmember_no, t1.cgl_code, t1.csl_code ;
> > into cursor t4
> >
> > cur1=dbf()
> > =afields(fldary)
> >
> > thisform.label4.caption="Wait....."
> > create cursor t2 from array fldary
> > appe from &cur1
> > appe from &cur2
> >
> >
> >
> > ***** Opening Balance
> > SELECT distinct cmember_no,cgl_code, csl_code ;
> > from t2 ;
> > into cursor tgl
> >
> >
> > lncount = reccount() && no. of records
> > Lineno=0
> > SELECT tgl
> > go top
> > SCAN
> > SELECT tmp2
> > Opbal=opbal_dt(tgl.cgl_code,tgl.csl_code,sdate)
> > if Opbal!=0
> > SELECT t2
> >
> > append blank
> > replace cmember_no with tgl.cmember_no
> > replace cgl_code with tgl.cgl_code
> > replace csl_code with tgl.csl_code
> >
> > Replace cnarration with Elsefnd("Opening Balance")
> >
> > If opbal<0
> > replace cdoc_no with 'C00001'
> > Replace namount with Abs(opbal)
> > Else
> > replace cdoc_no with 'D00001'
> > Replace namount with Abs(opbal)
> >
> > Endi
> >
> >
> > Endif
> > SELECT tgl
> > ENDSCAN
> > thisform.label4.caption="Wait......"
> > select t2.* ;
> > from t2 ;
> > order by cmember_no,cgl_code,csl_code,ddoc_date;
> > into cursor tacc1
> >
> >
> >
> > sele tacc1
> > go top
> > mcgl_code=tacc1.cgl_code
> > mcsl_code=tacc1.csl_code
> >
> > sele tmp2
> > appe blank
> > repl cnarration with valachd(mcgl_code,"000000")
> > sele tacc1
> > go top
> > mcgl_code=tacc1.cgl_code
> >
> > SCAN
> >
> >
> > SELECT tmp2
> > if tacc1.cgl_code!=mcgl_code
> > appe blank
> > repl cnarration with valachd(tacc1.cgl_code,"000000")
> >
> > endif
> >
> > if tacc1.cdoc_type =" " or tacc1.cdoc_type ="C" or tacc1.cdoc_type ="D" &&or cref_gl_code=cgl_code
> > Cl=FirstClose
> > select tmp2
> > append blank
> >
> > replace cmember_no with tacc1.cmember_no
> > replace cgl_code with tacc1.cgl_code
> > replace csl_code with tacc1.csl_code
> > Replace ddoc_date with tacc1.ddoc_date
> > Replace cnarration with tacc1.cnarration
> >
> > If left(tacc1.cdoc_no,1)="C"
> > Replace credit with tacc1.namount
> > Else
> > Replace debit with tacc1.namount
> >
> > Endi
> >
> > If left(tacc1.cdoc_no,1)="C"
> > Replace Bal_type with elsefnd("Credit")
> > Bl=Cl-tacc1.namount
> > Replace FirstClose with Cl-tacc1.namount
> > Replace Closing with Abs(Cl-tacc1.namount)
> > Else
> > Replace Bal_type with elsefnd("Debit")
> > Bl=Cl+tacc1.namount
> > Replace FirstClose with Cl+tacc1.namount
> > Replace Closing with Abs(Cl+tacc1.namount)
> > Endif
> >
> > sele tacc1
> > mdate=tacc1.ddoc_date
> > skip 1
> > if mdate=tacc1.ddoc_date and tacc1.cdoc_type="I" or mdate=tacc1.ddoc_date and tacc1.cdoc_type="P"
> >
> > sele tmp2
> > if tacc1.cdoc_type="I"
> > Replace cint with tacc1.namount
> > endif
> > if tacc1.cdoc_type="P"
> > Replace cpint with tacc1.namount
> > endif
> > sele tacc1
> > mdate=tacc1.ddoc_date
> > skip 1
> > if mdate=tacc1.ddoc_date and tacc1.cdoc_type="I" or mdate=tacc1.ddoc_date and tacc1.cdoc_type="P"
> > sele tmp2
> > if tacc1.cdoc_type="I"
> > Replace cint with tacc1.namount
> > endif
> > if tacc1.cdoc_type="P"
> > Replace cpint with tacc1.namount
> > endif
> > else
> > skip -1
> > endif
> > else
> > skip -1
> > endif
> > else
> >
> > sele tmp2
> > append blank
> >
> > replace cmember_no with tacc1.cmember_no
> > replace cgl_code with tacc1.cgl_code
> > replace csl_code with tacc1.csl_code
> > Replace ddoc_date with tacc1.ddoc_date
> > Replace cnarration with tacc1.cnarration
> > Replace Closing with bl
> > Replace FirstClose with bl
> >
> > if tacc1.cdoc_type="I"
> > sele tmp2
> > Replace cint with tacc1.namount
> > endif
> > if tacc1.cdoc_type="P"
> > sele tmp2
> > Replace cpint with tacc1.namount
> > endif
> >
> > endif
> >
> >
> > sele tacc1
> >
> >
> > mcgl_code=tacc1.cgl_code
> >
> > sele tacc1
> >
> > ENDSCAN
> > thisform.label4.caption="Wait......."
> >
> > sele tmp2
> > go top
> >
> > &&this is recint function
> > _TALLY = 0
> > select cgl_Code,csl_code,iif(cint_type='I',ninterest,000000.00) as rint,;
> > iif(cint_type='P',ninterest,000000.00) as pint, ddoc_date from int_rcd where loanflag="R" and csl_Code=m.cmember_no and cgl_code in (select cgl_code from tgl) into curs tmpintrc
> > if _TALLY >0
> > thisform.grid1.Recordsource="tmpintrc"
> > thisform.Grid1.Columncount=4
> >
> > if sysctrl.clang!="E"
> > Thisform.Grid1.Fontname=Allt(Sysctrl.cfnt_name)
> > Thisform.Grid1.Fontsize=Sysctrl.nfnt_Size
> > endif
> > thisform.grid1.visible=.t.
> > Thisform.Grid1.Column1.Controlsource="valachd(cgl_code,'000000')"
> > Thisform.Grid1.Column2.Controlsource="ddoc_date"
> > Thisform.Grid1.Column3.Controlsource="rint"
> > Thisform.Grid1.Column4.Controlsource="pint"
> >
> > Thisform.Grid1.Column1.Header1.Caption=Elsefnd('Ledger Name')
> > Thisform.Grid1.Column2.Header1.Caption=Elsefnd('Date')
> > Thisform.Grid1.Column3.Header1.Caption=Elsefnd('Interest Receivable')
> > Thisform.Grid1.Column4.Header1.Caption=Elsefnd('Penal Interest')
> > thisform.grid1.column3.width=150
> > thisform.command1.visible=.t.
> > thisform.command1.setfocus()
> > endif
> >
> > sele tmp2
> > go top
> >
> > &&this is reportd funcion
> > *!*--------------------------------------------*!*
> > PUBLIC _repeate,_maxcols,_Rec,nPrintOrder
> > IF USED("RecoveryMast")
> > USE IN RecoveryMast
> > ENDIF
> >
> > IF USED("RecoveryData")
> > USE IN RecoveryData
> > ENDIF
> >
> >
> > cErrmsg=''
> > _repeate=0
> > _maxcols=12 && Maximum Columns in row.
> > _Rec=0
> >
> > DECLARE _ldesc0[16],_ldesc1[16],_ldesc2[16],_ldesc[16],_descno[_maxcols+1],_colfld0[_maxcols+1],_colfld1[_maxcols+1],_colfld2[_maxcols+1],_colfld3[_maxcols+1],_colfld4[_maxcols+1],_colfld5[_maxcols+1],_colfld6[_maxcols+1]
> > _ldesc0=""
> > _ldesc1=""
> > _ldesc2=""
> > _descno=0
> > _colfld0=""
> > _colfld1=""
> > _colfld2=""
> > _colfld3=""
> > _colfld4=""
> > _colfld5=""
> > _colfld6=""
> > SELECT 0
> > Creat Curs RecoveryMast;
> > (cMember_No c(6),;
> > nDebit00 N(16,2),nCredit00 N(16,2),nBal00 N(16,2),;
> > nDebit01 N(16,2),nCredit01 N(16,2),nBal01 N(16,2),;
> > nDebit02 N(16,2),nCredit02 N(16,2),nBal02 N(16,2),;
> > nDebit03 N(16,2),nCredit03 N(16,2),nBal03 N(16,2),;
> > nDebit04 N(16,2),nCredit04 N(16,2),nBal04 N(16,2),;
> > nDebit05 N(16,2),nCredit05 N(16,2),nBal05 N(16,2),;
> > nDebit06 N(16,2),nCredit06 N(16,2),nBal06 N(16,2),;
> > nDebit07 N(16,2),nCredit07 N(16,2),nBal07 N(16,2),;
> > nDebit08 N(16,2),nCredit08 N(16,2),nBal08 N(16,2),;
> > nDebit09 N(16,2),nCredit09 N(16,2),nBal09 N(16,2),;
> > nDebit10 N(16,2),nCredit10 N(16,2),nBal10 N(16,2),;
> > nDebit11 N(16,2),nCredit11 N(16,2),nBal11 N(16,2),;
> > nDebit12 N(16,2),nCredit12 N(16,2),nBal12 N(16,2),;
> > nDebit13 N(16,2),nCredit13 N(16,2),nBal13 N(16,2),;
> > nDebit14 N(16,2),nCredit14 N(16,2),nBal14 N(16,2),;
> > nDebit15 N(16,2),nCredit15 N(16,2),nBal15 N(16,2),;
> > nDebit16 N(16,2),nCredit16 N(16,2),nBal16 N(16,2),;
> > nDebit17 N(16,2),nCredit17 N(16,2),nBal17 N(16,2),;
> > nDebit18 N(16,2),nCredit18 N(16,2),nBal18 N(16,2),;
> > nDebit19 N(16,2),nCredit19 N(16,2),nBal19 N(16,2),;
> > nDebit20 N(16,2),nCredit20 N(16,2),nBal20 N(16,2),;
> > nDebit21 N(16,2),nCredit21 N(16,2),nBal21 N(16,2),;
> > nDebit22 N(16,2),nCredit22 N(16,2),nBal22 N(16,2),;
> > nDebit23 N(16,2),nCredit23 N(16,2),nBal23 N(16,2),;
> > nDebit24 N(16,2),nCredit24 N(16,2),nBal24 N(16,2),;
> > nDebit25 N(16,2),nCredit25 N(16,2),nBal25 N(16,2),;
> > nDebit26 N(16,2),nCredit26 N(16,2),nBal26 N(16,2),;
> > nDebit27 N(16,2),nCredit27 N(16,2),nBal27 N(16,2),;
> > nDebit28 N(16,2),nCredit28 N(16,2),nBal28 N(16,2),;
> > nDebit29 N(16,2),nCredit29 N(16,2),nBal29 N(16,2),;
> > nDebit30 N(16,2),nCredit30 N(16,2),nBal30 N(16,2),;
> > ntotal01 n(16,2),ntotal02 n(16,2),ntotal03 n(16,2),ntotal n(16,2),coff_id c(4))
> >
> > Index on cMember_No tag member
> >
> > SELECT 0
> > Creat Curs RecoveryData;
> > (cMember_No c(6),ddoc_date D (8),cgl_Code c(6),;
> > nDebit00 N(16,2),nCredit00 N(16,2),nBal00 N(16,2),nint00 N(12,2),npint00 N(12,2),;
> > nDebit01 N(16,2),nCredit01 N(16,2),nBal01 N(16,2),nint01 N(12,2),npint01 N(12,2),;
> > nDebit02 N(16,2),nCredit02 N(16,2),nBal02 N(16,2),nint02 N(12,2),npint02 N(12,2),;
> > nDebit03 N(16,2),nCredit03 N(16,2),nBal03 N(16,2),nint03 N(12,2),npint03 N(12,2),;
> > nDebit04 N(16,2),nCredit04 N(16,2),nBal04 N(16,2),nint04 N(12,2),npint04 N(12,2),;
> > nDebit05 N(16,2),nCredit05 N(16,2),nBal05 N(16,2),nint05 N(12,2),npint05 N(12,2),;
> > nDebit06 N(16,2),nCredit06 N(16,2),nBal06 N(16,2),nint06 N(12,2),npint06 N(12,2),;
> > nDebit07 N(16,2),nCredit07 N(16,2),nBal07 N(16,2),nint07 N(12,2),npint07 N(12,2),;
> > nDebit08 N(16,2),nCredit08 N(16,2),nBal08 N(16,2),nint08 N(12,2),npint08 N(12,2),;
> > nDebit09 N(16,2),nCredit09 N(16,2),nBal09 N(16,2),nint09 N(12,2),npint09 N(12,2),;
> > nDebit10 N(16,2),nCredit10 N(16,2),nBal10 N(16,2),nint10 N(12,2),npint10 N(12,2),;
> > nDebit11 N(16,2),nCredit11 N(16,2),nBal11 N(16,2),nint11 N(12,2),npint11 N(12,2),;
> > nDebit12 N(16,2),nCredit12 N(16,2),nBal12 N(16,2),;
> > nDebit13 N(16,2),nCredit13 N(16,2),nBal13 N(16,2),;
> > nDebit14 N(16,2),nCredit14 N(16,2),nBal14 N(16,2),;
> > nDebit15 N(16,2),nCredit15 N(16,2),nBal15 N(16,2),;
> > nDebit16 N(16,2),nCredit16 N(16,2),nBal16 N(16,2),;
> > nDebit17 N(16,2),nCredit17 N(16,2),nBal17 N(16,2),;
> > nDebit18 N(16,2),nCredit18 N(16,2),nBal18 N(16,2),;
> > nDebit19 N(16,2),nCredit19 N(16,2),nBal19 N(16,2),;
> > nDebit20 N(16,2),nCredit20 N(16,2),nBal20 N(16,2),;
> > nDebit21 N(16,2),nCredit21 N(16,2),nBal21 N(16,2),;
> > nDebit22 N(16,2),nCredit22 N(16,2),nBal22 N(16,2),;
> > nDebit23 N(16,2),nCredit23 N(16,2),nBal23 N(16,2),;
> > nDebit24 N(16,2),nCredit24 N(16,2),nBal24 N(16,2),;
> > nDebit25 N(16,2),nCredit25 N(16,2),nBal25 N(16,2),;
> > nDebit26 N(16,2),nCredit26 N(16,2),nBal26 N(16,2),;
> > nDebit27 N(16,2),nCredit27 N(16,2),nBal27 N(16,2),;
> > nDebit28 N(16,2),nCredit28 N(16,2),nBal28 N(16,2),;
> > nDebit29 N(16,2),nCredit29 N(16,2),nBal29 N(16,2),;
> > nDebit30 N(16,2),nCredit30 N(16,2),nBal30 N(16,2),;
> > ntotal01 n(16,2),ntotal02 n(16,2),ntotal03 n(16,2),ntotal04 n(16,2),ntotal05 n(16,2),ntotal06 n(16,2),ntotal07 n(16,2),ntotal08 n(16,2),ntotal09 n(16,2),ntotal10 n(16,2),ntotal n(16,2),coff_id c(4))
> >
> >
> > Index on cMember_No tag member
> >
> > Select cmember_no, tmp2.cgl_code as cgl_code, tmp2.csl_code,tmp2.ddoc_date,tmp2.chead_short, debit, credit, closing as bal ,;
> > cint as nint, cpint,rcv_mast.nseq1 as cseq_no,recno() as reco_no ;
> > from tmp2, rcv_mast;
> > where tmp2.cgl_code = rcv_mast.cgl_lnacgl;
> > order by reco_no;
> > into cursor test_1
> > cur1=dbf()
> > =afields(fldary)
> >
> > Select 0
> > create cursor acmastcur from array fldary
> >
> > append from &cur1
> >
> > go top
> > if eof()
> > do Form MsgboxEm with Elsefnd('Data Not Available'),1
> > retu .f.
> > endif
> >
> > *------*------*----*-
> >
> > Select Rcv_Mast
> > Count to PrintTotCol For Not deleted()
> > PrintTotCol=PrintTotCol+1
> > GrTotal=0.00
> >
> > Select RecoveryMast
> > SET order to member
> >
> > Select RecoveryData
> > appe blank
> >
> > Select acmastcur
> > index on ddoc_date tag dd
> > go top
> > mdoc_Date=acmastcur.ddoc_date
> >
> >
> >
> > Do while !eof()
> > GrTotal=0.00
> > ntotal = 0.00
> > ntotal01 = 0.00
> > ntotal02 = 0.00
> > ntotal03 = 0.00
> > ntotal04 = 0.00
> > ntotal05 = 0.00
> > ntotal06 = 0.00
> > ntotal07 = 0.00
> > ntotal08 = 0.00
> > ntotal09 = 0.00
> > ntotal10 = 0.00
> > Select acmastcur
> >
> > if acmastcur.ddoc_date!=mdoc_date
> > Select RecoveryMast
> > appe blank
> > endif
> >
> >
> > sele acmastcur
> > if acmastcur.ddoc_date!=mdoc_date
> > Select Recoverydata
> > appe blank
> > endif
> > Select Recoverydata
> >
> > Replace cMember_no with acmastcur.cMember_no
> > Replace cgl_Code with acmastcur.cgl_code
> > replace ddoc_Date with acmastcur.ddoc_date
> >
> > sele acmastcur
> > mmcsr_no=''
> > mmcsr_no = STRTRAN(STR(acmastcur.cseq_no,2),' ','0')
> >
> >
> > mnDebit = 'ndebit' + STRTRAN(STR(acmastcur.cseq_no,2),' ','0')
> > mnCredit ='ncredit'+ STRTRAN(STR(acmastcur.cseq_no,2),' ','0')
> > mnBal = 'nBal'+ STRTRAN(STR(acmastcur.cseq_no,2),' ','0')
> > mnint = 'nint'+STRTRAN(STR(acmastcur.cseq_no,2),' ','0')
> > mpint = 'npint'+STRTRAN(STR(acmastcur.cseq_no,2),' ','0')
> > Select RecoveryData
> >
> > Replace &mnDebit with &mnDebit+acmastcur.Debit
> >
> > Select RecoveryData
> >
> > Replace &mnCredit with &mnCredit+acmastcur.Credit
> >
> > Replace &mnBal with acmastcur.Bal
> > Replace &mnint with &mnint +acmastcur.nint
> > Replace &mpint with &mpint +acmastcur.cpint
> >
> > if acmastcur.Bal=0
> > Select Recoverydata
> > appe blank
> > endif
> >
> > Select acmastcur
> >
> > mdoc_date=acmastcur.ddoc_date
> >
> > Skip
> > Enddo
> > *
> > select distinct(cgl_code) as cgl_code from acmastcur where cseq_no=2 into curs ecept
> >
> > SELECT RecoveryData
> > sele acmastcur
> > index on cgl_code+csl_code tag glsl
> >
> > SELECT *,SPACE(2) AS SrNo,00 AS rpt_cntr," " AS cMark,space(6) as csl_code;
> > FROM Rcv_Mast where !empty(nseq1);
> > ORDER BY nSeq1;
> > INTO CURSOR lTemp
> >
> >
> > cCur=DBF()
> > =AFIELDS(aFldary)
> >
> > SELECT 0
> > CREATE CURSOR RptGrp FROM ARRAY aFldary
> > INDEX ON nSeq1 TAG RptGrp
> > APPEND FROM &cCur
> >
> > _Rec=RECCOUNT()
> > DIME _ldesc0[MAX(_maxcols+1,_rec),1]
> > _repeate = 1
> > _startcntr=1
> > rele aFldary
> > GO TOP
> > DO WHILE !EOF()
> > FOR i=1 TO _maxcols
> > REPLACE rpt_cntr WITH _startcntr
> > REPLACE srno with STRTRAN(STR(nSeq1,2),' ','0')
> > sele acmastcur
> > seek cgl_code
> > if found()
> > SELECT RptGrp
> > replace csl_code with acmastcur.csl_code
> > endif
> > SELECT RptGrp
> > IF !EOF()
> > SKIP
> > ELSE
> > EXIT
> > ENDIF
> > NEXT i
> > _startcntr = _startcntr +1
> > SELECT RptGrp
> > IF EOF()
> > EXIT
> > ENDIF
> > ENDDO
> >
> >
> > SELECT RecoveryMast
> > SET ORDER TO Member
> > SELECT RecoveryData
> > SET ORDER TO Member
> > SET RELATION TO cMember_No INTO RecoveryMast
> >
> >
> > FOR _rptloop = 1 TO _repeate
> > SELECT RptGrp
> > SET FILTER TO rpt_cntr=_rptloop
> > COUNT TO _totflds FOR rpt_cntr=_rptloop
> > GO TOP
> > _ldesc0=""
> >
> > FOR _lcki=1 TO _maxcols
> > IF _lcki<=_totflds
> >
> > _ldesc0[_lcki] = ALLTRIM(cHead_Dtl)+" "+csl_code
> >
> > _ldesc1[_lcki] = ALLTRIM(cGl_LnAcgl)
> > _ldesc2[_lcki] = ALLTRIM(cGl_Code)
> > _descno[_lcki] = _Lcki
> >
> >
> > _colfld0[_lcki] = "nDebit" + mmcsr_no
> > _colfld1[_lcki] = "nCredit"+ mmcsr_no
> > _colfld2[_lcki] = "nBal" + mmcsr_no
> >
> >
> >
> > REPLACE cMark WITH "Y"
> > ELSE
> >
> > _descno[_lcki] = 0
> > _colfld0[_lcki] = ""
> > _colfld1[_lcki] = ""
> > _colfld2[_lcki] = ""
> > _colfld3[_lcki] = ""
> > _colfld4[_lcki] = ""
> > _colfld5[_lcki] = ""
> > _colfld6[_lcki] = ""
> > ENDIF
> > IF !EOF()
> > SKIP
> > ENDIF
> > NEXT _lcki
> > _ldesc0[_maxcols+1] = "Total"
> > _descno[_maxcols+1] = _maxcols+1
> > cTotalField="nTotal"+STRTRAN(STR(_rptloop,2),' ','0')
> >
> > SELECT RecoveryData
> > set filt to !empty(cmember_no)
> >
> > DO FORM PRINT_ST WITH 'lnbalp'
> > NEXT _rptloop
> >
> > *!*--------------------------------------------*!*


Hello mk

Thank you so much it processing fast after using insert into command.Thanks again.

Regards,
Vaishali

ENTIRE THREAD

Process is slow Posted by vaishali maske @ 7/9/2010 7:37:59 AM
RE: Process is slow Posted by Mike Yearwood @ 7/9/2010 4:01:16 PM
RE: Process is slow Posted by Tamar Granor @ 7/9/2010 10:51:02 PM
RE: Process is slow Posted by vaishali maske @ 7/10/2010 2:32:52 PM
RE: Process is slow Posted by Mike Yearwood @ 7/12/2010 6:57:53 AM
RE: Process is slow Posted by Tamar Granor @ 7/12/2010 10:45:13 PM
RE: Process is slow Posted by mk sharma @ 7/14/2010 9:53:16 AM
RE: Process is slow Posted by mk sharma @ 7/14/2010 10:11:00 AM
RE: Process is slow Posted by mk sharma @ 7/14/2010 10:26:41 AM
RE: Process is slow Posted by mk sharma @ 7/14/2010 12:06:16 PM
RE: Process is slow Posted by vaishali maske @ 7/15/2010 8:34:01 AM
RE: Process is slow Posted by mk sharma @ 7/15/2010 8:55:13 AM