datepicker blockscount problem

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
tristoon Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 18 May 2007 Location: France Status: Offline Points: 4	Post Options Post Reply Quote tristoon Report Post Thanks(0) Quote Reply Topic: datepicker blockscount problem 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

tristoon Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 18 May 2007 Location: France Status: Offline Points: 4	Post Options Post Reply Quote tristoon Report Post Thanks(0) Quote Reply 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