0
Niveus
31.07.15
✎
17:19
|
&НаКлиенте
Процедура Нажатие(Команда)
ФормированиеДокумента(Счет,Организация,СчетПриемник);
//
// Параметры = Новый Структура("Ключ", ДокФорма);
// Форма = ПолучитьФорму("Документ.ОперацияБух.Форма.ФормаДокумента", Параметры);
// Форма.Открыть();
КонецПроцедуры
Функция ФормированиеДокумента(Счет,Организация,СчетПриемник)
//Записываем документ
ДатаЗаписи = ТекущаяДата();
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Док = Документы.ОперацияБух.СоздатьДокумент();
Док.Дата = ДатаЗаписи;
Док.Организация = Организация;
Док.Ответственный = ПараметрыСеанса.ТекущийПользователь;
Док.Комментарий = "Перенос остатков счета " + Счет.Код + " на счет " + СчетПриемник.Код;
Док.Содержание = "Перенос остатков счета " + Счет.Код + " на счет " + СчетПриемник.Код;
Для Каждого Строка Из Объект.ТабличнаяЧасть Цикл
Док.СуммаОперации = Строка.Сумма + Док.СуммаОперации;
КонецЦикла;
Док.Записать();
//Набор записей в ренистр бухгалтерии
РегХозрасчетный.Отбор.Регистратор.Установить(Док.Ссылка);
Для Каждого Строка Из Объект.ТабличнаяЧасть Цикл
Движение = РегХозрасчетный .Добавить();
Движение.Регистратор = Док.Ссылка;
Движение.Период = ДатаЗаписи;
Движение.Организация = ЭтаФорма.Организация;
Движение.СчетКт = ЭтаФорма.Счет;
Движение.СчетДт = ЭтаФорма.СчетПриемник ;
Движение.Сумма = Строка.Сумма;
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "Контрагенты",Строка.Контрагент);
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "СФПолученные",Строка.Документ);
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ПрочиеДоходыИРасходы",Справочники.ПрочиеДоходыИРасходы.НайтиПоНаименованию("Затраты, невключаемые в налогообложение прибыли_Other_TP"));
//Док.СуммаОперации = Строка.Сумма + Док.СуммаОперации;
КонецЦикла;
РегХозрасчетный.Записать();
//ДокФорма = Док.ЭтотОбъект;
//Возврат ДокФорма;
//
//Док.Ссылка.ПолучитьФорму("ФормаДокумента").Открыть();
КонецФункции
|
|