Const IID_IAttachedParams = "{3ED1B392-6183-4C29-9ACF-C9407D96474E}"
Sub FormMacro_AddParams(TCSActiveModule)
Dim AtPar, ParCodes, I
If Not TCSActiveModule.CSDN_HasInterface(IID_IAttachedParams) Then Call TCSApp.ShowMessageBox("", "Не могу выполнить для данного модуля")
Set AtPar = TCSActiveModule.CSDN_QueryInterface(IID_IAttachedParams)
Call TCSApp.ShowMessageBox("", "Данный пример присоединяет параметры с текущей сетке")
If TCSApp.Parameters.RunModuleForSelect("Выберите парамеры, которые нужно присоеденить( до 10 шт)", True) Then
 
    ParCodes = ""
    For I = 0 To TCSApp.Parameters.SelectedRowsCount - 1
       If TCSApp.Parameters.GotoSelectedRow(I) Then
         If ParCodes <> "" Then ParCodes = ParCodes + ";"
         ParCodes = ParCodes + TCSApp.Parameters.Properties("PAR_CODE").DisplayText
       End If
    Next
    Call AtPar.AttachParams(ParCodes)
End If
Set AtPar = Nothing
   
End Sub