1C 7.7 Бух. учет, ред. 4.5 Заполнение "Операций вручную" автоматически из .xls
04.04.2011
16:45
#1
"Добрый день!
Поставлена задача создания новой базы Бух. учета с переносом в нее нач. остатков из файла .xls.
Нашли похожий на "Операцию"документ "Бухгалтерская справка". Попытались в нее типовыми средствами(обработками) загрузить данные из .xls. Ничего не вышло, когда доходит дело до реквизита "СубконтоКт(СубконтоДб) " предлагет выбрать какое-то одно фиксированное значение ( в данном случае из Спр. Основные средства).
Сейчас пишу свою обработку, столкнулись с той же проблемой: как присвоить реквизиту "СубконтоКт(Дб)" значение из определ.столбца тбл. .xls ("ОбъектУчета")?
Приведу часть кода, может кто увидит ошибку:
//************************************
"Операция = СоздатьОбъект("Операция");
Операция.Новая();
Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "Ввод начальных остатков по счету Н05.02 ";
Операция.Кредит.Счет = СчетПоКоду("Н05.02");
//значения из тбл.xls
ОбъектУчета = СокрЛП(Лист.Cells(Стр,1).Value);
СуммаАморт = СокрЛП(Лист.Cells(Стр,2).Value);
Операция.Сумма = СуммаАморт;
// приведу несколько вариантов присвоения (ни один из них не работает..((()
Операция.Кредит.ОсновныеСредства = ОбъектУчета;// 1-вариант
Операция.Кредит.Субконто(ВидыСубконто.ОсновныеСредства,ОбъектУчета);// 2- вариант
Операция.Кредит.Субконто(1,ОбъектУчета);// 3-вариант
//*****************************
Просто в "упор" не видит...
Может чего забыли учесть перед присвоением?
Спасибо."
Поставлена задача создания новой базы Бух. учета с переносом в нее нач. остатков из файла .xls.
Нашли похожий на "Операцию"документ "Бухгалтерская справка". Попытались в нее типовыми средствами(обработками) загрузить данные из .xls. Ничего не вышло, когда доходит дело до реквизита "СубконтоКт(СубконтоДб) " предлагет выбрать какое-то одно фиксированное значение ( в данном случае из Спр. Основные средства).
Сейчас пишу свою обработку, столкнулись с той же проблемой: как присвоить реквизиту "СубконтоКт(Дб)" значение из определ.столбца тбл. .xls ("ОбъектУчета")?
Приведу часть кода, может кто увидит ошибку:
//************************************
"Операция = СоздатьОбъект("Операция");
Операция.Новая();
Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "Ввод начальных остатков по счету Н05.02 ";
Операция.Кредит.Счет = СчетПоКоду("Н05.02");
//значения из тбл.xls
ОбъектУчета = СокрЛП(Лист.Cells(Стр,1).Value);
СуммаАморт = СокрЛП(Лист.Cells(Стр,2).Value);
Операция.Сумма = СуммаАморт;
// приведу несколько вариантов присвоения (ни один из них не работает..((()
Операция.Кредит.ОсновныеСредства = ОбъектУчета;// 1-вариант
Операция.Кредит.Субконто(ВидыСубконто.ОсновныеСредства,ОбъектУчета);// 2- вариант
Операция.Кредит.Субконто(1,ОбъектУчета);// 3-вариант
//*****************************
Просто в "упор" не видит...
Может чего забыли учесть перед присвоением?
Спасибо."
04.04.2011
20:47
#2
Это смотря как у вас "ОбъектУчета" получен. Попробуйте написать ОбъектУчета.ТекущийЭлемент(), а вариант любой из перечисленных можно
04.04.2011
21:16
#3
"Тип значения субконто из примера - справочник, а ОбъектУчета у вас строка(текст) из ячейки Excel. Конечно он ничего не присвоит. Необходимо чтобы ОбъектУчета был элементом справочника и как этого добиться зависит от вашей ситуации:
- у вас есть заполненный справочник ОС, который соответсвует данным в таблице. Тогда надо искать по коду или по наименованию необходимый элемент и уже его присваивать;
-у вас пустой или частично заполненный справочник ОС. Тогда надо создават элемент этого справочника с уже его присваивать."
- у вас есть заполненный справочник ОС, который соответсвует данным в таблице. Тогда надо искать по коду или по наименованию необходимый элемент и уже его присваивать;
-у вас пустой или частично заполненный справочник ОС. Тогда надо создават элемент этого справочника с уже его присваивать."
Бюджетная бухгалтерия 8. Зависает отчет в клиент-серверном варианте.Зуп 2.5.33 97 расходы будущих периодов последний релиз
Читают тему
(гостей: 1)