0
Adecvator
22.05.12
✎
16:50
|
Подскажите, как узнать себестоимость на ед. продукции со следующей структурой отчета:
- Подразделение;
- ТМЦ(готовая продукция);
– Статьи затрат;
Корреспонденция понятна, в моем случае Дт. 26.1.2, Кт. 23.2.1.
Вот код:
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьПланСчетов(ПланыСчетов.НСБУ);
Если ПустоеЗначение(ВыбРазделительУчета)=0 Тогда
Ит.ИспользоватьРазделительУчета(ВыбРазделительУчета);
КонецЕсли;
Ит.ИспользоватьСубконто(ВидыСубконто.Подразделения,ВыбПодр,1 );
Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,,1 );
Ит.ИспользоватьКорСубконто(ВидыСубконто.СтатьиЗатрат,,1 );
Ит.Опции(1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, СчетПоКоду("26.1.2", ПланыСчетов.НСБУ), СчетПоКоду("23.2.1", ПланыСчетов.НСБУ),,3,,"С");
Ит.ВыбратьСубконто(ВидыСубконто.Подразделения);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Подразделения) = 1 Цикл
Сообщить("" + Ит.Субконто(1));
Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ТМЦ) = 1 Цикл
Сообщить("" + Ит.Субконто(2));
Ит.ВыбратьКорСубконто(ВидыСубконто.СтатьиЗатрат);
Пока Ит.ПолучитьКорСубконто(ВидыСубконто.СтатьиЗатрат) = 1 Цикл
Сообщить("" + Ит.КорСубконто(1));
КонецЦикла;
КонецЦикла;
КонецЦикла;
Но вот блин, как тоже самое получить на 1-цу готовой продукции?
|
|