Имя: Пароль:
1C
1C 7.7
v7: Себестоимость ед. готовой продукции (26 счет).
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-цу готовой продукции?
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.