Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Calendar
  New Posts New Posts RSS Feed - Popup Calendar
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Popup Calendar

 Post Reply Post Reply
Author
Message
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post Topic: Popup Calendar
    Posted: 10 January 2007 at 4:06pm
Since upgrading to 10.4 my popup calendar doesn't work.  I am using the following licence:

XtremeCalendarControl.License = "Calendar Control Copyright (c) 2003-2006 Codejock Software" & vbCrLf & "PRODUCT-ID: Codejock.Calendar.ActiveX.v10.4.0" & vbCrLf & "VALIDATE-CODE: XXX-XXX-XXX-XXX"

In 10.3.x the line worked except, of course, I had 10.3 in the line instead of 10.4.0.

Any ideas what could be wrong?
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 10 January 2007 at 5:09pm
String "10.4.0" is not correct. Simply remove the last zero with dot, and it should work.

--
Regards,
Serge
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post Posted: 10 January 2007 at 5:15pm
You're right, it should.  But it doesn't.  I also tried changing the copyright year to 2007 but that didn't help either.
Back to Top
elmsoftware View Drop Down
Groupie
Groupie
Avatar

Joined: 21 November 2006
Status: Offline
Points: 23
Post Options Post Options   Thanks (0) Thanks(0)   Quote elmsoftware Quote  Post ReplyReply Direct Link To This Post Posted: 11 January 2007 at 2:49pm
Do you need to use...CalendarGlobalSettings.License?
 
CalendarGlobalSettings.License = [Your license string]
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 12 January 2007 at 8:12am
The following code works pretty fine for me:


Private Sub Form_Initialize()
    Dim GS As New CalendarGlobalSettings
    GS.License = "Calendar Control Copyright (c) 2003-2006 Codejock
Software" + vbCrLf + _
                 "PRODUCT-ID: Codejock.Calendar.ActiveX.v10.4" + vbCrLf + _
                 "VALIDATE-CODE: XXX-XXX-XXX-XXX"

    
End Sub


--
WBR,
Serge
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post Posted: 12 January 2007 at 3:42pm
Ok the following code still generates the error on the Set pDatePicker line

Dim pDatePicker
   
    Dim GS As New CalendarGlobalSettings
    GS.License = "Calendar Control Copyright (c) 2003-2006 Codejock Software" + vbCrLf + "PRODUCT-ID: Codejock.Calendar.ActiveX.v10.4" + vbCrLf + "VALIDATE-CODE: XXX-XXX-XXX-XXX"
                
    Set pDatePicker = CreateObject("Codejock.DatePicker." + GS.Version)
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 13 January 2007 at 2:49pm
Hi,

The problem is that GS.Version returns string like "10.4.0".
We have to remove the last '.0'
 

CreateObject("Codejock.DatePicker." & XTPVersionTrim(GS.Version))
 
Private Function XTPVersionTrim(strVersionFull As String) As String
    Dim i As Long, j As Long
    Dim strVer As String
   
    Dim arVersion
    arVersion = Split(strVersionFull, ".")
 
    For i = UBound(arVersion) To LBound(arVersion) Step -1
        If arVersion(i) <> 0 Then
           
            For j = LBound(arVersion) To i
                If Len(strVer) > 0 Then
                    strVer = strVer + "."
                End If
                strVer = strVer + arVersion(j)
            Next
           
            XTPVersionTrim = strVer
            Exit Function
        End If
    Next
End Function


Actually, looks like this is a bit inconsistent and we'll review behavior of this method for future versions.

--
WBR,
Serge
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post Posted: 15 January 2007 at 10:04am
Great!  Now I know the problem.

This works too without having to write a new function:

Set pDatePicker = CreateObject("Codejock.DatePicker." + Replace(GS.Version, "10.4.0", "10.4"))

Thanks for the help.
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.141 seconds.