Для TechnologiCS 6.3
Вот пример кода, в котором к UserGModule (переменная ATable) добавляется технология изготовления номенклатуры:
' ATable As IUserGModule
' ANmk As ISingleNomenclature
Dim TP ' As INmkTechnology
Dim CM ' AS ICustomizedModule
If (Not ATable Is Nothing) And (Not ANmk Is Nothing) Then
Set TP = ANmk.Properties("NmkTechnology").AsIDispatch
If Not TP Is Nothing Then
TP.Refresh
Call TP.ShowOperation(0)
Set CM = ATable
Call CM.CM_ClearAllCustomization
Call CM.CM_ClearUserRptChildItems
Call CM.CM_Add_UserRptChildItemModule(True, "NmkTechnology", "Техпроцесс", -1, TP)
End If ' If Not TP Is Nothing
End If ' If Not Is Nothing
Для того чтобы добавленные программно объекты появились в отчёте, необходимо выполнить те же действия, о которыхъ я писал ранее.