// Преобразовать табличный документ в таблицу значений.

//

// Параметры:

//	ТабДок - <ТабличныйДокумент> - Исходный табличный документ;

//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок;

//	НачалоСтрока - <Число> - Строка начала области;

//	НачалоСтолбец - <Число> - Столбец начала области;

//	КонецСтрока - <Число> - Строка конца области;

//	КонецСтолбец - <Число> - Столбец конца области.

//	

// Возвращаемое значение:

//	<ТаблицаЗначений> - Полученная таблица значений.

//

Функция ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, Знач КонецСтрока = Неопределено, Знач КонецСтолбец = Неопределено) Экспорт

 

	// Определение габаритов таблицы

	Если НачалоСтрока = Неопределено И НачалоСтолбец = Неопределено Тогда

		НачалоСтрока = 1;

		НачалоСтолбец = 1;

	КонецЕсли;

 

	Если НачалоСтрока = Неопределено Тогда

		НачалоСтрока = 1;

		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 

		 И НачалоСтрока < ТабДок.ВысотаТаблицы 

		Цикл

			НачалоСтрока = НачалоСтрока + 1;

		КонецЦикла;

	ИначеЕсли НачалоСтолбец = Неопределено Тогда

		НачалоСтолбец = 1;

		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 

		 И НачалоСтолбец < ТабДок.ШиринаТаблицы

		Цикл

			НачалоСтолбец = НачалоСтолбец + 1;

		КонецЦикла;

	КонецЕсли;

 

	КонецСтрока = ?(КонецСтрока = Неопределено, ТабДок.ВысотаТаблицы, КонецСтрока);

	КонецСтолбец = ?(КонецСтолбец = Неопределено, ТабДок.ШиринаТаблицы, КонецСтолбец);

 

	// Преобразование

	ЭтоТаблица = (ТипЗнч(СтруктураКолонок) = Тип("ТаблицаЗначений"));

	ТабЗначений = ПолучитьТаблицуВывода(СтруктураКолонок);

 

	Для ИндексСтроки = НачалоСтрока По КонецСтрока Цикл

		СтрокаТЗ = ТабЗначений.Добавить();

 

		ИндексКолонки = НачалоСтолбец;

		Для Каждого Колонка Из СтруктураКолонок Цикл

			НаименованиеКолонки = ?(ЭтоТаблица, Колонка.Наименование, Колонка.Ключ);

			пИндексКолонки = ?(ЭтоТаблица, Колонка.СтолбецОтчёт, ИндексКолонки);

 

			Если ТабДок.Область(ИндексСтроки, пИндексКолонки).СодержитЗначение Тогда

				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Значение;

			Иначе

				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Текст;

			КонецЕсли;

 

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

	КонецЦикла;

 

	Возврат ТабЗначений;

КонецФункции;



// Преобразовать таблицу значений в табличный документ.

//

// Параметры:

//	ТабЗначений - <ТаблицаЗначений> - Исходная таблица значений;

//	ТабДок - <ТабличныйДокумент> - Полученный табличный документ. Если параметр не задан, 

//	 то документ создаётся заново и возвращается функцией;

//	НачалоСтрока - <Число> - Строка начала области;

//	НачалоСтолбец - <Число> - Столбец начала области;

//	ВыводитьЗаголовки - <Булево> - Определяет выводить ли имена колонок или нет.

//	

// Возвращаемое значение:

//	<ТабличныйДокумент> - Полученный табличный документ (возвращает параметр "ТабДок").

//

Функция ПреобразоватьТЗвТД(ТабЗначений, ТабДок = Неопределено, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, ВыводитьЗаголовки = Ложь) Экспорт

 

	Если ТабДок = Неопределено Тогда

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

	КонецЕсли;

 

	// Определение габаритов таблицы

	НачалоСтрока = ?(НачалоСтрока = Неопределено, 1, НачалоСтрока);

	НачалоСтолбец = ?(НачалоСтолбец = Неопределено, 1, НачалоСтолбец);

 

	// Преобразование

	ИндексСтроки = НачалоСтрока;

	Если ВыводитьЗаголовки Тогда

		ИндексКолонки = НачалоСтолбец;

		Для Каждого Колонка Из ТабЗначений.Колонки Цикл

			ТабДок.Область(ИндексСтроки, ИндексКолонки).Текст = ?(ПустаяСтрока(Колонка.Заголовок), Колонка.Имя, Колонка.Заголовок);

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

		ИндексСтроки = ИндексСтроки + 1;

	КонецЕсли;

 

	Для Каждого Элемент Из ТабЗначений Цикл

		ИндексКолонки = НачалоСтолбец;

		Для Каждого Колонка Из ТабЗначений.Колонки Цикл

			ТабДок.Область(ИндексСтроки, ИндексКолонки).СодержитЗначение = Истина;

			ТабДок.Область(ИндексСтроки, ИндексКолонки).ТипЗначения = Новый ОписаниеТипов(Колонка.ТипЗначения);

			ТабДок.Область(ИндексСтроки, ИндексКолонки).Значение = Элемент[Колонка.Имя];

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

		ИндексСтроки = ИндексСтроки + 1;

	КонецЦикла;

 

	Возврат ТабДок;

КонецФункции;



// Читает табличный документ из файла MXL и преобразует его в таблицу значений.

//

// Параметры:

//	ИмяФайла - <Строка> - Путь к файлу MXL;

//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок. Если этот параметр

//		не задан, то структура колонок формируется из самого табличного документа;

//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.

//	

// Возвращаемое значение:

//	<ТаблицаЗначений> - Полученная таблица значений.

//

Функция ПрочитатьТЗИзMXL(ИмяФайла, СтруктураКолонок = Неопределено, ЕстьЗаголовок = Истина) Экспорт

 

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

	ТабДок.Прочитать(ИмяФайла);

 

	Если СтруктураКолонок = Неопределено И ЕстьЗаголовок Тогда

		СтруктураКолонок = Новый Структура;

		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл

			Обл1 = ТабДок.Область(1, ИндексКолонки);

			Обл2 = ТабДок.Область(2, ИндексКолонки);

			ИмяКолонки = СокрЛП(Обл1.Текст);

			ИмяКолонки = ?(Найти(ИмяКолонки, " ") > 0, СтрЗаменить(ТРег(ИмяКолонки), " ", ""), ИмяКолонки);

			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));

		КонецЦикла;

	ИначеЕсли СтруктураКолонок = Неопределено И НЕ ЕстьЗаголовок Тогда

		СтруктураКолонок = Новый Структура;

		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл

			Обл2 = ТабДок.Область(1, ИндексКолонки);

			ИмяКолонки = "К" + Формат(ИндексКолонки, "ЧДЦ=0; ЧН=0; ЧГ=0");

			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));

		КонецЦикла;

	КонецЕсли;

 

    Таблица = ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, ?(ЕстьЗаголовок, 2, 1), 1);

 

	Возврат Таблица;

КонецФункции;



// Сохраняет таблицу значений в файле в виде табличного документа.

//

// Параметры:

//	ИмяФайла - <Строка> - Путь к файлу MXL;

//	ТабЗначений - <ТаблицаЗначений> - Сохраняемая таблица значений;

//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.

//

Процедура ЗаписатьТЗВMXL(ИмяФайла, ТабЗначений, ЕстьЗаголовок = Истина) Экспорт

 

	ТабДок = ПреобразоватьТЗвТД(ТабЗначений, Неопределено, 1, 1, ЕстьЗаголовок);

	ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.MXL);

 

КонецПроцедуры;   

 // Получаем таблицу значения из файла. 

Функция ЗагрузитьТЗизФайла(ИмяФайла)    

    Путь = КаталогВременныхФайлов() + ИмяФайла; 

    Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8); 

    стрТЗ = Текст.Прочитать(); 

    Текст.Закрыть(); 

    // получим таблицу значений из строки

    ТЗ = ЗначениеИзСтрокиВнутр(стрТЗ);    

    Возврат ТЗ;    

КонецФункции    



// Заполнить ячейки в строке  значениями 

//

Функция ЗаписьТЗ2ТабДок(записьТЗ,НомерСтроки,ТабличныйДокумент)

    НомерКолонки = 1;

    Символ160 = Символ(160);    

    // цикл по колонкам таблицы

    // РезультатЗапроса.Колонки.Количество()    // - количество колонок

    Для каждого полеТЗ из ЗаписьТЗ цикл 

        // значения ячейки в Excel

        типПоляТЗ = ТипЗнч(полеТЗ);

        если типПоляТЗ = Тип("Число") тогда             

            полеТЗ=Строка(полеТЗ); 

            полеТЗ=СтрЗаменить(полеТЗ,Символ160,"");

            полеТЗ=СтрЗаменить(полеТЗ,",",".");

        иначеесли типПоляТЗ = Тип("Строка") тогда      

        иначе        

            полеТЗ = строка(полеТЗ);

        КонецЕсли;    

        имяОбласти = "R" + номерСтроки + "C" + НомерКолонки;

        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка = ТабличныйДокумент.Область(имяОбласти);

        Ячейка.Текст = полеТЗ;

        НомерКолонки = НомерКолонки + 1;

    КонецЦикла;            

КонецФункции



// Заполнить наименованиями колонок таблицу

Функция НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент)

    // массКолонки = новый массив();

    номерСтроки=1;

    номКолонки=1; 

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

    // цикл по коллекции колонок

    Для НомКол=0 по ТаблицаЗначений.Колонки.Количество() - 1 Цикл

        //Сообщить(Колонка.Имя + "(" + Колонка.ТипЗначения + ")" );            

        имяКолонки=ТаблицаЗначений.Колонки[НомКол].Имя;

        //ТабличныйДокумент.Область(

        имяОбласти = "R" + номерСтроки + "C" + номКолонки;

        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка = ТабличныйДокумент.Область(имяОбласти);

        //значениеЯчейки = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка.Текст = имяКолонки;

        // на основе текущего шрифта сделаем Жирный

        ЖирныйШрифт = ?(ЖирныйШрифт = Неопределено,Новый Шрифт(Ячейка.Шрифт,,,Истина),ЖирныйШрифт);         

        Ячейка.Шрифт = ЖирныйШрифт;

        номКолонки = номКолонки + 1;        

    КонецЦикла;

КонецФункции





// Заполнить построчно табличный документ

Функция Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент)

    //Выборка = РезультатЗапроса.Выбрать();

    НомСтр=1; // заполняем данными начиная со 2-й строки    

    // цикл по строкам таблицы

    Для каждого записьТЗ из ТаблицаЗначений Цикл

        НомСтр = НомСтр + 1;

        // цикл по колонкам таблицы        

        ЗаписьТЗ2ТабДок(записьТЗ,НомСтр,ТабличныйДокумент);         

    КонецЦикла;    

КонецФункции



// Таблица значений в табличный документ

Функция ТаблицаЗначений2Mxl(ТаблицаЗначений,ФайлMxl)

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

    // вывести колонки

    НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент);

    // вывести содержимое таблицы    

    Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент);

    ТабличныйДокумент.Записать(ФайлMxl,ТипФайлаТабличногоДокумента.MXL);

    ТабличныйДокумент.Показать(ФайлMxl,ФайлMxl);

    Возврат 0;

КонецФункции





Функция    Тест_ВыгрузитьТЗвMxl();

    файл_мТЗИсходныеДанные = "мТЗИсходныеДанные.dat";        

    ТЗ = ЗагрузитьТЗизФайла(файл_мТЗИсходныеДанные);    

    ФайлMxl = КаталогВременныхФайлов() + СтрЗаменить(файл_мТЗИсходныеДанные,".dat",".mxl");  

    ТаблицаЗначений2Mxl(ТЗ,ФайлMxl);

КонецФункции



Тест_ВыгрузитьТЗвMxl();   

 //Пример получения текста ячейки

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R1C2").Текст = спрНоменклатура.Наименование;

ПолеТабДок.Область("R2C2").Текст = "Это Строка"; //указываем явно литерал строки

   

 // Изменение текста в области или ячейке



Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл

		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 

		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 

		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда

			ТабличныйДокумент.Область("R"+а+"C7").Текст="";

			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	

			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 	

			

		КонецЕсли;

		

	КонецЦикла;

   

 // Как раскрасить ячейку или область табличного документа в зависимости от условия

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента; // Получаем табличный документ из формы 

ТабДок.Очистить(); // Очищаем табличный документ 

Макет = ПолучитьМакет("Макет"); // Получаем макет с именем "Макет" из текущего объекта 

ОбластьСтрокаТаб = Макет.ПолучитьОбласть("СтрокаТаб"); // Получаем область из макета 

ОбластьСтрокаТаб.Параметры.НашПараметр = 1; // Устанавливаем значение 1 параметру "НашПараметр" 

ОбластьОформления = ТабДок.Вывести(ОбластьСтрокаТаб); 

// Вот собственно и само оформление ячейки 

ТабДок.Область(ОбластьОформления.Верх, ОбластьОформления.Лево, ОбластьОформления.Низ, ОбластьОформления.Лево).ЦветФона = WebЦвета.Красный;

   

 //Пример изменения цвета текста при выводе данных в табличный документ

        Таб.ВывестиСекцию("Контрагент");

        // Изменим Текст ячейки, имя которой заранее задали как "ТекстОСостоянии"

        Таб.Область("ТекстОСостоянии").Текст = "Хорошо ";

        // В зависимости от условия изменим Цвет Текста

        Если Раз<0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(255,0,0); 

           ИначеЕсли Раз>0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(0,0,255);

       КонецЕсли;   

 МассивБулево = Новый Массив; 

МассивБулево.Добавить(Тип("Булево"));

ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);

//...

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R3C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение

ПолеТабДок.Область("R3C3").ТипЗначения = ОписаниеТиповБулево; //указываем тип значения

ПолеТабДок.Область("R3C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника   

 ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R4C3").ТипЗначения = ОписаниеТиповДата; //указываем тип, ранее заданный для Даты

ПолеТабДок.Область("R4C3").Значение = ТекущаяДата();

//указываем форматную строку 

//будет выглядеть как "[031120-2315]-", если текущая дата '20-11-2003 23:15:00') 

ПолеТабДок.Область("R4C3").Формат = "ДФ=[ггММдд-ЧЧмм]-";   

 МассивБулево = Новый Массив; 

МассивБулево.Добавить(Тип("Булево"));

ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);

...

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R5C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение

ПолеТабДок.Область("R5C3").ТипЗначения = ОписаниеТиповБулево; //указываем ранее заданный тип

ПолеТабДок.Область("R5C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника

//а теперь указываем, что в ячейке будет отображаться флажок

ПолеТабДок.Область("R5C3").УстановитьЭлементУправления(Тип("Флажок"));   

  ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента;

ПолеТабДок.Область("R4C3").Защита = Истина;

   

 // 1)

&НаСервере

Процедура ЗаполнитьТЧПоДаннымПоследнегоДокумента(Контрагент)

            ДокОбъект = РеквизитФормыВЗначение("Объект");

            ДокОбъект.ЗаполнитьТЧПоДаннымПоследнегоДокумента(Контрагент);

            ЗначениеВРеквизитФормы(ДокОбъект, "Объект");

КонецПроцедуры





// 2)

&НаСервере

Процедура ОчиститьСтрокиСПустойЦенойНаСервере()

	ДокОбъект = РеквизитФормыВЗначение("Объект");

	ДокОбъект.ОчиститьСтрокиСПустойЦеной();

	ЗначениеВРеквизитФормы(ДокОбъект, "Объект");

КонецПроцедуры



//3)

&НаСервере

Функция ОбъектЗаполнен()

	Возврат РеквизитФормыВЗначение("Объект").ПроверитьЗаполнение();

КонецФункции   

 // 1)

    &НаСервере

       // Инициализация набора констант

       НаборКонстантОбъект = ДанныеФормыВЗначение(НаборКонстант, Тип("КонстантыНабор"));

       НаборКонстантОбъект.Прочитать();

       ЗначениеВДанныеФормы(НаборКонстантОбъект, НаборКонстант);



// 2)

   &НаСервере  

       НаборФорма = Объект.Движения.РегистрУправленческий;

       Набор = ДанныеФормыВЗначение(НаборФорма, Тип("РегистрБухгалтерииНаборЗаписей.РегистрУправленческий"));

       Если Набор.Количество()=0 Тогда

              Возврат;

       КонецЕсли; 

       Набор.УстановитьАктивность(НЕ Набор[0].Активность);

       ЗначениеВДанныеФормы(Набор, НаборФорма);   

 // 3)

&НаКлиенте

Процедура Заполнить(Команда)

       ОснРеквизит = Объект;

       ВыполнитьНаСервереБезКонтекста(ОснРеквизит);

       КопироватьДанныеФормы(ОснРеквизит,Объект)

КонецПроцедуры



&НаСервереБезКонтекста

Процедура ВыполнитьНаСервереБезКонтекста(ОснРеквизит)

       ОбъектЗначение = ДанныеФормыВЗначение(ОснРеквизит, Тип("ДокументОбъект.АктСверкиВзаиморасчетов"));

       //...Выполнение операций с Объектом "ОбъектЗначение"

       ЗначениеВДанныеФормы(ОбъектЗначение, ОснРеквизит);

КонецПроцедуры   

 // ВАРИАНТ 1

&НаКлиенте

Процедура Активность(Команда)



       ОснРеквизитДвижения = Объект.Движения.РегистрУправленческий;

       АктивностьНаСервереБезКонтекста(ОснРеквизитДвижения);

       КопироватьДанныеФормы(ОснРеквизитДвижения,Объект.Движения.РегистрУправленческий);



КонецПроцедуры // Активность()



&НаСервереБезКонтекста

Процедура АктивностьНаСервереБезКонтекста(ОснРеквизитДвижения)



       Набор = ДанныеФормыВЗначение(ОснРеквизитДвижения, Тип("РегистрБухгалтерииНаборЗаписей.РегистрУправленческий"));

       Если Набор.Количество()=0 Тогда

              Возврат;

       КонецЕсли; 

       Набор.УстановитьАктивность(НЕ Набор[0].Активность);

       ЗначениеВДанныеФормы(Набор, ОснРеквизитДвижения);



КонецПроцедуры // АктивностьНаСервереБезКонтекста()



// ВАРИАНТ 2

&НаСервере

Процедура АктивностьНаСервере()



       НаборФорма = РеквизитФормыВЗначение("Объект");

       Набор = НаборФорма.Движения.РегистрУправленческий;



       Если Набор.Количество()=0 Тогда

              Возврат;

       КонецЕсли; 



       Набор.УстановитьАктивность(НЕ Набор[0].Активность);

       ЗначениеВРеквизитФормы(НаборФорма, "Объект");



КонецПроцедуры // АктивностьНаСервере()   

 СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);   

 Макет = ПолучитьОбщийМакет("МакетПодписи");

ОбластьВывести = Макет.ПолучитьОбласть("Подпись");

ЭлементыФормы.Результат.Вывести(ОбластьВывести);   

 Процедура ОбновитьОтчет() Экспорт

СостояниеМодифицированности = Модифицированность;

Если ПанельНастроекНарисована <> Истина Тогда

ОбновлениеОтображения();

КонецЕсли;

ТиповыеОтчеты.ЗагрузитьВРеквизитЗначенияНастроекПанелиПользователя(ЭтотОбъект, ЭтаФорма);

ПараметрыПанели = ТиповыеОтчеты.ПолучитьПараметрыПанелиПользователяОбъекта(ОтчетОбъект);

ЗначенияНастроек = ТиповыеОтчеты.ПолучитьЗначенияНастроекПанелиПользователяОбъекта(ОтчетОбъект);

Отказ = ложь;

ТиповыеОтчеты.ПроверитьЗначенияПараметров(ЗначенияНастроек, ПараметрыПанели, Отказ);

Если Отказ тогда

Возврат;

КонецЕсли;

РежимформированияОтчета = НЕ ЭтоОтработкаРасшифровки;

СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);

//Мигачев - Вывод подписей

Макет = ПолучитьОбщийМакет("МакетПодписи");

ОбластьВывести = Макет.ПолучитьОбласть("Подпись");

// Если надо вывести параметр

//ОбластьВывести.Параметры.Подписант = Бухгалтер;

ЭлементыФормы.Результат.Вывести(ОбластьВывести);

//*//

УправлениеОтчетами.УстановитьКолонтитулыПоУмолчанию(ЭлементыФормы.Результат, Заголовок, Строка(ПараметрыСеанса.ТекущийПользователь));

Модифицированность = СостояниеМодифицированности;

КонецПроцедуры   

 Функция ЗначениеВЯчейку(знТабДок, знЯчейка, знЧисло, знОкруг=Неопределено)

	Если знОкруг=Неопределено Тогда знОкруг=3 КонецЕсли; // 0-число как есть, 3-в тысячах (округл)

	знТабДок.Область(знЯчейка).СодержитЗначение = Истина;

	знТабДок.Область(знЯчейка).Значение = Формат(знЧисло, "ЧЦ=15; ЧДЦ=0; ЧС="+Строка(знОкруг)+"; ЧГ=0");	

КонецФункции   

  // укажите ли замените переменную ИтогСумма

ТекЗнач = ИтогСумма*5%; 

	ЗначениеВЯчейку(ЭлементыФормы.ТД2,"R12C5", ТекЗнач); 

	ЗначениеВЯчейку(ЭлементыФормы.ТД2,"R12C8", ТекЗнач);

   

 //в макете задаете ИмяЯчейки и далее:

ОбрабатываемаяОбласть = ЭлементыФормы.ПолеТабличногоДокумента.Область(ИмяЯчейки);

Если ОбрабатываемаяОбласть.СодержитЗначение Тогда

     ОбрабатываемаяОбласть.Значение = НоваяСуммаИтог;

Иначе

     ОбрабатываемаяОбласть.Текст = НоваяСуммаИтог;

КонецЕсли;   

  // Вариант 1

// По переданному табличному документу возвращает таблицу значений, 

// при условии что в первой строке таблицы - идентификаторы колонок 

// Автор : dimoff

Функция ПолучитьТЗИзМакета(ТабДок, КолонкаИндекса = 1) Экспорт

    

    ТаблицаДанных = Новый ТаблицаЗначений;

    НомерКолонки = 0;

    Пока Истина Цикл

        НомерКолонки = НомерКолонки + 1;

        ИмяКолонки = ТабДок.Область(1, НомерКолонки).Текст;

        Если ПустаяСтрока(ИмяКолонки) Тогда

            Прервать;

        КонецЕсли;        

        ТаблицаДанных.Колонки.Добавить(ИмяКолонки);

    КонецЦикла;

    

    СчетчикКолонок = НомерКолонки - 1;

    

    НомерСтроки = 1; ФлагПрерывания = Ложь;

    Пока Истина Цикл

        НомерСтроки = НомерСтроки + 1;

        Стр = ТаблицаДанных.Добавить();

        

        Для А = 1 ПО СчетчикКолонок Цикл

            ТекстКолонки = ТабДок.Область(НомерСтроки, А).Текст;

            Если ПустаяСтрока(ТекстКолонки) Тогда

                Если А = КолонкаИндекса Тогда

                    Флагпрерывания = Истина;

                    ТаблицаДанных.Удалить(Стр);

                КонецЕсли;

            Иначе

                Стр[А - 1] = ТекстКолонки

            КонецЕсли;

            

            Если Флагпрерывания Тогда

                Прервать

            КонецЕсли;

        КонецЦикла;

        

        Если Флагпрерывания Тогда

            Прервать

        КонецЕсли;

    КонецЦикла;

    

    Возврат ТаблицаДанных

КонецФункции



// Варинат 2

//Функция загружает весь макет, табличный документ в таблицу значений

//Первая строка содержит подписи колонок (должны быть правильные идентификаторы)

//Пустые строки (состоящией из пробелов, переводов строки и т.п.) заменяет на Неопределено

//Если в ячейке есть значение, в ячейку таблицы значений попадает именно это значение

//Автор : Гений1С

Функция обМакетВТаблицуЗначений(Макет) Экспорт

    Перем ТЗ;

ТЗ=Новый ТаблицаЗначений();

#Если Клиент Тогда

    //Считываем колонки

	Для Стр=1 По Макет.ВысотаТаблицы Цикл

		Если Стр>1 Тогда

        	ТекСтр=ТЗ.Добавить();

		КонецЕсли;

		ПустаяСтрока=истина;

		Для Кол=1 По Макет.ШиринаТаблицы Цикл

			Яч=Макет.Область(Стр, Кол);

			Если Яч.СодержитЗначение Тогда

				Зн=Яч.Значение;

			Иначе

				Зн=Яч.Текст;

			КонецЕсли;

			Если ТипЗнч(Зн)=Тип("Строка") И ПустаяСтрока(Зн) Тогда

				Зн=Неопределено;

			КонецЕсли;

			

			//Добавляем колонку

			Если Стр=1 Тогда

		        ТЗ.Колонки.Добавить(Зн);

			Иначе

				ТекСтр[Кол-1]=Зн;

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;

#КонецЕсли

   Возврат ТЗ;

КонецФункции    

  Процедура ПоказатьДБФ(дбф, имяФайла) далее



Процедура Сформировать()

    перем дбф, флаг, папка; 

	тЗнач.Очистить();

	флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF");

	Если флаг=0 Тогда

	    возврат;

	КонецЕсли;

	дбф=СоздатьОбъект("Xbase");

	дбф.ОткрытьФайл(папка+имяФайла);

	папк=папка;

	файл=имяФайла;

	Если дбф.открыта()=0 Тогда

	    Предупреждение("Не могу открыть файл"+имяФайла);

	    возврат;

	КонецЕсли;

	ПоказатьДБФ(дбф, имяФайла);      

КонецПроцедуры



Процедура ПоказатьДБФ(дбф, имяФайла)

    Перем ин, имяПоля, тип, длина, точность, номСтроки;

      для ин=1 по дбф.КоличествоПолей() цикл

        дбф.ОписаниеПоля(ин, имяПоля, тип, длина, точность);

        тЗнач.НоваяКолонка(имяПоля, тип);

        тЗнач.УстановитьПараметрыКолонки(ин, тип, длина, точность,, мин(10, длина));

     конецЦикла;



КолП=дбф.КоличествоПолей();

НомС=ДБФ.КоличествоЗаписей();

	

загТЗнач="Файл "+имяФайла;

дбф.Первая();

номСтроки=0;

Пока дбф.ВКонце()=0 Цикл

    номСтроки=номСтроки+1;

	тЗнач.НоваяСтрока(номСтроки);

	для ин=1 по дбф.КоличествоПолей() цикл

	тЗнач.УстановитьЗначение(номСтроки, ин, дбф.ПолучитьЗначениеПоля(ин));

КонецЦикла;  

дбф.Следующая();

конецЦикла;

КонецПроцедуры