TurboMD - это внешняя компонента Александра Орефкова, которая (в комплекте с OpenConf) позволяет сохранять тексты модулей и внешний вид форм (расположение кнопок, процедуры-обработчики нажатий и т.п.), не перезапуская 1С и не выгоняя пользователей из 1С.

Я внес некоторые улучшения в оригинальный скрипт TurboMD.vbs, хотел бы ими поделиться (возможно, я не оригинален, но в поставке этого, к сожалению, нет, или же я этого там не нашел).

При работе с турбо МД возможны следующие приколы:

1) Я сохраняю конфу, но не сохраняю текстовички. Приоритет имеют текстовички, и я волшебным образом теряю (пока не сохраню текстовик) свои изменения в конфе. То есть, надо не забывать всякий раз, как дятел, :-) их сохранять.

2) Я сохраняю текстовички, но не сохраняю конфу (например, сбойнуло электропитание). При открытии несохраненной конфы надо не забыть подгрузить текстовички.

Поэтому я внес такие исправления (добавления) в скрипт, которые позволяют всегда иметь синхронные MD и текстовички:


'///////////////////////////////////////////////////////////////
Sub Configurator_MetaDataSaved(FileName)
'Делаем так, чтобы при сохранении конфигурации "убивались"
'устаревшие текстовички (переименовываем в turbomd.prm в turbomd.bak).

   Set fso = CreateObject("Scripting.FileSystemObject")

       path = fso.GetParentFolderName(FileName)

   path = LCase(path)

       If InStr(path, "new_stru") <> 0 Then

   'При изменении структуры метаданных (например, я создал новую константу)
   'папка почему-то NEW_STRU
           path = fso.GetParentFolderName(path)
       End If


   fname = path+"\turbomd.prm"
   bakname = path+"\turbomd.bak"

   if fso.FileExists(bakname) then
      fso.DeleteFile bakname, true        
      'Message "Удален: "& bakname,mNone
   end if

   if fso.FileExists(fname) then
          fso.MoveFile fname, bakname
      'Message "Переименован: "& fname,mNone
   end if
       
End Sub

'///////////////////////////////////////////////////////////////
Sub Configurator_ConfigWindowCreate
'Загружаем все текстовички при открытии конфигурации
   'Message "Открыто окно конфигурации", mExclamation
   Call LoadFromFilesToMD
End Sub


Дополнительно я сократил (закомментировал) в скрипте "лишние" вопросы (добавить ли модуль в PRM и т.п.), а также появилась возможность убрать многочисленные вопросы при сохранении метаданных и самой 1С:

'///////////////////////////////////////////////////////////////
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
'Делаем так, чтобы 1С-ка не задавала много лишних вопросов
       
   'Text = LCase(Text)
   'Message Text, mExclamation
       If InStr(Text, "Сохранить изменения?") <> 0 Then
          Answer=DefAnswer
       End If
       If InStr(Text, "Реорганизация информации закончена!") <> 0 Then
          Answer=DefAnswer
       End If
       If InStr(Text, "Выполнить сохранение метаданных?") <> 0 Then
          Answer=DefAnswer
       End If

End Sub

------------------------
Также (инсталлятором) я прописал горячие клавиши Alt-S и Alt-L на процедуры выгрузки и загрузки текстовичков из/в MD. Новички долго тыкаются, пока не находят, а как же назначить горячие клавиши. Почему бы не назначить их штатно по умолчанию? :-) Вот такое предложение.

А нельзя ли вывесить на всеобщий доступ?

(1) Просто воткни эти процедуры в конец turbomd.vbs и перезапусти конфигуратор.
(только сохрани его резервную копию). Насчет сократить вопросы - их можно просто закомментировать - это каждый может сделать по вкусу.

Вставлю это в свой инсталлятор, как только у меня исчезнут приколы с телепатом, и если не будет здесь замечаний.

Интересно, а можно ли автоматически скидывать все в текстовички по факту закрытия или деактивизации окна с текстом конфигуратора... Вроде бы виндовые события... И посылать этим окнам какое-нибудь нажатие, чтобы оно активизировало скрипт выгрузки... Тогда вообще все будет фоново и без вопросов... Набрал код (или поправил форму) в конфигураторе - перешел в 1С, а там уже все обновилось... :-)

(3) Это ты загнул. Это лишнее.

(4) Ну как, получилось сделать (2), полет нормальный? :-)

(5) Да, я тоже с этими глюками столкнулся. Все время выдает, "модуль не скомпилирован". Теперь правлю vbs код. О результате скажу дополнитлеьно. :-)

(6) блин, не парься, давай я тебе почтой зашлю... Народ.ру че-то у меня сейчас недоступен...

(7) Почта в карточке.

Там недоступно... Щас выложу скрипт целиком тут...

'$ENGINE {B54F3741-5B07-11CF-A4B0-00AA004A55E8}
'Пример скрипта, позволяющего выгрузить в файл
'текущую редактируемую форму и модуль
'(либо просто модуль проведения или вида расчета)
'во внешний файл.
'При этом выгружается текущее состояние формы/модуля
'без необходимости сохранять конфигурацию

'---------------------------------------------------------
'Изменения (с) Romix 2005.08.16
'1) При сохранении конфы убивает (переименовывает в .BAK) файл .PRM
'Это нужно, чтобы при сохранении конфы не оставалось левых (устаревших) текстовичков.

'2) При открытии конфы подгружает текстовички из .PRM (если закрыли 1С, не сохраняя конфу)
'Это нужно, если закрыли 1С, но есть актуальные текстовички.

'Таким образом, любые действия пользователя не приведут к рассинхронизации MD и текстовичков.

'И по-мелочи:

'3) Не задает вопросов, добавить ли строку в файл .PRM (вопрос закомментирован).

'4) Вместо двух вопросов: о сохранении формы и сохранении модуля теперь только один общий вопрос.
'---------------------------------------------------------


Dim BaseDir
BaseDir = IBDir & "unpack\" ' Базовый каталог для выгрузки

' Процедура создания ветки каталогов
Sub MakeDir(Dir)
   Set fso = CreateObject("Scripting.FileSystemObject")
   If Left(Dir, 2) = "\\" Then
       'UNC Path
       pos = InStr(3, Dir, "\")    'Server name
       p = Left(Dir, pos)
       Dir = Mid(Dir, pos + 1)
   Else
       p = ""
   End If
   pos = 1
   While pos <> 0
       pos = InStr(Dir, "\")
       If pos = 0 Then
           p = p & Dir
       Else
           p = p & Left(Dir, pos)
           Dir = Mid(Dir, pos + 1)
       End If
       If fso.FolderExists(p) = False Then fso.CreateFolder p
   Wend
End Sub

'Выгрузка документа
Sub UnloadDoc(doc)
   fName = BaseDir & Replace(doc.Name, ".", "\")
   If doc = docTable Then fName = fName & ".mxl" Else fName = fName & ".txt"
   lastdec = InStrRev(fName, "\")
   Dir = Left(fName, lastdec - 1)
   MakeDir Dir
   doc.SaveToFile fName
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 1, True)
   If f.AtEndOfStream = True Then t = "" Else t = f.ReadAll()
   If InStr(t, doc.Name) = 0 Then
       'If MsgBox("Добавить " & doc.Name & " в turbomd.prm ?", vbQuestion + vbYesNo) = vbYes Then
           f.Close
           Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 8)
           If Len(t) > 0 And Right(t, 2) <> vbCrLf Then f.WriteBlankLines 1
           f.WriteLine doc.Name & " = " & Replace(fName, IBDir, "")
       'End If
   End If
   f.Close
End Sub

'Собственно макрос для выгрузки активного окна
Sub UnloadCurrentWnd()
   Set w = Windows.ActiveWnd
   If w Is Nothing Then
       MsgBox "Нет активного окна", vbOKOnly, "TurboMD"
       Exit Sub
   End If
   Set d = w.Document
   If d.ID < 2 Then
       MsgBox "Окно ни форма, ни модуль", vbOKOnly, "TurboMD"
       Exit Sub
   End If
   If d = docText Then     ' Просто модуль
       UnloadDoc d
   Else
       If d = docWorkBook Then ' Форма
           If MsgBox("Выгрузить форму и модуль?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
               UnloadDoc d.Page(0) ' Выгружаем диалог
           'End If
           'If MsgBox("Выгрузить модуль?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
               UnloadDoc d.Page(1) ' Выгружаем модуль
           End If
       End If
   End If
End Sub

'Макрос для загрузки всех распакованных файлов обратно в мдшник
Sub LoadFromFilesToMD()
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 1, True)
   On Error Resume Next
   While f.AtEndOfStream = False
       t = f.ReadLine()
       eq = InStr(t, "=")
       If eq > 0 Then
           dName = Trim(Left(t, eq - 1))
           fName = Trim(Mid(t, eq + 1))
           If Mid(fName, 2, 1) <> ":" And Left(fName, 2) <> "\\" Then fName = IBDir & fName
           Set doc = Documents(dName)
           If Err <> 0 Then
               Message Err.Description, mRedErr
               Err.Clear
           Else
               If doc.LoadFromFile(fName) <> True Then
                   Message "Не удалось загрузить " & doc.Name & " из " & fName, mBlackErr
               Else
                   Message doc.Name & " загружен из " & fName, mInformation
               End If
               If Err <> 0 Then
                   Message Err.Description, mRedErr
                   Err.Clear
               End If
           End If
       End If
   Wend
End Sub

' Макрос для быстрого открытия файла TurboMD.prm
Sub OpenTurboMDPrm()
   Documents.Open IBDir & "turbomd.prm"
End Sub

Sub SaveMD()
   MetaData.SaveMDToFile IBDir & "1cv7new.md", False
End Sub


sub test()
   set d=Documents("Справочник.Проверка.ФормаСписка.Tets.Диалог")
   d.LoadFromFile "d:\Visual Studio\Project\CONFIG\TestDB\unpack\Справочник\Проверка\ФормаСписка\NewList\Диалог.txt"
   d.Open
end sub

Sub UnloadAllRefernce()
   'Dim AllObj As OpenConf.AllTypedObj, doc As OpenConf.CfgDoc
   Set AllObj = Documents.EnumAllTypedObj
   fndSubList = False
   For i = 0 To AllObj.Count
       Set doc = AllObj(CLng(i))
       If doc.Kind = "SubList" Then
           Message doc.Name,mNone
           fndSubList = True
       Else
           If fndSubList = True Then Exit For
       End If
   Next
End Sub

'///////////////////////////////////////////////////////////////
Sub Configurator_ConfigWindowCreate
'Загружаем все текстовички при открытии конфигурации
   'Message "Открыто окно конфигурации", mExclamation
   Call LoadFromFilesToMD
End Sub


'///////////////////////////////////////////////////////////////
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
'Делаем так, чтобы 1С-ка не задавала много лишних вопросов
       
   'Text = LCase(Text)
   'Message Text, mExclamation
       If InStr(Text, "Сохранить изменения?") <> 0 Then
          Answer=DefAnswer
       End If
       If InStr(Text, "Реорганизация информации закончена!") <> 0 Then
          Answer=DefAnswer
       End If
       If InStr(Text, "Выполнить сохранение метаданных?") <> 0 Then
          Answer=DefAnswer
       End If

End Sub



'///////////////////////////////////////////////////////////////
Sub Configurator_MetaDataSaved(FileName)
'Делаем так, чтобы при сохранении конфигурации "убивались" текстовички
'(переименовываем в BAK)
   Set fso = CreateObject("Scripting.FileSystemObject")

       path = fso.GetParentFolderName(FileName)

   path = LCase(path)

       If InStr(path, "new_stru") <> 0 Then

   'При изменении структуры метаданных (например, я создал новую константу)
   'папка почему-то NEW_STRU
           path = fso.GetParentFolderName(path)
       End If


   fname = path+"\turbomd.prm"
   bakname = path+"\turbomd.bak"

   if fso.FileExists(bakname) then
      fso.DeleteFile bakname, true        
      'Message "Удален: "& bakname,mNone
   end if

   if fso.FileExists(fname) then
          fso.MoveFile fname, bakname
      'Message "Переименован: "& fname,mNone
   end if
       
End Sub

Это был turboMD.vbs в папке BIN\config\scripts

Вставил. Вери сенкс, пока вроде работает. :-) Кста, по редактированию vbs скриптов можешь литературу посоветовать? Или ссылку на инфу об этом?

(11) А кстати, почему он при выгрузке модуля формы и формы спрашивает, сохранять или нет, а при правке модуля документа и выгрузке молчит? Должен бы по идее сигналить. И раньше так было, и после вставки твоего кода.

(12) А я сам первый раз (если не считать VBA в ёкселе в 1998 году) поюзал эту штуку: смотрел в OpenConf.chm и отыскивал образцы скриптов в том большом комплекте, который распространяет kuntashov(собака)яндекс.ру.

(13) щас заценю...

(13) Да, действительно сохраняет, но сообщение не выводит. Может у Орефкова и нету этого предупреждения? :-)

(13)-(16)
Не гоните.
Вы модуль формы и форму перед этим выгрузили - турбомд каталоги создал и вопросы задавал. Че ему еще спрашивать?

Попробуйте эти каталоги грохнуть и выгрузить модуль дока.

(17) Я про модуль проведения документа.

(18)
не модуль проведения документа, а модуль документа (если быть точным) проверь...

(19) проверил, выгрузку делает, но предупреждающего сообшения нет. Может у тя старая версия Опенкофа?

Хочу воткнуть вместо предупреждения вызов MS-Агента (как в книжке MAV'а) :-)

(20)
не просто ты неправильно делаешь. Ты каталоги с выгружеными формами и модулями грохни и попробуй еще раз, да еще и запись он делает в *.pm файле...

Добавил вопрос про выгрузку модуля проведения:

   If d = docText Then     ' Просто модуль
       If MsgBox("Выгрузить модуль проведения?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
         UnloadDoc d
       End If

Файл TurboMD.vbs целиком выложу постом ниже.

'$ENGINE {B54F3741-5B07-11CF-A4B0-00AA004A55E8}
'Пример скрипта, позволяющего выгрузить в файл
'текущую редактируемую форму и модуль
'(либо просто модуль проведения или вида расчета)
'во внешний файл.
'При этом выгружается текущее состояние формы/модуля
'без необходимости сохранять конфигурацию

'---------------------------------------------------------
'Изменения (с) Romix 2005.08.16
'1) При сохранении конфы убивает (переименовывает в .BAK) файл .PRM
'Это нужно, чтобы при сохранении конфы не оставалось левых (устаревших) текстовичков.

'2) При открытии конфы подгружает текстовички из .PRM (если закрыли 1С, не сохраняя конфу)
'Это нужно, если закрыли 1С, но есть актуальные текстовички.

'Таким образом, любые действия пользователя не приведут к рассинхронизации MD и текстовичков.

'И по-мелочи:

'3) Не задает вопросов, добавить ли строку в файл .PRM (вопрос закомментирован).

'4) Вместо двух вопросов: о сохранении формы и сохранении модуля теперь только один общий вопрос.
'---------------------------------------------------------


Dim BaseDir
BaseDir = IBDir & "unpack\" ' Базовый каталог для выгрузки

' Процедура создания ветки каталогов
Sub MakeDir(Dir)
   Set fso = CreateObject("Scripting.FileSystemObject")
   If Left(Dir, 2) = "\\" Then
       'UNC Path
       pos = InStr(3, Dir, "\")    'Server name
       p = Left(Dir, pos)
       Dir = Mid(Dir, pos + 1)
   Else
       p = ""
   End If
   pos = 1
   While pos <> 0
       pos = InStr(Dir, "\")
       If pos = 0 Then
           p = p & Dir
       Else
           p = p & Left(Dir, pos)
           Dir = Mid(Dir, pos + 1)
       End If
       If fso.FolderExists(p) = False Then fso.CreateFolder p
   Wend
End Sub

'Выгрузка документа
Sub UnloadDoc(doc)
   fName = BaseDir & Replace(doc.Name, ".", "\")
   If doc = docTable Then fName = fName & ".mxl" Else fName = fName & ".txt"
   lastdec = InStrRev(fName, "\")
   Dir = Left(fName, lastdec - 1)
   MakeDir Dir
   doc.SaveToFile fName
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 1, True)
   If f.AtEndOfStream = True Then t = "" Else t = f.ReadAll()
   If InStr(t, doc.Name) = 0 Then
       'If MsgBox("Добавить " & doc.Name & " в turbomd.prm ?", vbQuestion + vbYesNo) = vbYes Then
           f.Close
           Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 8)
           If Len(t) > 0 And Right(t, 2) <> vbCrLf Then f.WriteBlankLines 1
           f.WriteLine doc.Name & " = " & Replace(fName, IBDir, "")
       'End If
   End If
   f.Close
End Sub

'Собственно макрос для выгрузки активного окна
Sub UnloadCurrentWnd()
   Set w = Windows.ActiveWnd
   If w Is Nothing Then
       MsgBox "Нет активного окна", vbOKOnly, "TurboMD"
       Exit Sub
   End If
   Set d = w.Document
   If d.ID < 2 Then
       MsgBox "Окно ни форма, ни модуль", vbOKOnly, "TurboMD"
       Exit Sub
   End If
   If d = docText Then     ' Просто модуль
       If MsgBox("Выгрузить модуль проведения?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
         UnloadDoc d
       End If
   Else
       If d = docWorkBook Then ' Форма
           If MsgBox("Выгрузить форму и модуль?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
               UnloadDoc d.Page(0) ' Выгружаем диалог
           'End If
           'If MsgBox("Выгрузить модуль?", vbQuestion + vbYesNo, "TurboMD") = vbYes Then
               UnloadDoc d.Page(1) ' Выгружаем модуль
           End If
       End If
   End If
End Sub

'Макрос для загрузки всех распакованных файлов обратно в мдшник
Sub LoadFromFilesToMD()
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(IBDir & "turbomd.prm", 1, True)
   On Error Resume Next
   While f.AtEndOfStream = False
       t = f.ReadLine()
       eq = InStr(t, "=")
       If eq > 0 Then
           dName = Trim(Left(t, eq - 1))
           fName = Trim(Mid(t, eq + 1))
           If Mid(fName, 2, 1) <> ":" And Left(fName, 2) <> "\\" Then fName = IBDir & fName
           Set doc = Documents(dName)
           If Err <> 0 Then
               Message Err.Description, mRedErr
               Err.Clear
           Else
               If doc.LoadFromFile(fName) <> True Then
                   Message "Не удалось загрузить " & doc.Name & " из " & fName, mBlackErr
               Else
                   Message doc.Name & " загружен из " & fName, mInformation
               End If
               If Err <> 0 Then
                   Message Err.Description, mRedErr
                   Err.Clear
               End If
           End If
       End If
   Wend
End Sub

' Макрос для быстрого открытия файла TurboMD.prm
Sub OpenTurboMDPrm()
   Documents.Open IBDir & "turbomd.prm"
End Sub

Sub SaveMD()
   MetaData.SaveMDToFile IBDir & "1cv7new.md", False
End Sub


sub test()
   set d=Documents("Справочник.Проверка.ФормаСписка.Tets.Диалог")
   d.LoadFromFile "d:\Visual Studio\Project\CONFIG\TestDB\unpack\Справочник\Проверка\ФормаСписка\NewList\Диалог.txt"
   d.Open
end sub

Sub UnloadAllRefernce()
   'Dim AllObj As OpenConf.AllTypedObj, doc As OpenConf.CfgDoc
   Set AllObj = Documents.EnumAllTypedObj
   fndSubList = False
   For i = 0 To AllObj.Count
       Set doc = AllObj(CLng(i))
       If doc.Kind = "SubList" Then
           Message doc.Name,mNone
           fndSubList = True
       Else
           If fndSubList = True Then Exit For
       End If
   Next
End Sub

'///////////////////////////////////////////////////////////////
Sub Configurator_ConfigWindowCreate
'Загружаем все текстовички при открытии конфигурации
   'Message "Открыто окно конфигурации", mExclamation
   Call LoadFromFilesToMD
End Sub


'///////////////////////////////////////////////////////////////
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
'Делаем так, чтобы 1С-ка не задавала много лишних вопросов
       
   'Text = LCase(Text)
   'Message Text, mExclamation
       If InStr(Text, "Сохранить изменения?") <> 0 Then
          Answer=DefAnswer
       End If
       If InStr(Text, "Реорганизация информации закончена!") <> 0 Then
          Answer=DefAnswer
       End If
       If InStr(Text, "Выполнить сохранение метаданных?") <> 0 Then
          Answer=DefAnswer
       End If

End Sub



'///////////////////////////////////////////////////////////////
Sub Configurator_MetaDataSaved(FileName)
'Делаем так, чтобы при сохранении конфигурации "убивались" текстовички
'(переименовываем в BAK)
   Set fso = CreateObject("Scripting.FileSystemObject")

       path = fso.GetParentFolderName(FileName)

   path = LCase(path)

       If InStr(path, "new_stru") <> 0 Then

   'При изменении структуры метаданных (например, я создал новую константу)
   'папка почему-то NEW_STRU
           path = fso.GetParentFolderName(path)
       End If


   fname = path+"\turbomd.prm"
   bakname = path+"\turbomd.bak"

   if fso.FileExists(bakname) then
      fso.DeleteFile bakname, true        
      'Message "Удален: "& bakname,mNone
   end if

   if fso.FileExists(fname) then
          fso.MoveFile fname, bakname
      'Message "Переименован: "& fname,mNone
   end if
       
End Sub

Сохранение в любой папке (в случае краха сети и если есть несохранен изменения)
Sub SaveMD()
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set srv = CreateObject("Svcsvc.Service")
   SaveFolder = srv.SelectFolder("Сохранить в:")
   If FSO.FolderExists(SaveFolder) Then
       MetaData.SaveMDToFile SaveFolder & "\1cv7new.md", False
   End If
End Sub

Кидай потом в репозитарий Оупенконф.

(26) Позволяет сохранить MD в другой файл, если я поправил метаданные, но юзера еще сидят в 1С?
(27) А это где?

(+28-1) вроде уже есть штатная SaveMD(), которая сохраняет MD-шник под другим именем...

Там просто спрашивает каталог куда выгружать.

По умолчанию выгрузка в каталого ИБ - имхо не совсем верно - см (26) - сетка отвалилась, тормозит и еще что-то, каталог ИБ занят.

Так где можно взять последнюю "самую рабочую" версию скрипта?
Какая версия ТурбоМД.длл наименее глючная?

шалунишки

Ну, где все знающие люди?

Есть яндекс. последняя версия 1.05. или типа того.

(34) Последняя версия 1.0.1.2 на самом то деле.
Вопросы в (31) аХтуальны.

(35) Ты прав. 1.0.1.2 Если честно, уверенности, что глючить не будет, нет ни с одной версией. Но вроде работает.
Самая лучшая версия Опенкофа- на проклабе. Какие еще вопросы.

(36) Есть ли жизнь на Марсе?
ЗЫ. Какие плагины ты используешь?

Телепат. Комментирование по клавише. Выгружаю в турбо, потом сразу проверяю. Там хренова туча возможностей, но плохо документированных. Поставь, узнаешь.

Последняя версия опенконфа лежит на:
http://openconf.itland.ru/beta/

Вроде не глючит, хотя не факт что заработает с любым отдельно взятым дистрибутивом 1С.

(31) если про мои изменения, то полностью весь скрипт я положил в (25).
Щас его юзаю, вроде удобно. :-)

(40) Кста, а ты какими плагинами пользуешься? Просто интересно, может я мимо каких то возможностей прошел.

(41) Телепат, ТурбоМД, недавно решил а не попробовать ли плагин Intellisence, т.к. он позволяет вводить реквизиты метаданных. Например, я пишу слово Константа. и выпадает список констант. Аналогично для реквизитов документов, справочников и т.д.

(42) аналогично. А конструкторы юзаешь?

(43) Только штатные конструкторы, которые уже есть в 1С. :-)
А че, типа удобно? Я просто в них немножко не въехал, и пока не юзал...

(44) Просто подумал, если есть вместо штатных, то они типа удобнее.:-) Поэтому и спросил. А что там за подсистемы, так и не врубился?

(45) Я тоже не врубился, и на всякий случай решил все лишнее пока выключить. :-)
Ну и на рабочую базу натравливать только оригинальный 1С, а то как бы чего с ней не вышло. :-)