Приход в начало дня, расход в конец.
☑
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
+ ну и перепровести
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс