Процедура тестВысотаТаблицы () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 0);
	Область = Таб.Область (34, 23);
	Область.Текст = "апапа";
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 34);
	
	Таб.Область (50, 23).Текст = "йййй";
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 50);
	
	Таб.Очистить ();
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестШиринаТаблицы () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 0);
	Область = Таб.Область (34, 23);
	Область.Текст = "апапа";
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 23);
	
	Таб.Область (34, 60).Текст = "йййй";
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 60);
	
	Таб.Очистить ();
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Функция ПроверкаОткрытия (УстанавливатьОриентацию)
	ИмяФайла = КаталогВременныхФайлов () + "\TempTable.mxl";
	
	Таб = СоздатьОбъект ("Таблица");
	Область = Таб.Область (1, 2);
	Область.Текст = "Текст1";
	
	Если УстанавливатьОриентацию = 1 Тогда
		Область.ОриентацияТекста (10);
	КонецЕсли;
	
	Таб.Область (4, 8).Текст = "Текст2";
	Таб.Записать (ИмяФайла);
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Открыть (ИмяФайла);
	
	ПроверитьРавенство (Таб.Область (1, 2).Текст, "Текст1");
	ПроверитьРавенство (Таб.Область (4, 8).Текст, "Текст2");
	
	ФС.УдалитьФайл (ИмяФайла);
КонецФункции

//-----------------------------------------------------------------------------

Процедура тестОткрыть () Экспорт
	ПроверкаОткрытия (0);
	ПроверкаОткрытия (1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестОбласть () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 1);
	ПроверитьРавенство (ТипЗначенияСтр (Область), "ОбластьТабличногоДокумента");
КонецПроцедуры

//-----------------------------------------------------------------------------

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

//-----------------------------------------------------------------------------

Процедура тестОчистить () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (5, 8).Текст = "тест";
	
	ПроверитьРавенство (Таб.Область (5, 8).Текст, "тест");
	
	Таб.Очистить ();
	
	ПроверитьРавенство (Таб.Область (5, 8).Текст, "");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗагрузитьИзТаблицы () Экспорт
	Моксель = СоздатьОбъект ("Таблица");
	Моксель.Область (2, 3).Текст = "Тестовый текст";
	
	Йоксель = СоздатьОбъект ("ТабличныйДокумент");
	Йоксель.ЗагрузитьИзТаблицы (Моксель);
	ПроверитьРавенство (Йоксель.Область (2, 3).Текст, "Тестовый текст");
	
	Моксель.Область (2, 3).ОриентацияТекста (30);
	
	Йоксель = СоздатьОбъект ("ТабличныйДокумент");
	Йоксель.ЗагрузитьИзТаблицы (Моксель);
	ПроверитьРавенство (Йоксель.Область (2, 3).Текст, "Тестовый текст");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестСоздатьЭлементУправления () Экспорт
	Параметры = СоздатьОбъект ("СписокЗначений");
	Параметры.Установить ("Команда", "СоздатьЭлементУправления");
	ОткрытьФормуМодально ("Обработка.ТестЭлементаУправления", Параметры);
	ПроверитьРавенство (Параметры.Получить ("Результат"), 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗаписатьКакИзображение () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "Тест";
	
	ИмяФайла = КаталогВременныхФайлов () + "TempImage.tmp";
	Если ФС.СуществуетФайл (ИмяФайла) = 1 Тогда
		ФС.УдалитьФайл (ИмяФайла);
	КонецЕсли;
	
	Картинка = СоздатьОбъект ("Картинка");
	
	Таб.ЗаписатьКакИзображение (ИмяФайла, "BMP");
	ПроверитьРавенство (ФС.СуществуетФайл (ИмяФайла), 1);
	
	ВсеВПорядке = 0;
	Попытка
		Картинка.Загрузить (ИмяФайла);
		ВсеВПорядке = 1;
	Исключение
	КонецПопытки;
	
	ФС.УдалитьФайл (ИмяФайла);
	ПроверитьРавенство (ВсеВПорядке, 1);
	
	Таб.ЗаписатьКакИзображение (ИмяФайла, "JPG");
	ПроверитьРавенство (ФС.СуществуетФайл (ИмяФайла), 1);
	
	ВсеВПорядке = 0;
	Попытка
		Картинка.Загрузить (ИмяФайла);
		ВсеВПорядке = 1;
	Исключение
	КонецПопытки;
	
	ФС.УдалитьФайл (ИмяФайла);
	ПроверитьРавенство (ВсеВПорядке, 1);
	
	Таб.ЗаписатьКакИзображение (ИмяФайла, "PNG");
	ПроверитьРавенство (ФС.СуществуетФайл (ИмяФайла), 1);

	// А от PNG одинэсина шизеет...
	
	//ВсеВПорядке = 0;
	//Попытка
	//	Картинка.Загрузить (ИмяФайла);
	//	ВсеВПорядке = 1;
	//Исключение
	//КонецПопытки;
	
	ФС.УдалитьФайл (ИмяФайла);
	ПроверитьРавенство (ВсеВПорядке, 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗаписать_ГрафическиеФорматы () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "Тест";
	
	ИмяФайла = КаталогВременныхФайлов () + "TempImage.tmp";
	Если ФС.СуществуетФайл (ИмяФайла) = 1 Тогда
		ФС.УдалитьФайл (ИмяФайла);
	КонецЕсли;
	
	Картинка = СоздатьОбъект ("Картинка");
	
	Таб.Записать (ИмяФайла, 4);
	ПроверитьРавенство (ФС.СуществуетФайл (ИмяФайла), 1);
	
	ВсеВПорядке = 0;
	Попытка
		Картинка.Загрузить (ИмяФайла);
		ВсеВПорядке = 1;
	Исключение
	КонецПопытки;
	
	ФС.УдалитьФайл (ИмяФайла);
	ПроверитьРавенство (ВсеВПорядке, 1);
	
	Таб.Записать (ИмяФайла, 5);
	ПроверитьРавенство (ФС.СуществуетФайл (ИмяФайла), 1);
	
	ВсеВПорядке = 0;
	Попытка
		Картинка.Загрузить (ИмяФайла);
		ВсеВПорядке = 1;
	Исключение
	КонецПопытки;
	
	ФС.УдалитьФайл (ИмяФайла);
	ПроверитьРавенство (ВсеВПорядке, 1);
	
	Таб.Записать (ИмяФайла, 6);
	ПроверитьРавенство (ФС.СуществуетФайл (ИмяФайла), 1);
	
	ВсеВПорядке = 0;
	Попытка
		//Картинка.Загрузить (ИмяФайла);
		ВсеВПорядке = 1;
	Исключение
	КонецПопытки;
	
	ФС.УдалитьФайл (ИмяФайла);
	ПроверитьРавенство (ВсеВПорядке, 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестИзвлечьКартинки () Экспорт
	ИмяКаталога = КаталогВременныхФайлов () + "YokselTests/";
	ВременныйКаталог = СоздатьОбъект ("ВременныйКаталог");
	ВременныйКаталог.УстановитьКаталог (ИмяКаталога);
	
	Если ФС.СуществуетФайл (ИмяКаталога) = 0 Тогда
		ФС.СоздатьКаталог (ИмяКаталога);
	КонецЕсли;
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Открыть (глОсновнойКаталог + "Файлы/PicturesTypes.mxl");
	Таб.ИзвлечьКартинки (ИмяКаталога, "картинка");
	
	ЕстьПНГ = 0;
	ЕстьВМФ = 0;
	ЕстьЕМФ = 0;
	ИмяФайла = ФС.НайтиПервыйФайл (ИмяКаталога + "*.*");
	
	Пока ПустаяСтрока (ИмяФайла) = 0 Цикл
		Если ((ИмяФайла = ".") ИЛИ (ИмяФайла = "..")) Тогда
			ИмяФайла = ФС.НайтиСледующийФайл ();
			Продолжить;
		КонецЕсли;
		
		ПроверитьРавенство (Лев (ИмяФайла, 8), "картинка");
		Расширение = Прав (ИмяФайла, 4);
		Если Расширение = ".png" Тогда
			ЕстьПНГ = 1;
		ИначеЕсли Расширение = ".wmf" Тогда
			ЕстьВМФ = 1;
		ИначеЕсли Расширение = ".emf" Тогда
			ЕстьЕМФ = 1;
		КонецЕсли;
		
		ИмяФайла = ФС.НайтиСледующийФайл ();
	КонецЦикла;
	
	Проверить (ЕстьПНГ);
	Проверить (ЕстьВМФ);
	Проверить (ЕстьЕМФ);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестДобавитьГруппуСтрок () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ДобавитьГруппуСтрок (4, 23);
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 23);
	
	ВсеНормально = 0;
	Попытка
		Таб.ДобавитьГруппуСтрок (-3, 7);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Таб.ДобавитьГруппуСтрок (3, -7);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	Таб.ДобавитьГруппуСтрок (25, 12);
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 25);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиСтрок (), 1);
	
	Таб.ДобавитьГруппуСтрок (30, 40);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиСтрок (), 1);
	
	Таб.ДобавитьГруппуСтрок (5, 10);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиСтрок (), 2);
	
	Таб.ДобавитьГруппуСтрок (7, 8);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиСтрок (), 3);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестДобавитьГруппуКолонок () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ДобавитьГруппуКолонок (4, 23);
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 23);
	
	ВсеНормально = 0;
	Попытка
		Таб.ДобавитьГруппуКолонок (-3, 7);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Таб.ДобавитьГруппуКолонок (3, -7);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	Таб.ДобавитьГруппуКолонок (25, 12);
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 25);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиКолонок (), 1);
	
	Таб.ДобавитьГруппуКолонок (30, 40);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиКолонок (), 1);
	
	Таб.ДобавитьГруппуКолонок (5, 10);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиКолонок (), 2);
	
	Таб.ДобавитьГруппуКолонок (7, 8);
	ПроверитьРавенство (Таб.КоличествоУровнейГруппировкиКолонок (), 3);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПоказатьУровеньГруппировокСтрок () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ДобавитьГруппуСтрок (2, 10);
	Таб.ДобавитьГруппуСтрок (4, 8);
	Таб.ДобавитьГруппуСтрок (5, 7);
	
	Таб.ПоказатьУровеньГруппировокСтрок (1);
	
	ПроверитьРавенство (Таб.Область (1).ВидимостьСтроки (), 1);
	Для Ч = 2 По 10 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 0);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокСтрок (2);
	Для Ч = 1 По 3 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 1);
	КонецЦикла;
	
	Для Ч = 4 По 8 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 0);
	КонецЦикла;
	
	Для Ч = 9 По 10 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокСтрок (3);
	
	Для Ч = 1 По 4 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 1);
	КонецЦикла;
	
	Для Ч = 5 По 7 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 0);
	КонецЦикла;
	
	Для Ч = 8 По 10 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокСтрок (4);
	Для Ч = 1 По 10 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокСтрок (20);
	Для Ч = 1 По 10 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокСтрок (-8);
	Для Ч = 1 По 10 Цикл
		ПроверитьРавенство (Таб.Область (Ч).ВидимостьСтроки (), 1);
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПоказатьУровеньГруппировокКолонок () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ДобавитьГруппуКолонок (2, 10);
	Таб.ДобавитьГруппуКолонок (4, 8);
	Таб.ДобавитьГруппуКолонок (5, 7);
	
	Таб.ПоказатьУровеньГруппировокКолонок (1);
	
	ПроверитьРавенство (Таб.Область (, 1).ВидимостьКолонки (), 1);
	Для Ч = 2 По 10 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 0);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокКолонок (2);
	Для Ч = 1 По 3 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 1);
	КонецЦикла;
	
	Для Ч = 4 По 8 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 0);
	КонецЦикла;
	
	Для Ч = 9 По 10 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокКолонок (3);
	
	Для Ч = 1 По 4 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 1);
	КонецЦикла;
	
	Для Ч = 5 По 7 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 0);
	КонецЦикла;
	
	Для Ч = 8 По 10 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокКолонок (4);
	Для Ч = 1 По 10 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокКолонок (20);
	Для Ч = 1 По 10 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 1);
	КонецЦикла;
	
	Таб.ПоказатьУровеньГруппировокКолонок (-8);
	Для Ч = 1 По 10 Цикл
		ПроверитьРавенство (Таб.Область (, Ч).ВидимостьКолонки (), 1);
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестИтогиСнизу () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	ПроверитьРавенство (Таб.ИтогиСнизу, 0);
	
	Таб.ИтогиСнизу = 1;
	ПроверитьРавенство (Таб.ИтогиСнизу, 1);
	
	Таб.ИтогиСнизу = 0;
	ПроверитьРавенство (Таб.ИтогиСнизу, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестИтогиСправа () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	ПроверитьРавенство (Таб.ИтогиСправа, 0);
	
	Таб.ИтогиСправа = 1;
	ПроверитьРавенство (Таб.ИтогиСправа, 1);
	
	Таб.ИтогиСправа = 0;
	ПроверитьРавенство (Таб.ИтогиСправа, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

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

//-----------------------------------------------------------------------------

Процедура тестГоризонтальноеПоложениеКнопокГрупп () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	ПроверитьРавенство (Таб.ГоризонтальноеПоложениеКнопокГрупп, 1);
	
	Таб.ГоризонтальноеПоложениеКнопокГрупп = 0;
	ПроверитьРавенство (Таб.ГоризонтальноеПоложениеКнопокГрупп, 0);
	
	Таб.ГоризонтальноеПоложениеКнопокГрупп = 2;
	ПроверитьРавенство (Таб.ГоризонтальноеПоложениеКнопокГрупп, 2);
	
	ВсеНормально = 0;
	Попытка
		Таб.ГоризонтальноеПоложениеКнопокГрупп = 6;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВертикальноеПоложениеКнопокГрупп () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	ПроверитьРавенство (Таб.ВертикальноеПоложениеКнопокГрупп, 1);
	
	Таб.ВертикальноеПоложениеКнопокГрупп = 0;
	ПроверитьРавенство (Таб.ВертикальноеПоложениеКнопокГрупп, 0);
	
	Таб.ВертикальноеПоложениеКнопокГрупп = 2;
	ПроверитьРавенство (Таб.ВертикальноеПоложениеКнопокГрупп, 2);
	
	ВсеНормально = 0;
	Попытка
		Таб.ВертикальноеПоложениеКнопокГрупп = 6;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестОбновитьВсеОтображения () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ОбновитьВсеОтображения ();
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестФиксироватьСтрокиСверху () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ФиксироватьСтрокиСверху = 5;
	ПроверитьРавенство (Таб.ФиксироватьСтрокиСверху, 5);
	Таб.ФиксироватьСтрокиСверху = 6;
	ПроверитьРавенство (Таб.ФиксироватьСтрокиСверху, 6);
	
	ВсеНормально = 0;
	Попытка
		Таб.ФиксироватьСтрокиСверху = -4;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестФиксироватьКолонкиСлева () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ФиксироватьКолонкиСлева = 5;
	ПроверитьРавенство (Таб.ФиксироватьКолонкиСлева, 5);
	Таб.ФиксироватьКолонкиСлева = 6;
	ПроверитьРавенство (Таб.ФиксироватьКолонкиСлева, 6);
	
	ВсеНормально = 0;
	Попытка
		Таб.ФиксироватьКолонкиСлева = -4;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВставитьВертикальныйРазделительСтраниц () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ВставитьВертикальныйРазделительСтраниц (4);
	Таб.ВставитьВертикальныйРазделительСтраниц (7);
	
	ВсеНормально = 0;
	Попытка
		Таб.ВставитьВертикальныйРазделительСтраниц (-1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВставитьГоризонтальныйРазделительСтраниц () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ВставитьГоризонтальныйРазделительСтраниц (4);
	Таб.ВставитьГоризонтальныйРазделительСтраниц (7);
	
	ВсеНормально = 0;
	Попытка
		Таб.ВставитьГоризонтальныйРазделительСтраниц (-1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестОтображатьРазделителиСтраниц () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.ОтображатьРазделителиСтраниц = 1;
	ПроверитьРавенство (Таб.ОтображатьРазделителиСтраниц, 1);
	Таб.ОтображатьРазделителиСтраниц = 0;
	ПроверитьРавенство (Таб.ОтображатьРазделителиСтраниц, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВставитьСтроки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "1.1";
	Таб.Область (2, 1).Текст = "2.1";
	Таб.ВставитьСтроки (2, 1);
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 3);
	ПроверитьРавенство (Таб.Область (1, 1).Текст, "1.1");
	ПроверитьРавенство (Таб.Область (3, 1).Текст, "2.1");
	
	ВсеНормально = 0;
	Попытка
		Таб.ВставитьСтроки (-1, 1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Таб.ВставитьСтроки (1, -1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВставитьКолонки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "1.1";
	Таб.Область (1, 2).Текст = "1.2";
	Таб.ВставитьКолонки (2, 1);
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 3);
	ПроверитьРавенство (Таб.Область (1, 1).Текст, "1.1");
	ПроверитьРавенство (Таб.Область (1, 3).Текст, "1.2");
	
	ВсеНормально = 0;
	Попытка
		Таб.ВставитьКолонки (-1, 1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Таб.ВставитьКолонки (1, -1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестУдалитьСтроки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "1.1";
	Таб.Область (2, 1).Текст = "2.1";
	Таб.Область (3, 1).Текст = "3.1";
	
	Таб.УдалитьСтроки (2, 1);
	ПроверитьРавенство (Таб.ВысотаТаблицы (), 2);
	ПроверитьРавенство (Таб.Область (1, 1).Текст, "1.1");
	ПроверитьРавенство (Таб.Область (2, 1).Текст, "3.1");
	
	ВсеНормально = 0;
	Попытка
		Таб.УдалитьСтроки (-1, 1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Таб.УдалитьСтроки (1, -1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестУдалитьКолонки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "1.1";
	Таб.Область (1, 2).Текст = "1.2";
	Таб.Область (1, 3).Текст = "1.3";
	
	Таб.УдалитьКолонки (2, 1);
	ПроверитьРавенство (Таб.ШиринаТаблицы (), 2);
	ПроверитьРавенство (Таб.Область (1, 1).Текст, "1.1");
	ПроверитьРавенство (Таб.Область (1, 2).Текст, "1.3");
	
	ВсеНормально = 0;
	Попытка
		Таб.УдалитьКолонки (-1, 1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Таб.УдалитьКолонки (1, -1);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры
