Процедура КнопкаВыполнитьНажатие(Кнопка)
V8 = Новый COMОбъект("V8.Application");
Попытка
Открытие = V8.Connect("File=""" + КаталогБазы + """;Usr=""" + Пользователь + """;");
Исключение
Предупреждение("База данных не открыта");
Возврат;
КонецПопытки;
Документ = V8.Документы.РасходнаяНакладная.СоздатьДокумент();
ФормаДокумента = Документ.ПолучитьФорму();
ФормаДокумента.ОткрытьМодально();
КонецПроцедуры
V8 = Новый COMОбъект("V8.Application");
Попытка
Открытие = V8.Connect("File=""" + КаталогБазы + """;Usr=""" + Пользователь + """;");
Исключение
Предупреждение("База данных не открыта");
Возврат;
КонецПопытки;
Документ = V8.Документы.РасходнаяНакладная.СоздатьДокумент();
ФормаДокумента = Документ.ПолучитьФорму();
ФормаДокумента.ОткрытьМодально();
КонецПроцедуры