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


Помогите с кодом! Поле объекта недоступно для записи (СубконтоКт)



Gjvjubnt c rjljv

ты определись кт1,2,3 или просто кт...

(0) помогите с кодом

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

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

// Формирование дополнительных движений по регистру бухгалтерии "Хозрасчетный"
        Если НЕ РезультатЗапроса[4].Пустой() Тогда
            
            Движения_Хозрасчетный = Источник.Движения.Хозрасчетный;
            
            Выборка = РезультатЗапроса[4].Выбрать();
            Пока Выборка.Следующий() Цикл
                
                НоваяЗапись = Движения_Хозрасчетный.Добавить();
                ЗаполнитьЗначенияСвойств(НоваяЗапись, Выборка);
                
                // Заполнение субконто счета дебета
                Для Каждого ВидСубконто Из НоваяЗапись.СчетДт.ВидыСубконто Цикл
                    
                    ТипЗнчСубконто1 = ТипЗнч(Выборка.СубконтоДт1);
                    ТипЗнчСубконто2 = ТипЗнч(Выборка.СубконтоДт2);
                    ТипЗнчСубконто3 = ТипЗнч(Выборка.СубконтоДт3);
                    
                    Если ЗначениеЗаполнено(Выборка.СубконтоДт1) И ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнчСубконто1) Тогда
                        
                        НоваяЗапись.СубконтоДт.Вставить(ВидСубконто.ВидСубконто, Выборка.СубконтоДт1);
                        
                    ИначеЕсли ЗначениеЗаполнено(Выборка.СубконтоДт2) И ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнчСубконто2) Тогда
                        
                        НоваяЗапись.СубконтоДт.Вставить(ВидСубконто.ВидСубконто, Выборка.СубконтоДт2);
                        
                    ИначеЕсли ЗначениеЗаполнено(Выборка.СубконтоДт3) И ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнчСубконто3) Тогда
                        
                        НоваяЗапись.СубконтоДт.Вставить(ВидСубконто.ВидСубконто, Выборка.СубконтоДт3);
                        
                    КонецЕсли;
                                                                                                            
                КонецЦикла;
                
                // Заполнение субконто счета кредита
                Для Каждого ВидСубконто Из НоваяЗапись.СчетКт.ВидыСубконто Цикл
                    
                    ТипЗнчСубконто1 = ТипЗнч(Выборка.СубконтоКт1);
                    ТипЗнчСубконто2 = ТипЗнч(Выборка.СубконтоКт2);
                    ТипЗнчСубконто3 = ТипЗнч(Выборка.СубконтоКт3);
                    
                    Если ЗначениеЗаполнено(Выборка.СубконтоКт1) И ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнчСубконто1) Тогда
                        
                        НоваяЗапись.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, Выборка.СубконтоКт1);
                        
                    ИначеЕсли ЗначениеЗаполнено(Выборка.СубконтоКт2) И ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнчСубконто2) Тогда
                        
                        НоваяЗапись.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, Выборка.СубконтоКт2);
                        
                    ИначеЕсли ЗначениеЗаполнено(Выборка.СубконтоКт3) И ВидСубконто.ВидСубконто.ТипЗначения.СодержитТип(ТипЗнчСубконто3) Тогда
                        
                        НоваяЗапись.СубконтоКт.Вставить(ВидСубконто.ВидСубконто, Выборка.СубконтоКт3);
                        
                    КонецЕсли;
                                                                                                            
                КонецЦикла;
                
            КонецЦикла;    
            
            // Запись движений по регистру бухгалтерии "Хозрасчетный" с сохранением существующих записей
            Движения_Хозрасчетный.Записать(Ложь);
            
        КонецЕсли;
        
    КонецЕсли;