Codejock Developer Community : datepicker blockscount problem http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 30 May 2026 08:17:32 +0000 Fri, 18 May 2007 11:43:39 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=7174 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[datepicker blockscount problem : I resolved my problem lonely !...]]> http://forum.codejock.com/forum_posts.asp?TID=7174&PID=23041&title=datepicker-blockscount-problem#23041 Author: tristoon
Subject: 7174
Posted: 18 May 2007 at 11:43am

I resolved my problem lonely ! :)
In fact, I tryied to do something so complicated!
just a "attachtoCalendar" masters it fine!
thanks
]]> Fri, 18 May 2007 11:43:39 +0000 http://forum.codejock.com/forum_posts.asp?TID=7174&PID=23041&title=datepicker-blockscount-problem#23041 <![CDATA[datepicker blockscount problem : Hi, I&#039;m trying to count...]]> http://forum.codejock.com/forum_posts.asp?TID=7174&PID=23020&title=datepicker-blockscount-problem#23020 Author: tristoon
Subject: 7174
Posted: 18 May 2007 at 5:14am

Hi,
I'm trying to count the blocks selected with progress langage.
 
The action is done with the "OCX.selectionChanged" and I have a problem, when I select more than 1 day on the datePicker, the blocksCount is always equals to "1".
 
this is my code:
 
 
DEF VAR DTdateDebut AS DATE NO-UNDO.
DEF VAR DTdateFin AS DATE NO-UNDO.
DEF VAR DTcpt AS INT NO-UNDO.

        chDAtePick:DatePicker:Selection():AllowNoncontinuousSelection = TRUE. /*autorise la séléction multiple*/
        DTcpt = chDAtePick:DatePicker:Selection():BlocksCount. /*nb de jours séléctionnés*/
    
        MESSAGE DTcpt
            VIEW-AS ALERT-BOX INFO BUTTONS OK.

        CASE DTcpt:
            WHEN 1 THEN
            DO:
            DTdateDebut = chdatepick:datepicker:SELECTION(0):datebegin. /*séléction d'un block*/
            chctrlframe:calendarcontrol:dayview:showday(STRING(DTDateDebut),TRUE).
            RUN init-initDemarrage.
            chCtrlFrame:CalendarControl:ViewType = 0. /*vue sur 1 jours*/
            END.

         WHEN 2 OR WHEN 3 OR WHEN 4 OR WHEN 5 OR WHEN 6 THEN
            DO:
            DTDateDebut = chDAtePick:DatePicker:Selection():Blocks(0):DateBegin. /*récupère le premier jour*/
            DTDateFin = chDAtePick:DatePicker:Selection():Blocks(DTcpt - 1):DateEnd. /*récupère le dernier jour séléctionné*/
           
            chctrlframe:calendarcontrol:dayview:showdays(STRING(DTdateDebut),STRING(DTDateFin)).
            RUN init-initDemarrage.
            chCtrlFrame:CalendarControl:ViewType = 1. /*vue sur 5 jour*/
            END.

        WHEN 7 THEN
           DO:
           DTDateDebut = chDAtePick:DatePicker:Selection():Blocks(0):DateBegin. /*récupère le premier jour*/
           DTDateFin = chDAtePick:DatePicker:Selection():Blocks(DTcpt - 1):DateEnd. /*récupère le dernier jour séléctionné*/

           chctrlframe:calendarcontrol:dayview:showdays(STRING(DTdateDebut),STRING(DTDateFin)).
           RUN init-initDemarrage.
           chCtrlFrame:CalendarControl:ViewType = 2. /*vue sur 7 jour*/
           END.

        OTHERWISE
                DO:
                DTDateDebut = chDAtePick:DatePicker:Selection():Blocks(0):DateBegin. /*récupère le premier jour*/
                DTDateFin = chDAtePick:DatePicker:Selection():Blocks(DTcpt - 1):DateEnd. /*récupère le dernier jour séléctionné*/
               
                chctrlframe:calendarcontrol:dayview:showdays(STRING(DTdateDebut),STRING(DTDateFin)).
                RUN init-initDemarrage.
                chCtrlFrame:CalendarControl:ViewType = 3. /*vue sur 1 mois*/
               END.

        END CASE.

 
Can you help me? I don't know where is my problem.
Thanks.
 
Tristan
]]> Fri, 18 May 2007 05:14:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=7174&PID=23020&title=datepicker-blockscount-problem#23020