полноенаименование » Поиск

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

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

Необходимо при печати, если происходит переход на следующую страницу таблицы, выводить шапку таблицы вверху на новой странице.

для печати шапки на каждой странице в языке программирования есть специальный метод - ПовторятьПриПечатиСтроки

Примеры его использования:

Код 1C v 8.х

 ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(1, , 2, );

ЭлементыФормы.Поле_ТД.ПовторятьПриПечатиСтроки = Макет.Область("Шапка_Спецификации"); //или так  

ЭлементыФормы.Поле_ТД.ПовторятьПриПечатиСтроки = Макет.Область("R777:R778");

Полный код вывода табличного документа с повторением шапки на каждой странице:

Код 1C v 8.х

 Функция ПечатьПриказаТ11а()



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

	ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПечатнаяФорма_МатериальнаяПомощь_Т11а";

	ТабДокумент.ПовторятьПриПечатиСтроки = ТабДокумент.Область("R21:R22");

	

	Макет 		= ПолучитьМакет("Т11а");

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

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

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

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





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

	ВыборкаРаботники = СформироватьЗапросДляТабличнойЧасти(1).Выбрать();  		// ТЧ "Начисления"

	Если ВыборкаРаботники.Количество() = 0 Тогда

		ВыборкаРаботники = СформироватьЗапросДляТабличнойЧасти(2).Выбрать();	// ТЧ "Доп.Начисления"

	КонецЕсли;		

	

	// Массив с двумя строками - для разбиения на страницы

	ВыводимыеОбласти = Новый Массив();

	ВыводимыеОбласти.Добавить(ОбластьМакетаСтрока);

	

	// Вывод шапки документа

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

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

 		ОбластьМакетаШапкаДокумента.Параметры.НазваниеОрганизации = СокрЛП(ОбластьМакетаШапкаДокумента.Параметры.НазваниеОрганизации);

	КонецЦикла;

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

	ном=0;

	Пока ВыборкаРаботники.Следующий() Цикл

		ОбластьМакетаСтрока.Параметры.Заполнить(ВыборкаРаботники);

		ном=ном+1;

		ОбластьМакетаСтрока.Параметры.ПодразделениеОрганизации	= ВыборкаРаботники.ПодразделениеОрганизации.ПолноеНаименование();		

		ОбластьМакетаСтрока.Параметры.ном=ном;

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

	КонецЦикла;

	

	ОбластьМакетаПодвал.Параметры.Заполнить(ВыборкаДляШапкиДокумента); // Из запроса шапка документа.

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





	Если ТабДокумент.ВысотаТаблицы > 0 Тогда

		Возврат УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, 1, Ложь, ОбщегоНазначения.СформироватьЗаголовокДокумента(СсылкаНаОбъект,"Приказ о поощрении работника "));

	КонецЕсли;

	//Возврат ТабДокумент;



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

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

Как получить Имя предопределенного элемента справочника и его Код?

СправочникМенеджер.<Имя справочника>.ПолучитьИмяПредопределенного (CatalogManager.<Имя справочника>.GetPredefinedItemName)
СправочникМенеджер.<Имя справочника> (CatalogManager.<Имя справочника>)
ПолучитьИмяПредопределенного (GetPredefinedItemName)
Синтаксис:

Код 1C v 8.х

 ПолучитьИмяПредопределенного(<Ссылка>)

Параметры: <Ссылка> (обязательный)
Тип: СправочникСсылка. Ссылка на элемент, имя которого требуется получить.Возвращаемое значение:
Тип: Строка.
Описание: Получает имя предопределенного элемента. Если данный элемент не является предопределенным, то возвращается пустая строка.
Доступность: Сервер, толстый клиент, внешнее соединение.

Код 1C v 8.х

 СпрНоменклатура = Справочники.Номенклатура;

Имя = СпрНоменклатура.ПолучитьИмяПредопределенного(СпрНоменклатура.НовоеЗначение);

Код 1C v 8.х

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

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

|    КлассификаторИспользованияРабочегоВремени.Ссылка,

|    КлассификаторИспользованияРабочегоВремени.ПометкаУдаления,

|    КлассификаторИспользованияРабочегоВремени.Предопределенный,

|    КлассификаторИспользованияРабочегоВремени.Наименование,

|    КлассификаторИспользованияРабочегоВремени.БуквенныйКод,

|    КлассификаторИспользованияРабочегоВремени.ЦифровойКод,

|    КлассификаторИспользованияРабочегоВремени.ПолноеНаименование,

|    КлассификаторИспользованияРабочегоВремени.УдалитьВидВремени, 

|    КлассификаторИспользованияРабочегоВремени.РабочееВремя

|ИЗ

|    Справочник.КлассификаторИспользованияРабочегоВремени КАК КлассификаторИспользованияРабочегоВремени";



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

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

Пока Выборка.Следующий() Цикл

     ИмяЭлемента = Справочники.КлассификаторИспользованияРабочегоВремени.ПолучитьИмяПредопределенного(Выборка.Ссылка);

     сообщить(Строка(Выборка.ссылка)+" : "+ИмяЭлемента);

КонецЦикла;

Получить Код предопределенного элемента невозможно
Смотри тему: Получение кода предопределенного элемента

Категория: Справочники

Загрузка данных из MS Excel через объект ADODB

Данный метод обладает гораздо большей производительностью и простотой, чем банальный объектный метод через COM соединение.

Все что потребуется это создание 2 объектов
* ADODB.Connection
* ADODB. Recordset

Здесь универсальная обработка по загрузке Номенклатуры из Excel:

Код 1C v 8.х

 // Функция для Платформы 1С 8.0 или 8.1

// Выполняет загрузку из файла Excel

//

// Параметры

//  ПутьКФайлу  - <Строка>            - путь к файлу xls

//

// Автор: ---%%%Gmix 16.03.2006 12:38:48

//     

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

//   <Булево>   – Истина загрузка произошла

//                                             - Ложь загрузки не было

//

Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт

       

            Файл=Новый Файл(ПутьКФайлу);



            Если Файл.Существует() Тогда

                        Стр_Файл=Файл.ПолноеИмя;

        

                        // Отрезаем слеш если он есть в конце пути

                        Стр_Путь=Файл.Путь;

                        Если Прав(Стр_Путь,1)="\" Тогда

                                   Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1);

                        КонецЕсли;

                       

                        // Строка корнекта

                        Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)};

                    |DriverId=790;

                    |Dbq="+Стр_Файл+";

                    |DefaultDir="+Стр_Путь+";"; 

                        Об_Конект = Новый COMОбъект("ADODB.Connection");

                        Попытка

                                    Об_Конект.Open(Стр_Конект);           

                        Исключение

                                   Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!

                                   |Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");

                                   Возврат Ложь;

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

                       

                        // формируем запрос

                        // Здесь есть нюанс первая строка данных всегда будет являться заголовком

// если она пустая то имена клонок формируются следующим образом F<Номер колонки>

                        Стр_SQL = "S_elect

                |     F1 as Артикул,

                |     F2 as Наименование,

                |     F3 as ПолноеНаименование

                | FROM [A1:AZ100000]

                | WHERE ((F1 Is Not Null) AND (F1 <>''))";

                Об_РекордСет = Новый COMОбъект("ADODB.Recordset");



                        Попытка

                                   Об_РекордСет=Об_Конект.Execute(Стр_SQL);

                        Исключение

                                   Сообщить("Не удадлось выполнить запрос к файлу Excel

                                   |"+ ОписаниеОшибки(),СтатусСообщения.Важное);

                                   Возврат Ложь;

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



                     

                        Пока НЕ Об_РекордСет.EOF Цикл

                                  // Получаем данные из Об_РекордСет

                                   // ...

                      Сообщить("");

                                   Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл

                // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 

                                   КонецЦикла;

                                   // ...

                                   Об_РекордСет.MoveNext();

                        КонецЦикла;

                      

                        Об_Конект.Close();     // Закрываем конект

                        Об_Конект=Неопределено;

                        Об_РекордСет=Неопределено;



                        Возврат Истина;

            Иначе

                        Сообщить("Файл "+ПутьКФайлу+" не найден!");

                        Возврат Ложь;

            КонецЕсли;

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

Категория: Конвертация данных, Обмен, Перенос

Загрузка данных из MS Excel через объект ADODB

Код 1C v 8.х

 // Выполняет загрузку из файла Excel

// Параметры

//  ПутьКФайлу  - <Строка>            - путь к файлу xls

// Автор: ---%%%Gmix 16.03.2006 12:38:48

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

//   <Булево>   – Истина загрузка произошла

//                       - Ложь загрузки не было

Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт



            Файл=Новый Файл(ПутьКФайлу);



            Если Файл.Существует() Тогда

                        Стр_Файл=Файл.ПолноеИмя;

                        // Отрезаем слеш если он есть в конце пути

                        Стр_Путь=Файл.Путь;

                        Если Прав(Стр_Путь,1)="\" Тогда

                                   Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1);

                        КонецЕсли;

                     // Строка корнекта

                    Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)};

                    |DriverId=790;

                    |Dbq="+Стр_Файл+";

                    |DefaultDir="+Стр_Путь+";"; 

                        Об_Конект = Новый COMОбъект("ADODB.Connection");

                        Попытка

                                    Об_Конект.Open(Стр_Конект);           

                        Исключение

                                   Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!

                                   |Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");

                                   Возврат Ложь;

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



// формируем запрос

// Здесь есть нюанс первая строка данных всегда будет являться заголовком

// если она пустая то имена клонок формируются следующим образом F<Номер колонки>

               Стр_SQL = "S_elect

                |     F1 as Артикул,

                |     F2 as Наименование,

                |     F3 as ПолноеНаименование

                | FROM [A1:AZ100000]

                | WHERE ((F1 Is Not Null) AND (F1 <>''))";

                        Об_РекордСет = Новый COMОбъект("ADODB.Recordset");



                        Попытка

                                   Об_РекордСет=Об_Конект.Execute(Стр_SQL);

                        Исключение

                                   Сообщить("Не удадлось выполнить запрос к файлу Excel

                                   |"+ ОписаниеОшибки(),СтатусСообщения.Важное);

                                   Возврат Ложь;

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



                        Пока НЕ Об_РекордСет.EOF Цикл

                                   // Получаем данные из Об_РекордСет

                                   // ...

                                  Сообщить("");

                                  Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл

                                     // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 

                                   КонецЦикла;

                                   // ...

                                   Об_РекордСет.MoveNext();

                        КонецЦикла;



                        Об_Конект.Close();     // Закрываем конект

                        Об_Конект=Неопределено;

                        Об_РекордСет=Неопределено;

                    

                        Возврат Истина;

            Иначе

                        Сообщить("Файл "+ПутьКФайлу+" не найден!");

                        Возврат Ложь;

            КонецЕсли;

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

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

Отчет Список работавших... с использованием СКД ( Обширный пример ) Категория: Схема Компоновки Данных

Создание и запись нового элемента справочника

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПоКнопкеНовыйКонтрагент(Команда)

       // Вставить содержимое обработчика.

        Перем НовыйКонтрагент;



        НовыйКонтрагент = Новый Структура("Наименование, ПолноеНаименование, ИНН");

        НовыйКонтрагент.Наименование = "РиК ООО";

        НовыйКонтрагент.ПолноеНаименование = "ООО Рога и копыта"; 

        НовыйКонтрагент.ИНН =  "123456789012";



 

        Если СоздатьНовогоКонтрагента(НовыйКонтрагент) = 0 Тогда

                Сообщить("Не удалось создать нового контрагента");

        КонецЕсли;



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

 



&НаСервере

Функция СоздатьНовогоКонтрагента(СтруктураСправочника)



        Перем НовыйКонтрагент,СпрПользователи;



        СпрКонтрагенты = Справочники.Контрагенты;

        НовыйКонтрагент = СпрКонтрагенты.СоздатьЭлемент();

        НовыйКонтрагент.Наименование = СтруктураСправочника.Наименование;

        НовыйКонтрагент.ПолноеНаименование = СтруктураСправочника.ПолноеНаименование; 

        НовыйКонтрагент.ИНН = СтруктураСправочника.ИНН;

        Попытка

                НовыйКонтрагент.Записать();

                Возврат 1;

        Исключение

                Возврат 0;

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



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

Код 1C v 8.х

 //Пример 1

НовыйЭлемент = Справочники.Контрагенты.СоздатьЭлемент(); 

НовыйЭлемент.Наименование = "ООО Березка"; 

// Установить другие реквизиты.  

НовыйЭлемент.Записать(); 



НовыйЭлемент = Справочники.Банки.СоздатьЭлемент(); 

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

Родитель = Справочники.Банки.НайтиПоКоду("000000001"); 

НовыйЭлемент.Наименование = "ВТБ"; 

НовыйЭлемент.Код = "000000011"; 

НовыйЭлемент.Родитель = Родитель; 



// Установить другие реквизиты.  

НовыйЭлемент.Записать(); 



//Пример 2

СпрСотр = Справочники.Сотрудники;

//или так:

//СпрСотр = Справочники["Сотрудники"]

НовЭл = СпрСотр.СоздатьЭлемент();

НовЭл.Наименование = "Иванов Иван Иванович";

НовЭл.Оклад = 100;

НовЭл.Записать();

Код 1C v 7.x

  //Пример 1

//создаваться будет прямо в корне справочника

спр = создатьОбъект("Справочник.Контрагенты");

спр.Новый();

спр.Наименование = "ООО Березка";

спр.УстановитьНовыйКод();

// итак далее

//спр.Реквизит1="......"

//спр.Реквизит2="......"

спр.Записать(); 



//Пример 2

СпрСотр = СоздатьОбъект("Справочник.Сотрудники"); 	

СпрСотр.Новый();

СпрСотр.Наименование = "Иванов Иван Иванович";

СпрСотр.Оклад = 100;

СпрСотр.Записать();

Категория: Справочники

Как получить запросом Полное Наименование элементов справочника, аналог ПолноеНаименование()

Данный пример для 3-х уровнего справочника, но по аналогии можно построить и другие запросы

ПолныйКод будет равен = Надежные/Покупатели/ООО СтарМаг

Код 1C v 8.х

 ВЫБРАТЬ

Контрагенты.Ссылка,

ВЫБОР 

	КОГДА (Контрагенты.Родитель.Наименование ЕСТЬ NULL ) ТОГДА Контрагенты.Наименование

	КОГДА (Контрагенты.Родитель.Родитель.Наименование ЕСТЬ NULL ) ТОГДА Контрагенты.Родитель.Наименование + "/" + Контрагенты.Наименование

	ИНАЧЕ Контрагенты.Родитель.Родитель.Наименование + "/" + Контрагенты.Родитель.Наименование + "/" + Контрагенты.Наименование 

КОНЕЦ КАК ПолныйКод

ИЗ

Справочник.Контрагенты КАК Контрагенты

Как получить Полный Код:
для Кода с типом - Строка:
Например ПолныйКод будет равен = 0012/0007/0045

Код 1C v 8.х

 

ВЫБРАТЬ

Контрагенты.Ссылка,

ВЫБОР 

	КОГДА (Контрагенты.Родитель.Код ЕСТЬ NULL ) ТОГДА Контрагенты.Код

	КОГДА (Контрагенты.Родитель.Родитель.Код ЕСТЬ NULL ) ТОГДА Контрагенты.Родитель.Код + "/" + Контрагенты.Код

	ИНАЧЕ Контрагенты.Родитель.Родитель.Код + "/" + Контрагенты.Родитель.Код + "/" + Контрагенты.Код 

КОНЕЦ КАК ПолныйКод

ИЗ

Справочник.Контрагенты КАК Контрагенты

для Кода с типом - Число:
Целиком В запросе выбрать код невозможно!
Только потом, обрабатывая результат через ПолныйКод()

Категория: Запросы