Макросом раньше не пользовались.
Решили пройти (протестировать) возможности планирования в TechnologiCS и столкнулись с данной проблеммой.
Версия TechnologiCS - 6.3.0.0 (19106) SP2.
Работаем в Полной версии конфигурации.
Пробовал зарегистрировать полное API еще раз, не помогло, ошибка таже самая.
Возникает в SCDN_GetLaunchReleaseDate в функции
Function SetICalendarType( CurrentDate ) 'Îòêðûòü êàëåíäàðü
If IsEmpty(CurrentDate) Then stop : Exit Function
Dim ResultFunction : ResultFunction = False
If IsEmpty(ICalendarType) Then
Set ICalendarType = TCSApp.Manufacturing.CalendarType
If IsEmpty(CalendarTypeNote) Then
Call ICalendarType.First
CalendarTypeNote = ICalendarType.Properties( "NOTE" ).DisplayText
End If
If ICalendarType.Locate( "NOTE", CalendarTypeNote, 0 ) Then
Set ICalendar = ICalendarType.Properties( "Calendar" ).AsIDispatch
End If
End If
Call ICalendar.SetCurrentDate( CurrentDate )
If ICalendar.Locate( "Date", DateValue( CurrentDate ), 0 ) Then
ResultFunction = True
Else
Call TCSApp.ShowErrorMessage( "Îòñóòñòâóåò êàëåäðàäü '" & CalendarTypeNote & "' íà " & CurrentDate )
End If
SetICalendarType = ResultFunction
End Function
в строке вызова Call ICalendar.SetCurrentDate( CurrentDate )