" //Создается объект с OLE идентификатором: <br> //V1СEnterprise.Application — версия независимый ключ; <br> //V77.Application — версия зависимый ключ; <br> //V77S.Application — версия зависимый ключ, SQL версия; <br> //V77L.Application — версия зависимый ключ, локальная версия; <br> //V77M.Application — версия зависимый ключ, сетевая версия. <br> //Выполняется инициализация системы 1С:Предприятие методом Initialize. <br> //Вызываются атрибуты и методы системы 1С:Предприятие как OLE Automation сервера <br> V7=СоздатьОбъект("V77.Application");<br><br> Польз="Unl";Пароль="un"; // имя пользователя, пароль<br>// База - путь(каталог) Вашей базы -текстовая переменная- "D:\ЖДЭ-М\"<br><br> strApp = "/D"""""+База+""""" /N"""""+Польз+""""" /P"""""+Пароль+"""";<br> Попытка<br> Результат = v7.initialize(v7.RMTrade,strApp,"NO_SPLASH_SHOW");<br> Исключение<br> Сообщить("Ошибка подключения к базе данных - "+ОписаниеОшибки(),"!");<br> Возврат;<br> КонецПопытки;<br> Если Результат=0 Тогда<br> Предупреждение("Не прошла инициализация Базы!");<br> Возврат;<br> КонецЕсли;<br><br> Спр = V7.CreateObject("Справочник.Контрагенты");<br> СпрТ = V7.CreateObject("Справочник.Номенклатура");<br> СпрТ.НайтиПоКоду("100000037");<br><br> ОкУсл = V7.CreateObject("Документ.ОказаниеУслуг");<br> СчетФ = V7.CreateObject("Документ.СчетФактура");<br> ВыбСчет = V7.CreateObject("Счет.Основной");<br> ВыбСчет.НайтиПоКоду("90.3");<br> ВыбСч=ВыбСчет.ТекущийСчет();<br> СчФак = СоздатьОбъект("Документ.ОСчетФактура");<br> <br> Если Удаление = 1 Тогда<br> НачатьТранзакцию(); <br> ОкУсл.ВыбратьДокументы(Дата1,Дата2);<br> Пока ОкУсл.ПолучитьДокумент()=1 Цикл<br> Если ОкУсл.Комментарий = "Пв" Тогда<br> ОкУсл.Удалить();<br> КонецЕсли;<br> КонецЦикла;<br> ЗафиксироватьТранзакцию();<br> КонецЕсли;<br><br> СчФак.ВыбратьДокументы(Дата1, Дата2);<br> НачатьТранзакцию(); <br> Пока СчФак.ПолучитьДокумент() > 0 Цикл<br> Если СчФак.ПометкаУдаления() = 1 Тогда<br> Продолжить;<br> КонецЕсли;<br>......<br> Если ПустоеЗначение(V7)=0 Тогда <br> Попытка<br> V7.EvalExpr("ЗавершитьРаботуСистемы()"); <br> Исключение<br> КонецПопытки;<br> КонецЕсли;<br> Если (ТипЗначенияСтр(V7)="OLE") Тогда<br> Попытка<br> V7.ExecuteBatch("ЗавершитьРаботуСистемы(0);");<br> Исключение<br> КонецПопытки;<br> КонецЕсли; <br><br>"