Albert:
Insert a variable field, such as vf_landing, which will be defined as tab stop,
and mark it autoselect, and you can 'hide' it behind the last field. Next,
put an on exit eep on the last regular field, with a ''nextrow' command. Your
eep isn't firing because the last field doesn't have a place to land.
Jim
From: Albert Berry <[email protected]>
To: [email protected]
Sent: Friday, September 30, 2016 1:48 PM
Subject: [RBASE-L] - Form: Data veification on last field in a row
I have a form used to enter offerings for my parish. The form is shown below.
Date/Parish/Fund use a hidden dbedit to that #DUP can be used saving the user
re-entering data, and those three entry items are do not have the tab stop
enabled. The can override when things change by selecting the field. The
Envelope number and Amount fields are DBEdit's.
The envelope number is verified on leaving the field Env # and I have an eep
on that field that checks the number, beeps, and if the envelope is invalid,
displays a popup giving the option of adding a new envelope number or
correcting the typo. No problems there.
We do not want null or $0.00 amounts to be added to the database, and the
column is set to NOT NULL in the data table. The catch is that this is the last
field in the row and when the user presses enter, I have an exit eep that
checks the data. The eep doesn't fire before the the form attempts to save the
row. I tried it as a trigger, but that still didn't seem to work properly. I
just want the user to hear a beep and be returned to the
Any ideas? eep and form are below.
{ ContactDonationAmount.eep
Albert Berry
2016-09-30
Moved from stored procedure to form field exit that will run before leaving
the row.
}
SET VAR vAmountText TEXT, vAmount CURRENCY,vKey TEXT = (LASTKEY(0))
PAUSE 2 USING .vKey
IF LASTKEY(0) = "[Esc]" THEN
GOTO Stop
ENDIF
GETPROPERTY cAmount TEXTVALUE "vAmountText"
SET VAR vAmount = (FLOAT(.vAmountText))
IF vAmountText IS NULL OR vAmount=0 THEN
BEEP
PAUSE 2 USING "You must enter a non zero amount" +
CAPTION "NO AMOUNT ENTERED" +
ICON SERIOUS +
BUTTON "OK" +
OPTION MESSAGE_FONT_NAME Tahoma +
|MESSAGE_FONT_COLOR -16777208 +
|MESSAGE_FONT_SIZE 10 +
|THEMENAME Royale
PROPERTY cAmount SET_FOCUS "TRUE"
PROPERTY cAmount SELECTALL "TRUE"
ENDIF
LABEL Stop
RETURN
--
You received this message because you are subscribed to the Google Groups
"RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
--
You received this message because you are subscribed to the Google Groups
"RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
