0
Владимир1С
30.05.12
✎
16:52
|
Прошу прощения за подобный вопрос, давно не занимался бухитогами.
БухИтДоп = СоздатьОбъект("БухгалтерскиеИтоги");
БухИтДоп.ИспользоватьСубконто(ВидыСубконто.Номенклатура, СписокТоваров,2);
БухИтДоп.ИспользоватьСубконто(ВидыСубконто.МестаХранения,местоХранения,2);
БухИтДоп.ВыполнитьЗапрос(ТекущийДокумент(),,"41.1,41.4",,,,,"4");
ТБОст = СоздатьОбъект("ТаблицаЗначений");
ТБОст.новаяКолонка("Ном" ,"справочник.Номенклатура");
ТБОст.новаяКолонка("КолВо","число");
Если БухИтДоп.ВыбратьСубконто(1) = 1 тогда
Пока БухИтДоп.получитьСубконто(1) = 1 Цикл
если БухИтДоп.ВыбратьСчета()=1 тогда
Пока БухИтДоп.ПолучитьСчет() = 1 цикл
нс = "";нк = "";
Если ТБОст.найтиЗначение(БухИтДоп.Субконто(1),нс,нк)=1 тогда
ТБОст.установитьЗначение(нс,"КолВо",ТБОст.получитьЗначение(нс,"КолВо")+БухИтДоп.СНД("К"));
иначе
ТБОст.новаяСтрока();
ТБОст.Ном = БухИтДоп.Субконто(1);
ТБОст.КолВо = БухИтДоп.СНД("К");
конецЕсли;
КонецЦикла;
конецЕсли;
КонецЦикла;
КонецЕсли;
|
|