Имя: Пароль:
1C
1С v8
программно в субконто контрагент записать договор
,
0 servicenn
 
10.02.17
11:30
День добрый , задача стоит перебросить данные с 76.09(контрагенты,договор) на 76.15(физ лицо), соответственно делается проводка Если сальдо дебетовое   проводкой Дт 76.15 Кт 76.09 , но ест кривые нестандартные остатки по 76.09 в аналитику контрагент записаны договоры, есть ли возможность программно в субконто контрагент записать договор (по крайней мере до меня кто то умудрился так сделать)?

пример остаток по 76.09 сумма кт =777
                          субконто контрагенты =основной договор
                          субконто договор     = пустой
1 servicenn
 
10.02.17
14:49
Если вдруг кому интересно , взял кусок процедуры установитьСубконто из общего модуля переделал и добавил в обработку

//Кт 76.09
            //субконто1 контрагент            
            Если КонтрагентКоректный тогда
                БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетКт, ЗХозрасчетный.СубконтоКт, 1 , стр.Субконто1,,);
            Иначе    
                //Контрагент не корректный , вместо контрагента записываем договор
                ИмяСубконто =1;
                Субконто = ЗХозрасчетный.СубконтоКт;
                ВидыСубконтоСчета = ЗХозрасчетный.СчетКт.ВидыСубконто;
                ВидСубк = ВидыСубконтоСчета[ИмяСубконто - 1].ВидСубконто;
                Субконто.Вставить(ВидСубк, стр.Субконто1);
            КонецЕсли;
Закон Брукера: Даже маленькая практика стоит большой теории.