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.
