квартала » Поиск

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

Как установить период в списке документов? Категория: Документы

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

Код 1C v 8.х

  //Начало, Конец - начало и конец периода
//Периодичность - строка "День", "Месяц", "Неделя", "Год", "Квартал"
//Возвращает таблицу значений с колонками:
//	Начало - начало интервала
//	Конец - конец интервала
//	Номер - номер интервала (начиная с единицы)
Функция обПериодыЗаИнтервал(Начало, Конец, Периодичность="День", ВыравниваниеПоПериоду=истина)
	Перем Р, Номер, ТекПериод, СледПериод;
	Р=Новый ТаблицаЗначений();
	Р.Колонки.Добавить("Начало");
	Р.Колонки.Добавить("Конец");
	Р.Колонки.Добавить("Номер");
	
	ТекПериод=Начало;
	Номер=1;
	Пока истина Цикл
		Если Периодичность="День" Тогда
			Если ВыравниваниеПоПериоду Тогда
				ТекПериод=НачалоДня(ТекПериод);
				СледПериод=КонецДня(ТекПериод);
			Иначе
				СледПериод=обДобавитьДни(ТекПериод, 1);
			КонецЕсли;
		ИначеЕсли Периодичность="Месяц" Тогда
			Если ВыравниваниеПоПериоду Тогда
				ТекПериод=НачалоМесяца(ТекПериод);
				СледПериод=КонецМесяца(ТекПериод);
			Иначе
				СледПериод=обДобавитьМесяцы(ТекПериод, 1);
			КонецЕсли;
		ИначеЕсли Периодичность="Год" Тогда
			Если ВыравниваниеПоПериоду Тогда
				ТекПериод=НачалоГода(ТекПериод);
				СледПериод=КонецГода(ТекПериод);
			Иначе
				СледПериод=обДобавитьМесяцы(ТекПериод, 12);
			КонецЕсли;
		ИначеЕсли Периодичность="Квартал" Тогда
			Если ВыравниваниеПоПериоду Тогда
				ТекПериод=НачалоКвартала(ТекПериод);
				СледПериод=КонецКвартала(ТекПериод);
			Иначе
				СледПериод=обДобавитьМесяцы(ТекПериод, 3);
			КонецЕсли;
		ИначеЕсли Периодичность="Неделя" Тогда
			Если ВыравниваниеПоПериоду Тогда
				ТекПериод=НачалоНедели(ТекПериод);
				СледПериод=КонецНедели(ТекПериод);
			Иначе
				СледПериод=обДобавитьДни(ТекПериод, 7);
			КонецЕсли;
		Иначе
			ВызватьИсключение "Неизвестная периодичность времени:"+Периодичность;
		КонецЕсли;
		Если ТекПериод>Конец И НЕ Номер=1 Тогда
			Прервать;
		КонецЕсли;
		
		Стр=Р.Добавить();
		Стр.Начало=ТекПериод;
		Стр.Конец=СледПериод;
		Стр.Номер=Номер;
		ТекПериод=СледПериод+1; //Переходим на следующий период (добавляем одну секунду)
		Номер=Номер+1;
	КонецЦикла;
	Возврат Р;
КонецФункции

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

Как заполнить диаграмму данными?

Код 1C v 8.х

 Диаграмма = ЭлементыФормы.Диаграмма; 

// Очистить диаграмму, возможно ранее в нее уже выводились данные. 
Диаграмма.КоличествоСерий = 0; 
Диаграмма.КоличествоТочек = 0; 

// Количество серий будет ограничиваться (не все значения будут показываться). 
Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; 
Диаграмма.МаксимумСерийКоличество = 7; 
Диаграмма.ВидПодписей = ВидПодписейКДиаграмме.Процент; 
Диаграмма.ОбластьЗаголовка.Текст = "Обороты номенклатуры"; 

Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ 
|	ПродажиКомпанииОбороты.Номенклатура, 
|	СУММА(ПродажиКомпанииОбороты.КоличествоОборот) КАК КоличествоОборот 
|ИЗ 
|	РегистрНакопления.Продажи.Обороты(, , , ) КАК ПродажиКомпанииОбороты 
|СГРУППИРОВАТЬ ПО 
|	ПродажиКомпанииОбороты.Номенклатура"; 

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

// Запретить обновление диаграммы на время вывода данных. 
Диаграмма.Обновление = Ложь; 

// Установить единственную точку. 
Диаграмма.КоличествоТочек = 1; 
Диаграмма.Точки[0].Текст = "Количество"; 
Выборка = Результат.Выбрать(); 

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

	// Количество серий, если бы не ограничивали зависело бы от результата запроса. 
	КоличествоСерий = Диаграмма.Серии.Количество(); 
	Диаграмма.КоличествоСерий = КоличествоСерий + 1; 
	Диаграмма.Серии[КоличествоСерий].Текст = Выборка.Номенклатура; 

	// Установить значение "на пересечении" точки и серии. 
	// Первый параметр - 0 , так как в диаграмме только одна точка. 
	Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.КоличествоОборот); 

КонецЦикла; 

// Обновить диаграмму. 
Диаграмма.Обновление = Истина;

Код 1C v 7.x

 //Пример 1:
Процедура ПостроитьДиаграмму(Диагр)
  КолСерий=0;
  //количество серий определяется по количеству элементов в справочнике Материалы   Спр=СоздатьОбъект("Справочник.Материалы");
  Спр.ВыбратьЭлементы();
  Пока Спр.ПолучитьЭлемент()=1 Цикл
    // группы элементов пропускаются
    Если Спр.ЭтоГруппа()=0 Тогда
      КолСерий=КолСерий+1;
    КонецЕсли;
  КонецЦикла;
  // установка количества серий и точек
  Диагр.КоличествоСерий(КолСерий);
  Диагр.КоличествоТочек(1);
  //в качестве значений на диаграмме примем количественное сальдо конечное по счету 10 и текущему элементу справочника
  БИ=СоздатьОбъект("БухгалтерскиеИтоги");
  БИ.Рассчитать(ДатаОтчета, ДатаОтчета);
  номер=1;
  Спр.ВыбратьЭлементы();
  Пока Спр.ПолучитьЭлемент()=1 Цикл
    Если Спр.ЭтоГруппа()=0 Тогда
      Диагр.УстановитьИмяСерии(Номер, Спр.Наименование);
      Диагр.УстановитьЗначение(1,номер,БИ.СКД("10","К",,Спр.ТекущийЭлемент()));
      номер=номер+1;
    КонецЕсли;
  КонецЦикла;
КонецПроцедуры

Код 1C v 7.x

 // Пример 2:
Процедура СформироватьДиаграмму(Диаграмма1)
    // Блокируем обновление, пока обрабатываются данные
    Диаграмма1.Обновление(0);
    Диаграмма1.Заголовок = "Поступления от покупателей";
    Диаграмма1.УстановитьИмяСерии(1, "Рубли");
    Диаграмма1.АвтоУстановкаИменТочек(1);

    // Заполним диаграмму значениями
    БухИт = СоздатьОбъект("БухгалтерскиеИтоги");

    Бухит.ВыполнитьЗапрос(НачКвартала(РабочаяДата()),
    КонКвартала(РабочаяДата()),"60.1",,,1,"Неделя","С");

    БухИт.ВыбратьПериоды();
    А = 1;
    // дебетовые обороты по счету 60.1 покажут поступления
    // денег от покупателей
    Пока БухИт.ПолучитьПериод() = 1 Цикл

        Диаграмма1.УстановитьЗначение(А, 1, БухИт.ДО());
        А = А +1;

    КонецЦикла;

    // после наполнения данными перерисовываем
    Диаграмма1.Обновление(1);

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

Категория: Диаграмма

Пример присвоения нового номера, при проблемах с нумерацией

Пример реализации автоматич. расчета следующего номера, нумерация

Предположим, у документа Начисление Отпуска слетела нумерация, кто-то влез и ручками исправил номер документа

Самый простой способ исправить ситуацию - найти документ с некорректным номером и изменить в нем номер на правильный.
Или можно перенумеровать воспользовавшись специальными обработками -
https://helpf.pro/files/view/8.html
https://helpf.pro/files/view/11.html
Ну а если найти некорректный документ не удается, а использовать обработки перенумерации нежелательно, тогда:
в модуле документа, у которого слетела нумерация, в процедуре

Код 1C v 7.x

  Процедура ВводНового(Копирование)

добавить (пример для документа "НачислениеОтпуска" ):

Код 1C v 7.x

 
//E_Migachev автоматический расчет следующего номера             
//Выберем документы в обратном порядке
ДокНачислениеОтпуска = СоздатьОбъект("Документ.НачислениеОтпуска"); 
ДокНачислениеОтпуска.ОбратныйПорядок(1);
ДокНачислениеОтпуска.ВыбратьДокументы(НачКвартала(РабочаяДата()-15),КонКвартала(РабочаяДата()+27));
ДокНачислениеОтпуска.ПолучитьДокумент();  
//Получим последний числовой номер
новномдк=Строка(число(Сред(ДокНачислениеОтпуска.НомерДок,3,7)));
стрдлинаномдк=СтрДлина(Строка(СокрЛП(Сред(ДокНачислениеОтпуска.НомерДок,3,7))));
новномдк=Число(новномдк)+1; 
иткол=стрдлинаномдк-СтрДлина(новномдк); 
префиксдк="ОТ";
если иткол>0 тогда 
	для н=1 по иткол цикл
		префиксдк=префиксдк+строка(0);		
	конеццикла;
конецесли;	
докном=префиксдк+новномдк;   
//Если документ исправление то нужен префикс И
Если Исправление=1 Тогда 
	знтри=Прав(ДокНачислениеОтпуска.НомерДок,3);
	Если Строка(Лев(знтри,1))="И" Тогда
		чзнтри=Число(Прав(знтри,2));
		чзнтри=чзнтри+1;
	Иначе
		чзнтри=1;
	КонецЕсли;     
	Если СтрДлина(чзнтри)=1 Тогда
	докном=докном+"-И0"+Строка(чзнтри);	
	Иначе
	докном=докном+"-И"+Строка(чзнтри);	
	КонецЕсли;
КонецЕсли;    
//Присвоим новый номер
НомерДок=докном; //E_Migachev автоматич расчет номера

Категория: 1С Общие вопросы - Обычные формы

Формат, функция форматирования значений

Код 1C v 8.х

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

// Примеры форматирования чисел
ЗначФормат = Формат(123456.789, "ЧЦ=10; ЧДЦ=2");      // ЗначФормат = "123 456,79"
ЗначФормат = Формат(123456.789, "ЧГ=0; ЧДЦ=2");      // ЗначФормат = "123456,79"
ЗначФормат = Формат(123456.789, "ЧРД='-'");           // ЗначФормат = "123 456-789"
ЗначФормат = Формат(-123456.789, "ЧО=0");             // ЗначФормат = "(123 456,789)";
ЗначФормат = Формат(13, "ЧЦ=5; ЧВН=; ЧГ=0");      // ЗначФормат = "00013";

//В 8 версии для вывовода чисел прописью используется ЧислоПрописью
ЧислоПрописью(Сумма, "L=ru_RU", Валюта.ПараметрыПрописиНаРусском)  
ЧислоПрописью(1457.25,"L=en_US","dollar, dollars, cent, cents, 2"); // One thousand four hundreds fifty seven dollars 25 cents. 
ЧислоПрописью(Сумма,"Рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2");

//Пример представления Числа в виде Даты
ЗначФормат = Формат(25021949, "ЧЦ=8; ЧРГ=.; ЧВН=; ЧГ=4,2,0");      // ЗначФормат = "25.02.1949"

// Примеры форматирования дат
ЗначФормат = Формат('20020820153309', "ДФ=""дд ММММ гггг 'г.' ЧЧ:мм:сс""");     // ЗначФормат = "20 августа 2002 г. 15:33:09"
ЗначФормат = Формат('20020820153309', "ДФ=""дд/ММ-гггг""");                     // ЗначФормат = "20/08-2002"
ЗначФормат = Формат('20020820153309', "ДФ='q ""кв."" yyyy'"); 		            // ЗначФормат = "3 кв. 2002";
ЗначФормат = Формат('20020820153309', "ДФ='""Итого"" q ""квартал""'") ;	   // ЗначФормат = "Итого 3 квартал";
ЗначФормат = Формат('20020820153309', "ДФ='ММММ гггг'");  		            // ЗначФормат = "Август 2002 г.";
ЗначФормат = Формат('20020820153309', "ДЛФ=ДД");                                // ЗначФормат = "20 августа 2002 г.";
ЗначФормат = Формат('20020820153309', "ДЛФ=Д");                                 // ЗначФормат = "20.08.2002";
ЗначФормат = Формат('20020820153309', "ДЛФ=В");                                 // ЗначФормат = "15:33:09";

ЗначФормат = Формат('20020820153309', "ДФ=HHmmssyyyyMMdd");                                 // ЗначФормат = "15330920020820";
ЗначФормат = Формат('20020820153309', "ДФ=HH:mm:ss yyyy MM dd");                                 // Время 24 часа  - ЗначФормат = "15:33:09 2002 08 20";
ЗначФормат = Формат('20020820153309', "ДФ=hh:mm:ss yyyy MM dd");                                 // Время 12 часов - ЗначФормат = "03:33:09 2002 08 20";

Формат(Дата(2009, 1, 1), "ДЛФ=DD") + ", " + ОпределитьДеньНедели(ДеньНедели(Дата(2009, 1, 1)));   // 1 января 2009 г., Четверг (Смотрите в "Работаем с Датами" Функция Определить день недели)
Формат(Дата(2009, 1, 1), "ДФ=ММММ") + ", " + Формат(Дата(2009, 1, 1), "ДФ=yyyy") + " г.";         // Январь, 2009 г.
Формат(НачалоНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г. - " + Формат(КонецНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г."; // 29 декабря 2008 г. - 04 января 2009 г.

// ДЕКАДУ нельзя вывести через формат, но можно так:
Строка(Цел(День(Дата('20020820153309')) / 10) + 1)+" декада"  = 2 декада

// Примеры форматирования логических выражений
ЗначФормат = Формат(Истина, "БЛ=Отсутствует; БИ=Доступен");                     // ЗначФормат = "Доступен";
ЗначФормат = Формат(Ложь, "БЛ=Нет; БИ=Да");                     				// ЗначФормат = "Нет";

Код 1C v 7.x

 

// Символы, определяющие тип форматируемых данных: 

// Ч — число (Англоязычный синоним: N)  

ЗначФормат = Формат(123.15, "Ч(0)10.2") // 0000123.15

Долг = Строка(Формат(Долг(), "Ч12.2")) + " " + Валюта.Сокр_назв;



// Возможен вывод денежных величин и просто целых чисел прописью. В этом случае форматная строка должна иметь вид "ЧПДС".

// Наличие буквы "П" (в английском варианте для аналогичной цели используется буква "S") определяет сам факт вывода числа прописью. 

// Символ "Д" (в английском варианте — "M") обозначает вывод денежной величины и является необязательным. 

// Символ "С" (в английском варианте — "H") также необязателен и означает вывод с копейками.

ИтогоСуммаПрописью  = Формат(Итог("Сумма"), "ЧПДС");

КоличествоНаименованийПрописью = Формат(КоличествоСтрок(), "ЧП");



// С — строка (Англоязычный синоним: S) 

// "Сn", где n — положительное целое число определяющее ширину поля, в котором будет размещаться строка. 

// В случае, если ширина поля превосходит длину строки сформатированная строка будет дополнена справа пробелами, если же ширина поля меньше длины строки — строка будет усечена справа.





// Д — дата (Англоязычный синоним: D)

ДатаДокумента = Формат(Док.ДатаДок,"Д ДД.ММ.ГГ");  //12.03.08

ДатаДокумента = Формат("01.01.1999", "Д(0)ДДММММГГГГ"); // 01 Января 1999 г.



//Для форматирования даты используется форматная строка вида "Д<ПодстрокаФормата>", где <Подстрока Формата> представляет собой строку, определяющую вид сформатированного представления даты:

//DDMMYY (ДДММГГ)  дата в виде ДД.ММ.ГГ 

//DDMMYYYY (ДДММГГГГ)  дата в виде ДД.ММ.ГГГГ 

//DDMMMMYYYY (ДДММММГГГГ)  дата в виде ДД месяц прописью ГГГГ 

//(0)DDMMMMYYYY ((0)ДДММММГГГГ) этот формат представляет собой вариант предыдущего формата с тем отличием, что число месяца всегда выводится двумя цифрами, т. е. для чисел меньших 10 спереди будет добавлен 0. Например: Формат('01.01.1999', ' 'Д(0)ДДММММГГГГ' ') = 01 Января 1999 г. 

//MMMMYYYY (ММММГГГГ) дата в виде месяц прописью ГГГГ 

//MMMMYY (ММММГГ) дата в виде месяц прописью ГГ 

//ММММ (ММММ) дата в виде месяц прописью 

//QQQQYYYY (ККККГГГГ) дата в виде N квартала ГГГГ 

//QQQQYY (ККККГГ) дата в виде N квартала ГГ 

//QQQQ дата в виде N квартала 

//YYYYMMDD (ГГГГММДД) дата в виде ГГГГММДД, то есть дата '10.11.1998' будет представлена как строка "19981110" 

//WWWW (HHHH) выводит наименование дня недели, соответствующее указанной дате. Наименования дней недели берутся из файла прописи.

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