1с не заполнено субконто кредита цмо

Обновлено: 07.07.2024

"Здравствуйте! Не могу понять что делаю не правильно?! Создаю внешнюю обработку, которая создает новый документ Бух справка и добавляет в неё новую строку. Счета в проводку проставляются, а субконто нет! Выложу текст: Процедура Сформировать() Док = СоздатьОбъект("Документ.БухгалтерскаяСправка"); Док.Новый(); СпрЗаказ = СоздатьОбъект("Справочник.ВидыНоменклатуры"); СпрЗаказ.НайтиПоКоду("23"); Заказ = СпрЗаказ.ТекущийЭлемент(); Док.НоваяСтрока(); Док.СчетДт = СчетПоКоду("40"); Док.СубконтоДт1 = Заказ; Док.СчетКт = СчетПоКоду("25"); Док.Записать(); ОткрытьФорму(Док.ТекущийДокумент()); КонецПроцедуры Подскажите, пожалуйста, как правильно заполнить субконто."

типовую смотрите! З,Ы там еще надо установить тип реквизита,если не ошибаюсь!

"Добавила строчку Док.НазначитьТип("СубконтоДт1","Справочник.ВидыНоменклатуры"); Помогло, Спасибо!"

Вот видишь, не зря же люди пишут конфигурацию!

"надо назначить ещё вид субконто для этих полей. В типовой есть процедура ПриВыбореСчета() Взглянув на неё видим, что там написано: Счет = ПолучитьАтрибут(ИдентификаторКолонки); ИмяАтрибутаСубконто = СтрЗаменить(ИдентификаторКолонки, "Счет", "Субконто"); НазначитьТип(ИмяАтрибутаСубконто + "1", Счет.ВидСубконто(1)); НазначитьТип(ИмяАтрибутаСубконто + "2", Счет.ВидСубконто(2)); НазначитьТип(ИмяАтрибутаСубконто + "3", Счет.ВидСубконто(3)); т.е. для нашей обработки делаем так: Док.НоваяСтрока(); Док.СчетДт = СчетПоКоду("40"); Док.НазначитьТип("СубконтоДт1", Док.СчетДт.ВидСубконто(1)); Док.НазначитьТип("СубконтоДт2", Док.СчетДт.ВидСубконто(2)); Док.НазначитьТип("СубконтоДт3", Док.СчетДт.ВидСубконто(3)); Док.СубконтоДт1 = Заказ; Док.СчетКт = СчетПоКоду("25"); Док.НазначитьТип("СубконтоКт1", Док.СчетКт.ВидСубконто(1)); Док.НазначитьТип("СубконтоКт2", Док.СчетКт.ВидСубконто(2)); Док.НазначитьТип("СубконтоКт3", Док.СчетКт.ВидСубконто(3)); "

Читайте также: