1.
user836619
25.05.23 14:44
Сейчас в теме
Проводки=Движения.Хозрасчетный;
Сч19_09=ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.09");
Сч68_02=ПланыСчетов.Хозрасчетный.НайтиПоКоду("68.02");
Сч90_03=ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
Сч90_02=ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
Сч41_04=ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
Сч91_02=ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02");
НужныйСубконто=Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00092");
МассивПроводок=Новый Массив;
Для Каждого Проводка Из Проводки Цикл
Если Проводка.СчетДт=Сч90_03 И Проводка.СчетКт=Сч19_09 Тогда
Проводка.СчетКт = Сч68_02;
Проводка.СубконтоКт.Очистить();
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"ВидыПлатежейВГосБюджет", Перечисления.ВидыПлатежейВГосБюджет.Налог);
КонецЕсли;
Если Проводка.СчетДт=Сч90_02 И Проводка.СчетКт=Сч41_04 Тогда
МассивПроводок.Добавить(Проводка);
КонецЕсли;
КонецЦикла;
Для Каждого Проводка Из МассивПроводок Цикл
Проводка = Проводки.Добавить();
Если Проводка.СчетДт=Сч90_02 И Проводка.СчетКт=Сч41_04 Тогда
НоваяПроводка=Проводки.Добавить();
ЗаполнитьЗначенияСвойств(НоваяПроводка,Проводка);
НоваяПроводка.СчетДт = Сч91_02;
НоваяПроводка.СубконтоДт.Очистить();
БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт,НоваяПроводка.СубконтоДт,1, НужныйСубконто);
БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт,НоваяПроводка.СубконтоКт,"Партии", Проводка.СубконтоКт.Партии);
БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт,НоваяПроводка.СубконтоКт,"Номенклатура", Проводка.СубконтоКт.Номенклатура);
БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт,НоваяПроводка.СубконтоКт,"Склады", Проводка.СубконтоКт.Склады);
НоваяПроводка.Сумма=-Проводка.Сумма;
НоваяПроводка.КоличествоКт=-Проводка.КоличествоКт;
НоваяПроводка.СуммаНУДт=-Проводка.СуммаНУДт;
НоваяПроводка.СуммаПРДт=-Проводка.СуммаПРДт;
НоваяПроводка.СуммаВРДт=-Проводка.СуммаВРДт;
НоваяПроводка.СуммаНУКт=-Проводка.СуммаНУКт;
НоваяПроводка.СуммаПРКт=-Проводка.СуммаПРКт;
НоваяПроводка.СуммаВРКт=-Проводка.СуммаВРКт;
КонецЕсли;
КонецЦикла;
Если НЕ Отказ Тогда
Движения.Записать();
//УчетНДС.ПроверитьСоответствиеРеквизитовСчетаФактуры(ЭтотОбъект, "СчетФактураПолученный");
КонецЕсли;