Смена счета в регистре Хозрасчетный

1С v8

29.11.13

✎

07:09

Собственно говоря сабж. Есть документ, который создает проводки, т.е набор записей в регистре Хозрасчетный по ТЧ документа. Можно сделать так чтобы сделать отбор в регистре по определенному значению и поменять там счет?

1 Wobland

29.11.13

✎

07:10

можно

2 Kurbash

29.11.13

✎

07:11

сек, код кину примерный

3 Wobland

29.11.13

✎

07:11

(2) не стесняйся, кидай точный

4 Kurbash

29.11.13

✎

07:13

Н=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НБ.Отбор.РЕгистратор.Установить(Регистратор);
НБ.Прочитать();
Для каждого стр из НБ цикл
стр.СчетДТ=Счет;
Конеццикла;
НБ.Записать();

5 Kurbash

29.11.13

✎

07:14

как?

6 Wobland

29.11.13

✎

07:17

что смущает?

7 Oleg_ka

29.11.13

✎

07:19

(4) Опечатка в коде, в первой строке?

8 Kurbash

29.11.13

✎

07:19

боюсь на рабочей проверять а копии нет-большая база копия долго делать

9 Kurbash

29.11.13

✎

07:20

да,надо не Н а НБ

10 shuhard

29.11.13

✎

07:20

(40 код УГ

11 Kurbash

29.11.13

✎

07:21

чего?

12 Wobland

29.11.13

✎

07:23

а то, что дебетовый счёт везде будет один, не смущает?

13 Kurbash

29.11.13

✎

07:25

а..чтоп..условие забыл

14 Kurbash

29.11.13

✎

07:28

НБ=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НБ.Отбор.РЕгистратор.Установить(Регистратор);
НБ.Прочитать();
Для каждого стр из НБ цикл
если стр.ревизит="Нужное значение" тогда
стр.СчетДТ=Счет;
конецесли;
Конеццикла;
НБ.Записать();

15 catena

29.11.13

✎

07:30

(8)Дааа, спросить на мисте в этом случае - лучшее решение! Тут водятся самые добрые единороги. Сейчас тебе код поправят и можешь смело запускать на боевой.

16 Kurbash

29.11.13

✎

07:37

не знаю мне обычно помогают, ни разу плохого не советовали

17 Kurbash

02.12.13

✎

09:09

и в продолжении темы)))

НБ=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НБ.Отбор.РЕгистратор.Установить(ЭтотОбъект.ссылка);
НБ.Прочитать();
Для каждого стр из НБ цикл
если найти(стр.Содержание,"илет")>0 тогда
стр.СчетКТ=ПланыСчетов.Хозрасчетный.НайтиПоКоду("71.02");
//стр.СубконтоКт.ФИзическиеЛица=ЭтотОбъект.ФизЛицо;
БухгалтерскийУчет.УстановитьСубконто(ПланыСчетов.Хозрасчетный.НайтиПоКоду("71.02"), стр.СубконтоКт,2, "654321");
конецесли;
Конеццикла;
НБ.Записать();
не устанавляивается субконто хоть тресни...в чем может быть дело?

18 piter3

02.12.13

✎

09:33

"654321" это что за трава?!

19 Wobland

02.12.13

✎

09:41

(18) найти(стр.Содержание,"илет")
номер лотерейного билета. вероятно, с подотчётниками лотереей рассчитываются

20 Kurbash

02.12.13