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

28.03.2011 22:09

Прочитано: 2328

ДД, уважаемые...
проблема весь мозг скушала...

Докум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

Вопрос закрыт!

Подсказка: Щелникни по Имени пользователя напротив ответа, и тем самым покажешь, что сообщение адресовано ему.