Current Contracts Script
I have a script that will show expiration date of machines but how do I get it to show machines that contracts are current?
Here is the expiration script I tried to edit, but when the script is perform by pressing a button it shows all machine, expired and current contracts: How do I just show the current contracts starting with current date?
Go To Layout [Rep Contract List]
Enter Find Mode 
Set Field [Equipment::ExpDate & "<" & Get ( CurrentDate ) - 0]
Set Error capture [on]
If [ Get ( FoundCount ) > 0 /* Current Contract Found */]
Sort Records [no dialog ; restore] //specify a sort order that makes sense to you
Show Custom Dialog ["Contracts that Are Current"]
Go TO Layout ["MAIN MENU INTERFACE" (CUSTOMERS)]