&НаСервере
......
Ответственный = ТекущийПользовательСервер();
СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03");
СубконтоДт1 = КонтрагентДт;
СубконтоДт2 = ДоговорДт;
ОперацияБух = Документы.ОперацияБух.СоздатьДокумент();
ОперацияБух.Дата = ДатаПериода;
ОперацияБух.Организация = Организация;
ОперацияБух.Содержание = "Платежи по картам";
ОперацияБух.Ответственный = Ответственный;
ОперацияБух.Записать();
// Создать набор записей.
НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(ОперацияБух.Ссылка);
НаборЗаписей.Записывать = Истина;
_сумма_операции = 0;
ПодразделениеКт = ПодразделениеВерхнегоУровня;
ПодразделениеДт = ПодразделениеВерхнегоУровня;
Для _инд = 0 ПО МассивПлатежей.Количество() - 1 Цикл
ПодразделениеНаименование = МассивПлатежей[_инд].ПодразделениеНаименование;
ПодразделениеКод = МассивПлатежей[_инд].ПодразделениеКод;
ВидОплаты = МассивПлатежей[_инд].ВидОплаты;
ЮрФизЛицо = МассивПлатежей[_инд].ЮрФизЛицо;
Сумма = МассивПлатежей[_инд].Сумма;
Если ВидОплаты = "Электроэнергия" Тогда
СубконтоДт3 = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("1110010");
СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
_содержание = ПодразделениеНаименование+ " э/э "+ ЮрФизЛицо+ " лица";
Если ЮрФизЛицо = "Физ" Тогда
СубконтоКт1 = КонтрагентЭнергияФИЗ;
СубконтоКт2 = ДоговорЭнергияФИЗ;
СубконтоКт3 = ДокументРасчетовЭнергияФИЗ;
ИначеЕсли ЮрФизЛицо = "Юр" Тогда
СубконтоКт1 = КонтрагентЭнергияЮР;
СубконтоКт2 = ДоговорЭнергияЮР;
СубконтоКт3 = ДокументРасчетовЭнергияЮР;
Иначе
Продолжить;
Конецесли;
ИначеЕсли ВидОплаты = "Госпошлина" Тогда
СубконтоДт3 = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("1194000");
СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.02");
_содержание = ПодразделениеНаименование+ " Госпош "+ ЮрФизЛицо+ " лица";
Если ЮрФизЛицо = "Физ" Тогда
СубконтоКт1 = КонтрагентГосПошлФИЗ;
СубконтоКт2 = ДоговорГосПошлФИЗ;
СубконтоКт3 = ДокументРасчетовГосПошлФИЗ;
ИначеЕсли ЮрФизЛицо = "Юр" Тогда
СубконтоКт1 = КонтрагентГосПошлЮР;
СубконтоКт2 = ДоговорГосПошлЮР;
СубконтоКт3 = ДокументРасчетовГосПошлЮР;
Иначе
Продолжить;
Конецесли;
Конецесли;
ЗаписатьПроводку(ОперацияБух.Ссылка,Организация, НаборЗаписей, ДатаПериода, _содержание,
СчетДт, СчетКт, Сумма, , СубконтоДт1, СубконтоДт2, СубконтоДт3, СубконтоКт1,
СубконтоКт2,СубконтоКт3,ПодразделениеКт,ПодразделениеДт);
_сумма_операции = _сумма_операции + Сумма;
КонецЦикла;
НаборЗаписей.Записать();
ОперацияБух.СуммаОперации = _сумма_операции;
ОперацияБух.Записать(РежимЗаписиДокумента.Запись);
&НаСервере
Процедура ЗаписатьПроводку(Регистратор,Организация,НаборЗаписей, ДатаПериода, Основание,
СчетДт, СчетКт, Сумма, Количество = 0, СубконтоДт1, СубконтоДт2, СубконтоДт3,СубконтоКт1,
СубконтоКт2, СубконтоКт3,ПодразделениеКт,ПодразделениеДт)
Движение = НаборЗаписей.Добавить();
Движение.Регистратор = Регистратор;
Движение.Период = ДатаПериода;
Движение.Организация = Организация;
Движение.Содержание = Основание;
Движение.Сумма = Сумма;
Движение.СуммаНУДт = Сумма;
Движение.СчетДт = СчетДт;
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт, Движение.СубконтоДт, 1, СубконтоДт1);
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт, Движение.СубконтоДт, 2, СубконтоДт2);
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт, Движение.СубконтоДт, 3, СубконтоДт3);
Движение.ПодразделениеДт = ПодразделениеДт;
Движение.СчетКт = СчетКт;
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, 1, СубконтоКт1);
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, 2, СубконтоКт2);
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, 3, СубконтоКт3);
Движение.ПодразделениеКт = ПодразделениеКт;
КонецПроцедуры |