показывается » Поиск

Результаты по ключевому слову: показывается

Как табличный документ заполнить на сервере и открыть на клиенте?

Табличный документ создается на клиенте - заполняется на сервере возвращается клиенту и показывается на клиенте

Код 1C v 8.2 УП

 &НаКлиенте



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



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



ТабДок.Показать("Заголовок окна");

&НаСервере или &НаСервереБезКонтекста - в зависимости от необходимости в передаче контекста

Код 1C v 8.2 УП

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

Процедура СерверЗаполнитьТабличныйДокумент(ТабДок)



//... заполняем таб

Макет = Справочники.Справочник1.ПолучитьМакет("Макет11");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Справочник1.Месяц,

| Справочник1.Сумма

|ИЗ

| Справочник.Справочник1 КАК Справочник1";



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



ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

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

ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

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

ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");



ТабДок.Очистить();

ТабДок.Вывести(ОбластьЗаголовок);

ТабДок.Вывести(ОбластьШапкаТаблицы);



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



Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);

ТабДок.Вывести(ОбластьДетальныхЗаписей);

КонецЦикла;



ТабДок.Вывести(ОбластьПодвалТаблицы);

ТабДок.Вывести(ОбластьПодвал);



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

Категория: Табличный документ

Отзыв из отпуска. Категория: 1С Зарплата и Управление Персоналом 2.5

Отмена создания документа в Обработке Заполнения Категория: Документы

Быстрая выгрузка отчетов в Excel, наложение Фильта и отображение ярлыка

Вместо Таб.Показать() используем глобальную функцию - и отчет показывается сразу в Excel в удобоваримом виде - с форматированием колонок по ширине, автофильтром и ярлычками листов

Код 1C v 7.x

 Процедура глОткрытьВЭкселе(Таб,ИмяФайла="",НеИзменятьВысотуСтроки=0) Экспорт

	Попытка 

		// запускаем Excel-Server 

		Excel = СоздатьОбъект("Excel.Application");

	Исключение       

		Excel = 0;

		Предупреждение("MS Excel не загружен!");

		Возврат;

	КонецПопытки;   

	

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

		Excel.WorkBooks.Open(Таб);

	Иначе                                                          

		Если НеИзменятьВысотуСтроки=0 Тогда

			ШиринаТаблицы=Таб.ШиринаТаблицы();

			Область=Таб.Область(1,1,Таб.ВысотаТаблицы(),ШиринаТаблицы);

			Область.ВысотаСтроки(12);                 

		КонецЕсли;

		

		Если Найти(ИмяФайла,":")=0 Тогда

			ИмяФайла=КаталогПользователя()+ИмяФайла;

		КонецЕсли;

		Если Найти(Врег(ИмяФайла),"XLS")=0 Тогда

			ИмяФайла=ИмяФайла+".xls";

		КонецЕсли;

		

		Таб.Записать(?(ПустоеЗначение(ИмяФайла)=0,ИмяФайла,КаталогПользователя()+"Таблица.xls"),"XLS");

		Excel.WorkBooks.Open(ИмяФайла);

		

		Excel.Visible = 0;

		

		//добавляем автофильтр и форматирование колонок по ширине

		Excel.Columns.AutoFit();

		Range = Excel.Range(Excel.Cells(1, 1), Excel.Cells(1, ШиринаТаблицы));

		Range.S_elect();

		Range.AutoFilter();

		

		//показываем вечно прячущиеся ярлычки листов

		Excel.ActiveWindow.DisplayWorkbookTabs = -1;

		Excel.ActiveWindow.TabRatio = 0.25;

	КонецЕсли;

	

	Excel.Visible=1;	  

	Excel=0;

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

mikukrnet

Категория: Работа с Microsoft Office и OpenOffice

Внешние обработки, печатные формы, обработки по заполнению табличных частей Категория: Внешние печатные формы, отчеты и обработк�…