Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Can this code be faster?
Message
From
19/08/2003 17:50:50
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00821524
Message ID:
00821605
Views:
19
Actually, I hate to admit this, but this is part of an old BROWSE window that is created and uses BROWSE FOR and my code runs in the browfor() procedure to determine which records should be displayed in the browse window. It is left over from the FPD26 app and the code still runs in both versions...
BROWSE ;
	FIELDS insured.po_name :R :21 :W=xedit :H="Name", ;
	accounts.po_acct :H="Account#" :W=browhen() :V=browvali(), ;
	accounts.po_pmt :R :W=xedit :H="Payment" :P="@z 99999.99", accounts.po_due :R :W=xedit :H="Due Date", ;
	accounts.po_pmtdat :R :W=xedit :H="Last Pmt", insured.po_sysnum :R :W=xedit :H="Profile#" :P="@z 99999999" ;
	FOR accounts.po_finco = mpo_finco(1) AND browfor() ;
	NOAPPEND;
	NODELETE;
	NOLGRID;
	NORGRID;
	TITLE "PREMIUM FINANCE ACCOUNTS WITH: "+xcomname ;
	WINDOW accounts

RELEASE WINDOW accounts
>Hi Tracy,
>
>These lines should happen after user entry. You don't need to recalculate for every record tested. Be careful that xfrom and xto remain in scope.
>
>
>xfrom=ALLTRIM(UPPER(xfrom))
>xto=ALLTRIM(UPPER(xto))
>IF !EMPTY(xfrom) OR !EMPTY(xto) && Probably should be AND instead?
>ENDIF
>
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform