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)
>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"