Или как настроить создание правильных проводок в документе в бух 8.1?

Ответ на вопрос - 100 руб.
Правильный ответ на вопрос - 1000 руб.
Вам замуж или мороженого?

Ну так кто-нибудь может подсказать
1. Как программно создать проводки для документа
2. Как настроить создание проводок

книга Радченко "практические пособие разработчика"

Человек задал нормальный вопрос, что Вы ерничайте?
Например
ДокРед = ;//ссылка на документ редактирования
ДокРедОбъект = Докред.Получитьобъект();
ДокРедОбъект.Организация = РогаИКопыта;
...
ДокРедОБъект.Записать(РежимЗаписи.Проведение);

А  вот так вот будет правильно, я настроил создание нужных проводок в конфигураторе?

Процедура ОбработкаПроведения(Отказ, Режим) //в разработке
   
   Перем СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаОплата;
   //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
   // Данный фрагмент построен конструктором.
   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
   Для Каждого ТекСтрокаРасшифровкаПлатежа Из РасшифровкаПлатежа Цикл
       // регистр Хозрасчетный
       Движение = Движения.Хозрасчетный.Добавить();
       Движение.Период = Дата;
       Движение.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("50.01");
       Движение.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("62.01");

       Движение.Организация = Организация;
       Движение.Сумма = СуммаДокумента/10;
       
           Движение = Движения.Хозрасчетный.Добавить();
   Движение.Период = Дата;
   Движение.СчетДт =планысчетов.Хозрасчетный.НайтиПоКоду("50.01");
   Движение.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("62.03");

   Движение.Организация = Организация;
   Движение.Сумма = СуммаДокумента-СуммаДокумента/10;

   КонецЦикла;
   // регистр Хозрасчетный

   //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры // ОбработкаПроведения

это для ПКО

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

(7)
Так бухи велели. А субконто для просмотра ОСВ обязательно или можно и без него?

(7)[расчет суммы прикольный]
и работать не будет, копейки не сойдутся

(9)
а как сделать, чтобы сошлись?

а что в БП не в документе указываются счета? О_о

(11)
а как их в документе настроить?

(12) у меня УПП
и там в зависимости от операции поставляются счета
если "Прочие", то дает самим вводить

(13) имхо УПП <> БП

(14) я думаю принципы таких элементарных документов сохранились. Или я ошибаюсь?
так-то я просто в (11) спросил

А как программно задать, что субконто ДТ № 1 = определенный реквизит?

(16) там функция УстановитьСубконто() есть. Посмотри как в типовой сделано. Возможно, тебе просто надо в типовых проводках подправить суммы, а ты решил весь документ изничтожить и по новой всё написать.

Ну я так понимаю он на чистой базе это делает, только вод обманчивая быстро освоения методом тыка займет намного больше времени, нежели использовать совет в (3)

(18) что, для бухов делает приходный ордер на чистой базе? Ну, монстр!

hhhh
Ну я так понимаю он пытается разобраться как делать эти проводки вообще, если конечно он это всё делает в БП, то... всё крайне плохо и ему надо не программировать учиться, а типовую сначала изучать.
А если вот это "//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ" было сделано в типовом документе, то всё еще хуже :)

Вот я одно субконто сделал
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "Контрагенты", этотобъект.Контрагент);

Все вроде встало. Для счета субконто 3 не задано. Но, тем не менее, можно ли что-то туда запихнуть? Как это сделать программно (типа строчки выше)

О, Великий мыслитель!
судя по фразе "это для ПКО", ты в приходном кассовом ордере, в типовой конфигурации Бухгалтерия предприятия использовал конструктор движений регистров?

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

(0) надеюсь что бекап есть.

"да, я потом дополню типовую"
Чем тебе типовой механизм не угодил? Слишком гибкий?

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

(26)
Ну а почему бухи не могут ставить для "конкретных" ПКО другие счета? Ты выбрал очень неправильный путь для удовлетворения бухов.

блин, как у счета заполнить субконто 3, указав не его название, а именно что это субконто 3

(27)
а как по другому?

(28)
Выбрать вид операции прочие и заполнить счет 62.03 и выбрать все 3 субконто например?

(30)
блин, я программно проводку делаю, мне надо программно субконто 3 заполнить, как это сделать?

(0)Ты понимаешь, что если ты вот это:
роцедура ОбработкаПроведения(Отказ, Режим) //в разработке

   
   Перем СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаОплата;
   //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

   // Данный фрагмент построен конструктором.

   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

   Для Каждого ТекСтрокаРасшифровкаПлатежа Из РасшифровкаПлатежа Цикл
       // регистр Хозрасчетный

       Движение = Движения.Хозрасчетный.Добавить();
       Движение.Период = Дата;
       Движение.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("50.01");
       Движение.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("62.01");

       Движение.Организация = Организация;
       Движение.Сумма = СуммаДокумента/10;
       
           Движение = Движения.Хозрасчетный.Добавить();
   Движение.Период = Дата;
   Движение.СчетДт =планысчетов.Хозрасчетный.НайтиПоКоду("50.01");
   Движение.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("62.03");

   Движение.Организация = Организация;
   Движение.Сумма = СуммаДокумента-СуммаДокумента/10;

   КонецЦикла;
   // регистр Хозрасчетный


   //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КонецПроцедуры // ОбработкаПроведения
Добавишь в типовую, то ты сознательно похеришь весь типовой механизм, чем у бухов отберешь операции, которые до этого работатли.

(32)
Я скопирую типовой механизм, а свой по условию добавлю.

(33)
Я сдаюсь, ты победил, добавляй.

(34)
а что, будут негативные последствия?

(35) для начала подумай как будешь обновляться

(35)
Почему-то я в этом не сомневаюсь, ты не понимаешь как работает типовая конфигурация, но уже с рвением собрался править её. Это как взять работающую машину с работающим двигателем, не зная как она устроена с уверенностью улучшения начнешь в двигатель добавлять свои "улучшения".

(36)
обновления раз в полгода. Обновлю, а потом скопирую свой код туда.

О, я все таки сделал это. И старые документы не похерились и новые работают как надо. Кто сомневался в моем плане - сосут!

Процедура ОбработкаПроведения(Отказ, Режим) //в разработке
   
   Перем СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаОплата;
   
   // Заголовок для сообщений об ошибках проведения.
   Заголовок = ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка);
   
   // Проверка ручной корректировки
   Если ОбщегоНазначения.РучнаяКорректировкаОбработкаПроведения(РучнаяКорректировка,Отказ,Заголовок,ЭтотОбъект) Тогда
       Возврат
   КонецЕсли;

   ПодготовитьСтруктуруШапкиДокумента(Заголовок, СтруктураШапкиДокумента, Отказ);
   
   ЕстьРасчетыСКонтрагентами = УправлениеДенежнымиСредствами.ЕстьРасчетыСКонтрагентами(ВидОперации);
   ЕстьРасчетыПоКредитам = УправлениеДенежнымиСредствами.ЕстьРасчетыПоКредитам(ВидОперации);

   // Документ должен принадлежать хотя бы к одному виду учета (бухгалтерский, налоговый)
   ОбщегоНазначения.ПроверитьПринадлежностьКВидамУчета(СтруктураШапкиДокумента, Отказ, Заголовок);
   
   ПроверитьЗаполнениеДокумента(Отказ, Заголовок, СтруктураШапкиДокумента);
   
   //Проверим на возможность проведения в БУ и НУ
   Если ЕстьРасчетыСКонтрагентами или ЕстьРасчетыПоКредитам тогда
       Для каждого СтрокаОплаты из РасшифровкаПлатежа Цикл
           УправлениеВзаиморасчетами.ПроверкаВозможностиПроведенияВ_БУ_НУ(СтруктураШапкиДокумента,СтрокаОплаты.ДоговорКонтрагента,
           Отказ, Заголовок,"Строка "+СтрокаОплаты.НомерСтроки+" - ");
       КонецЦикла;
   КонецЕсли;    
       
   Если Не Отказ Тогда
       ДвиженияПоРегистрам(Режим, Отказ, Заголовок, СтруктураШапкиДокумента);
   КонецЕсли;
///--------------------------------------------------------------------------------------доработка
   Если этотобъект.ВидОперации=перечисления.ВидыОперацийПКО.ОплатаПокупателя тогда
       ОбщегоНазначения.УдалитьДвиженияРегистратора(ЭтотОбъект, Отказ, РучнаяКорректировка);

   Для Каждого ТекСтрокаРасшифровкаПлатежа Из РасшифровкаПлатежа Цикл
       // регистр Хозрасчетный
       Движение = Движения.Хозрасчетный.Добавить();
       Движение.Период = Дата;
       Движение.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("50.01");
       Движение.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("62.01");

       Движение.Организация = Организация;
       Движение.Сумма = СуммаДокумента/10;
       БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "Контрагенты", этотобъект.Контрагент);
      БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "Договоры", этотобъект.ДоговорКонтрагента);
      БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, 3, этотобъект.Основание);

        Движение.Содержание = "Поступление денежных средств";
       
           Движение = Движения.Хозрасчетный.Добавить();
   Движение.Период = Дата;
   Движение.СчетДт =планысчетов.Хозрасчетный.НайтиПоКоду("50.01");
   Движение.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("62.03");

   Движение.Организация = Организация;
   Движение.Сумма = СуммаДокумента-СуммаДокумента/10;
   БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "Контрагенты", этотобъект.Контрагент);
      БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "Договоры", этотобъект.ДоговорКонтрагента);
           Движение.Содержание = "Поступление денежных средств";
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, 3, этотобъект.Основание);

        КонецЦикла;
    конецесли;
    ///--------------------------------------------------------------------------------------доработка

КонецПроцедуры // ОбработкаПроведения