Hello,
I am back with the calendar library in my project. Well, I need to create new fields in calendar v2, but I got an error and I will apreciate if someone help me.


I really don´t understand how the Comproperty function works. (integer iItem integer iDataType)
In that line of code below I've set 40, because the last number on cSigCjComCalendarEvent is 35. Actually I tryed a bunch of numbers after 35.
[code]Get ComProperty of (phDispatchDriver(Self)) 40 OLE_VT_I4 to retVal[code]


in this case, I got the error in execution 'Object does not support this method or property. Possibly incorrect IDispatch interface pointer attached to VDF proxy object'


but when I set 0 instead 40 for exemplo, it gets the wrong value on 'ComSubject ' property , it returns the 'get comCodUni' value


probably all that is so confuse.


So, Here is my subclass
Code:
Class cSigCjComCalendarEventCustom is a cSigCjComCalendarEvent
    
    { MethodType=Property DesignTime=False }
    Function ComCodUni Returns Integer
        Integer retVal
        Get ComProperty of (phDispatchDriver(Self)) 40 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function
       
    { MethodType=Property DesignTime=False }
    Procedure Set ComCodUni Integer value
        Set ComProperty of (phDispatchDriver(Self)) 40 OLE_VT_I4 to value
    End_Procedure
    
    { MethodType=Property DesignTime=False }
    Function ComCodConv Returns Integer
        Integer retVal
        Get ComProperty of (phDispatchDriver(Self)) 41 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function
       
    { MethodType=Property DesignTime=False }
    Procedure Set ComCodConv Integer value
        Set ComProperty of (phDispatchDriver(Self)) 41 OLE_VT_I4 to value
    End_Procedure
    
    { MethodType=Property DesignTime=False }
    Function ComCodPlano Returns Integer
        Integer retVal
        Get ComProperty of (phDispatchDriver(Self)) 42 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function
       
    { MethodType=Property DesignTime=False }
    Procedure Set ComCodPlano Integer value
        Set ComProperty of (phDispatchDriver(Self))  42 OLE_VT_I4 to value
    End_Procedure
    
    { MethodType=Property DesignTime=False }
    Function ComCodSubPlano Returns Integer
        Integer retVal
        Get ComProperty of (phDispatchDriver(Self)) 43 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function
       
    { MethodType=Property DesignTime=False }
    Procedure Set ComCodSubPlano Integer value
        Set ComProperty of (phDispatchDriver(Self)) 43 OLE_VT_I4 to value
    End_Procedure
    //-------
End_Class

and changing eventclass
Code:
{ DesignTime=False }                                    
        Property Handle Internal_phoEvent                        (Create(Self, U_cSigCjComCalendarEventCustom               ))