Подписка на проведение документа требование-накладная. Для создания проводок вида 08.03 -10.07
Для Каждого Проводка Из Источник.Движения.Хозрасчетный.ЭтотОбъект Цикл  
   Если (Проводка.СчетДт.Код = "08.03") Тогда
      Проводка.СубконтоДт.ОбъектыСтроительства = Источник.Субконто1;
      Проводка.СубконтоДт.СтатьиЗатрат = Источник.Субконто2;
      Проводка.СубконтоДт.СпособыСтроительства = Источник.Субконто3;
   КонецЕсли;
КонецЦикла;
Источник.Движения.Хозрасчетный.ЭтотОбъект.Записать();

для фикси кот. обновляет нормально.
франчи обычно тип. объекты  меняют и потом на обновлениях доработанных конф еще наваривают

(0) Источник.Движения.Хозрасчетный.ЭтотОбъект

а что такое ЭтотОбъект ?

(2) РегистрБухгалтерииНаборЗаписей

рекурсия детектед

(0) Та на Мисте такой код каждый второй не приходя в сознание напишет

а параметр Замещать не надо ставить в Ложь?

(0) ты оправдал свой ник :) креативненько код написАл :)

(0) я не в теме, мужики...а нафига это все???

(8) Вот не понимаешь ты ничего в креативе.

(9) научи креативить :)

(0) Код, как код. Совсем как мой:)

(10) у автора учись - пример в (0) :)

Я тоже не в теме. А что оценивать? Количество символов в коде? Или смысл самого алгоритма? Смысла не вижу :)

(8, 13) Для того, чтобы аналитики по 08.03 заполнить. А необычного в этом коде то, что поначалу я использовал наборзаписей регистра бухгалтерии. Но там не влетало, аналитики терялись.

(0) объясните идиоту зачем .ЭтотОбъект

(14) То есть, по-твоему, больше ничего необычного там нет?

(15) а что бы уж навернаяка... лучше бы конечно написАть
Источник.Движения.Хозрасчетный.ЭтотОбъект.ЭтотОбъект.ЭтотОбъект - что бы уж точно сработало.

по фэн-шую
Источник.ЭтотОбъект.Движения.Найти("Хозрасчетный").ЭтотОбъект

(0) скобочки в условии - наследие 7.7 ?

Двойка за код!

Сойдет. Ничего критичного, если они не проводят 100500 требований-накладных в день.

Сам подход только неверный.
Если по-уму делать, то надо ПередЗаписью документа заполнять табличную часть правильными реквизитами.

Автор понимает, что именно происходит, когда "Источник.Движения.Хозрасчетный.ЭтотОбъект.Записать();"?

"Мне так, просто, чисто поржать"(с)

(21) Угу. Ничего критичного, главное на базу не дышать

(0) я бы такому зольдатену оружия не давал

В (0) - рабочий, читаемый код.

Например, мне нам один человек очень даже помог сделать внедрение, хотя местами прикольно писал. Ничего, все живы:

ВремяОкончанияРасстановки = ?(СтрДлина(Формат(СтрокаТЗЧаса.ВремяОкончанияРасстановки, "ДЛФ=T")) = 8, Лев(Формат(СтрокаТЗЧаса.ВремяОкончанияРасстановки, "ДЛФ=T"),5), Лев(Формат(СтрокаТЗЧаса.ВремяОкончанияРасстановки, "ДЛФ=T"),4));
....

Если Формат(СтрокаТЗЧаса.ДатаНачалаФакт, "ДФ=dd.MM.yy") <> Формат(СтрокаТЗЧаса.ДатаОкончанияФакт, "ДФ=dd.MM.yy") Тогда
...

а зачем вообще записывать движения
тут непонятно, в подписку вообще как записи пришли
надо в отладчике смотреть
щас движения так мутят в типовых, что диву даёшься

(27) Движения - это свойства документа-объекта. Они заполняются в обработке проведения, поэтому видны до конца существования документа-объекта.

(19) наследие Паскаля
(22)в ТЧ данные поля не предусмотрены

(26) Рабочий он по первого чиха в план счетов

(28) Не факт.

(30) И часто у вас у счетов меняют код и субконто ? Код конечно далеко не идеален.

(0) Хотя если счет предопределенный, то проблем вообще не вижу.

(0) если оптимизировать то:

Сч8_3 = ПланыСчетов.Хозрасчетный.Бла-Бла-Бла;
ЕстьПравки = Ложь;

Для Каждого Проводка Из Источник.Движения.Хозрасчетный Цикл  
   Если (Проводка.СчетДт = Сч8_3) Тогда
      Проводка.СубконтоДт.ОбъектыСтроительства = Источник.Субконто1;
      Проводка.СубконтоДт.СтатьиЗатрат = Источник.Субконто2;
      Проводка.СубконтоДт.СпособыСтроительства = Источник.Субконто3;
      ЕстьПравки = Истина;
   КонецЕсли;
КонецЦикла;

Если ЕстьПравки Тогда
      Источник.Движения.Хозрасчетный.Записать();
КонецЕсли;

(31) Случается. Ну и за Проводка.СчетДт.Код = "08.03" уже бы ногами в туалете били.

(33) Сильно изменилось, да...

Нормальный такой обычный себе костыль. В след. релизе уберут и забудут.

(31) например, однажды заменили все точки на запятые, чтобы ввод по строке с нумпада бухам облегчить.

(33)

Сч8_3 = ПланыСчетов.Хозрасчетный.СтроительствоОбъектовОсновныхСредств; ЕстьПравки = Ложь;

Для Каждого Проводка Из Источник.Движения.Хозрасчетный Цикл  
   Если Проводка.СчетДт <> Сч8_3 Тогда Продолжить; КонецЕсли;
   Проводка.СубконтоДт.ОбъектыСтроительства = Источник.Субконто1;
   Проводка.СубконтоДт.СтатьиЗатрат = Источник.Субконто2;
   Проводка.СубконтоДт.СпособыСтроительства = Источник.Субконто3;
   ЕстьПравки = Истина;
КонецЦикла;

Если НЕ ЕстьПравки Тогда Возврат; КонецЕсли;
Источник.Движения.Хозрасчетный.Записать();

(33)(38)
Источник.Движения.Хозрасчетный.Записать(); - не обязательно.
Работает без него.

(38) Почему все полагают, что "СубконтоN" всегда будет иметь один и тот же тип?

(40)Это проблема пользователей. Заполнили правильно - получили нужный результат, нет - сами виноваты.

(0) Повсюду вижу подобный г...код - нет чтобы конфетку написать.

(0) Ты просто гений программирования.

Теперь любой гамнокод надо на мисту постить?
"Если НЕ ЕстьПравки Тогда Возврат; КонецЕсли;"
Не люблю когда в одну строку пишут.
Своих переписывать заставляю.

(0)Делать для одного вида документов подписку- это полная хрень.

+  за .Записать() в подписке -- вообще обе коленки прострелить

мне не нравится креатив здесь Проводка.СчетДт.Код = "08.03"
и где проверка на второй счет?

а здесь " Для создания проводок вида 08.03 -10.07 " - вообще пиз..ж