Расчет даты доставки

[kot488]

Имеется 1С 8.2 на управляемых формах. В документе есть два поля, Дата и ДатаДоставки. В поле дата вставляется текущая дата. Как реализовать что бы в поле ДатаДоставки выставлялась дата плюс 2 дня?

[LexaK]

Даты в 1С хранятся в секундах, поэтому к текущей дате надо добавить количество секунд 2- дней
получается так

ДатаДоставки = ТекущаяДаата
    + 2  //Количество дней
    * 24 //часов в сутках
    * 3600; //( 60 * 60 количество секунд в часе)

ДатаДоставки = ТекущаяДаата + 2*24*3600;

[kot488]

Даты в 1С хранятся в секундах, поэтому к текущей дате надо добавить количество секунд 2- дней
получается так

ДатаДоставки = ТекущаяДаата
    + 2  //Количество дней
    * 24 //часов в сутках
    * 3600; //( 60 * 60 количество секунд в часе)

ДатаДоставки = ТекущаяДаата + 2*24*3600;

Уже разобрался, но возник вопрос. Как сделать что бы выполнялась проверка выходных дней, и если дата доставки попадает на выходной то переносилась на следующий рабочий. База самописная, по этому регистра календаря нет

[alex0402]

Тыц

[kot488]

Тыц

Не подскажите как его в эту функцию вписать?

Код Выделить Развернуть


&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
  Если Лев(Объект.Зона,25)="Внутригородская доставка" И Лев(Объект.КатегорияДоставки,8)="Экспресс" Тогда
      Объект.ДатаДоставкиОриентир = ТекущаяДата();
   КонецЕсли;

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


[alex0402]

Код Выделить Развернуть

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
  Если Лев(Объект.Зона,25)="Внутригородская доставка" И Лев(Объект.КатегорияДоставки,8)="Экспресс" Тогда
      Объект.ДатаДоставкиОриентир = ТекущаяДата()+86400*2;
      Пока ДеньНедели(Объект.ДатаДоставкиОриентир) >= 6 Цикл
           Объект.ДатаДоставкиОриентир = Объект.ДатаДоставкиОриентир - 86400;
      КонецЦикла;

   КонецЕсли;

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


[LexaK]

автор просил изменить дату до следующего рабочего дня поэтому
не
Объект.ДатаДоставкиОриентир = Объект.ДатаДоставкиОриентир - 86400; //минус заменить на плюс

а
Объект.ДатаДоставкиОриентир = Объект.ДатаДоставкиОриентир + 86400;

[kot488]

Спасибо большое, вот так заработало

Код Выделить Развернуть


Если Лев(Объект.Зона,25)="Внутригородская доставка" И Лев(Объект.КатегорияДоставки,8)="Экспресс" Тогда
      Объект.ДатаДоставкиОриентир = ТекущаяДата()+86400*2;
      Пока ДеньНедели(Объект.ДатаДоставкиОриентир) >= 5 Цикл
           Объект.ДатаДоставкиОриентир = Объект.ДатаДоставкиОриентир + 86400;
      КонецЦикла;

   КонецЕсли;


[Kironten]

Спасибо большое, вот так заработало

Код Выделить Развернуть


Если Лев(Объект.Зона,25)="Внутригородская доставка" И Лев(Объект.КатегорияДоставки,8)="Экспресс" Тогда
      Объект.ДатаДоставкиОриентир = ТекущаяДата()+86400*2;
      Пока ДеньНедели(Объект.ДатаДоставкиОриентир) >= 5 Цикл
           Объект.ДатаДоставкиОриентир = Объект.ДатаДоставкиОриентир + 86400;
      КонецЦикла;

   КонецЕсли;


А с чего это у вас пятница - выходной?

[kot488]

Спасибо большое, вот так заработало

Код Выделить Развернуть


Если Лев(Объект.Зона,25)="Внутригородская доставка" И Лев(Объект.КатегорияДоставки,8)="Экспресс" Тогда
      Объект.ДатаДоставкиОриентир = ТекущаяДата()+86400*2;
      Пока ДеньНедели(Объект.ДатаДоставкиОриентир) >= 5 Цикл
           Объект.ДатаДоставкиОриентир = Объект.ДатаДоставкиОриентир + 86400;
      КонецЦикла;

   КонецЕсли;


А с чего это у вас пятница - выходной?

Затупил не много(
А как то можно не к текущей дате привязаться, а к дате которая в ручную указывается в документе, что бы к значению которое там доваблялось по верхнему примеру.  В документе есть реквизит ДатаОтправления. Это через запрос нужно получать значение текущего документа?