Sub Test()
'
' Копирование таблицы
'
    Dim iTables
    Dim dTables
    Dim NodeId
    Dim TableValues
    Set iTables = TCSApp.GetNormSettingTables
    iTables.UserModuleName = iTables.UniqueUserModuleName
    
    If iTables.RunModuleForSelect("Выберите таблицу трудового нормирования для копирования", False) Then
    
        NodeId = iTables.DbTree.Selected.NodeId
        Set dTables = TCSApp.GetNormSettingTables
        I = dTables.Locate( "ID", iTables.Properties("ID").AsInteger, 0 )
        
        dTables.DbTree.DbNodeByNodeId(NodeId).Selected = True
        Call dTables.CreateNew
          dTables.Properties("NOTE").Value = iTables.Properties("NOTE").Value + " (копия)"
          dTables.Properties("NAME").Value = iTables.Properties("NAME").Value + " (копия)"
          dTables.Properties("KIND_OF_TIME").Value = iTables.Properties("KIND_OF_TIME").Value
          dTables.Properties("TIME_IN").Value = iTables.Properties("TIME_IN").Value
          dTables.Properties("IS_COEFFICIENT").Value = iTables.Properties("IS_COEFFICIENT").Value
          dTables.Properties("COEFFICIENT_TABLE_ID").Value = iTables.Properties("COEFFICIENT_TABLE_ID").Value
          dTables.Properties("TABLE_REM").Value = iTables.Properties("TABLE_REM").Value
        On Error Resume Next
        Call dTables.SaveChanges
        Call dTables.CancelChanges
        TableValues = iTables.GetRangeValues
                             
        If dTables.LoadTableFromRangeValues( TableValues ) Then
            I = dTables.ShowModal("Смотрим что получилось")
        End If
        Set dTables = Nothing
    End If
    Set iTables = Nothing
End Sub