Code not working on PowerBuilder

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

   Hello,
Reading through the forum I stumbled upon a VB code that allows me to create multiple schedules in a calendar.

I have rewritten this code in both PowerBuilder and C# but the issue is:

In C# it works flawlessly while in PowerBuilder (2019 R3) it creates the schedules and all, but it doesn't let me Add any events, as if the calendar is disabled (which it isn't)

I will post down my code, I really can't wrap my head around this issue I hope you guys can help me.
Thank you in advance

// Impostazioni Visive
Calendar.Object.VisualTheme = 5
Calendar.Width  = this.Width  * 0.9
Calendar.Height = this.Height * 0.9

// Mostro settimana
Calendar.Object.DayView.ShowDays(Today(), RelativeDate(Today(), 14))
Calendar.Object.Options.DayViewTimeScaleShowMinutes(true)

// Dimensioni colonne
Calendar.Object.DayView.MinColumnWidth = 25

// Imposto giorni e ore della settimana
String min, max

min = '08:00'
max = '18:00'

calendar.object.options.WorkWeekMask = 62 // Lun-Ven

calendar.object.options.WorkDayStartTime = min
calendar.object.options.WorkDayEndTime = max

calendar.object.DayView.TimeScaleMinTime = min
calendar.object.DayView.TimeScaleMaxTime = max
calendar.object.DayView.TimeScale(15)

// ******************
// CATEGORIE MULTIPLE
// ******************
OLEObject DataProvider
OLEObject Schedules
OLEObject Schedule
OLEObject Resources
OLEObject Resource

Calendar.Object.ReadOnlyMode = false
Calendar.Object.MultipleSchedulesMode = true

// apro il data provider
DataProvider = Calendar.Object.DataProvider
IF NOT DataProvider.Open() THEN &
    DataProvider.Create()

Resources = CREATE OLEObject
Resource = CREATE OLEObject

Schedules = DataProvider.Schedules
Resources.ConnectToNewObject("Codejock.CalendarResources.18.6.0")

// Inserisco risorse
Integer i
Long scheduleId
FOR i = 1 TO 3
    Schedules.AddNewSchedule("G" + String(i))
    Resource.ConnectToNewObject("Codejock.CalendarResource.18.6.0")
    Resource.SetDataProvider(DataProvider, false) // falso mi assicura che quando faccio destroy non mi chiude il DP
    Resource.Name = "G" + String(i)

    // da schedule a risorse
    scheduleId = Schedules.Item(i - 1).Id
    Resource.ScheduleIDs.Add(scheduleId)
    Resources.Add(Resource)
NEXT

Calendar.Object.SetMultipleResources(Resources)
Calendar.Object.Populate()
Calendar.Object.RedrawControl()

DESTROY DataProvider
DESTROY Schedules
DESTROY Schedule
DESTROY Resources
DESTROY Resource