1C Бухгалтерия: учет комиссии при проведении документа «Поступление на р/с» на другом счете.

1C

Решение не мое, подсмотрено. Но! Расскажу как реализовано, может кому пригодится.

Итак: в 1С Бухгалтерия приходят платежки из банка, с суммой, и выделенной в поле «назначение платежа» комиссией. Например:

Нужно чтоб движения документа выглядели так:

Реализовано сиё достаточно просто. Во первых создаем справочник «Настройка анализа платежных поручений», куда занесем «стоп слова» в назначении платежа, на основании которых будут автоматически формироваться движения:

krana-ot-2018-01-29-09-01-42.png»>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
&НаСервере
Процедура ПриПроведенииПоступленияНаРасчетныйСчетОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
СтруктураСумм = ОпределитьСуммы(Источник);
Если СтруктураСумм.СуммаПлатежа <> 0 И СтруктураСумм.СуммаКомиссии <> 0 Тогда
Движения = Источник.Движения.КнигаУчетаДоходовИРасходов;
Для Каждого Движение ИЗ Движения Цикл
Движение.Графа4 = СтруктураСумм.СуммаПлатежа;
Движение.Графа5 = СтруктураСумм.СуммаПлатежа;
Источник.Графа4_УСН = СтруктураСумм.СуммаПлатежа;
Источник.Графа5_УСН = СтруктураСумм.СуммаПлатежа;
ПрименяетсяУСНДоходыМинусРасходы = УчетнаяПолитика.ПрименяетсяУСНДоходыМинусРасходы(Источник.Организация, Источник.Дата);
Если ПрименяетсяУСНДоходыМинусРасходы Тогда
Движение.Графа6 = СтруктураСумм.СуммаКомиссии;
Движение.Графа7 = СтруктураСумм.СуммаКомиссии;
Движение.ВидРасхода = Перечисления.ВидыРасходовУСН.Услуги;
Источник.Графа6_УСН = СтруктураСумм.СуммаКомиссии;
Источник.Графа7_УСН = СтруктураСумм.СуммаКомиссии;
КонецЕсли
КонецЦикла;
сообщить("превед медвед!");
Источник.Записать(РежимЗаписиДокумента.Запись);
Движения.Записать(Истина);
Движения = Источник.Движения.Хозрасчетный;
СодержаниеПроводки = Источник.НазначениеПлатежа + " по вх.д." + Источник.НомерВходящегоДокумента + " от " + Формат(Источник.ДатаВходящегоДокумента, "ДЛФ=Д");
Движения.Очистить();
Проводка = Движения.Добавить();
Проводка.Период      = Источник.Дата;
Проводка.Организация = Источник.Организация;
Проводка.Содержание = СодержаниеПроводки;
Проводка.СчетДт = ПланыСчетов.Хозрасчетный.РасчетныеСчета;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"БанковскиеСчета", Источник.СчетОрганизации);
Попытка
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"СтатьиДвиженияДенежныхСредств", ?(Источник.СтатьяДвиженияДенежныхСредств.Пустая(), Источник.РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств, Источник.СтатьяДвиженияДенежныхСредств));
Исключение
КонецПопытки;
Проводка.Сумма = Источник.СуммаДокумента;
Проводка.СчетКт             = ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Контрагенты", Источник.Контрагент);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Договоры", Источник.ДоговорКонтрагента);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"ДокументыРасчетовСКонтрагентами", Источник.Ссылка);
БухгалтерскийУчет.УстановитьПодразделенияПроводки(Проводка, Источник.ПодразделениеКт, Источник.ПодразделениеКт);
Проводка = Движения.Добавить();
Проводка.Период      = Источник.Дата;
Проводка.Организация = Источник.Организация;
Проводка.Содержание = "Отражена выручка по реализации";
Проводка.СчетДт             = ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "Контрагенты", Источник.Контрагент);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "Договоры", Источник.ДоговорКонтрагента);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "ДокументыРасчетовСКонтрагентами", Источник.Ссылка);
Проводка.СчетКт = Источник.СчетУчетаРасчетовСКонтрагентом;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт, 1, Источник.СубконтоКт1);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт, 2, Источник.СубконтоКт2);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт, 3, Источник.СубконтоКт3);
Проводка.Сумма = СтруктураСумм.СуммаПлатежа;
БухгалтерскийУчет.УстановитьПодразделенияПроводки(Проводка, Источник.ПодразделениеКт, Источник.ПодразделениеКт);
Проводка = Движения.Добавить();
Проводка.Период      = Источник.Дата;
Проводка.Организация = Источник.Организация;
Проводка.Содержание = СодержаниеПроводки;
Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ПрочиеРасходы;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"ПрочиеДоходыИРасходы", Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00073"));
Проводка.Сумма = СтруктураСумм.СуммаКомиссии;
Проводка.СчетКт             = ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Контрагенты", Источник.Контрагент);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Договоры", Источник.ДоговорКонтрагента);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"ДокументыРасчетовСКонтрагентами", Источник.Ссылка);
БухгалтерскийУчет.УстановитьПодразделенияПроводки(Проводка, Источник.ПодразделениеКт, Источник.ПодразделениеКт);
Движения.Записать(Истина);
КонецЕсли;
КонецПроцедуры