Alister писал(а) 19. Мая 2008 :: 18:49:


Окно наверное отображено, потому-что

лКонт.Защита(1); 

и

лКонт.ТолькоПросмотр(1); 

срабатывают без проблем.
Yoksel тоже нормально загружает из таблицы, почему-то только закрыватся не хочет.

Я пробовал захватывать Yoksel - ем таблички любых печатных форм. Смотри первый вариант моего кода.  

Alister писал(а) 19. Мая 2008 :: 18:55:

Я ж говорю, иногда НА ВИД все вроде как работает, но на деле документ не ЗАКРЫВАЕТСЯ и происходят утечки памяти. Проверяется открытие очень больших таблиц. Например, которые в памяти занимают, скажем, 400Мб. Если в 1С вручную открыть такую таблицу, закрыть и открыть заново, то 1С будет занимать 400Мб. Если открытую таблицу закрыть программно после АктивныйКонтекст, а потом опять открыть, то 1С уже займет 800 Мб.

Поэтому код у тебя может быть и рабочий, но весьма вероятно, что приводит к постоянным ликам. Просто из-за небольшого объема таблиц и/или из-за небольшого количества обрабатываемых таблиц ты этого лика не замечаешь.

Donat , я так понял, что после открытия обычной 1С таблицы, ты передаешь ее Yoksel ( у которого свое окно ? ) поэтому закрываешь 1С таблицу ?

Alister писал(а) 19. Мая 2008 :: 19:09:

Не надо намекать на Йоксель, он ни в чем не виноват 

В обработке mxl=>xls я вообще просто делаю Таблица.Записать, ТабличныйДокумент.Открыть. Йоксель даже близко не касается полученной таблицы. А эффект от закрытия таблицы все равно нехороший. Поэтому я вообще убрал закрытие таблицы. Хотя с ним было бы гораздо лучше - потребление памяти не было бы таким большим.

Да нет Yoksel тут действительно не причем.
Глюк либо в ПолучитьАктивныйКонтекст, либо в ПриАктивацииОкна.

Donat писал(а) 19. Мая 2008 :: 19:37:

Ясен пень. Так как у таблицы нет формы в обычном понимании. У Таблицы в данном случае есть только Контекст.

Ради интереса попробовал так

срр_Сервис.ОбработкаОжидания("ОбработкаОж",500); 

и собственно

Процедура ОбработкаОж() Экспорт
	Перем лКонт;
	Если срр_Сервис <> -1 Тогда
		Если  срр_Сервис.АктивныйКонтекст(лКонт) = 1 Тогда
			Если ТипЗначенияСтр(лКонт) = "Таблица" Тогда

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

			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры
 

или

Процедура ОбработкаОж() Экспорт
	Перем лКонт;
	Если срр_Сервис <> -1 Тогда
		список = срр_Сервис.СписокТаблиц();
		Если  список.РазмерСписка() > 0 Тогда
			Для о = 1 По список.РазмерСписка() Цикл
				лКонт = список.ПолучитьЗначение(о);
				Если ТипЗначенияСтр(лКонт) = "Таблица" Тогда

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

				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры
 

но во втором варианте начинает повторно грузить в Йоксель его же таблицу, а в первом нет