календаре » Поиск

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

Разница между датами в рабочих днях, подсчет рабочих дней в 1С

Разрабатывая некий функционал в 1С, бывает, необходимо посчитать количество рабочих дней после какой-то даты.

В этой статье примеры кода и запросы в которых считается количество рабочих дней:

Код, при вычислении определяет только по дню недели, викидывая выходные. Праздники не учитывает!

Код 1C v 8.х

 Функция РабочихДнейСДаты(НачДата,КолвоДней)  Экспорт

    Перем РабочихДней, ОбычныхДней, ДеньНедели;

    РабочихДней = 0; ОбычныхДней = 0;

    Пока РабочихДней < Число(КолвоДней) Цикл 

        ОбычныхДней = ОбычныхДней+ 1;          

       // определим день недели 

	   ДеньНедели=ДеньНедели(НачДата+(ОбычныхДней*86400));           

       // если не выходной, то прошел еще один рабочий день 

        Если ДеньНедели < 6 Тогда

            РабочихДней=РабочихДней+1;

        КонецЕсли;

    КонецЦикла;

    

    Возврат (НачДата + (РабочихДней*86400));

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





// Пример использования

ТриДняОтОбработки = РабочихДнейСДаты(нДатаОбработки,3);  	

	Если РабочаяДата>ТриДняОтОбработки Тогда

		Предупреждение("Прошло больше 3-х дней после обработки заказа. Цены не актуальны!

		|Отправьте заказ на новую обработку! ");

	Иначе

// ... неки код

КонецЕсли;

В запросе, с использованием производственного календаря и учетом всех праздников:

Код 1C v 8.х

 ВЫБРАТЬ

	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря КАК Дата

ПОМЕСТИТЬ Даты

ИЗ

	РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь

ГДЕ

	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря В(&ВходящиеДаты)

;





////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

	Даты.Дата,

	КОЛИЧЕСТВО(РАЗЛИЧНЫЕ РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) КАК КоличествоРабочихДней,

	МАКСИМУМ(РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) КАК ДатаКалендаря,

	РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря КАК ДатаКалендаряДляГруппировки

ИЗ

	РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь

		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Даты КАК Даты

		ПО (Даты.Дата <= РегламентированныйПроизводственныйКалендарь.ДатаКалендаря)

			И (ДОБАВИТЬКДАТЕ(Даты.Дата, ДЕНЬ,ГлубинаДней) > РегламентированныйПроизводственныйКалендарь.ДатаКалендаря)

		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь1

		ПО РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <= РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря

ГДЕ

	(РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

			ИЛИ РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий))





СГРУППИРОВАТЬ ПО

	РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря,

	Даты.Дата





ИМЕЮЩИЕ

	МАКСИМУМ(РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) = РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря

	И КОЛИЧЕСТВО(РАЗЛИЧНЫЕ РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) =РабочихДней

Еще один вариант, в котором допустим, что:

1) Регистр сведений Календарь имеет структуру (Измерения={ДатаКалендаря}, Ресурсы={ВидДня}), а перечисление ВидыДня задано как {Рабочий, Предпразничный} и праздничные дни в календаре отсутствуют.

2) В документе Реализация заданы поля Дата и ОтсрочкаДней. Тогда:

Код 1C v 8.х

 Выбрать

Р.Ссылка, Р.Дата,

минимум(isnull(К.ДатаКалендаря, добавитькдате(Р.Дата, день, Р.ОтсрочкаДней))) как ДатаКредита

из Документ.Реализация как Р

левое соединение РегистрСведений.Календарь как К

по добавитькдате(Р.Дата, день, Р.ОтсрочкаДней) <= К.ДатаКалендаря

сгруппировать по

Р.Ссылка, Р.Дата

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

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

Производственный календарь на 2015 год

Производственный календарь & незаменимый помощник бухгалтера и кадровика. В нем содержится информация о количестве рабочих, выходных и праздничных дней, норме рабочего времени в 2015 году. Для удобства использования производственный календарь содержит как общеквартальные сведения о количестве рабочих и выходных дней, так и информацию по каждому месяцу. Бухгалтеру эти сведения помогут безошибочно и быстро начислить заработную плату, оплатить больничный лист, рассчитать отпуск, составить график работы. Работник сможет выбрать наиболее благоприятный для отпуска период. В календаре можно также узнать о профессиональных праздниках на конкретную дату.

Производственный календарь на 2015 год подскажет о переносе выходных и праздничных дней, а комментарий к нему подробно разъяснит представленные в календаре данные. Так же в календаре показаны тарифы страховых взносов и пределы ПФР и ФСС, а размеры пособий всегда подскажут, что заплатить работнику:

Норма рабочего времени на определенные календарные периоды исчисляется по расчетному графику пятидневной рабочей недели с двумя выходными днями в субботу и воскресенье исходя из продолжительности ежедневной работы: при 40-часовой рабочей неделе – 8 часов; при продолжительности рабочей недели менее 40 часов – количество часов, получаемое в результате деления установленной продолжительности рабочей недели на пять дней (п. 1 Порядка исчисления нормы рабочего времени на определенные календарные периоды времени (месяц, квартал, год) в зависимости от установленной продолжительности рабочего времени в неделю, утв. приказом Минздравсоцразвития России от 13 августа 2009 г. N 588н (далее – Порядок)).

Таким образом, при 40-часовой рабочей неделе продолжительность рабочего дня составит 8 часов, при продолжительности рабочей недели 36 часов – 7,2 часа; при 24-часовой рабочей неделе – 4,8 часа.

При этом необходимо помнить о запрещении работы в нерабочие праздничные дни (часть первая ст. 113 ТК РФ), об уменьшении на 1 час работы в предпраздничный день, то есть в день, непосредственно предшествующий нерабочему праздничному дню (часть первая ст. 95 ТК РФ ), о перенесении выходного дня при совпадении его с нерабочим праздничным днем (часть вторая ст. 112 ТК РФ).

В соответствии с частью первой ст. 112 ТК РФ нерабочими праздничными днями в Российской Федерации являются:

1, 2, 3, 4, 5, 6 и 8 января – Новогодние каникулы;
7 января – Рождество Христово;
23 февраля – День защитника Отечества;
8 марта – Международный женский день;
1 мая – Праздник Весны и Труда;
9 мая – День Победы;
12 июня – День России;
4 ноября – День народного единства.

Предпраздничные дни в 2015 году: 30 апреля, 8 мая, 11 июня, 3 ноября, 31 декабря.

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

Создание писем, событий и задач в MS Outlook из 1С

Отправка писем из 1С Предприятия – одна из самых необходимых функций, отсутствующая в штатном функционале платформы. Один из вариантов реализации – это подключение к MS Outlook по технологии OLE. В статье приведены примеры создания писем, событий и задач в MS Outlook из 1С. Автоматическое создание событий и задач используется не часто, но порой бывает очень удобно.

Для 1С 8.х замените

Код 1C v 7.x

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

на

Код 1C v 8.х

 Outlook = Новый COMОбъект("Outlook.Application");

так же посмотрите: Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом

Создание сообщения

Код 1C v 7.x

  //создать новое сообщение из 1С в MS Outlook

Процедура СоздатьПисьмо(Адрес,ПутьКВложению)



       Попытка

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

             ЕстьОшибка = 0;

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             ЕстьОшибка = 1;

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

      

       Если ЕстьОшибка = 0 Тогда



             Письмо = Outlook.CreateItem(0);

             Письмо.Subject = "Тема письма";

             Письмо.Body = "Текст письма";

             Письмо.Recipients.Add(Адрес);



             Если ФС.СуществуетФайл(ПутьКВложению)=1 Тогда

                   Письмо.Attachments.Add(ПутьКВложению);

             КонецЕсли;



             Письмо.Display();

       Иначе

             Тема = "Тема письма";

             ТекстПисьма = "Текст письма";

             СтрокаЗапуска = "mailto:" + Адрес + "?subject=" + Тема + "&body=" + ТекстПисьма;

             ЗапуститьПриложение(СтрокаЗапуска);

       КонецЕсли;

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

Создание события

Код 1C v 7.x

 //создать запись в календаре событий из 1С в MS Outlook

Процедура СоздатьСобытие()

       Попытка

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

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             Возврат;

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



       Событие = Outlook.CreateItem(1);

       Событие.Subject = "Название события";

       Событие.Start = "15.01.2010 15:00:00";

       Событие.End = "15.01.2010 16:00:00";

       Событие.Body = "Описание события";

       Событие.Location = "Место события";

       Событие.ReminderMinutesBeforeStart = 15;

       Событие.BusyStatus = 0;

       Событие.MeetingStatus = 0;

       Событие.Sensitivity = 2;

       Событие.Save();

       Сообщить("Событие в календаре создано успешно","i");

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

Создание задачи

Код 1C v 7.x

 //создать новую задачу из 1С в MS Outlook

Процедура СоздатьЗадачу(ДатаСтартаЗадачи)



       Попытка

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

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             Возврат;

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

      

       Задача = Outlook.CreateItem(3);

       Задача.Subject = "Название задачи";

       Задача.StartDate = ДатаСтартаЗадачи;

       Задача.Body = "Описание задачи";

       Задача.Status = 0;

       Задача.Display();

       Задача.Importance = 2;

       Задача.ReminderSet = 1;

       Задача.ReminderTime = "" + ДатаСтартаЗадачи + " 9:00:00";

       //Задача.Save();

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

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

Состав информационной базы 1С:Предприятие 7.7 Категория: Администрирование