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
  Topic Search Topic Search  Topic Options Topic Options
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.047 seconds.