Код 1C v 7.x

 

Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1)

    Перем Имя,Каталог;

    scr=СоздатьОбъект("MSScriptControl.ScriptControl");

    scr.language="javascript";

    shell=СоздатьОбъект("Shell.Application");

    scr.AddObject("Shell",shell);

    ИмяСлужбы="ImapiService";

    Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда

        Предупреждение("Вам недозволено записывать диски СД!",5);

        Возврат;

    КонецЕсли;

    scr.Eval("Shell.ServiceStart('"+ИмяСлужбы+"',true)");

    РасположениеФайла(Каталог,Имя);

    Если ФС.ВыбратьФайл(0,Имя,Каталог,"Выбирите файл для записи","Все файлы|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    fso=СоздатьОбъект("Scripting.FileSystemObject");

    wshshell=СоздатьОбъект("WScript.Shell");

    КаталогДляЗаписи=wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\CD Burning");

    fso.CopyFile(Каталог+Имя,КаталогДляЗаписи+"\"+Имя,-1);

    ДискДляЗаписиNS=shell.NameSpace(ДискДляЗаписи);

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Eject",АвтоИзвлечениеСД,"REG_DWORD");

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Close",АвтоЗакрытиеМастера,"REG_DWORD");

    scr.AddObject("Verbs",ДискДляЗаписиNS.items().item().verbs());

    e=scr.Eval("new Enumerator(Verbs)");

    Пока e.atEnd(0)=0 Цикл

        Если Найти(Нрег(e.item(0).name),"записать файлы на компакт-диск")>0 Тогда

            e.item(0).doit();

            Пока wshshell.appactivate("Мастер записи компакт-дисков")=0 Цикл

            КонецЦикла;

            wshshell.sendkeys("{ENTER}")

        КонецЕсли;

        e.moveNext(0);

    КонецЦикла;

    Пока wshshell.appactivate("Мастер записи компакт-дисков")=-1 Цикл

        ВвестиСтроку("","Пауза",1,0,1);

    КонецЦикла;

КонецПроцедуры  

Конечно метод дубовенький, расчитан тока на русскую версию, но можно и допеределать.
Не стал писать код определения пишущего сидирома и возможности записи (хотя на отсутствие диска или невозможность записать ОС сама укажет)...
Автор: smaharbA

А через Nero можно записать так:

Код DOS Batch File

 

"C:\Program Files\Ahead\Nero\NeroCmd.exe" --no_user_interaction --write --real --iso Archive_1C --drivename M --force_erase_cdrw --dvd --dvd_high_compatibility --close_session --verify E:\Full_Archive_1C\*.* >H:\BackUp\Log\write.log

   

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

Технический аспект реализации. на почтовом сервере компании заводим ящик autoreport.xxx.ru , в глобальный модуль в предопределенную процедуру ПриНачалеРаботыСистемы вставляем проверку строки запуска 1С для того, что бы определить момент старта проверки поступления новых писем в ящик.

Код 1C v 8.х

 

Процедура ПриНачалеРаботыСистемы() 

Если Найти(ПараметрЗапуска,"changemail")>0 Тогда 

Форма = Обработки.SaletoMail.ПолучитьФорму(); 

Форма.ОтсылкаПоЗаказу(); 

ЗавершитьРаботуСистемы(Ложь); 

конецЕсли; 

КонецПроцедуры    

В планировщик задач вписываем запуск 1С Предприятия в “C:\Program Files\1cv8\bin\1cv8.exe” enterprise /DisableStartupMessages /smain\demo /cchangemail и ставим запуск каждые 5 минут. После запуска 1С проверяет переданный параметр если он подходит то происходит вызов внешней обработки в которой формируется отчет и происходит передача отчета обратно на ящик отправителя. Во внешнюю обработку писем процедуру ОтсылкаПоЗаказу() которая проверяет ящик на наличие писем, делает минимальную проверку , но то, что письмо пришло из нашего почтового сервера и отсылает продажи на адрес отправителя.

Код 1C v 8.х

 

Процедура ОтсылкаПоЗаказу() 

Профиль = Новый ИнтернетПочтовыйПрофиль; 

Профиль.АдресСервераSMTP = "mail.xxx.ru"; 

Профиль.АдресСервераPOP3 = "mail.xxx.ru"; 

Профиль.ПортSMTP = 25; 

Профиль.ПортPOP3 = 110; 

Профиль.Пользователь = "sale"; 

Профиль.Пароль = "Report"; 

Почта = Новый ИнтернетПочта; 

Почта.Подключиться(Профиль); 

Массив = Новый Массив; Сообщения = Почта.Выбрать(true ,Массив); 

// true для того, что бы очистить обработанные сообщения 

Для КолПисем= 1 По Сообщения.Количество() Цикл 

ТекПисьмо = Сообщения.Получить(КолПисем-1); 

Если (Найти(ТекПисьмо.Отправитель.Адрес,"xxx.ru")>0) and (НРег(ТекПисьмо.Тема)="magicsale") тогда Письмо = Новый ИнтернетПочтовоеСообщение; Письмо.ИмяОтправителя = "sale"; 

Сообщение = Новый ИнтернетПочтовоеСообщение; 

Письмо.Тексты.Добавить("Продажи дня" + ТекущаяДата()); 

Письмо.Получатели.Добавить(""+Сообщения.Получить(КолПисем-1).Отправитель.Адрес); 

// ….. Поскипано 

// ….. Формируем отчет о продажах и сохраняем его во внешний файл , или текст. 

// ….. вкладываем отчет как приатаченный файл или тело сообщения. 

Почта.Послать(Письмо); 

КонецЕсли; 

КонецЦикла; 

Почта.Отключиться(); 

КонецПроцедуры

   

---

Отправка отчетов из 1С по электронной почте (E-Mail)

Режим предназначен для выполнения конфигуратором административных функций без участия пользователя. Данный режим применяется в специальных случаях. Например, с его помощью можно организовать специальный ярлык на рабочем столе Windows для создания резервной копии информационной базы 1С:Предприятия. При этом пользователю не нужно будет выполнять никаких действий по выбору необходимой функции в конфигураторе и указанию параметров необходимых для сохранения информационной базы. Данный режим может использоваться для организации автоматического выполнения административных функций в определенный момент времени. Для этого используется любое программное обеспечение, имеющее возможность планирования и запуска задач в определенное время. Например, может быть организовано автоматическое создание резервной копии в ночное время суток

Пакетный режим предназначен для выполнения следующих действий:
-тестирование и исправление информационной базы;
-выгрузка данных;
-сохранение данных;
-автообмен распределенной информационной базы (режим доступен, если установлена компонента «Управление распределенными информационными базами»).

Запуск Конфигуратора в пакетном режиме
Для работы Конфигуратора в пакетном режиме следует в командной строке запуска 1С:Предприятия, кроме параметра CONFIG, указывающего на то, что система 1С:Предприятие запускается в режиме «Конфигуратор», указать параметр /@ФайлПакетногоРежима. ФайлПакетногоРежима - это имя файла, содержащего параметры пакетного запуска. Все необходимые функции, которые должны быть выполнены Конфигуратором в пакетном режиме, описываются в этом файле.
Имя файла может задаваться как абсолютным путем, так и относительным.
В случае задания относительным путем файл ищется программой сначала в рабочем каталоге пользователя, затем в каталоге информационной базы, а затем в том каталоге, из которого запускается 1С:Предприятие.Для того, чтобы при пакетном режиме не выдавался диалог запуска 1С:Предприятия и диалог авторизации, в строке запуска должны быть указаны все необходимые параметры:
-параметр CONFIG;
-каталог информационной базы (параметр /D);
-имя пользователя, если для данной информационной базы ведется список пользователей (параметр /N);
-пароль пользователя, если для пользователя задан пароль (параметр /Р).

Файл пакетного режима имеет по умолчанию расширение .prm, если используется другое расширение, то оно должно явно указываться в имени файла.
Ниже приведен пример строки запуска Конфигуратора в пакетном режиме:
c:\1cv7\bin\1cv7.exe CONFIG /Dc:\1cv7\db /NПопов /PSekret /@C:\lCV7\CMD\Backup

Структура файла пакетного режима.
Файл пакетного режима является текстовым файлом и может создаваться и модифицироваться любым текстовым редактором. Структура файла включает секции и параметры, определенные для каждой секции. Секция задается отдельной строкой с именем секции в прямоугольных скобках. Параметры задаются отдельными строками после строки соответствующей секции с указанием имени параметра и значением, отделенным знаком «=». Основная секция General, описывает общие параметры пакетного режима и необходимость выполнения отдельных функций пакетного режима. Остальные секции содержат параметры, описывающие особенности выполнения конкретных функций.

Секция General [General]

Данная секция предназначена для описания общих параметров пакетного режима и необходимости выполнения отдельных функций.

Output=Имя_файла

Указывает файл, в который будет дополнительно направляться вывод записей о выполняемых действиях в пакетном режиме. Имя файла может указываться как абсолютным путем, так и относительно каталога, в котором расположен файл параметров. Формат файла дополнительного вывода совпадает с форматом вывода в журнал регистрации. Если параметр не указан, то дополнительный вывод производиться не будет. В любом случае вывод производится в журнал регистрации


Quit=Значение

Указывает, нужно ли завершать выполнение Конфигуратора после выполнения действий пакетного режима.

Если задано Y или 1, после выполнения действий пакетного режима, программа будет завершена, а если 0 или N, то нет.

Если параметр не задан, то программа будет завершена.


CheckAndRepair=Значение

Указывает, нужно ли выполнять тестирование и исправление информационной базы.

Если задано Y или 1, тестирование и исправление будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то тестирование и исправление выполняться не будет.


UnloadData =3начение

Указывает, нужно ли выполнять выгрузку информационной базы.

Если задано Y или 1, выгрузка будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то выгрузка выполняться не будет.

SaveData=Значение

Указывает, нужно ли выполнять сохранение информационной базы.

Если задано Y или 1, сохранение будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то сохранение выполняться не будет.


AutoExchange=Значение

Указывает, нужно ли выполнять автообмен в распределенной информационной базе.

Если задано Y или 1, автообмен будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то автообмен выполняться не будет.

Подробное описание работы с распределенными информационными базами приведено в книге «Управление распределенными информационными базами».

Секция CheckAndRepair [CheckAndRepair]

Данная секция предназначена для описания выполнения тестирования и исправления информационной базы.

Repair=Значение

Параметр указывает, должно ли выполняться исправление информационной базы.

Если задано значение Y или 1, то будет выполняться тестирование и исправление обнаруженных ошибок в информационной базе.

Если задано значение N или 0, то будет производиться только тестирование.

Если параметр не задан, то будет производиться тестирование и исправление.


PhysicalIntegrity=Значение

Параметр указывает, следует ли производить проверку физической целостности таблиц информационной базы.

Если задано Y или 1, проверка будет производиться, если N или 0, то нет.

Если параметр не задан, проверка будет производиться.


Reindex=Значение

Параметр указывает, следует ли производить реиндексацию таблиц информационной базы.

Если задано Y или 1, реиндексация будет производиться, если N или 0, то нет.

Если параметр не задан, реиндексация будет производиться.

Если установлен режим исправления, то рекомендуется установить и режим реиндексации.


LogicalIntegrity=Значение

Параметр указывает, следует ли производить проверку логической целостности таблиц информационной базы.

Если задано Y или 1, проверка будет производиться, если N или 0, то нет.

Если параметр не задан, проверка будет производиться.


RecalcSecondaries=Значение

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

Если задано Y или 1, обновление будет производиться, если N или 0 - то нет.

Если параметр не задан, обновление будет производиться.


RecalcTotals=Значение

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

Если задано Y или 1, пересчет будет производиться, если N или 0 - то нет.

Если параметр не задан, пересчет будет производиться.


Pack=3начение

Параметр указывает, следует ли производить упаковку таблиц информационной базы, то есть освобождать место занятое удаленными записями.

Если задано Y или 1, упаковка будет производиться, если N или 0, то нет.

Если параметр не задан, упаковка не будет производиться.

Данный параметр имеет смысл, только если данные хранятся в формате DBF/CDX.


SkipUnresolved=Значение

Параметр указывает, следует ли пропускать неразрешенные ссылки, или их следует исправлять.

Если задано Y или 1, неразрешенные ссылки будет только диагностироваться, если N или 0, то ссылки будут разрешаться способом, задаваемым параметром CreateForUnresolved (см. ниже).

Если параметр не задан, ссылки будут исправляться.

Параметр имеет смысл только, если проводится тестирование и исправление информационной базы.


CreateForUnresolved=Значение

Параметр указывает способ разрешения неразрешенных ссылок.

Если задано Y или 1, для неразрешенной ссылки будет создан объект соответствующего типа, если N или 0, то ссылка будет очищена.

Если параметр не задан, будет создан объект.

Параметр имеет смысл только, если проводится тестирование и исправление информационной базы.


Reconstruct=Значение

Параметр указывает способ исправления информационной базы в случае, когда данные объекта частично потеряны. Если задано Y или 1, будет создан объект, заполненный имеющимися данными, если N или 0, то данные объекта будут удалены.

Если параметр не задан, будет создан объект.

Параметр имеет смысл только, если проводится тестирование и исправление информационной базы.


Секция UnloadData [UnloadData]

Данная секция предназначена для описания выполнения выгрузки данных информационной базы.


UnloadToFile=Имя_Файла

Параметр указывает имя файла переноса данных, в который будет производиться выгрузка. Может задаваться как абсолютно, так и относительно того каталога, в котором размещается файл параметров.

Параметр должен быть задан обязательно.

IncludeUserDef=Значение

Параметр указывает должен ли в файл переноса данных включаться список пользователей.

Если задано Y или 1, то список пользователей будет включен в файл переноса, если 0 или N, то нет.

Если параметр не задан, то список будет включен в файл переноса.


Password=Пароль

Параметр задает пароль, которым будет закрыт файл переноса данных.

Если параметр не задан, то файл переноса не будет закрыт паролем.


Секция SaveData [SaveData]

Данная секция предназначена для описания выполнения сохранения данных информационной базы.

SaveToFile=Имя_Файла

Параметр указывает имя файла, в который будет производиться сохранение данных. Может задаваться как абсолютно, так и относительно того каталога, в котором размещается файл параметров.

Параметр должен быть задан обязательно.

FileList=Список сохраняемых файлов

Задается как перечисление имен файлов, разделенных пробелами или запятыми. Длинные имена файлов, содержащие пробелы должны заключаться в кавычки "". В именах файлов могут использоваться символы «*» для обозначения групп файлов.

Если параметр не задан, то список сохраняемых файлов будет взят из файла 1CV7FILE.LST, так же как и в случае выполнения сохранения из пункта меню «Администрирование».


Работа в пакетном режиме
Выполнение указанных действий в пакетном режиме производится всегда в строго определенной последовательности, вне зависимости от порядка следования секций и параметров в файле пакетного режима:
1. тестирование и исправление информационной базы;
2. выгрузка данных;
3. сохранение данных;
4. автообмен распределенной информационной базы.
При работе Конфигуратора в пакетном режиме не выполняется выдача предупреждений и запросов, требующих подтверждения пользователя. При возникновении критических ошибок выполнение пакетного режима прекращается. Результаты выполнения пакетного режима можно просмотреть в журнале регистрации и в файле дополнительного вывода, если он был определен в файле параметров пакетного режима.

Пример пакетного файла:

[General]
Output="D:\Типовые конфигурации\1SBBDemo\log.txt"
Quit=1
SaveData=1
[SaveData]
SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"

Ярлык для запуска базы и выполнения файла пакетного режима:

\\Server\1cv77\BIN\1cv7s.exe config /D "D:\Типовые конфигурации\1SBBDemo\" /@"D:\Типовые конфигурации\1SBBDemo\paket.txt"

Комментарий к файлу:
Во время работы будет сформирован лог-файл (Output="D:\Типовые конфигурации\1SBBDemo\log.txt"). Он будет здесь D:\Типовые конфигурации\1SBBDemo\log.tx.
Будет выполнено сохранение данных (SaveData=1) в файл arch.zip (SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"). После выполения работы - конфигуратор будет закрыт (Quit=1). Информационная база хранится в D:\Типовые конфигурации\1SBBDemo\. Файл пакетного режима харанится в папке базы и называется paket.txt.

Пакетный режим является мощным инструментом. Чаще всего используется для создания архивных копий. Проблема только в том, что он архив делается всегда под одним именем. И чтобы не затирать старые архивы, требуется некоторая изворотливость с конфигурационным файлом пакетного режима. Но здесь огромное поле для фантазии, по этому предоставляю Вам возможность фантазировать.

Данные пример для 7.7, для 8-ых версий указать путь к 1Сv8.exe

Код VBS

 

Dim WshShell, ObjFSO 

Set WshShell = CreateObject("WScript.Shell")  

set objFSO = CreateObject("Scripting.FileSystemObject")  

 

appl="C:\1Cv7\BINOP\1CV7s.exe"  

users="DomenKompanii\emigachev"  

Set objWMIService = GetObject _  

      ("winmgmts:\\.\root\cimv2:Win32_Process")  

      errReturn = objWMIService.Create _  

("cmd.exe /K ""title RUNAS_AUTO & runas.exe /user:" & users & " """ & appl  & """""", Null, Null, intProcessID)  

wscript.Sleep(1000)  

wshShell.AppActivate "RUNAS_AUTO"

function WriteWord() 

WshShell.SendKeys "P@ssw0rd"

end function

wscript.Sleep(1000)  

wshShell.SendKeys "{ENTER}"    

или так:

Код VBS

 

Set WshShell = CreateObject("Wscript.Shell")

Set WshEnv = WshShell.Environment("PRocess")

WshShell.Run "runas.exe /user:DomenKompanii\emigachev C:\WD\1Cv7\BINOP\1CV7s.exe" 

Wscript.Sleep 800

WshShell.AppActivate WshEnv("SystemRoot") & "\system32\runas.exe"

Wscript.Sleep 200

WshShell.SendKeys "P@ssw0rd"

Wscript.Sleep 500    

В отличие от 1Cv7 (где список зарегистрированных информационных баз хранится в системном реестре (Щелкните для просмотра примеров)):

в 1C v 8 :
список зарегистрированных информационных баз хранится в текстовом файле v8ib.lst (кодировка UTF-8)
в каталоге \Application Data\1C\1Cv8 текущего пользователя на локальном компьютере (где запускается программа 1С:Предприятие v 8).
т.е. C:\Documents and Settings\%CurrentUser%\Application Data\1C\1Cv8\v8ib.lst

в 1C v 8.1 :
список зарегистрированных информационных баз хранится в текстовом файле ibases.v8i (кодировка UTF-8)
в каталоге \Application Data\1C\1Cv81 текущего пользователя на локальном компьютере (где запускается программа 1С:Предприятие v 8).
т.е. C:\Documents and Settings\%CurrentUser%\Application Data\1C\1Cv81\ibases.v8i

Если открыть этот файл в NotePad.exe, то видно, что он имеет структуру, схожую со стандартным INI-файлом :
[База Разработки]
Connect=File="F:\1C\1Cv8\DBRaz";
ID=1cd97bfa-4e57-4a23-9ee1-073a0a28e01c
OrderInList=16384
Folder=/
OrderInTree=16384
[Enterprise]
Connect=File="F:\1C\1Cv8\1cv8.db\Enterprise";
ID=647840fa-65e0-44e8-ad40-12476f178b92
OrderInList=20480
Folder=/
OrderInTree=32768

в 1C v 8.2 :
список зарегистрированных информационных баз хранится в текстовом файле ibases.v8i (кодировка UTF-8)
в каталоге \Application Data\1C\1Cv8 текущего пользователя на локальном компьютере (где запускается программа 1С:Предприятие v 8).
т.е. C:\Documents and Settings\%CurrentUser%\Application Data\1C\1CEStart\ibases.v8i

Если открыть этот файл в NotePad.exe, то там:
[1C:Документооборот 8 (демо)]
Connect=File="C:\Documents and Settings\E.S.Migachev\Мои документы\1C\DemoDoc8";
ID=b3b46c21-bd2a-481e-b100-e6cbdcba3e3d
OrderInList=16384
Folder=/
OrderInTree=256
External=0
ClientConnectionSpeed=Normal
App=Auto
WA=1
Version=8.2


Структура хранения информации по каждой информационной базе :

<Наименование информационной базы>
<ID>
<Connect>
<Folder>
<OrderInList>
<OrderInTree>

Где:
Connect - строка соединения с информационной базой,
ID - внутренний идентификатор информационной базы,
OrderInList - порядок в списке при представлении списком
Folder - наименование ветви в дереве информационных баз,
OrderInTree - порядок в ветви при представлении деревом.

В 1С 8.1 еще добавили External - но он всегда равен 0, для чего он пока не известно.

В 1С 8.2 добавлено:
ClientConnectionSpeed=Normal - скорость соединения
App=Auto - тип соединения - толстый, тонкий клиент.
WA=1
Version=8.2

Вот код получения получения списка баз из файла 1С 8.0 8.1 8.2

Код 1C v 8.х

 

Функция ПолучимСписокБаз1СИзФайла(Версия)

	// Функция получения списка баз 1С 8.0 8.1 8.2 E_Migachev

	// Возвращает Таблицу Значений содержащую Название, СтрокаСоединения с базами 1С

	

	// Для начала получим программным путем полный путь к папке Application Data 

	// Способ из https://helpf.pro/faq/view/271.html

	App = Новый COMОбъект("Shell.Application");

	AppData=App.Namespace(26).Self.Path;

	ТЗБаз=Новый ТаблицаЗначений;

	ТЗБаз.Колонки.Добавить("Название",,"Название",25);

	ТЗБаз.Колонки.Добавить("СтрокаСоединения",,"СтрокаСоединения",30);

	Если Версия = "v80" Тогда		

		СписокБаз=AppData+"\1C\1Cv8\v8ib.lst";

	ИначеЕсли Версия = "v81" Тогда

		СписокБаз=AppData+"\1C\1Cv81\ibases.v8i";

	ИначеЕсли Версия = "v82" Тогда

		СписокБаз=AppData+"\1C\1CEStart\ibases.v8i";

	КонецЕсли;

	Сообщить("Файл со списком баз: "+Строка(СписокБаз));

	//Открываем файл в кодировке UTF8

	ФайлБаз= Новый ЧтениеТекста;

	ФайлБаз.Открыть(СписокБаз, КодировкаТекста.UTF8);

	Стр = ФайлБаз.ПрочитатьСтроку();

	Пока НЕ Стр = Неопределено Цикл

		Если СтрДлина(СокрЛП(Стр)) Тогда

			ТекущаяСтрока = СокрЛП(Стр);

			

			Если Лев(ТекущаяСтрока, 1) = "[" Тогда

				НоваяСтрока = ТЗБаз.Добавить();

				НоваяСтрока.Название = ТекущаяСтрока;

			КонецЕсли;

			

			Если Лев(ТекущаяСтрока, 8) = "Connect=" Тогда

				Попытка					

					НоваяСтрока.СтрокаСоединения = Прав(ТекущаяСтрока, СтрДлина(ТекущаяСтрока)-8);

				Исключение

					// Это группа

					НоваяСтрока.СтрокаСоединения = "";

				КонецПопытки;				

			КонецЕсли;     						

		КонецЕсли;

		Стр = ФайлБаз.ПрочитатьСтроку();

	КонецЦикла;

	//Удалим из ТЗ строки с пустой Строкой Соединения, т.к это группы, а они нам не нужны

	ПустыеСтроки = ТЗБаз.НайтиСтроки(Новый Структура("СтрокаСоединения",));

	Для каждого СтрокаТаблицы Из ПустыеСтроки Цикл

		ТЗБаз.Удалить(СтрокаТаблицы)

	КонецЦикла;

	Возврат ТЗБаз;

КонецФункции



Процедура ПолучимИзФайла(Кнопка)

	ТЗБаз = ПолучимСписокБаз1СИзФайла(Кнопка.Имя);

	//Выведем список баз из ТЗ в табличное поле

	Список=ТЗБаз;

	ЭлементыФормы.Список.СоздатьКолонки();

КонецПроцедуры	

   

Пример обработки для 1С 8.1 "Получения списка баз 1С 8.0 8.1 8.2 E_Migachev" Скачивать файлы может только зарегистрированный пользователь!

Обработка для 1С 8.1 "Чтение списка информационных баз 1С 8.1"(формирует дерево баз) Fisca Скачивать файлы может только зарегистрированный пользователь!

Код 1C v 8.х

 

Отчет = РабочиеКниги.Open(Каталог+Названиефайла);

ОтЛевогоКрая=550;

ОтВерха=80;

Длина=100;

Высота=50;

кн = Отчет.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота);

st = "Private Sub CommandButton1_Click()" + Chr(13) + " ThisWorkbook.Sheets(1).range(""I10:I10000"").AutoFilter Field:=1, Criteria1:="">0"", Operator:=xlAnd" + Chr(13) + "End Sub";

Excel.VBE.ActiveVBProject.VBComponents.Add (1);

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st);   

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

Код 1C v 8.х

 

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st1);

Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (2,st2);   

в этом макросе делается фильтр по колонке > 0

Установка:
1. Убедитесь, что на сервере установлена MS Windows NT Server и он является PDC; MS IE (не ниже 4.01) и протокол TCP/IP.
2. Запустить установку MS SQL Server 7.0-2000, выбрав следующие параметры:
* Install SQL Server 7.0-2000 Components
* Database Server – Standard Edition
* SQL Server authentication
* Оставить по умолчанию Login: System Account (sa)
Остальные пункты оставить по умолчанию.
3. Запустить установку MS SQL Service Pack 1, используя параметры по умолчанию, кроме указанных выше.
Перезагрузить сервер.

Настройка на сервере Enterprise Manager:
1. Убедиться, что SQL Server запускается автоматически при старте системы (Control PanelServices).
2. Запустить MS SQL ServerEnterprise Manager и сделать следующее:
* Databasesправой кнопкой мышиNew Database
* Задать Name: (например Cv77) не должно начинаться с цифры
* Установить GeneralInitial Size – 64 MB
* Установить Transaction LogInitial Size – 32 MB
* SERVER_NAMEправой кнопкой мышиEdit SQL Server Registration:Use SQL Server Log: sa, Pas: задать.
* SERVER_NAMEправой кнопкой мышиProperties
* GeneralAutostart SQL Server
* SecurityAuthenticationSQL Server and Windows NT
* SecurityStartup and run SQL Server in the following accountSystem Account (sa)
3. В Windows 2000 Server в свойствах сетевого подключения выбрать "служба доступа к файлам ...", в ее свойствах установить "макс. пропускная способность для сетевых приложений", а в свойствах "мой компьютер", закладка "дополнительно", параметры быстродействия "для служб ...", нажать "изменить" проверить объем файла подкачки: исходный размер = размер_операт._памяти х 1,5; максимальный размер = размер_операт._памяти х 2, также проверить объем свободного место на диске, где расположен файл подкачки.
Выключить сервер.

Установка на сервер 1С:Предприятие 7.7 для SQL:
1. Выключить сервер и установить ключ защиты на LPT порт.
2. Установить 1С:Предприятие для SQL.
3. Установить драйвер защиты, скопировать его в папку Startup (All Users) и запустить (он всегда должен быть запущен!).
4. Создать новую папку (например DbSQL).
5. Скопировать в DbSQL из существующего каталога базы данных или каталога типовой конфигурации (если создается новая база): каталоги пользователей (как правило совпадают с именами пользователей), каталог USERDEF.
6. Запустить Конфигуратор (в формате DBF), указав путь к существующей (DBF) базе или типовой конфигурации (если создается новая база).
7. В Конфигураторе: АдминистрированиеВыгрузить данные, в папку DbSQL, задав имя zip-файла (например Db.zip), закрыть Конфигуратор.
8. Запустить Конфигуратор в формате SQL, указав путь к новому каталогу DbSQL.
9. В Конфигураторе: АдминистрированиеПараметры базы данных, указать: Сервер: (имя сервера в сети), База Данных: (созданная в Enterprise ManagerDatabases) Cv77, Пользователь: sa, Пароль: ранее заданный.
10. В Конфигураторе: АдминистрированиеЗагрузить данные из DbSQLDb.zip, закрыть Конфигуратор.
Пути к старой базе DBF лучше не удалять!

Установка на рабочую станцию клиента MS SQL Server 7.0-2000:
1. ТОЛЬКО в Windows-95: Запустить установку MS SQL Server 7.0-2000, выбрав следующие параметры:
* Install SQL Server 7.0-2000 Prerequisites
* Windows-95
* DCOM95
2. Далее на всех клиентах установка производится точно так же, как на сервер, за исключением следующего:
* Необходимо выбрать только компоненту Client Connectivity, остальные галочки убрать.
3. В MS SQL ServerClient Network Utility выбрать протокол TCP/IP.
4. Установить MDAC_2.7 или более позднюю версию (устанавливается при наличие MS IE не ниже 4.01).

Установка на рабочую станцию 1С:Предприятие 7.7 для SQL:
1. Установка производится точно так же, как на сервер, потом прописать путь к каталогу SQL базы DbSQL.

Для 1С 7.7:
1. Воспользуйтесь файлом Отключение splash-заставки появляющейся при запуске 1С-Предприятия 7.7

2. При OLE - Нужно поставить NO_SPLASH_SHOW Внимание! - работает это только при запуске в режиме OLE Automation сервера

Код 1C v 7.x

 V7 = СоздатьОбъект("V77.Application");

Открыта=V7.Initialize(V7.RMTrade,"/dD:\ASP_COPY\1sbdb /nUser /p11111 /m", "NO_SPLASH_SHOW");

Если Открыта=0 Тогда

    Предупреждение("Ошибка открытия инф. базы");

КонецЕсли;

ИмпортБИ=V7.CreateObject("БухгалтерскиеИтоги");

//...

3. Изменить/убрать заставку при запуске
1 способ: Resource Browser'ом (плагин к FAR) заходим в 1crcrus.dll.
В ветке 1049/ZLIB_DATA находим что-то, так вот если ZLIB_DATA удалить, то никаких заставок при запуске 1С не будет. Правильно - потому что их нету
2 способ:
"Любым HEX-редактором найти в запускаемом *.EXE файле последовательность и заменить на другую:
Тип Имя файла: Найти: Заменить на:
Для Сетевой версии: в файле 1cv7.exe найти: 8B 87 54 85 00 00 и заменить на: 31 C0 90 90 90 90
Для Локальной версии: в файле 1cv7l.exe найти: 8B 8B 54 85 00 00 и заменить на 31 C9 90 90 90 90
Приведенные последовательности встречаются в файлах один раз, но для различных релизов по разным смещениям."
3 способ: Использовать патчер Soarona(по сути, он выполняет способ 2, ищите его на просторах Интернета)

Для 1С 8.х:
Для запуска создвайте скрипт VBS c кодом(для разных версий меняйте 81 на 80 или 82):
Для Файлового варианта

Код VBS

 Set DB=CreateObject("v81.Application")

DB.Connect("File=D:\1C_base\ZUPRAZR;Usr=EMigachev;Pwd=12345")

DB.Visible=True   

Для Клиент-серверного варианта

Код VBS

 Set DB=CreateObject("v81.Application")

DB.Connect("Srvr=co1-aps-04;Ref=zup;Usr=EMigachev;Pwd=12345;")

DB.Visible=True   

Настройки в системном реестре:

Путь к 1С:
HKEY_LOCAL_MACHINE&# 092;SOFTWARE&# 092;Microsoft&# 092;Windows&# 092;CurrentVersion&# 092;App Paths&# 092;1Cv7s.exe
Заголовки ИБ:
HKEY_LOCAL_MACHINE&# 092;Software&# 092;1C&# 092;1Cv7&# 092;7.7&# 092;Titles
Пути к каталогам загрузки/выгрузки:
HKEY_CURRENT_USER&# 092;Software&# 092;1C&# 092;1Cv7&# 092;7.7&# 092;Заголовок ИБ&# 092;Config&# 092;Upload/Download directories
Чтобы нормально работало по почте:
HKEY_LOCAL_MACHINE&# 092;Software&# 092;Microsoft&# 092;Windows Messaging Subsystem&# 092;MAPI = '1'
Если по умолчанию OutlookExpress:
HKEY_LOCAL_MACHINE&# 092;Software&# 092;Clients&# 092;Mail&# 092;Outlook Express&# 092;DLLPath = sysRoot+'&# 092;OUTLOOK EXPRESS&# 092;MSOE.DLL'
Если по умолчанию TheBat!:
HKEY_LOCAL_MACHINE&# 092;Software&# 092;Clients&# 092;Mail&# 092;The Bat!&# 092;DLLPath = sysRoot+'&# 092;THE BAT!&# 092;TBMapi.DLL'


Информация в файле 1SDBSET.DBF
DBSIGN - Код базы (как он отображается в настройках ЦБ/ПБ)
DBDESCR - Наименование базы
DBSTATUS - "M" - Текущая, "P" - Центральная, "C" - Перифирийная, "N" - никакая или неинициализированная (т.е. не было первой выгрузки, статус при создании новой)
DBFNCP - имя файла загрузки из ЦБ в ПБ
DBFNPC - имя файла загрузки из ПБ в ЦБ
DBFAUTO - признак автообмена
EMAILFLGS - признак использования почты
EMAIL - почтовый адрес

Наиболее эффективно это можно сделать с помощью объектов OLE Automation , работа с которыми осуществляется при помощи:
sp_OACreate, sp_OAGetProperty, sp_OASetProperty, sp_OAMethod, sp_OAGetErrorInfo, sp_OADestroy (подробное описание есть в http://technet.microsoft.com/ru-ru/library/ms203721(sql.90).aspx).
Рабочий пример процедуры (была написана для сохранения zip-архивов, хранящихся в базе):

Код

CREATE PROCEDURE dbo.SaveRequestDataAsFile (
@FileName varchar(1024) --имя файла
,@FilePath varchar(1024) --путь файла
,@ReqID --некое условие на таблицу
)
AS
BEGIN

DECLARE
@Stream integer,
@Buffer varbinary(4096),
@Size integer,
@Pos integer,
@BufSize integer,
@FileNameLocal varchar(1024),
@HR integer

if RIGHT(@FilePath, 1)<>'&# 092;' begin set @FilePath=@FilePath+'&# 092;' end

set @FileNameLocal = @FilePath + @FileName

SET @BufSize = 4096

EXEC @HR = sp_OACreate 'ADODB.Stream',@Stream OUT
if @HR<>0
begin
--обработка ошибки создания объекта
EXEC [dbo].[sp_displayoaerrorinfo] @Stream ,@HR
end

EXEC @HR = sp_OASetProperty @Stream,'Type',1 -- binary
EXEC @HR = sp_OASetProperty @Stream,'Mode',3 -- write|read
EXEC @HR = sp_OAMethod @Stream,'Open'

S_elect
@Size = DATALENGTH(SrvRequests.RequestData)
FROM SrvRequests WHERE SrvRequests.RequestID = @ReqID

Set @Pos=0

WHILE @Pos < @Size BEGIN
SET @BufSize = CASE WHEN @Size - @Pos < 4096 THEN @Size - @Pos ELSE 4096 END

S_elect @Buffer = substring(SrvRequests.RequestData ,@Pos+1, @BufSize)
from SrvRequests where SrvRequests.RequestID = @ReqID

EXEC @HR = sp_OAMethod @Stream, 'Write', NULL, @Buffer

SET @Pos = @Pos + @BufSize
END

EXEC @HR = sp_OAMethod @Stream,'SaveToFile',null, @FileNameLocal,2
EXEC @HR = sp_OAMethod @Stream,'Close'
EXEC @HR = sp_OADestroy @Stream
END

Рекомендуется создать еще пару процедур для внятного описания ошибок в случае их возникновения

Код

CREATE PROCEDURE sp_hexadecimal
@binvalue varbinary(255),
@hexvalue varchar(255) OUTPUT
AS
DECLARE @charvalue varchar(255)
DECLARE @i int
DECLARE @length int
DECLARE @hexstring char(16)
S_elect @charvalue = '0x'
S_elect @i = 1
S_elect @length = DATALENGTH(@binvalue)
S_elect @hexstring = '0123456789abcdef'
WHILE (@i <= @length)
BEGIN
DECLARE @tempint int
DECLARE @firstint int
DECLARE @secondint int
S_elect @tempint = CONVERT(int, SUBSTRING(@binvalue,@i,1))
S_elect @firstint = FLOOR(@tempint/16)
S_elect @secondint = @tempint - (@firstint* 16)
S_elect @charvalue = @charvalue +
SUBSTRING(@hexstring, @firstint+1, 1) +
SUBSTRING(@hexstring, @secondint+1, 1)
S_elect @i = @i + 1
END
----------------------------------------------------------------------
CREATE PROCEDURE sp_displayoaerrorinfo
@object int,
@hresult int
AS
DECLARE @output varchar(255)
DECLARE @hrhex char(10)
DECLARE @hr int
DECLARE @source varchar(255)
DECLARE @description varchar(255)
PRINT 'OLE Automation Error Information'
EXEC sp_hexadecimal @hresult, @hrhex OUT
S_elect @output = ' HRESULT: ' + @hrhex
PRINT @output
EXEC @hr = sp_OAGetErrorInfo @object, @source OUT, @description OUT
IF @hr = 0
BEGIN
S_elect @output = ' Source: ' + @source
PRINT @output
S_elect @output = ' Description: ' + @description
PRINT @output
END
ELSE
BEGIN
PRINT ' sp_OAGetErrorInfo failed.'
RETURN
END