|
2
Dem1urg
27.07.16
✎
12:22
|
Берешь типовую Бухию и запускаешь глобальный поиск текста "БухгалтрескиеИтоги".
Много куришь.
Пример фрагмента типовой
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура);
БухИт.Опции(1,);
БухИт.ВыполнитьЗапрос(ДатаНач, ДатаКон, "Н02.02, Н02.04",,,,,);
БухИт.ВыбратьСубконто();
Пока БухИт.ПолучитьСубконто() = 1 Цикл
Если ПустоеЗначение(БухИт.Субконто(ВидыСубконто.Номенклатура)) = 1 Тогда
Продолжить;
КонецЕсли;
Если БухИт.Субконто(ВидыСубконто.Номенклатура).ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.Товар Тогда
Продолжить;
КонецЕсли;
ОстатокТовара = ОстатокТовара + БухИт.СКД() - БухИт.СКК();
РеализованоТоваров = РеализованоТоваров + БухИт.КО();
Если БухИт.ПолучитьСчет(, "Н02.04") = 1 Тогда
РеализованоТоваров = РеализованоТоваров - БухИт.ДО();
КонецЕсли;
КонецЦикла;
|
|
