Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: mk sharma
  Where is mk sharma?
 mumbai
 India
 mk sharma
 To: vaishali maske
  Where is vaishali maske?
 mumbai
 India
 vaishali maske
 Tags
Subject: RE: Process is slow
Thread ID: 268190 Message ID: 268757 # Views: 30 # Ratings: 0
Version: Visual FoxPro 6 Category: Projects and Design
Date: Wednesday, July 14, 2010 12:06:16 PM         
   


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
>
> *!*--------------------------------------------*!*

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