номерстраницы » Поиск

Результаты по ключевому слову: номерстраницы

Как в СКД повторять шапку на каждой странице при печати и вывести колонтитулы?

Нужно выводить на каждой странице отчета, шапку. Отчет сделан через СКД (Схема компоновки данных). В схеме есть макет, в нем есть ячейки шапки.

Для этого используется метод - ПовторятьПриПечатиСтроки, о нем я уже писал: Как при печати выводить шапку на каждой странице (ПовторятьПриПечатиСтроки)?

Код кнопки формирования отчета:

Код 1C v 8.3

 СводнаяКартаРезультат = Новый ТабличныйДокумент;

   

ПечатьСводнойКартыНаСервере(СводнаяКартаРезультат);

СводнаяКартаРезультат.Показать("СводнаяКарта");

Процедура вывода отчета:

Код 1C v 8.3

 &НаСервере

Процедура ПечатьСводнойКартыНаСервере(СводнаяКартаРезультат)   

   СхемаКомпоновкиДанных = Справочники.Номенклатура.ПолучитьМакет("МакетСводнаяКарта");   

   

   СводнаяКартаРезультат.ПовторятьПриПечатиСтроки = СводнаяКартаРезультат.Область(7, , 7); // <- Строки вывода повторения нужно считать в уже результате вывода, а не в макете!

   

   Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;

      

   НомеклатураСсылка = Настройки.ПараметрыДанных.Элементы.Найти("НоменклатураСсылка");   

   НомеклатураСсылка.Значение = Объект.Ссылка;

   НомеклатураСсылка.Использование = Истина;

   

   ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;



   МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки, ДанныеРасшифровки);



   ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

   ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);



   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

   ПроцессорВывода.УстановитьДокумент(СводнаяКартаРезультат);

   //ПроцессорВывода.ОтображатьПроцентВывода = Истина;

   

   ПроцессорВывода.НачатьВывод();

   ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);   

   ПроцессорВывода.ЗакончитьВывод();

   

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

Если дополнительно нужно вывести колонтитулы,

тогда:

Код 1C v 8.3

 // Верхний колонтитул 

ТабДок.ВерхнийКолонтитул.Выводить = Истина;

ТабДок.ВерхнийКолонтитул.НачальнаяСтраница = 2;

ТабДок.ВерхнийКолонтитул.Шрифт = Новый Шрифт(Результат.ВерхнийКолонтитул.Шрифт, , , , Истина);

ТабДок.ВерхнийКолонтитул.ТекстСлева = "Заголовок отчета";

ТабДок.ВерхнийКолонтитул.ТекстВЦентре = "Стр. [&НомерСтраницы] из [&СтраницВсего]";

ТабДок.ВерхнийКолонтитул.ТекстСправа = "Дата/время печати: [&Дата]/[&Время]";

	

// Нижний колонтитул 

ТабДок.НижнийКолонтитул.Выводить = Истина;

ТабДок.НижнийКолонтитул.Шрифт = Новый Шрифт(Результат.ВерхнийКолонтитул.Шрифт, , , , Истина);

ТабДок.НижнийКолонтитул.ТекстВЦентре = "Заголовок отчета";

Категория: Схема Компоновки Данных

Табличный документ: Колонтитулы и параметры страницы

Большинство обучающих материалов по программированию в системе 1С при описании формирования печатных форм на основе объекта «Табличный документ» ограничиваются выводом готовой формы на экран. Для пользователей же куда более важным является то, как документ будет выглядеть в распечатанном виде. Здесь, кроме хорошо сверстанного макета, играют роль и установки параметров печати.Почти все параметры, доступные в диалогах настройки печати (настройки принтера, свойства страницы), можно указать непосредственно при формировании табличного документа.Рассмотрим свойства и методы табличного документа, относящиеся к настройкам печати (в приведенных примерах «ТабДок» это объект типа «Табличный документ»).

Свойство «ИмяПринтера» позволяет задать для печати принтер, отличный от установленного по умолчанию. Имя должно совпадать с именем принтера, заданным в системе:

ТабДок.ИмяПринтера="HP LaserJet 3050 Series PCL 6";

При печати пакета документов можно сэкономить время, установив признак разбора по копиям:

ТабДок.РазборПоКопиям=истина;

Число копий можно указать так:

ТабДок.КоличествоЭкземпляров=5;

Разумеется, можно задать поля:

ТабДок.ПолеСлева=20;//Поле слева 20мм, остальные поля 10мм (по умолчанию)

Еще несколько свойств страницы:

ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт; ТабДок.ЭкземпляровНаСтранице=2; //на листе будет размещено 2 страницы ТабДок.Автомасштаб=истина; //аналогично настройкам масштаба «по ширине страницы»

При необходимости можно указать конкретное значение масштабирования в процентах (свойство «МасштабПечати»).

Свойство «РазмерСтраницы» позволяет задать стандартные форматы страницы – “A3”, “A4”, “A5” (полный список вариантов доступен в справке 1С).

ТабДок.РазмерСтраницы="A3";// буква А должна быть английской

Для нестандартного размера бумаги (Custom) можно указать значения высоты и ширины страницы (в мм):

ТабДок.РазмерСтраницы="Custom";//нестандартный размер ТабДок.ВысотаСтраницы=350; ТабДок.ШиринаСтраницы=350;

Также в табличном документе доступно управление выводом колонтитулов и их содержимым. Для этого служат свойства «ВерхнийКолонтитул» и «НижнийКолонтитул». Например:

ТабДок.ВерхнийКолонтитул.Выводить=истина; //будет напечатан верхний колонтитул ТабДок.РазмерКолонтитулаСверху=7; //размер колонтитула 7мм (по умолчанию 10мм) ТабДок.ВерхнийКолонтитул.ВертикальноеПоложение=ВертикальноеПоложение.Верх; ТабДок.ВерхнийКолонтитул.НачальнаяСтраница=2;//колонтитул выводится со второй страницы ШрифтКолонтитула=Новый Шрифт("Courier New", 8,,Истина); ТабДок.ВерхнийКолонтитул.Шрифт=ШрифтКолонтитула; //наклонный шрифт ТабДок.ВерхнийКолонтитул.ТекстВЦентре="Верхний колонтитул"; ТабДок.ВерхнийКолонтитул.ТекстСправа="Стр.[&НомерСтраницы] из [&СтраницВсего]"; //нумерация страниц ТабДок.ВерхнийКолонтитул.ТекстСлева="[&Дата]";//текущая дата

Сформированный документ отправляется на печать с помощью метода «Напечатать()». Возможно два варианта вызова.

1) Непосредственно на принтер:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать); ТабДок.Напечатать(истина);

2) Перед печатью будет выведен диалог печати:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.Использовать); ТабДок.Напечатать(ложь);

Кроме того можно управлять и разбиением документа на страницы. Оценить количество страниц в документе по настройкам текущего принтера можно так:

ТабДок.КоличествоСтраниц();

С помощью методов «ПроверитьВывод()» и «ПроверитьПрисоединение()» можно определить, умещается ли табличный документ или массив областей табличного документа на странице в высоту и в ширину при текущих настройках принтера.Надо иметь ввиду, что работа последних трех методов зависит от установленного принтера. Если методу не удается его найти, вызывается исключение.

Принудительно вставить разрывы страниц позволяют методы «ВывестиВертикальныйРазделительСтраниц()» и «ВывестиГоризонтальныйРазделительСтраниц()».Таким образом, можно управлять постраничным выводом на печать и контролировать заполнение страницы:

Если Не ТабДок.ПроверитьВывод(МассивВыводимыхОбластей) Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;

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

Универсальная функция для чтения данных из Excel в 1С

Иногда требуется разобрать данные из Excel в 1С.
Я считаю что легче и быстрей поместить все данные в ТаблицуЗначений и уже там ими манипулировать.
Пример 2-х функций которые я использую:
ИзExcelВТаблицу – Читает Excel в ТаблицуЗначений
ЭлементСправочника – Создает или находит элемент справочника.
Теперь сам код:

Код 1C v 8.х

 // Загрузка данных из Excel файла в ТаблицуЗначений 

// Возвращает ТаблицуЗначений с данными 

// ПутьДоExcel - путь до Excel файла

// НомерСтраницы - Номер страницы в Excel

// ПерСтрокаЗаголовок - первая строка Excel содержит имена столбцов

// ФормаИндикатора - Стандартная форма прогресса работы

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

    Попытка

        Док = ПолучитьCOMОбъект(ПутьДоExcel); 

    Исключение

        Сообщить("Произошла ошибка при обращение к Excel:" + Символы.ПС + ОписаниеОшибки());

        Возврат Неопределено;

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

 

    ЗакрытьФормуИндиктаора = Ложь;  

    Если ФормаИндикатора = Неопределено тогда

        ЗакрытьФормуИндиктаора = Истина;

        ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");       

        ФормаИндикатора.Открыть();  

    КонецЕсли;      

    ФормаИндикатора.КомментарийЗначения = "Загрузка данных из Excel...";

     

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

    Страница = Док.Sheets(НомерСтраницы);

    МакСтрок = Страница.UsedRange.Rows.Count;       // макс. колич. строк

    МакСтолб = Страница.UsedRange.Columns.Count;    // макс. колич. столбцов    

     

    Для Столбец = 1 по МакСтолб цикл

        ИмяСтолбца = "Столбец_"  + Столбец;

        Если ПерСтрокаЗаголовок тогда

            ИмяСтолбца = Страница.Cells(1,Столбец).Value;

            ИмяСтолбца = СокрЛП(ИмяСтолбца);

            ИмяСтолбца = СтрЗаменить(ИмяСтолбца," ","_");

        КонецЕсли;                      

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

    КонецЦикла; 

     

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

    Если ПерСтрокаЗаголовок тогда                                       

        НачальнаяСтрока = 2;

    КонецЕсли;          

     

    Для НомСтрока = НачальнаяСтрока по МакСтрок цикл

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

        Для НомСтолбец = 1 по МакСтолб цикл

            Данные = Страница.Cells(НомСтрока,НомСтолбец).Value;                

            СтрТЗ[НомСтолбец-1] = Данные;

        КонецЦикла;     

         

        ФормаИндикатора.ЭлементыФормы.Индикатор.Значение = НомСтрока/МакСтрок * 100;        

    КонецЦикла;     

     

    Если ЗакрытьФормуИндиктаора тогда

        ФормаИндикатора.Закрыть();

    КонецЕсли;      

     

    Возврат ТЗ; 

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

Пример вызова:

Код 1C v 8.х

 ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");

ФормаИндикатора.НаименованиеОбработкиДанных = "Загрузка данных...";     

ФормаИндикатора.Открыть();  

     

ТЗ = ИзExcelВТаблицу(ФайлExcel,1,Истина,ФормаИндикатора);       

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

    ФормаИндикатора.Закрыть();

    Возврат;

КонецЕсли;              

     

ФормаИндикатора.Закрыть();

или

Код 1C v 8.х

 ТЗ = ИзExcelВТаблицу(ФайлExcel);        

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

    Возврат;

КонецЕсли;

Теперь функция которой я использую когда надо создать элемент справочника из полученных данных.

Код 1C v 8.х

 // Создаем в справочнике "ИмяСправочника" элемент

// ИмяЭлемента - Имя созданного элемента в справочнике "ИмяСправочника"

// ИмяРодителя - Имя родительского элемента (отсутствует если не древовидный).

//               Разделитель \\ позволяет писать древовидный путь родителя из нескольких элементов

// Параметры - Соответствие содержащие список параметров для элемента

// СоздатьЕслиНетЭлемента - Создает элемент если нет. Иначе ищет и обновляет

Функция ЭлементСправочника(ИмяСправочника = "",ИмяЭлемента, ИмяРодителя = Неопределено, Параметры = Неопределено, СоздатьЕслиНетЭлемента=Истина)

    Если ИмяСправочника = "" тогда

        Сообщить("Укажите имя спрачоника - ЭлементСправочника()");

        Возврат Неопределено;

    КонецЕсли;      

     

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

        Возврат Неопределено;

    КонецЕсли;      

     

    // Создаем или ищем родителя

    Родитель = Неопределено;    

    Если ИмяРодителя <> Неопределено тогда

         

        ОбрабатИмяРодителя = ИмяРодителя;

        РодительГруппы = Справочники[ИмяСправочника].ПустаяСсылка();

         

        Пока НЕ ПустаяСтрока(ОбрабатИмяРодителя) цикл

             

            ПозРазделителя = Найти(ОбрабатИмяРодителя,"\\");

            Если ПозРазделителя = 0 тогда

                ИмяГруппы = ОбрабатИмяРодителя;

                ОбрабатИмяРодителя = ""                       

            Иначе

                ИмяГруппы = Сред(ОбрабатИмяРодителя,1, ПозРазделителя-1);               

                ОбрабатИмяРодителя = Сред(ОбрабатИмяРодителя,ПозРазделителя+2);                 

            КонецЕсли;      

             

            ТексЗапроса = "ВЫБРАТЬ

                          | Данные.Ссылка

                          |ИЗ

                          | Справочник."+ИмяСправочника+" КАК Данные

                          |ГДЕ

                          | Данные.Родитель = &Родитель

                          | И Данные.Наименование = &Наименование

                          | И Данные.ЭтоГруппа";

                           

            ЗапросРодителя = Новый Запрос(ТексЗапроса);

            ЗапросРодителя.УстановитьПараметр("Родитель", РодительГруппы);

            ЗапросРодителя.УстановитьПараметр("Наименование", ИмяГруппы);

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

 

            // Создаем родителя в случае необходимости          

            Если РезультатРодителя.Количество() <> 0 тогда

                РодительГруппы = РезультатРодителя[0].Ссылка

            Иначе               

                ОбъектРодитель = Справочники[ИмяСправочника].СоздатьГруппу();

                ОбъектРодитель.Родитель = РодительГруппы;

                ОбъектРодитель.Наименование = ИмяГруппы;

                ОбъектРодитель.Записать();

                РодительГруппы = ОбъектРодитель.Ссылка;

            КонецЕсли;              

        КонецЦикла;         

        Родитель = РодительГруппы;

    КонецЕсли;      

     

    // Создаем или ищем элемент

    Элемент = Справочники[ИмяСправочника].НайтиПоНаименованию(ИмяЭлемента);

    ОбъектЭлемент = Неопределено;

     

    Если Элемент.Пустая() тогда

        Если СоздатьЕслиНетЭлемента тогда

            ОбъектЭлемент = Справочники[ИмяСправочника].СоздатьЭлемент();

            ОбъектЭлемент.Наименование = ИмяЭлемента;

        Иначе 

            Элемент = Неопределено

        КонецЕсли;              

    Иначе

        ОбъектЭлемент = Элемент.ПолучитьОбъект(); 

    КонецЕсли;  

     

     

    Если ОбъектЭлемент <> Неопределено тогда        

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

        Если Параметры <> Неопределено тогда      

            Для каждого СтрПараметр из Параметры цикл               

                ОбъектЭлемент[СтрПараметр.Ключ] = СтрПараметр.Значение;

            КонецЦикла;         

        КонецЕсли;  

                 

        Если Родитель <> Неопределено тогда       

            ОбъектЭлемент.Родитель = Родитель;  

        КонецЕсли;

     

        ОбъектЭлемент.Записать();                   

        Элемент = ОбъектЭлемент.Ссылка; 

    КонецЕсли;      

         

    Возврат Элемент;

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

Автор: borismor

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

Загрузка списка номенклатуры в ТЗ из Excel

Код 1C v 8.х

   

  Попытка

	  XLSОбъектОсновной = Новый COMОбъект("Excel.Application");

  Исключение

	  Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");

	  Возврат;

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

										  

  XLSОбъектКниги = XLSОбъектОсновной.WorkBooks;

										  

  Попытка

	  XLSОбъект = XLSОбъектКниги.Open(элементыформы.пвИмяФайла.Значение);

  Исключение

	  Предупреждение("Невозможно открыть файл " + элементыформы.пвИмяФайла.Значение + " !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");

	  Возврат;

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

										  

  XLSОбъект.Application.Caption = "Открыто из 1С";

  //определим диапозоны

  Если НомерСтрокиСДанными = 0 Тогда

	  // То с первой строки

	  НомерСтрокиСДанными = 1;

  КонецЕсли; 

										  

  Если НомерСтраницы = 0 Тогда

	  // То с первой страницы

	  НомерСтраницы = 1;

  КонецЕсли; 

										  

  Лист = XLSОбъект.Sheets(НомерСтраницы);

  

  Если КолВоКолонок = 0 Тогда

  	//КолВоКолонок не установлено, будем автоматически заполнять

  	КолВоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

  КонецЕсли;

										  

  Если КолВоСтрок = 0 Тогда

	  // КолВоСтрок не уставновлено, Будем автоматически заполнять количество строк.

	  КолВоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

  КонецЕсли;

  // ТЗДанных - Таблица значений на форме

  ТЗДанных.Очистить();

  Лист = XLSОбъект.Sheets(НомерСтраницы);

  Для чС = (НомерСтрокиСДанными + 1) По КолВоСтрок Цикл

	  Состояние("Загружаем строки:" + чС);

	  ностр=ТЗДанных.Добавить();

	  попытка

		  //грузим  номенклатуру

		  Ячейка = Лист.Cells(чС,1);

		  ностр.НоменклатураЕксел = Ячейка.Value;

	  исключение

		  сообщить("Номенклатура - строка - "+чс + Символы.ПС + ОписаниеОшибки());

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

	  попытка

		  //грузим  количество

		  Ячейка = Лист.Cells(чС, 2);

		  ностр.Количество = Ячейка.Value;

	  исключение

		  сообщить("Количество - строка - "+чс + Символы.ПС + ОписаниеОшибки());

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

	  попытка

		  //грузим  сумму

		  Ячейка = Лист.Cells(чС, 3);

		  ностр.Сумма = Ячейка.Value;

	  исключение

		  сообщить("Сумма - строка - "+чс + Символы.ПС + ОписаниеОшибки());

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

	  попытка

		  //грузим  единица измерения

		  Ячейка = Лист.Cells(чС, 4);

		  ностр.ЕдИзмеренияЕксел = Ячейка.Value;

	  исключение

		  сообщить("Ед. измерения - строка - "+чс + Символы.ПС + ОписаниеОшибки());

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

	  //КонецЦикла;

  КонецЦикла;



  XLSОбъект.Application.Quit();

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

Вывод колонтитулов программно ВерхнийКолонтитул, НижнийКолонтитул Категория: Табличный документ