И снова БухИтоги

Новая тема
"вопрос в следующем...Помогите начинающему. У меня на складе есть товар..И мне нужно по бух итогам на каком складе он лежит и просто его списать при проведении документа...Пишу так...<br><br>СчО06 = СчетПоКоду("006");<br>СпрМ = СоздатьОбъект("Справочник.МестаХранения");<br> <br>Дата1 = "01.01.2006";<br>СписокБланков = СоздатьОбъект("СписокЗначений");<br>ВыбратьСтроки();<br>Пока ПолучитьСтроку() = 1 Цикл <br>СписокБланков.ДобавитьЗначение(НомПутевок,); <br>КонецЦикла;<br> <br>БИБланк = СоздатьОбъект("БухгалтерскиеИтоги"); <br>БИБланк.ИспользоватьСубконто(ВидыСубконто.БланкиСтрогойОтчетности,СписокБланков,2); <br>БИБланк.ИспользоватьСубконто(ВидыСубконто.МестаХранения);<br>БИБланк.ВыполнитьЗапрос(Дата1,ТекущийДокумент(), "006",,,,, "К"); <br> <br>ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений");<br>ВыгрузитьТабличнуюЧасть(ТаблицаОстатков, "НомПутевок, Количество");<br>ТаблицаОстатков.Свернуть("НомПутевок", "Количество");<br>ТаблицаОстатков.НоваяКолонка("СчетУчета");<br>ТаблицаОстатков.НоваяКолонка("МестаХранения");<br>ТаблицаОстатков.ВыбратьСтроки();<br> <br>Пока ТаблицаОстатков.ПолучитьСтроку() = 1 Цикл<br>КоличествоНаСкладе = 0;<br>ТаблицаОстатков.СчетУчета = СчО06;<br>БухИтоги = БИБланк;<br> <br> <br> <br>Вообщем загвоздка в том..что определить наличие данного товара происходит..а вот опреление на каком складе не получается...<br><br>Заранее спасибоЙЙЙЙ <br>"
А где в этом тексте происходит определение товаров на складе !?
"Пардон..не дописал...<br><br>Если БухИтоги.ПолучитьСчет(, ТаблицаОстатков.СчетУчета) = 1 Тогда<br> <br>БухИтоги.ВыбратьСубконто(); <br>Пока БухИтоги.ПолучитьСубконто(1,,ТаблицаОстатков.НомПутевок) = 1 Цикл  <br>  КоличествоНаСкладе = БухИтоги.СКД("К");<br>КонецЦикла;<br>КонецЕсли;<br><br>А вот именно со складом..проблемы..."
Нужна выборка по ВТОРОМУ субконто (местам хранения)... Используйте коструктор :)
"Ит = СоздатьОбъект("БухгалтерскиеИтоги");<br>Ит.ИспользоватьСубконто(ВидыСубконто.БланкиСтрогойОтчетност, списокбланков, 2);<br>Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,, 1);<br>Ит.ВыполнитьЗапрос(дата1, дата2, "006",,, 1,, "К");<br><br>Ит.ВыбратьСубконто(1);<br>Пока Ит.ПолучитьСубконто(1) = 1 Цикл // перебираем виды бланков<br>  Ит.ВыбратьСубконто(2); <br>  Пока Ит.ПолучитьСубконто(2) = 1 Цикл // перебираем местахранения<br>   склад=ит.субконто(2); // склад<br>   кол=ит.СКД(3);// кол-во на складе<br>  КонецЦикла;<br>КонецЦикла;"
Читают тему
(гостей: 1)

Быстрый переход