|
v7: Операции |
☑ |
0
bserge001
04.03.13
✎
10:13
|
При помощи обработки Wrap были свернуты итоги, после чего появилось множество операций на начало 2012 года (свертка делалась на конец 2011). Бухгалтерии не понравилось и они попросили эти операции перебросить на конец 2011. Я написал обработку, но видимо лыжи не едут! Пишет что невозможно изменять дату проведенного документа. Вручную дата меняется. Но вручную трудоемко менять, что посоветуете?
Код обработки:
Процедура Сформировать()
Опр = СоздатьОбъект("Операция");
Опр.ВыбратьОперации(ДатаС,ДатаПО);
Номер = 0;
Пока Опр.ПолучитьОперацию()=1 Цикл
Номер = Номер + 1;
Попытка
Опр.ВключитьПроводки(0);
Опр.ДатаОперации = ДатаОп;
Опр.ВключитьПроводки(1);
Опр.Записать();
Исключение
Сообщить(ОписаниеОшибки() + " "+ Опр.Содержание);
Продолжить;
КонецПопытки;
КонецЦикла;
Сообщить("Количество операций "+Номер);
КонецПроцедуры
|
|
1
Бирюк
04.03.13
✎
10:21
|
OPERSTRN.ert из комплекта Uniprocs с диска ИТС
|
|
2
miki
04.03.13
✎
10:23
|
Объект "Операция" и документ "Операция" - вещи разные.
Попробуй вместо СоздатьОбъект("Операция"); СоздатьОбъект("Документ.Операция");
|
|
3
bserge001
04.03.13
✎
10:51
|
(2) Сработало. Но теперь цикл странно работает, а точнее вообще не работает. Приходится нажимать каждый раз на кнопку. С каждым нажатием преносится одна операциия.
|
|
4
bserge001
04.03.13
✎
10:53
|
Процедура Сформировать()
Опр = СоздатьОбъект("Документ.Операция");
Опр.ВыбратьДокументы(ДатаС,ДатаПО);
Номер = 0;
Пока Опр.ПолучитьДокумент()=1 Цикл
Номер = Номер + 1;
СписокОпер.НоваяСтрока();
СписокОпер.ДатаОперации = Опр.ДатаДок;
Опр.ДатаДок = ДатаОп;
Опр.УстановитьНовыйНомер();
Опр.Записать();
КонецЦикла;
Сообщить("Количество операций "+Номер);
КонецПроцедуры
|
|
5
miki
04.03.13
✎
10:56
|
так выборку сбиваешь-то...
|
|
6
miki
04.03.13
✎
10:57
|
отбирай ч0рным запросом или сначала в ТЗ/СЗ, а из ТЗ - меняй дату.
|
|
7
bserge001
04.03.13
✎
11:01
|
Спасибо большое за помощь!
|
|