invalid date trapping in xdialog

[Tim Kiebert]

Re: invalid date trapping in xdialog

Martin,

Notice the slight difference in these two lines which seems to not affect the end result. I think because that is just supplying the current value into the date picker. Both will supply a character value.

From:| [%DATE;P=popup.calendar([COLOR=Red]bdateC[/COLOR]);I=popup.calendar%.20bdateC!bdateC_*];
Thru:| [%DATE;P=popup.calendar([COLOR=Red]dtoc(edate)[/COLOR]);I=popup.calendar%.20edateC!edateC_*];

[martinwcole]

Re: invalid date trapping in xdialog

Yes - I caught and corrected - it prevented using the calendar
I think my last correction should be a keeper for a quick date range selector

thanks again a million

[Tim Kiebert]

Re: invalid date trapping in xdialog

Your welcome. :)

Code archive entry maybe???

[martinwcole]

Re: invalid date trapping in xdialog

good idea - I made 2 more small changes

msgbox("","Invalid Date!")
bdatec=""
ui_dlg_ctl_goto("Enter Dates","bdate")


msgbox("","Invalid Date!")
edatec=""
ui_dlg_ctl_goto("Enter Dates","edate")

this removes the invalid date and makes it easy for them to hit the cancel button or whatever

[G Gabriel]

Re: invalid date trapping in xdialog

Thanks Gabe,

but I think it’s a lost cause - i.e., I can trap and warn, and go back, but I can't also let a blank one through
After reading your post got some ideas and tried many iterations, but all failed to both capture an invalid AND let a blank through

Perhaps I didn't decipher that part of your question. I take it you want to:
1-If the date is blank, let it be
2-Otherwise, if a date is entered by some means or another , check for its validity.
All you have to do is slightly modify the code to first check for balnk, then check for validity:

if left(a_dlg_button,6) = "bdate_" then 
 if a_dlg_button = "bdate_killfocus" then 
if bdate={}
bdate={}
else
  bdate = ctod(dtoc(bdate))
  if bdate={}
   msgbox("","Invalid Date!")
  end if   
 end if 
 a_dlg_button = ""
end if

[martinwcole]

Re: invalid date trapping in xdialog

thanks Gabe, check out and try my next to last post with changes from my last post

[Mike Wilson]

Re: invalid date trapping in xdialog

I'm hoping that is not your keeper Martin. If you enter an inappropriate date, the cancel button will not get you out of it. Then pressing the red "X" closes the dialog and places you into an endless loop of message dialog the requires you to ctrl-alt-delete and close the app. Needs some work yet....

Later:
The changes you added in post #19 cleared the issue.

[martinwcole]

Re: invalid date trapping in xdialog

my last one will - check it out:

'Date Created: 30-Jul-2010 07:22:26 PM
'Last Updated: 30-Jul-2010 07:32:17 PM
'Created By  : martin cole
'Updated By  : martin cole
DIM SHARED bdateC as C
dim shared bdate as D
DIM SHARED edatec as c
DIM SHARED edate as D
DIM SHARED varC_result as C
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Enter Dates",<<%dlg%
{Background=#237+232+211}
{region}
From:| [%DATE;P=popup.calendar(bdateC);I=popup.calendar%.20bdateC!bdateC_*];
Thru:| [%DATE;P=popup.calendar(edateC);I=popup.calendar%.20edateC!edateC_*];
{endregion};
{line=1,0};
{region}
<15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
IF left(a_dlg_button,7) = "bdateC_" THEN
    IF a_dlg_button = "bdateC_killfocus" THEN
        IF bdateC = "" THEN
            bdate = {}
        ELSE
            IF isdate(bdateC)
                bdate = ctod(bdateC)
                bdateC = dtoc(bdate)
            ELSE
                msgbox("","Invalid Date!")
                bdatec=""
                ui_dlg_ctl_goto("Enter Dates","bdate")
            END IF
        END IF
    END IF
    a_dlg_button = ""
END IF
if left(a_dlg_button,7) = "edatec_" then 
 if a_dlg_button = "edatec_killfocus" then 
        IF edateC = "" THEN
            edate = {}
        ELSE
            IF isdate(edateC)
                edate = ctod(edateC)
                edateC = dtoc(edate)
            ELSE
                msgbox("","Invalid Date!")
                edatec=""
                ui_dlg_ctl_goto("Enter Dates","edate")
            END IF
        END IF
 end if 
 a_dlg_button = ""
end if 
%code%)