Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Verfield()
Message
From
15/11/2000 15:47:38
Chuck Tripi
University of Wisconsin - Milwaukee
Milwaukee, Wisconsin, United States
 
 
To
15/11/2000 15:01:57
Jorge Haro
Independent Consultant
Juarez, Mexico
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Miscellaneous
Thread ID:
00441618
Message ID:
00442307
Views:
9
FUNCTION verfield
DO CASE

CASE ALLTRIM(UPPER(authtype)) = "VISA"
IF limit = 0 OR EMPTY(fund) OR EMPTY(account) OR ISNULL(fund) OR ISNULL(account)
WAIT WINDOW "Can not allow that, fix it!"
ENDIF

CASE ALLTRIM(UPPER(authtype)) = "BUDGET TRANSFERS"
IF limit = 0
WAIT WINDOW "The amount can not be zero"
ENDIF

CASE ALLTRIM(UPPER(authtype)) = "HIRING"
IF effective = {} OR ending = {}
WAIT WINDOW "Hiring authority must have starting and ending date"
ENDIF

ENDCASE
ENDFUNC

I still need more help on this. Once this is complete, it would be just what I need, so can you help me with this one? Not only the WAIT WINDOW, but I need to have the cursor stay in that record if it's not correct. In other words, while in the BROWSE screen, repeat, in BROWSE screen, I want to do the record level checking while EDITING or ADDING the record and must not leave until the field requirements are done for any specific authorizations in the auth.authtype. I will repeat my question... how to have this be able to keep the cursor in the record if the other requirements are not met?

Bonus, while in the BROWSE screen, if the user hits the ESCAPE key, can it be "reverted" to as what was there in the first place (one or more fields). Also, if it was a new record and upon hitting the ESCAPE key, can that record be deleted? Maybe it is something that VFP 6.0 does by itself anyway?

With this coding above, it works, but it would still allow me to leave the record WHILE IN THE BROWSE SCREEN, which I dont want that. This Function is in the "Stored Procedures" of the database and the "verfield()" is in the "record validation" of the table. Do you understand my question?

Chuck
Today is tomorrow's yesterday.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform