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

1. SkiloBbIu 18.09.19 10:05 Сейчас в теме
Приветствую всех.Помогите пожалуйста решить проблему в 1с 7.7.Есть отчет который ищет документы где упоминался номер рулона.В таблицу выводит Документ и продукцию(номер) который мы искали.Можно ли как-то открыть через таблицу этот Документ.Подскажите пожалуйста.Спасибо за помощь
Вот код
Процедура ПриОткрытии()
ВыбНачПериода=НачГода(ТекущаяДата());
ВыбКонПериода=КонГода(ТекущаяДата());

КонецПроцедуры
//*******************************************
//Конструкции <<...>> необходимо заменить на реальные логические условия и значения переменных
Процедура Сформировать()


Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Док=СоздатьОбъект("Документ");
Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);
Пока Док.ПолучитьДокумент()=1 Цикл

Если ((Док.Вид()="ВыпускРулоннойПродукции") или (Док.Вид()= "ДвижениеМПЗ") или (Док.Вид()="ТребованиеНакладная") или (Док.Вид()="РеализацияПродукции")) Тогда // или Док.Вид()="ТребованиеНакладная" или Док.Вид()="РеализацияПродукции" или Док.Вид()= "ДвижениеМПЗ") Тогда

ТекДок=Док.ТекущийДокумент();
ТекДок.ВыбратьСтроки();
Пока ТекДок.ПолучитьСтроку()=1 Цикл
Если (ТекДок.Вид()="ВыпускРулоннойПродукции") или (Док.Вид()= "ДвижениеМПЗ") или (Док.Вид()="ТребованиеНакладная") Тогда
Если ТекДок.НомерРулона=НомерИщем Тогда

Если (Док.Вид()= "ДвижениеМПЗ") Тогда
Наим= ТекДок.МПЗ;
Иначе
Наим= ТекДок.Продукция;
КонецЕсли;
Нашли=(глПредставлениеДокумента(ТекДок));
Если (Док.Вид()="ТребованиеНакладная") Тогда
Кол=ТекДок.Отпущено;
Иначе
Кол= ТекДок.Количество;
КонецЕсли;
Площ= ТекДок.Площадь;
Таб.ВывестиСекцию("Строка_1");
КонецЕсли;
ИначеЕсли (ТекДок.Вид()="РеализацияПродукции") Тогда
Если ТекДок.Номер=НомерИщем Тогда

Нашли=(глПредставлениеДокумента(ТекДок));
Наим= ТекДок.Товар;
Кол= ТекДок.Количество;
Площ= ТекДок.Количество2;
Таб.ВывестиСекцию("Строка_1");
КонецЕсли;
КонецЕсли;
КонецЦикла;

КонецЕсли;
КонецЦикла;

Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры
Прикрепленные файлы:
Найденные решения
6. SkiloBbIu 18.09.19 10:41 Сейчас в теме
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. YannikAlx 43 18.09.19 10:18 Сейчас в теме
4. SkiloBbIu 18.09.19 10:19 Сейчас в теме
(2)Выбрал плотформу 1с7.7.или её не видно?Прошу прощения
5. YannikAlx 43 18.09.19 10:31 Сейчас в теме
(4) Это мой ляп... Не заметил сразу.... Уж простите!
3. SkiloBbIu 18.09.19 10:19 Сейчас в теме
Получилось в Таблице-свойство ячейки "Расшифровка"ОткрытьФорму(ТекДок.ТекущийДокумент()),но при сформирования отчёта он сразу открывает все документы который он нашёл,а можно сделать при нажатии в таблице?
6. SkiloBbIu 18.09.19 10:41 Сейчас в теме
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот