Vofka @ Вчера, 22:23
необходимо зарегистрироваться для просмотра ссылки
,
ПолучитьОбъект() - насколько я понимаю,просто открывает объект для записи.
Но в отладчике я же не вижу столбцов ТЧ (скриншот 2).Поэтому и открывать для записи нечего.
Ничего не понимаю.
andrew76 @ Сегодня, 19:12
необходимо зарегистрироваться для просмотра ссылки
,
ИскомыйДокументОбъект = ИскомыйДокумент.ПолучитьОбъект();
по причине:
Произошла исключительная ситуация (1C:Enterprise 8.3.13.1690): Ошибка инициализации модуля: Документ.Командировочные.МодульОбъекта
Предыстория событий :
Одна бухгалтерша,«замриялась», и находясь в этом режиме, удалила документ Командировочные, в ТЧ которого было 400 записей.
После ,выйдя из нирваны, начались вопли и вопросы есть ли в 1с подобие
Корзины для удаленных объектов, как в MS Windows.
Моя задача была в следующем : найти этот документ в архивной базе,и оттуда
Перенести содержимое этого документа в рабочую базу.
Коннектор=Новый COMОбъект("V83.ComConnector");
ИмяСервера="server";
ИмяБазы="buhg";
Логин="Администратор";
Пасворд="0101";
Попытка
v8=Коннектор.Connect("Srvr="""+СокрЛП(ИмяСервера)+""";Ref="""+СокрЛП(ИмяБазы)+""";Usr="""+СокрЛП(Логин)+""";Pwd = """ + СокрЛП(Пасворд) + """;");
сообщить("Соединение установлено !");
Исключение
Предупреждение("База данных не открыта!!!");
Возврат;
КонецПопытки;
ссылка_источник=Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Ссылка
|ИЗ
| Документ.Командировочные КАК Командировочные
|ГДЕ
| Дата МЕЖДУ &НачДата И &КонДата И
| Номер = &ВыбНомер";
Запрос.УстановитьПараметр("НачДата", '20201001');
Запрос.УстановитьПараметр("КонДата", '20201031');
Запрос.УстановитьПараметр("ВыбНомер", "октяб");
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДокументов = РезультатЗапроса.Выбрать();
Если ВыборкаДокументов.Следующий() Тогда
ссылка_источник=ВыборкаДокументов.Ссылка;
Сообщить(ВыборкаДокументов.Ссылка);
Иначе
Сообщить("Документ с таким номером не существует!");
КонецЕсли;
ВыборкаДокументов = v8.Документы.Командировочные.Выбрать(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
Пока ВыборкаДокументов.Следующий() Цикл
Если СокрЛП(ВыборкаДокументов.Номер)="окт1" тогда
ИскомыйДокумент=ВыборкаДокументов;
КонецЕсли;
КонецЦикла;
ИскомыйДокументОбъект = ИскомыйДокумент.ПолучитьОбъект(); //вот здесь и начинает гнать
Строка = ИскомыйДокументОбъект.ТабличнаяЧасть1.Добавить()
