Помогите пожалуйста с открытием документа через таблицу.
Приветствую всех.Помогите пожалуйста решить проблему в 1с 7.7.Есть отчет который ищет документы где упоминался номер рулона.В таблицу выводит Документ и продукцию(номер) который мы искали.Можно ли как-то открыть через таблицу этот Документ.Подскажите пожалуйста.Спасибо за помощь
Вот код
Процедура ПриОткрытии()
ВыбНачПериода=НачГода(ТекущаяДата());
ВыбКонПериода=КонГода(ТекущаяДата());
КонецПроцедуры
//*******************************************
//Конструкции <<...>> необходимо заменить на реальные логические условия и значения переменных
Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Док=СоздатьОбъект("Документ");
Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);
Пока Док.ПолучитьДокумент()=1 Цикл
Если ((Док.Вид()="ВыпускРулоннойПродукции") или (Док.Вид()= "ДвижениеМПЗ") или (Док.Вид()="ТребованиеНакладная") или (Док.Вид()="РеализацияПродукции")) Тогда // или Док.Вид()="ТребованиеНакладная" или Док.Вид()="РеализацияПродукции" или Док.Вид()= "ДвижениеМПЗ") Тогда
ТекДок=Док.ТекущийДокумент();
ТекДок.ВыбратьСтроки();
Пока ТекДок.ПолучитьСтроку()=1 Цикл
Если (ТекДок.Вид()="ВыпускРулоннойПродукции") или (Док.Вид()= "ДвижениеМПЗ") или (Док.Вид()="ТребованиеНакладная") Тогда
Если ТекДок.НомерРулона=НомерИщем Тогда
Если (Док.Вид()= "ДвижениеМПЗ") Тогда
Наим= ТекДок.МПЗ;
Иначе
Наим= ТекДок.Продукция;
КонецЕсли;
Нашли=(глПредставлениеДокумента(ТекДок));
Если (Док.Вид()="ТребованиеНакладная") Тогда
Кол=ТекДок.Отпущено;
Иначе
Кол= ТекДок.Количество;
КонецЕсли;
Площ= ТекДок.Площадь;
Таб.ВывестиСекцию("Строка_1");
КонецЕсли;
ИначеЕсли (ТекДок.Вид()="РеализацияПродукции") Тогда
Если ТекДок.Номер=НомерИщем Тогда
Нашли=(глПредставлениеДокумента(ТекДок));
Наим= ТекДок.Товар;
Кол= ТекДок.Количество;
Площ= ТекДок.Количество2;
Таб.ВывестиСекцию("Строка_1");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры
Вот код
Процедура ПриОткрытии()
ВыбНачПериода=НачГода(ТекущаяДата());
ВыбКонПериода=КонГода(ТекущаяДата());
КонецПроцедуры
//*******************************************
//Конструкции <<...>> необходимо заменить на реальные логические условия и значения переменных
Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Док=СоздатьОбъект("Документ");
Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);
Пока Док.ПолучитьДокумент()=1 Цикл
Если ((Док.Вид()="ВыпускРулоннойПродукции") или (Док.Вид()= "ДвижениеМПЗ") или (Док.Вид()="ТребованиеНакладная") или (Док.Вид()="РеализацияПродукции")) Тогда // или Док.Вид()="ТребованиеНакладная" или Док.Вид()="РеализацияПродукции" или Док.Вид()= "ДвижениеМПЗ") Тогда
ТекДок=Док.ТекущийДокумент();
ТекДок.ВыбратьСтроки();
Пока ТекДок.ПолучитьСтроку()=1 Цикл
Если (ТекДок.Вид()="ВыпускРулоннойПродукции") или (Док.Вид()= "ДвижениеМПЗ") или (Док.Вид()="ТребованиеНакладная") Тогда
Если ТекДок.НомерРулона=НомерИщем Тогда
Если (Док.Вид()= "ДвижениеМПЗ") Тогда
Наим= ТекДок.МПЗ;
Иначе
Наим= ТекДок.Продукция;
КонецЕсли;
Нашли=(глПредставлениеДокумента(ТекДок));
Если (Док.Вид()="ТребованиеНакладная") Тогда
Кол=ТекДок.Отпущено;
Иначе
Кол= ТекДок.Количество;
КонецЕсли;
Площ= ТекДок.Площадь;
Таб.ВывестиСекцию("Строка_1");
КонецЕсли;
ИначеЕсли (ТекДок.Вид()="РеализацияПродукции") Тогда
Если ТекДок.Номер=НомерИщем Тогда
Нашли=(глПредставлениеДокумента(ТекДок));
Наим= ТекДок.Товар;
Кол= ТекДок.Количество;
Площ= ТекДок.Количество2;
Таб.ВывестиСекцию("Строка_1");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры
Прикрепленные файлы:
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот