Добавление дополнительной операции в док. Передача ОС

1. spartak_lp 27.12.11 15:19 Сейчас в теме
Здраствуйте! В документе "Передача ОС" по умолчанию создается 9 операций (на рис.). Бухгалтерия попросила, чтобы там добавили еще одну операцию ДТ=Н05.02 КТ=Н05.05, чтобы по умолчанию выходило 10 операций. Как такое осуществить?
Прикрепленные файлы:
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. hellf 37 27.12.11 15:31 Сейчас в теме
Открыть конфигуратор и в модуле документа прописать еще одну операцию по аналогии с имеющимися.
3. spartak_lp 27.12.11 15:36 Сейчас в теме
(2) hellf, запутался где в модуле документа конкретно дописать это.
4. spartak_lp 27.12.11 16:03 Сейчас в теме
вручную бухгалтер вбила операцию 10 и выглядит она вот так на рис.
Прикрепленные файлы:
5. deniseek77 86 27.12.11 16:17 Сейчас в теме
Перед Операция.Записать() в Процедуре Обработка проведения:
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("Н05.02");
Операция.Дебет.ОсновныеСредства = ОсновноеСредство;
Операция.Кредит.Счет = СчетПоКоду("Н05.05");
Операция.Кредит.ОсновныеСредства = ОсновноеСредство;
Операция.Кредит.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.ЗаПлату;
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "Выбытие ОС";
6. spartak_lp 27.12.11 16:21 Сейчас в теме
(5) deniseek77, о, привет,Денис, сейчас попробую, я уже тебе на мэйл даже отправил сообщение.
7. spartak_lp 27.12.11 16:25 Сейчас в теме
Денис, операция создалась, только не прописывается субконто, основание и цена, это как сделать, чтобы они тоже писались?
8. deniseek77 86 27.12.11 16:42 Сейчас в теме
9. deniseek77 86 27.12.11 16:54 Сейчас в теме
Попробуй вот так:

Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "Выбытие ОС";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = СчетПоКоду("Н05.02");
Операция.Дебет.Субконто(1, ОсновноеСредство);
Операция.Кредит.Счет = СчетПоКоду("Н05.05");
Операция.Кредит.Субконто(1, ОсновноеСредство);
Операция.Кредит.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.ЗаПлату;
Операция.Сумма = БалансоваяСтоимость;
11. spartak_lp 27.12.11 17:01 Сейчас в теме
(9) deniseek77, основное средство почему-то не выходит, остальное есть.
10. deniseek77 86 27.12.11 16:58 Сейчас в теме
12. spartak_lp 27.12.11 17:11 Сейчас в теме
а, забыл, еще в сумме нужно, чтобы не балансовая стоимость выходила, а как у списанной амортизации
13. deniseek77 86 27.12.11 17:11 Сейчас в теме
Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "Выбытие ОС";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = СчетПоКоду("Н05.02");
Операция.Дебет.ОсновныеСредства=СпрОС.ТекущийЭлемент();
Операция.Кредит.Счет = СчетПоКоду("Н05.05");
Операция.Кредит.ОсновныеСредства=СпрОС.ТекущийЭлемент();
Операция.Кредит.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.ЗаПлату;
Операция.Сумма = НачисленнаяАмортизация;


Все
14. spartak_lp 27.12.11 17:16 Сейчас в теме
(13) deniseek77, сумма проводки верная, вроде получилась, а вот сумму операции добавленной надо, чтобы было = списанной амортизации.
15. deniseek77 86 27.12.11 17:18 Сейчас в теме
Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "Выбытие ОС";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = СчетПоКоду("Н05.02");
Операция.Дебет.ОсновныеСредства=СпрОС.ТекущийЭлемент();
Операция.Кредит.Счет = СчетПоКоду("Н05.05");
Операция.Кредит.ОсновныеСредства=СпрОС.ТекущийЭлемент();
Операция.Кредит.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.ЗаПлату;
Операция.Сумма = НачисленнаяАмортизация;


Все
17. spartak_lp 27.12.11 17:34 Сейчас в теме
(15) deniseek77, вот теперь круто, вновь благодарствую тебе, Денис!
16. deniseek77 86 27.12.11 17:33 Сейчас в теме
18. deniseek77 86 27.12.11 17:36 Сейчас в теме
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот