Доброго времени суток, господа - форумчане. Проблема следующего характера:
v 7.7, БУ 4.5.
Скажу сразу, что в бух.учете я, откровенно говоря, слабоват.
Гл.бух поставила задачу сформировать поступления таким образом:
Дт 41.1 - Кт 60.1   -   есть расчет с поставщиками в руб.
Дт 41.1 - Кт 71.1   -   есть расчет с подотчетниками.
Но если с последним все более менее понятно - авансовый отчет, и все ок, то вот с 41.1-60.1 начались проблемы. Теоретически это делается, если я правильно понимаю Поступлением товаров, однако там Дт 41.2 - Кт 60.1, т.е. Субконто1 я не могу указать (по аналогии с авансовым отчетом - там хотя бы реквизиты были Субконто1, Субконто2...)

Вот сижу ломаю голову как накодить обработчик создания таких движений...
Кроме того меня терзают сомнения насколько это вообще правильно?

Благодарен за любые советы, с ув. YurAnt.

(0) какой бред. Проводки не правильные. Должно быть хотя бы так
Д41.1 К60.1
Д60.1 К71.1

1. поступление товаров (субсчет 41 определяется внутри самого товара(номенклатуры))
2. авансовый отчёт

благодарю, а что с Кт 60.1 ? где определяется он?
ведь 41й я указать могу, вопрос как изменить 71?

Процедура СоздатьАвансовыйОтчет411_711(ТЗ)  
    //сторонние поступления, все кроме 7к = 10022, и Склюева = 10019
    Если ((ТЗ.СуммаПоПрихНаклИПСклюев <> 0) И (ТЗ.ИДКонтрПрихНакл <> "10022") И (ТЗ.ИДКонтрПрихНакл <> "10019")) Тогда
        ДокАвансОтчет = СоздатьОбъект("Документ.АвансовыйОтчет");
        ДокАвансОтчет.Новый();
        ДокАвансОтчет.ДатаДок          = ТЗ.ДатаПрихНакл;
        ДокАвансОтчет.УстановитьНовыйНомер();
        ДокАвансОтчет.Валюта = "";
        ДокАвансОтчет.Получено1     = "из кассы";
        ДокАвансОтчет.Дата1            = ТЗ.ДатаПрихНакл;
        ДокАвансОтчет.Сумма1        = ТЗ.СуммаПоПрихНаклИПСклюев;
        
        Сотрудники = СоздатьОбъект("Справочник.Сотрудники");
        Если ТЗ.КонтрПрихНакл = "ИП Старт" Тогда
             СотрПоиска = "ИП Старт";
        ИначеЕсли ТЗ.КонтрПрихНакл = "Иванов" Тогда
             СотрПоиска = "Иванов Е.А.";
        Иначе
             СотрПоиска = ТЗ.КонтрПрихНакл;
        КонецЕсли;
        
        Если Сотрудники.НайтиПоНаименованию(СотрПоиска, 0, 1) = 1 Тогда
            Сотрудник = Сотрудники.ТекущийЭлемент();
        Иначе
            Сотрудник = ПолучитьПустоеЗначение("Справочник.МестаХранения");
        КонецЕсли;
        
        ДокАвансОтчет.Сотрудник        = Сотрудник;
        
        СпрМестоХранения = СоздатьОбъект("Справочник.МестаХранения");
        Если СпрМестоХранения.НайтиПоНаименованию("Ресторан", 0, 1) = 1 Тогда
            МестоХранения = СпрМестоХранения.ТекущийЭлемент();
        Иначе
            МестоХранения = ПолучитьПустоеЗначение("Справочник.МестаХранения");
        КонецЕсли;
        
        СпрМатериалы = СоздатьОбъект("Справочник.Материалы");
        Если СпрМатериалы.НайтиПоНаименованию("Продукты", 0, 1) = 1 Тогда
            Материалы = СпрМатериалы.ТекущийЭлемент();
        Иначе
            Материалы = ПолучитьПустоеЗначение("Справочник.МестаХранения");
        КонецЕсли;
        
        ДокАвансОтчет.НоваяСтрока();
        
        Счет411                         = СчетПоКоду("41.1");
        ДокАвансОтчет.КоррСчет                 = Счет411;  
        
        Для А = 1 По 3 Цикл
            ДокАвансОтчет.НазначитьТип("Субконто" + А, Счет411.ВидСубконто(А));
        КонецЦикла;
        ДокАвансОтчет.НомерДокумента = ТЗ.ИДКонтрПрихНакл;
        ДокАвансОтчет.ДатаС = ТЗ.ДатаПрихНакл;
        ДокАвансОтчет.КомуЗаЧто = "Чек";
        ДокАвансОтчет.Субконто1 = Материалы;
        ДокАвансОтчет.Субконто2 = МестоХранения;
        ДокАвансОтчет.Количество = 1;
        ДокАвансОтчет.Сумма = ТЗ.СуммаПоПрихНаклИПСклюев;
        ДокАвансОтчет.СуммаПоОтчету = ТЗ.СуммаПоПрихНаклИПСклюев;
        
        ДокАвансОтчет.Записать();
        ДокАвансОтчет.Провести();
        Сообщить("Создан авансовый отчет:" + ДокАвансОтчет.НомерДок + ", за " + ДокАвансОтчет.ДатаДок);
    КонецЕсли;
КонецПроцедуры

аааа... всё понял, оформляем 2 дока