Как вывести печатную форму, определенное количество раз

Question

Здравствуйте, помогите пожалуйста решить вопрос, обработка выводит печатную форму определенное количество раз (сейчас указано просто число). Нужно сделать, чтобы при нажатии на кнопку печать, выводилась форма, в которой пользователь сам укажет нужное количество копий печатной формы.
Попытался сделать через [B]ВвестиЧисло [/B]:
[1C-CODE]

&НаСервере
Функция ПечатьНаСервере()
	ТабДок = Новый ТабличныйДокумент();
	Обработка = РеквизитФормыВЗначение("Объект");
	Макет = Обработка.ПолучитьМакет("Макет");
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ 
	|	cl_ВыпускГотовойПродукцииГотоваяПродукция.Номенклатура
	|ИЗ
	|	Документ.cl_ВыпускГотовойПродукции.ГотоваяПродукция КАК cl_ВыпускГотовойПродукцииГотоваяПродукция
	|ГДЕ
	|	cl_ВыпускГотовойПродукцииГотоваяПродукция.Ссылка = &Ссылка";
	
	Запрос.УстановитьПараметр("Ссылка",документы.cl_ВыпускГотовойПродукции.НайтиПоНомеру("61 728",'20180101')); 
	РезультатЗапроса = Запрос.Выполнить();
	
	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	счетчик = 1 ;
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
	ПолученноеЧисло = 4;
		пока счетчик <= ПолученноеЧисло цикл
			ОбластьЗаголовок.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
			ТабДок.Вывести(ОбластьЗаголовок, ВыборкаДетальныеЗаписи.Уровень());
			счетчик = счетчик + 1 ;
			КонецЦикла;
	КонецЦикла;
Возврат(ТабДок) ;
	
КонецФункции
&НаКлиенте
Процедура Печать(Команда)
	
	ЧислоВведенноеПользователем() ;	
	
	ТабДок = ПечатьНаСервере();
	ТабДок.Показать();
КонецПроцедуры

&НаКлиенте
Функция ЧислоВведенноеПользователем()
Перем Число;
	ВвестиЧисло(Число, "Введите число"); 
 	ВведенноеЧисло = Число;
	Возврат Число ;
КонецФункции [/1C-CODE]

Возможно ли ЧислоВведенноеПользователем() передать в ПолученноеЧисло ? Спасибо

Accepted Answer

(1)[CODE]
ЧислоВведенноеПользователем() ; 
[/CODE]
Это Функция, значит должно быть:
[CODE]
КолКопий = ЧислоВведенноеПользователем() ; 
[/CODE]

Далее, передайте КолКопий в ПечатьНаСервере:
[CODE]
&НаКлиенте
Процедура Печать(Команда)
    
    КолКопий = ЧислоВведенноеПользователем() ;    
    
    ТабДок = ПечатьНаСервере(КолКопий);
    ТабДок.Показать();
КонецПроцедуры

&НаСервере
Функция ПечатьНаСервере(КолКопий)
    ТабДок = Новый ТабличныйДокумент();
    Обработка = РеквизитФормыВЗначение("Объект");
    Макет = Обработка.ПолучитьМакет("Макет");
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ 
    |    cl_ВыпускГотовойПродукцииГотоваяПродукция.Номенклатура
    |ИЗ
    |    Документ.cl_ВыпускГотовойПродукции.ГотоваяПродукция КАК cl_ВыпускГотовойПродукцииГотоваяПродукция
    |ГДЕ
    |    cl_ВыпускГотовойПродукцииГотоваяПродукция.Ссылка = &Ссылка";
    
    Запрос.УстановитьПараметр("Ссылка",документы.cl_ВыпускГотовойПродукции.НайтиПоНомеру("61 728",'20180101')); 
    РезультатЗапроса = Запрос.Выполнить();
    
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    счетчик = 1 ;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        
    пока счетчик <= КолКопий цикл
            ОбластьЗаголовок.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
            ТабДок.Вывести(ОбластьЗаголовок, ВыборкаДетальныеЗаписи.Уровень());
            счетчик = счетчик + 1 ;
            КонецЦикла;
    КонецЦикла;
Возврат(ТабДок) ;
    
КонецФункции
[/CODE]