helpf.pro
Регистрация

формирование бухгалтерской справки

seregon
28.03.2011 22:09Прочитано: 1420
ДД, уважаемые...
проблема весь мозг скушала...

Докум1=СоздатьОбъект("Документ.БухгалтерскаяСправка");
Докум1.Новый();
Счет1=Создатьобъект("Счет.основной");
Счет1.НайтиПоКоду("542");

Пока то да се = 1 Цикл
Докум1.НоваяСтрока();
Докум1.СчетДт = Счет1.ТекущийСчет();
Докум1.НазначитьТип("СубконтоДт2", Докум1.СчетДт.ВидСубконто(2));
Докум1.СубконтоДт2 =Докум.Дебет.ФиксированныеАктивы;
Докум1.НомерЖурнала = "ФР";
Докум1.СодержаниеПроводки = "Перенос суммы переоценки";
Докум1.Валюта = глВалютаБухУчета;
Докум1.СодержаниеОперации = "Перенос суммы переоценки ОС";
Докум1.Сумма = Докум.Сумма;
Конец цикла ---------------------
Докум1.Записать();
Блин все хорошо да только счет ни Дт ни Кт не выставляется в созданом докУменте.
В чем прикол понять не могу...

Help
Заранее благодарю за ответ...
Yandex
Возможно, вас также заинтересует
Реклама на портале
E_Migachev
29.03.2011 09:36Ответ № 1
(0) seregon, вот так работает:
Код 1C v 7.x
 Док = СоздатьОбъект("Документ.БухгалтерскаяСправка");
Док.Новый();
СпрЗаказ = СоздатьОбъект("Справочник.ВидыНоменклатуры");
СпрЗаказ.НайтиПоКоду("23");
Заказ = СпрЗаказ.ТекущийЭлемент();

Док.НоваяСтрока();
Док.СчетДт = СчетПоКоду("40");
Док.НазначитьТип("СубконтоДт1", Док.СчетДт.ВидСубконто(1));
Док.НазначитьТип("СубконтоДт2", Док.СчетДт.ВидСубконто(2));
Док.НазначитьТип("СубконтоДт3", Док.СчетДт.ВидСубконто(3));
Док.СубконтоДт1 = Заказ;
Док.СчетКт = СчетПоКоду("25");
Док.НазначитьТип("СубконтоКт1", Док.СчетКт.ВидСубконто(1));
Док.НазначитьТип("СубконтоКт2", Док.СчетКт.ВидСубконто(2));
Док.НазначитьТип("СубконтоКт3", Док.СчетКт.ВидСубконто(3));
Док.Записать();
ОткрытьФорму(Док.ТекущийДокумент());
seregon
30.03.2011 19:54Ответ № 2
Все вопрос закрылся - следует было определять еще представление счета

Докум1.СчетДт = Счет1.ТекущийСчет();
Докум1.СчетДтПредставление = глПолучитьПредставлениеСчета(Докум1.СчетДт);

Всем спасибо...
seregon
30.03.2011 19:54Ответ № 3
Вопрос закрыт!
seregon
30.03.2011 19:54Ответ № 4
Вопрос закрыт!
Подсказка: Для быстрого поиска ответов - используйте 'Поиск'
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.