Dan,using the example suggested by Buddy. try the following:SET VAR V1 DOUBLE 
DIALOG 'Enter your number here||999999.00;0;_' v1=10 vEndKey 1 

note the ";0;_" after Buddy's example 
Results after clicking "OK"
R>SHO VAR
Variable           = Value                                    Type
------------------   ------------------------------           -------
#DATE              = 06/16/2016                               DATE    
#TIME              = 00:12:52                                 TIME    
#PI                = 3.14159265358979                         DOUBLE  
SQLCODE            = 0                                        INTEGER 
SQLSTATE           = 00000                                    TEXT    
#NOW               = 06/16/2016 00:12:52                      DATETIME
v1                 = 620.94                                   DOUBLE  
vEndKey            = [Enter]                                  TEXT


 Jim Bentley, American Celiac Society 1-504-305-2968

      From: jan johansen <[email protected]>
 To: [email protected] 
 Sent: Wednesday, June 15, 2016 4:28 PM
 Subject: RE: [RBASE-L] - Dialog format mask numbers and decimals
   
Dan, How 'bout this. 1. Pre-define a varaiableSET VAR vINeedThisNoText REAL = 
NULLSET VAR vCancel TEXT = 'Yes'SET VAR vContinue TEXT = 'No' 2. Create a 
variable form with a DB-Edit and 2 buttons, CANCEL and CONTINUE3. Treat the 
form as you would a dialog. So it looks like thisSET VAR vINeedThisNoText REAL 
= NULLSET VAR vCancel TEXT = 'Yes'SET VAR vContinue TEXT = 'No'EDIT USING 
MyDialogIF vCancel = 'Yes'  GOTO DoneENDIF Jan 
-----Original Message-----
From: Dan Goldberg <[email protected]>
To: "[email protected]" <[email protected]>
Date: Wed, 15 Jun 2016 21:14:41 +0000
Subject: RE: [RBASE-L] - Dialog format mask numbers and decimals
 That is a good workaround. I was thinking the same thing.    I was hoping on 
something that would not allow not numeric entries in the dialog box.    Dan    
From: [email protected] [mailto:[email protected]] On Behalf Of 
Buddy Walker
Sent: Wednesday, June 15, 2016 12:13 PM
To: [email protected]
Subject: RE: [RBASE-L] - Dialog format mask numbers and decimals    Dan     
Since the format mask will not work for you then I maybe something like this.   
 Buddy    __________________code starts here LABEL Start      SET VAR V1 DOUBLE 
= NULL      SET ERROR MESSAGE 480 OFF     DIAL 'Enter number (ex. 48.54)' v1=10 
vendkey 1   SET ERROR MESSAGE 480 ON      IF v1 = 0 or v1 IS NULL THEN     
PAUSE 2 USI ' Invalid number entered'     GOTO Start   ENDIF         
----------------------------code ends here       From: [email protected] 
[mailto:[email protected]] On Behalf Of Dan Goldberg
Sent: Wednesday, June 15, 2016 2:06 PM
To: [email protected]
Subject: RE: [RBASE-L] - Dialog format mask numbers and decimals    Thx buddy. 
It sort of works but looks weird with the spaces.        Dan Goldberg    From: 
[email protected] [mailto:[email protected]] On Behalf Of Buddy 
Walker
Sent: Wednesday, June 15, 2016 10:58 AM
To: [email protected]
Subject: RE: [RBASE-L] - Dialog format mask numbers and decimals    Dan   Try 
something like this    SET VAR v1 DOUBLE DIALOG 'Enter your number 
here||999999.00' v1=10 vEndKey 1    Buddy          From: 
[email protected] [mailto:[email protected]] On Behalf Of Dan 
Goldberg
Sent: Wednesday, June 15, 2016 1:46 PM
To: [email protected]
Subject: [RBASE-L] - Dialog format mask numbers and decimals    I need to have 
a dialog box that only allows numbers and the decimal.     I am thinking the 
format option will work but am confused on if it will.    Has anybody done this 
or have any ideas?    TIA    Dan Goldberg           --
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. --
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.  --
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.

Please note, responding to this email leads to an email box that is not 
monitored, if you have any questions feel free to send request to 
[email protected] or to your normal contact.

Thank you,
JJ Staff-- 
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.

Reply via email to