|
Приход в начало дня, расход в конец. |
☑ |
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
|
+ ну и перепровести
|
|