Работа функции ?

Question

Добрый день, дорабатываю обработку не могу сообразить мне нужно добиться от Функция ПечатьПД4_20140101_ДобровольныеПожертвования(ИНН, МассивОбъектов, ОбъектыПечати, ИмяМакета) что бы она возвращала мне одну квитанцию с заполненными реквизитами организации сейчас при выборе организации возвращает то одну квитанцию то целый список не могу понять о чего это зависит ?   



[1C-CODE]&НаКлиенте
Процедура ДобровольныеПожертвования(Команда)
	Если Объект.Период = '00010101' тогда
		сообщить("Не заполнен период!");
		Возврат;
	КонецЕсли;	
		
	ОбъектыПечати = Новый СписокЗначений;
	//МассивОбъектов=ОпрДок();
	МассивОбъектов=Новый Массив;
	
	
		
	ИНН = ЗапросИНН();
	ПолучитьКодПлатежаДобровольныеПожертвования(ИНН);
	
	
		//Если 
	//УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ПФ_MXL_ПД_4_20140101_QR", "Форма № ПД-4 с QR-кодом", 
	ТабличныйДокумент=ПечатьПД4_20140101_ДобровольныеПожертвования(ИНН, МассивОбъектов, ОбъектыПечати, "ПФ_MXL_ПД_4_20140101_QR"); 
	ТабличныйДокумент.АвтоМасштаб			=	Истина;
	ТабличныйДокумент.ОтображатьСетку		=	Ложь;
	ТабличныйДокумент.Защита					=	Ложь;
	ТабличныйДокумент.ТолькоПросмотр			=	Истина;
	ТабличныйДокумент.ОтображатьЗаголовки	=	Ложь;
	ТабличныйДокумент.ПолеСверху = 0;
	ТабличныйДокумент.ПолеСнизу = 0;
	ТабличныйДокумент.ПолеСлева = 0;
	ТабличныйДокумент.ПолеСправа = 0;
	ТабличныйДокумент.ИмяПараметровПечати	=	"Квитанции";
	ТабличныйДокумент.Показать("Квитанции на оплату");
	//КонецЕсли;
КонецПроцедуры
[/1C-CODE]


[1C-CODE]&НаСервере
Функция ПечатьПД4_20140101_ДобровольныеПожертвования(ИНН, МассивОбъектов, ОбъектыПечати, ИмяМакета)
	
	
	КодПлатежа = ПолучитьКодПлатежаДобровольныеПожертвования(ИНН);
	
	
	//Настройка табличного документа_________________________________________________________
	ТабличныйДокумент = Новый ТабличныйДокумент;

	ТабличныйДокумент.ИмяПараметровПечати = "ПараметрыПечати_КвитанцияНаОплатуГосуслуг_" + ИмяМакета;
	
	
	ОтчетОбъект=РеквизитФормыВЗначение("Объект");
	Макет = ОтчетОбъект.ПолучитьМакет(ИмяМакета);
	
	НужноПечататьQRКод = Прав(ИмяМакета,2)= "QR";
	ПечататьПоДвеКвитанцииНаЛист = Ложь;
	Попытка
		ОбластьНастроекПечати = Макет.ПолучитьОбласть("НастройкиПечати");
		ПечататьПоДвеКвитанцииНаЛист = Найти(ВРег(ОбластьНастроекПечати.Область(1,4).Текст),"ДА")>0; 
	Исключение
		ПечататьПоДвеКвитанцииНаЛист = Ложь;
	КонецПопытки;
	
	//Конец настройки табличного документа_________________________________________________________
	
	Выборка = ЗапросКвит(МассивОбъектов);//Запрос.Выполнить().Выбрать(); 
	
	ВыводитьРазделитель = Ложь;
	
	ЕстьГИСГМП = ПолучитьФункциональнуюОпцию("ИспользоватьИнтеграциюГИСГМП");
	ТонкаяЛиния = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
	НомДок = 0;
	Пока Выборка.Следующий() Цикл
		
		Если НужноПечататьQRКод Тогда
			
			ОшибкаЗаполнения = Ложь;
			
			Если Не ЗначениеЗаполнено(Выборка.ПолучательНаименование) Тогда
				ТекстСообщения = Нстр("ru = 'Не заполнен обязательный реквизит получателя: ""Получатель""'");
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,Выборка.Ссылка);
				ОшибкаЗаполнения = Истина;
			КонецЕсли;
			
			Если Не ЗначениеЗаполнено(Выборка.ПолучательБанковскийСчет) Тогда
				ТекстСообщения = Нстр("ru = 'Не заполнен обязательный реквизит получателя: ""Счет""'");
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,Выборка.Ссылка);
				ОшибкаЗаполнения = Истина;
			КонецЕсли;
			
			Если Не ЗначениеЗаполнено(Выборка.ПолучательНаименованиеБанка) Тогда
				ТекстСообщения = Нстр("ru = 'Не заполнен обязательный реквизит получателя: ""Банк""'");
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,Выборка.Ссылка);
				ОшибкаЗаполнения = Истина;
			КонецЕсли;
			
			Если Не ЗначениеЗаполнено(Выборка.ПолучательБИКБанка) Тогда
				ТекстСообщения = Нстр("ru = 'Не заполнен обязательный реквизит получателя: ""БИК""'");
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,Выборка.Ссылка);
				ОшибкаЗаполнения = Истина;
			КонецЕсли;
				
			Если ОшибкаЗаполнения Тогда
				Продолжить;
			КонецЕсли;
		КонецЕсли;
		Если ПечататьПоДвеКвитанцииНаЛист Тогда
			Если ВыводитьРазделитель И НомДок%4=0 Тогда   
				ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			КонецЕсли;
		Иначе
			Если ВыводитьРазделитель Тогда 
				ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
			КонецЕсли;
		КонецЕсли;
		ВыводитьРазделитель = Истина;
		
		НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
		
		//Заполняем макет квитанции парметрами-----------------------------------------------------
		Квитанция = Макет.ПолучитьОбласть("Квитанция");
		
		ЗаполнитьЗначенияСвойств(Квитанция.Параметры, Выборка);
		

			Квитанция.Параметры.Назначение = "Добровольные пожертвования " + КодПлатежа;
			
			
			Квитанция.Параметры.ИННПолучателя = Выборка.Организация.ИНН;
			Квитанция.Параметры.КПППолучателя = Выборка.Организация.КПП;
			
		
	
		Если ЗначениеЗаполнено(Выборка.УникальныйИдентификаторНачисления) Тогда
			Для Инд = 1 По 25 Цикл
				//Кв
				ТекСимвол = Сред(Выборка.УникальныйИдентификаторНачисления,Инд,1);
				Если ЗначениеЗаполнено(ТекСимвол) И СтроковыеФункцииКлиентСервер.ТолькоЛатиницаВСтроке(ТекСимвол) Тогда				
					ТекОбласть = Квитанция.Область("С"+Инд);
				    ТекОбласть.ГраницаСнизу = ТонкаяЛиния;
				КонецЕсли;
				Квитанция.Параметры.Заполнить(Новый Структура("С"+Инд,ТекСимвол));
				//ТабличныйДокумент.Присоединить(ТекОбласть);
			КонецЦикла;
		КонецЕсли;
		//Конец заполнения макета квитанции парметрами-----------------------------------------------------
		
		//Заполняем QR код---------------------------------------------------------------------------------
		Если НужноПечататьQRКод Тогда
			РеквизитыПлатежа = Новый Структура("ТекстПолучателя,
												|НомерСчетаПолучателя,
												|НаименованиеБанкаПолучателя,
												|БИКБанкаПолучателя,
												|СчетБанкаПолучателя,
												|СуммаЧислом,
												|НазначениеПлатежа,
												|ИННПлательщика,
												|ИННПолучателя,
												|КПППолучателя,
												|КодБК,
												|КодОКТМО,
												|ФамилияПлательщика,
												|ИмяПлательщика,
												|ОтчествоПлательщика,
												|АдресПлательщика,
												|ФИОРебенка,
												|СНИЛС,
												|ИдентификаторНачисления,
												|НомерДоговора,
												|НаправлениеДеятельности,
												|СтатусСоставителя,
												|ПоказательОснования,
												|ПоказательПериода,
												|ПоказательНомера,
												|ПоказательДаты,
												|ПоказательТипа,
												|НомерЛицевогоСчетаПлательщика,
												//add 1 след
												|ВидПлатежа,
												|ВидПлатежа");
									//			|Ссылка");
			
		
			РеквизитыПлатежа.ТекстПолучателя = Выборка.Организация.НаименованиеСокращенное ;
			РеквизитыПлатежа.НомерСчетаПолучателя = Выборка.ПолучательБанковскийСчет;
			РеквизитыПлатежа.НаименованиеБанкаПолучателя = Выборка.ПолучательНаименованиеБанка;
			РеквизитыПлатежа.БИКБанкаПолучателя = Выборка.ПолучательБИКБанка;
			РеквизитыПлатежа.СчетБанкаПолучателя = Выборка.ПолучательКорСчетБанка; 
			
			РеквизитыПлатежа.СуммаЧислом = Выборка.СуммаДокумента;
			
			
			РеквизитыПлатежа.НазначениеПлатежа = КодПлатежа;//Назначение;
			
			
			РеквизитыПлатежа.ИННПолучателя  = Выборка.Организация.ИНН;//Выборка.ИННПолучателя;
			РеквизитыПлатежа.КПППолучателя  = Выборка.Организация.КПП;//Выборка.КПППолучателя;
			РеквизитыПлатежа.КодБК 			= "00000000000000000130";//Выборка.КодБКПлатежа;
			РеквизитыПлатежа.КодОКТМО 		= Выборка.Организация.КодОКТМО;//Выборка.КодОКТМО;
		
			РеквизитыПлатежа.ВидПлатежа = "Добровольные пожертвования";
			
			
			Если ЗначениеЗаполнено(Выборка.УникальныйИдентификаторНачисления) Тогда
				РеквизитыПлатежа.ИдентификаторНачисления = Выборка.УникальныйИдентификаторНачисления;	
			КонецЕсли;
			
			
			РеквизитыПлатежа.НомерЛицевогоСчетаПлательщика = КодПлатежа;
			
			//Конец заполнения QR кода---------------------------------------------------------------------------------
			
			QRСтрока = УправлениеПечатью.ФорматнаяСтрокаУФЭБС(РеквизитыПлатежа);
				
			Если ПустаяСтрока(QRСтрока) Тогда
				Продолжить;
			КонецЕсли;
			
					
			
			ДанныеQRКода = УправлениеПечатью.ДанныеQRКода(QRСтрока, 1, 250);
			
			Если НЕ ТипЗнч(ДанныеQRКода) = Тип("ДвоичныеДанные") Тогда
				
				Шаблон = Нстр("ru = 'Не удалось сформировать QR-код для документа %1.
						 |Технические подробности см. в журнале регистрации.'");
				ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Шаблон,
								 Выборка.Ссылка);
								 
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
				
				Продолжить;
			КонецЕсли;
			
			КартинкаQRКода = Новый Картинка(ДанныеQRКода);
			
			Квитанция.Рисунки.QRКодСправа.Картинка = КартинкаQRКода;
		КонецЕсли;
		
		ТабличныйДокумент.Вывести(Квитанция);
		
		УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, );
		
		НомДок = НомДок + 1;
	КонецЦикла;
	
	
	Возврат ТабличныйДокумент;
		
КонецФункции
[/1C-CODE]

Accepted Answer

(15)Всё оказалось проще квитанции выводились в цикле [CODE] Пока Выборка.Следующий() Цикл КонецЦикла;[/CODE] нужно было его только [QUOTE]Прервать[/QUOTE].