Внешняя обработка, в ней есть макет СКД, из формы обработки вызываю, ошибок нет, просто ничего не происходит:
что не так? что то еще надо где то прописать?
&НаСервере
Функция ПолучитьСхемуНаСервере()
Обработка=РеквизитФормыВЗначение("Объект");
Схема=Обработка.ПолучитьМакет("ОстаткиТоваровОрганизаций");
Схема.Параметры.КонецПериода.Значение=ТекущаяДата();
Схема.Параметры.СписокНоменклатуры.Значение=Объект.СписокНоменклатуры;
Возврат Схема;
КонецФункции
&НаКлиенте
Процедура Показать(Команда)
Схема = ПолучитьСхемуНаСервере();
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ТабДок = Новый ТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
КонецПроцедуры
Показатьчто не так? что то еще надо где то прописать?
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(6) Примерно так. Не проверял
// Исходные данные
Схема = ПолучитьМакет("СхемаКомпоновки");
Настройки = Схема.НастройкиПоУмолчанию;
ТабДок = Новый ТабличныйДокумент;
// Значения параметров
КонецПериода = ТекущаяДата();
СписокНоменклатуры = Новый СписокЗначений;
// Формирование
ИсточникНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных(Схема);
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек.Инициализировать(ИсточникНастроек);
КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
ПараметрыДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных;
ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецПериода);
ПараметрыДанных.УстановитьЗначениеПараметра("СписокНоменклатуры", СписокНоменклатуры);
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
ТекущиеНастройки = КомпоновщикНастроек.ПолучитьНастройки();
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, ТекущиеНастройки);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
Показать
да, заработало, спасибо
&НаСервере
Функция ПолучитьТабДокНаСервере()
Обработка=РеквизитФормыВЗначение("Объект");
Схема=Обработка.ПолучитьМакет("ОстаткиТоваровОрганизаций");
// Исходные данные
// Схема = ПолучитьМакет("СхемаКомпоновки");
Настройки = Схема.НастройкиПоУмолчанию;
ТабДок = Новый ТабличныйДокумент;
// Значения параметров
КонецПериода = ТекущаяДата();
// Формирование
ИсточникНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных(Схема);
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек.Инициализировать(ИсточникНастроек);
КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
ПараметрыДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных;
ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецПериода);
ПараметрыДанных.УстановитьЗначениеПараметра("СписокНоменклатуры", Объект.СписокНоменклатуры);
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
ТекущиеНастройки = КомпоновщикНастроек.ПолучитьНастройки();
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, ТекущиеНастройки);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
Возврат ТабДок;
КонецФункции
&НаКлиенте
Процедура Показать(Команда)
ТабДок=ПолучитьТабДокНаСервере();
ТабДок.Показать();
КонецПроцедуры
&НаСервере
Функция ПолучитьТабДокНаСервере()
Обработка=РеквизитФормыВЗначение("Объект");
Схема=Обработка.ПолучитьМакет("ОстаткиТоваровОрганизаций");
// Исходные данные
// Схема = ПолучитьМакет("СхемаКомпоновки");
Настройки = Схема.НастройкиПоУмолчанию;
ТабДок = Новый ТабличныйДокумент;
// Значения параметров
КонецПериода = ТекущаяДата();
// Формирование
ИсточникНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных(Схема);
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек.Инициализировать(ИсточникНастроек);
КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
ПараметрыДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных;
ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецПериода);
ПараметрыДанных.УстановитьЗначениеПараметра("СписокНоменклатуры", Объект.СписокНоменклатуры);
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
ТекущиеНастройки = КомпоновщикНастроек.ПолучитьНастройки();
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, ТекущиеНастройки);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
Возврат ТабДок;
КонецФункции
&НаКлиенте
Процедура Показать(Команда)
ТабДок=ПолучитьТабДокНаСервере();
ТабДок.Показать();
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот