Не выводится макет СКД

Форум Программирование Общие вопросы программирования (Dev)

1. MAIKL1C 22 21.05.23 16:22 Сейчас в теме

Внешняя обработка, в ней есть макет СКД, из формы обработки вызываю, ошибок нет, просто ничего не происходит:

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

&НаКлиенте
Процедура Показать(Команда)
Схема = ПолучитьСхемуНаСервере();   
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ТабДок = Новый ТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
КонецПроцедуры

Показать

что не так? что то еще надо где то прописать?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. пользователь 21.05.23 16:35

Сообщение было скрыто модератором.

...

3. MAIKL1C 22 21.05.23 16:40 Сейчас в теме

(2) ну как то подумалось, что нельзя на сервере вывести
перенес все на сервер тоже ничего, как правильно?

4. пользователь 21.05.23 17:23

Сообщение было скрыто модератором.

...

8. MAIKL1C 22 22.05.23 11:38 Сейчас в теме

(4) спасибо, в этом была проблема.

5. пользователь 21.05.23 17:26

Сообщение было скрыто модератором.

...

6. MAIKL1C 22 21.05.23 18:01 Сейчас в теме

а есть пример?, а то это тоже пример, но он не работает для меня

7. user1936670 21.05.23 20:22 Сейчас в теме

(6) Примерно так. Не проверял

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

Показать

9. MAIKL1C 22 22.05.23 11:40 Сейчас в теме

да, заработало, спасибо

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

ТабДок = Новый ТабличныйДокумент;

// Значения параметров
КонецПериода = ТекущаяДата();

// Формирование
ИсточникНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных(Схема);

КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек.Инициализировать(ИсточникНастроек);
КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);

ПараметрыДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных;
ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецПериода);
ПараметрыДанных.УстановитьЗначениеПараметра("СписокНоменклатуры", Объект.СписокНоменклатуры);

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
ТекущиеНастройки = КомпоновщикНастроек.ПолучитьНастройки();
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, ТекущиеНастройки);

ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);

Возврат ТабДок;
КонецФункции

&НаКлиенте
Процедура Показать(Команда)
ТабДок=ПолучитьТабДокНаСервере();
ТабДок.Показать();
КонецПроцедуры

Оставьте свое сообщение

E-mail: