Problem to create event when i m in week view

Hello all,

I have a little problem with the OCX version 13, when i am in Week view and i want to create a new appointment with a doubleclick on a day in the middle of the week, a false date is return, in fact the first day of the week is return each time

I use this code :

dDatum is Date = gcDatePicker:DateGetBegin()
hTbegin is Time = gclAgenda:WDTime(AX_Calendar>>ActiveView>>Selection>>Begin)
hTend is Time = gclAgenda:WDTime(AX_Calendar>>ActiveView>>Selection>>End)

Procedure DateGetBegin()
dOffset is Date = "18991230"
pautBlock is object Automation dynamic = :m_pautXDatePicker>>Selection>>Blocks[0]
RETURN = :WDDate(pautBlock>>DateBegin)


Because i dont have find the Methods/Property/Events in the Calendar Control to return the date in creation mode, then i must use the DatePicker control with the property DateBegin.

This code work good when i'm in Day view but not when i m week view or Month view.

Whre i m wrong ? How tu use a return date value directly from the calendar Control when i'm in creation mode of a appointment ?

Thanks in advance.