периодс » Поиск

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

Создание сводной таблицы

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

У табличного документа есть свойство-коллекция ВстроенныеТаблицы, которое позволяет обращаться к сводным таблицам, расположенным на нем. Через эту коллекцию можно добавлять и удалять сводные таблицы при выполнении программы.

Самое главное свойство сводной таблицы — это ИсточникДанных, которое имеет тип РезультатЗапроса или ПостроительОтчета (см. ниже). Это свойство определяет, откуда сводная таблица будет черпать данные для отображения. При использовании результата запроса его итоги становятся ресурсами (отображаются в области данных), а группировочные поля, по которым они подсчитываются, становятся измерениями.

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

Код 1C v 8.х

 Запрос = Новый Запрос("

|	ВЫБРАТЬ

|	 ПродажиОбороты.Контрагент КАК Контрагент,

|	 ПродажиОбороты.Номенклатура КАК Номенклатура,

|	 ПродажиОбороты.КоличествоОборот КАК КоличествоОборот,

|	 ПродажиОбороты.СуммаОборот КАК СуммаОборот

|ИЗ

|	 РегистрНакопления.Продажи.Обороты(ПериодС, ПериодПо,

|	 Месяц,,(Контрагент, Номенклатура)) 

|КАК ПродажиОбороты

|ИТОГИ СУММА(КоличествоОборот) , СУММА(СуммаОборот) ПО

|	 Контрагент ИЕРАРХИЯ,

|	 Номенклатура ИЕРАРХИЯ,

|	 ПродажиОбороты.Период,

|	 ПродажиОбороты.Номенклатура.СтранаПроисхождения КАК Страна

|	 АВТОУПОРЯДОЧИВАНИЕ") ;

Запрос.УстановитьПараметр("ПериодС", Периоде);

Запрос.УстановитьПараметр("ПериодПо", КонецДня(ПериодПо));

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



ПолеТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

СводнаяТаблица = ПолеТабДок.ВстроенныеТаблицы.СводнаяТаблица!;

СводнаяТаблица.ИсточникДанных = Результат;

СводнаяТаблица.ОтображатьПоля = Истина;



Если СводнаяТаблица.Колонки.Количество() = 0 И

	СводнаяТаблица.Строки.Количество() = 0 И

	СводнаяТаблица.Данные.Количество() = 0 Тогда

	СводнаяТаблица.Обновление = Ложь;

	// Зададим начальное расположение измерений на осях

	СводнаяТаблица.Колонки.Добавить("Контрагент");

	СводнаяТаблица.Строки.Добавить("Номенклатура");

	СводнаяТаблица.Данные.Добавить("КоличествоОборот");

	СводнаяТаблица.Данные.Добавить("СуммаОборот");

	СводнаяТаблица.Обновление = Истина;

КонецЕсли;

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

Управляемый режим блокировки данных

Вопрос: Как использовать управляемый режим блокировки данных?
Ответ: Рассмотрим на примере удаления записей из регистра сведений.
1. В свойствах объекта, для которого используется управляемый режим блокировки данных установить поле «Режим управления блокировкой данных» в значение «Управляемый» (иначе будет сообщение об ошибке «Автоматический режим блокировки недопустим в этой транзакции»). Причем если это делается для документа, то необходимо перевести в этот же режим блокировки все регистры, в которых делает движения этот документ.
2. Пример кода управляемой блокировки регистра при удалении из него записи:
Например:

Код 1C v 8.х

 Процедура ОчиститьЗаПериод()

	Пока Истина Цикл

		НачатьТранзакцию(РежимУправленияБлокировкойДанных.Управляемый);

		Попытка

			текЗапрос = новый Запрос;

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



			"ВЫБРАТЬ

			|	усИсторияОстатковПоПоказателям.Склад,

			|	усИсторияОстатковПоПоказателям.Поклажедатель,

			|	усИсторияОстатковПоПоказателям.Показатель,

			|	усИсторияОстатковПоПоказателям.Период

			|ИЗ

			|	РегистрСведений.усИсторияОстатковПоПоказателям КАК усИсторияОстатковПоПоказателям

			|ГДЕ

			|	усИсторияОстатковПоПоказателям.Период МЕЖДУ &ПериодС И &ПериодПо";



			текЗапрос.УстановитьПараметр("ПериодС", ГраницаОчисткиС);

			текЗапрос.УстановитьПараметр("ПериодПо", ГраницаОчисткиПо);

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



			// Блокировка данных

			текБлокировка = Новый БлокировкаДанных;

			тбдЖурнал = текБлокировка.Добавить("РегистрСведений.усИсторияОстатковПоПоказателям");

			тбдЖурнал.Режим = РежимБлокировкиДанных.Исключительный;

			Если тбзЗаписиЖурнала.Количество() тогда

				тбдЖурнал.ИсточникДанных = тбзЗаписиЖурнала;

				тбдЖурнал.ИспользоватьИзИсточникаДанных("Склад", "Склад");

				тбдЖурнал.ИспользоватьИзИсточникаДанных("Поклажедатель", "Поклажедатель");

				тбдЖурнал.ИспользоватьИзИсточникаДанных("Показатель", "Показатель");



				// Заблокировать

				текБлокировка.Заблокировать();



				Для каждого текЗаписьЖурнала из тбзЗаписиЖурнала цикл

					текЗапись = РегистрыСведений.усИсторияОстатковПоПоказателям.СоздатьМенеджерЗаписи();

					ЗаполнитьЗначенияСвойств(текЗапись, текЗаписьЖурнала);

					текЗапись.Удалить();

				КонецЦикла;



			КонецЕсли;



			ЗафиксироватьТранзакцию();

			Прервать;



		Исключение // сообщим об ошибке

			стрОписаниеОшибки = ОписаниеОшибки();

			ОтменитьТранзакцию();

			Сообщить("Ошибка блокировки" + ОписаниеОшибки());

			Прервать;

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

	КонецЦикла;

КонецПроцедуры // ОчиститьЗаПериод()

Источник

Категория: Встроенные Функции

Конструктор схемы компоновки данных - Закладка Настройки Категория: Схема Компоновки Данных

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

Методы работы с периодом журнала расчетов Категория: Журналы расчетов

Функция ПредставлениеПериода() аналог 7-ной функции ПериодСтр()

Функция позволяет формировать описание периода, заданного датами начала и окончания на одном из языков, поддерживаемых платформой. Например, в результате выполнения следующего кода:

Код 1C v 8.2 УП

 ТекДата = ТекущаяДата();

НачПериода = НачалоМесяца(ТекДата);

КонПериода = КонецМесяца(ТекДата);



Сообщение = Новый СообщениеПользователю;

Сообщение.Текст = ПредставлениеПериода(НачПериода, КонПериода, "L=en_US");

// или

Сообщение.Текст = ПредставлениеПериода(НачПериода, КонПериода, "L=ru_RU");

Сообщение.Сообщить();

будет получено представление периода на английском или русском языках!

Функция глобального контекста ПредставлениеПериода() позволяет получить строковое представление периода, заданного датами начала и окончания.

Например:

Код 1C v 8.х

 ПредставлениеПериода('20050101000000', '20050101235959')   // 	1 января 2005 г.

ПредставлениеПериода('20050101000000', '20050131235959')   // 	Январь 2005 г.

ПредставлениеПериода('20050101000000', '20050228235959')   //   Январь 2005 г. - Февраль 2005 г.

Кроме стандартных периодов эта функция позволяет получать представления так называемых финансовых периодов: первых девяти месяцев года и первого полугодия. Для этого используется форматная строка с указанием признака ФП:

Код 1C v 8.х

 ПредставлениеПериода('20050101000000', '20050630235959', "ФП = Истина")   // 	1 полугодие 2005 г.

ПредставлениеПериода('20050101000000', '20050930235959', "ФП = Истина")   //	9 месяцев 2005 г.

Кроме этого форматная строка позволяет получать представление периода на языке, отличном от используемого по-умолчанию:

Код 1C v 8.х

 ПредставлениеПериода('20050101000000', '20050331235959', "L = en_US")   //   1 quarter of 2005          -   Английский

ПредставлениеПериода('20050101000000', '20050331235959', "L = bg_BG")   //   1-во тримесечие на 2005 г. -   Болгарский

ПредставлениеПериода('20050101000000', '20050331235959', "L = de_DE")   //   1. Quartal 2005            -   Немецкий

Категория: Работа с Датами (Временем)

Получения курса валют из Интернет

Код 1C v 8.х

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение

ИмяФайла = ПолучитьИмяВременногоФайла(".txt");

//строка-образец

//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1

//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1

СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";

СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");



Попытка //соединяемся

Соединение.Получить(СтрокаСоединения,ИмяФайла);

Исключение

Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);

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



КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса

КурсыТекст.Прочитать(ИмяФайла);

Код 1C v 8.х

  // еще пример

 Функция ПолучитьКакСтроку(Адресс) 

	соминет = Новый COMОбъект("MSXML2.XMLHTTP");

	соминет.open ("GET", Адресс, Ложь);

	соминет.send();

	Возврат соминет.responseText;

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



Функция ПреобразоватьДату(дат)

	// Медот преобразования даты времен 1Сv7

	//Т=Строка(Дат);

	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);

	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");

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



Процедура КнопкаЗагрузитьКурсы(Элемент)

	//Список - список валют	

	Для А = 1 по Список.Количество() цикл

		Если Список[а-1].Пометка тогда

			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));

			Код = Строка(Список[а-1].Значение.Код);

			Дат = ПериодС;

			Пока Дат <= ПериодПо цикл

				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");

				Поз = Найти(Стр,Символы.Таб);

				Если Поз = 0 Тогда

					Дат = Дат + 86400;

					Продолжить;

				КонецЕсли;					

				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));

				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));

				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));

				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();

				Запись.Период = Дат;

				Запись.Валюта = Список[а-1].Значение.Ссылка;

				Запись.Курс = Курс;

				Запись.Кратность = Кратность;

				Запись.Записать(Истина);

				Дат = Дат + 86400;                   

			КонецЦикла;				

		КонецЕсли;			

	КонецЦикла;		

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

Код 1C v 7.x

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

//Внимание: работоспособность данной обработки может быть нарушена, если дизайнеры сайта НБ РК изменят формат страницы с //официальным курсом валюта. Но не большой анализ нового формата и работоспособность обработки будет восстановлена.

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



//*******************************************

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

// Параметры:

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

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

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



//*******************************************

// кнПолучить()

//

// Параметры:

//  Нет

//

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

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

процедура кнПолучить()

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

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

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

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

    олеШелл = создатьобъект("MSScriptControl.ScriptControl");

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

    // для ускорения парсера занесем весь файл в строковую

    // переменую с разделителем строк

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

    // загрузим содержимое нашего файла в поток

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

    // в цикле получим из потока все строки

    пока олеАДО.EOS() = 0 цикл

        // и запишем их во временную переменую, добавив разделитель строк

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

    фс.УдалитьФайл(стрИмяФайла);

    // найдем в строке позицию начала блока с данными о курсе

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

        // создаим временную таблицу значений

        // для более шустрого заполения из-за отстуствия вызова

        // функции перерисовки таблицы при изменении данных

        тзТемп = создатьобъект("ТаблицаЗначений");

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

            // добавляем новую строку

            тзТемп.НоваяСтрока();

            // получаем строку со смещением 1 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

            // за сколько единиц валюты имеем курс в тенге

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

            // получаем строку со смещением 2 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

            // получаем строку со смещением 5 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

            // очищаем от мусора и преобразуем в число... получаем курс

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

                // получаем очередную строку для разбора

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



//*******************************************

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);

Категория: COM-объекты, WMI, WSH

Функция описывает период, определяемый датой и периодичностью Категория: Работа с Датами (Временем)