Имя: Пароль:
1C
1С v8
Приход в начало дня, расход в конец.
0 Sj
 
22.03.12
21:40
Доброе время суток!

  Не подскажете такую обработку, которая кидает приходные накладные в начало дня, а расходные в конец?
1 ДенисЧ
 
22.03.12
21:41
А самому? Там работы на 15 минут...
2 Рэйв
 
22.03.12
21:43
для приходных:
ПередЗаписью()
Дата= НачалоДня(Дата);


для Расходных:
ПередЗаписью()
Дата= КонецДня(Дата);
3 Wobland
 
22.03.12
21:44
(0) нет. делов на полчаса с перекурами
4 Sj
 
22.03.12
21:46
(2) нет слов. А. Есть! Спасибо!
5 МихаилМ
 
22.03.12
22:02
все документы - одним времененм - не гуд
6 Рэйв
 
22.03.12
22:04
(5)доктор сказал в морг- значит в морг.
7 Sj
 
23.03.12
01:33
Может кому пригодиться:


Процедура ОбработатьДокументы( Что, Как)
Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Ссылка
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Дата МЕЖДУ &НачПериода И &КонПериода";
Если Как = 1 Тогда
Запрос.Текст = СтрЗаменить(Запрос.Текст,"ПоступлениеТоваровУслуг","РеализацияТоваровУслуг");
КонецЕсли;
Запрос.Параметры.Вставить("НачПериода",НачалоДня(НачПериода));
Запрос.Параметры.Вставить("КонПериода",КонецДня(КонПериода));
Сообщить("Начало " + ТекущаяДата());
Выборка= Запрос.Выполнить().Выбрать();
Дельта = 1;
День = 0;
Пока Выборка.Следующий() Цикл
Состояние( Выборка.Ссылка.Дата);
Док = Выборка.Ссылка.ПолучитьОбъект();
//Сообщить( Док );
Если День(Док.Дата) = День Тогда
Дельта = Дельта + 1;
Иначе
Дельта = 1;
День = День(Док.Дата);
КонецЕсли;
Док.Дата = ?(Как = -1, НачалоДня(Док.Дата), КонецДНя(Док.Дата)) + Дельта * ( - Как);
Док.Записать();
Сообщить( Док );
КонецЦикла;
Сообщить("Окончание " + ТекущаяДата());
КонецПроцедуры


Процедура ОсновныеДействияФормыПриход(Кнопка)
ОбработатьДокументы("ПоступлениеТоваровУслуг", -1);
КонецПроцедуры

Процедура ОсновныеДействияФормыРасход(Кнопка)
ОбработатьДокументы("РеализацияТоваровУслуг", 1);
КонецПроцедуры
8 FIXXXL
 
23.03.12
05:37
а Групповая даты не меняет?
9 FIXXXL
 
23.03.12
05:38
+ ну и перепровести