// процедура переносит в документ данные помощника
// в случае превышения длины строки параметра программы ДлинаСтрокиПомощника
// данные сохраняются в файл
// п_ДатаДок - дата документа
// п_НомерДок - номер документа
// п_ПараметрыПомощника - параметры помощника, передаваемые в документ
// п_ПараметрыПомощника - параметры помощника, передаваемые в документ
// п_СписокДанных - список данных помощника, которые необходимо сохранить в документе
// п_СписокРеквизитов - список реквизитов документа, устанавливаемых из помощника
// п_Расширение - расширение создаваемого файла
Процедура Гл_ПеренестиВДокумент(п_КонтекстДокумента, п_ВидДок, п_ДатаДок, п_НомерДок, п_ДокументЗаписан, п_МодальныйРежим, п_ПараметрыПомощника, п_СписокДанных, п_СписокРеквизитов, п_Расширение) Экспорт
	Перем л_СтрокаДанных;
	ГлобальныйМодуль.ОбработкаДанных(2, п_СписокДанных, л_СтрокаДанных);
	л_ДлинаСтрокиДанных = СтрДлина(л_СтрокаДанных);
	л_МаксДлина = Гл_ПолучитьПараметрПрограммы("ДлинаСтрокиПомощника");
	Если л_ДлинаСтрокиДанных > л_МаксДлина Тогда  // 799000
		л_Год = Прав(Строка(ДатаГод(п_ДатаДок)),2);
		Если ФС.СуществуетФайл(КаталогИБ()+"DATA"+"\NUL") = 0 Тогда
			ФС.СоздатьКаталог(КаталогИБ()+"DATA");
		КонецЕсли;
		л_Файл = "DATA\" + л_Год + "_" + Формат(п_НомерДок,"Ч(0)5") + "." + п_Расширение;
		ЗначениеВФайл(КаталогИБ() + л_Файл, п_СписокДанных, 0);
		л_СписокДанныхФайла = СоздатьОбъект("СписокЗначений");
		л_СписокДанныхФайла.Установить("ФайлДанных", л_Файл);
		л_СтрокаДанных = "";
		ГлобальныйМодуль.ОбработкаДанных(2, л_СписокДанныхФайла, л_СтрокаДанных);
	КонецЕсли;
	п_ПараметрыПомощника.Установить("Окончание","ОК");
	п_ПараметрыПомощника.Установить("Данные", л_СтрокаДанных);
	п_ПараметрыПомощника.Установить("СписокРеквизитов", п_СписокРеквизитов);
	Если п_МодальныйРежим = 0 Тогда
		Гл_ПередатьВДокумент(п_КонтекстДокумента, п_ВидДок, п_НомерДок, п_ДатаДок, п_ДокументЗаписан, п_ПараметрыПомощника);
	КонецЕсли;
КонецПроцедуры

// функция возвращает список данных помощника, сохраненный в документе
// п_КонтекстДокумента - контекст документа
Функция Гл_ВосстановитьДанныеПомощника(п_КонтекстДокумента) Экспорт
	Перем л_СписокДанных;
	Если ПустоеЗначение(п_КонтекстДокумента.Данные) = 0 Тогда
		ГлобальныйМодуль.ОбработкаДанных(1, п_КонтекстДокумента.Данные, л_СписокДанных);
	КонецЕсли;