Некоторые замечания и советы по использованию TechnologiCS АПИ

Sub Test                   
    'On Error Resume Next - Указывает, что возникновение ошибки выполнения приводит к передаче управления на инструкцию,
    'непосредственно следующую за инструкцией, при выполнении которой возникла ошибка.
    On Error Resume Next 'начало блока обработки ошибок.  
    a = 12/0  ' деление на 0                      
    If Err Then    'если произошла ошибка, то обрабатываем её  
        'Err.Description - описание ошибки
        'Err.Source      - где произошла ошибка       
        Call TCSApp.ShowMessageBox(Err.Source, "Описание: "+Err.Description)        
        Err.Clear ' очищаем информацию об ошибке
    End If                       
    Set b = CreateObject( "NoObject.ThisIsObject" )
    If Err Then    'если произошла ошибка, то обрабатываем её  
        'Err.Description - описание ошибки
        'Err.Source      - где произошла ошибка       
        Call TCSApp.ShowMessageBox(Err.Source, "Описание: "+Err.Description)        
        Err.Clear ' очищаем информацию об ошибке
    End If                       
    On Error goto 0 ' останавливаем обработку ошибок              
End Sub

Function TestRaise(a, b) 
    TestRaise = 0
    If b = 0 Then  
        Call Err.Raise(100, "TestRaise", "Деление на 0 [ "+CStr(a)+"/0 ]") 
    Else  
        TestRaise = a / b    
    End If
End Function
         
Sub Test2 
    'Err.Raise(number[, source, description, helpfile, helpcontext])
    On Error Resume Next 'начало блока обработки ошибок.    
        Call TestRaise(12, 0)                            
        If Err Then    'если произошла ошибка, то обрабатываем её       
            Call TCSApp.ShowMessageBox(Err.Source, "Описание: "+Err.Description)        
            Err.Clear ' очищаем информацию об ошибке
        End If                       
    On Error goto 0 ' останавливаем обработку ошибок              
End Sub

Sub TestUserCehaProfile
  if not TCSAPp.Inventory.TcsUserProfile.HasUserProfile then
    Call TCSAPp.ShowErrorMessage( "Выберите профиль пользователя!" )
    Exit Sub
  end if
  CehaIds = TCSApp.Inventory.TcsUserProfile.GetProfilePlantDepartments
  if IsNull(CehaIds) then
    Call TCSAPp.ShowErrorMessage( "В профиле нет цехов!" )
    Exit Sub
  End If

  if IsEmpty(CehaIds) then
    Call TCSAPp.ShowMessageBox( "", "Профиль не имеет ограничений на цеха (по всем цехам)!" )
  Else
    if TCSApp.PlantDepartments.RunModuleForSelect( "Select ceha to check profile", True )>0 then
       For i=0 to TCSApp.PlantDepartments.SelectedRowsCount-1
         if TCSApp.PlantDepartments.GotoSelectedRow(i) then
           Found = False
           for j=LBound(CehaIds) to UBound(CehaIds)
             if TCSApp.PlantDepartments.p_ID.AsInteger=CehaIds(j) then Found = True
           Next
           if Found then
             Call TCSAPp.ShowMessageBox( "", "Профиль <" & TCSApp.PlantDepartments.p_NAME.DisplayText + "> включен в профиль!" )
           Else
             Call TCSAPp.ShowErrorMessage( "Профиль <" & TCSApp.PlantDepartments.p_NAME.DisplayText + "> НЕ включен в профиль!" )
           End If
         End If
       Next
    End If
  End If
End Sub

if theApp.FileTypes.ShowModal( "Test" )>0 Then 
End If

Sub TestObjectScope
 'Dim ft as IFileTypeCommands
 'Dim ftCmd as IFileTypeCommands
 'Create named global module
 Set ft = Nothing
 Set ftCmd = Nothing
 On Error Resume Next
 Set ft = theApp.ModuleByUserModuleName( "MyFileTypes" )
 Set ftCmd = theApp.ModuleByUserModuleName( "MyFileTypeCommands" )
 On error goto 0
 if ft is Nothing then
   Set ft = theApp.FileTypes
   ft.UserModuleName = "MyFileTypes" 
 End If
 Set ft = Nothing

 'Показать глобальную область
 if theApp.FileTypes.ShowModal( "Настройте глобальный модуль <ТИПЫ ФАЙЛОВ> (выделите записи, фильтр и пр.)" )>0 then
 End If
 if theApp.FileTypes.ShowModal( "При последующих обращениях <ТИПЫ ФАЙЛОВ> настройки остались!" )>0 then
 End If
 Set Ch = theApp.FileTypes.Properties( "COMMANDS" ).AsIDispatch
 'Показать локальную область
 if Ch.ShowModal( "Настройте локальный модуль <КОМАНДЫ> (выделите записи, фильтр и пр.)" )>0 then
 End If
 if ftCmd is Nothing then
   Set ftCmd = Ch
   ftCmd.UserModuleName = "MyFileTypeCommands" 
 End If

 Set Ch = theApp.FileTypes.Properties( "COMMANDS" ).AsIDispatch
 if Ch.ShowModal( "При последующих обращениях <КОМАНДЫ> настройки сбросились (так как модуль уничтожен)!" )>0 then
 End If

 Set P = ch.Properties("ID")
 Call theApp.ShowMessageBox( "Показ автоматического удаления 1", "Значение свойства ID=" & P.AsSafeInteger )
 ''Удалиим локальный модуль сами
 Set Ch = Nothing
 On Error Resume Next
 Err.Clear
 Call theApp.ShowMessageBox( "Показ автоматического удаления 2", "Значение свойства ID=" & P.AsSafeInteger ) 'Этот код никогда не сработает из за ошибки
 if Err Then
   Call theApp.ShowDetailedMessage( "Показ автоматического удаления 3", "А объекта уже нет!", Err.Description )
 End if
 On Error Goto 0

 Set ft = theApp.ModuleByUserModuleName( "MyFileTypes" )
 'Покажем глобальный модуль с именем (копия глобального)
 if ft.ShowModal( "Настройте именованный глобальный модуль <ТИПЫ ФАЙЛОВ> по другому (выделите записи, фильтр и пр.)" )>0 then
 End If
 if theApp.FileTypes.ShowModal( "Это глобальный модуль <ТИПЫ ФАЙЛОВ> (все настройки остались!" )>0 then
 End If
 if ft.ShowModal( "Это именованный глобальный модуль <ТИПЫ ФАЙЛОВ> (все свои настройки остались!" )>0 then
 End If

 'Покажем глобальный модуль с именем (сделанный из локального)
 if ftCmd.ShowModal( "Это именованный локальный модуль <КОМАНДЫ>, котороый мы сделали глобальным. Он не уничтожен и все настройки сохранились!" )>0 then
 End If

 'Удалим все глобальные модули если нужно
 if theApp.MessageBoxAskYesNo( "Подтвердите действие", "Удалить все глобальные объекты в этом примере?", False, 2, True )=1 then
   Call theApp.DeleteModuleByUserModuleName( "MyFileTypes" )
   Call theApp.DeleteModuleByUserModuleName( "MyFileTypeCommands" )
   theApp.FileTypes.UserModuleName = theApp.UniqueUserModuleName
   Call theApp.DeleteModuleByUserModuleName( theApp.FileTypes.UserModuleName )
 End If

End Sub