"Помогите пожалуйста..опыт в программирование небольшой и я уже просто устала, не знаю что делать. имеется форма где указаны датнач и даткон. Нужно сделать чтобы выгружались все товары справочника номенклатура которые были которые входят в этот период.<br><br>Процедура ВыгрузитьРеквизитыТовара(ОбъектXML, Товар, Ид = Неопределено)<br> <br> Если НЕ ЗначениеЗаполнено(Ид) Тогда<br> <br> ИдТовара = СформироватьИдентификатовТовара(Товар.НоменклатураСсылка, Товар.ХарактеристикаСсылка);<br> ЗаписатьТекстовойУзел(ОбъектXML, "Ид", ИдТовара);<br> Иначе<br> ЗаписатьТекстовойУзел(ОбъектXML, "Ид", Ид);<br> КонецЕсли;<br> ЗаписатьТекстовойУзел(ОбъектXML, "ШтрихКод", Товар.ШтрихКод);<br> ЗаписатьТекстовойУзел(ОбъектXML, "Артикул", Товар.Артикул);<br> ЗаписатьТекстовойУзел(ОбъектXML, "ЦенаЗаЕдиницу", Товар.Цена);<br> ЗаписатьТекстовойУзел(ОбъектXML, "Дата", Товар.Дата);<br> ЗаписатьТекстовойУзел(ОбъектXML, "ЕдиницаИзмерения", Товар.ЕдиницаИзмерения);<br> ЗаписатьТекстовойУзел(ОбъектXML, "ТипЦены", Товар.ЦеноваяГруппа);<br> ЗаписатьТекстовойУзел(ОбъектXML, "Количество", Товар.Количество);<br> ЗаписатьТекстовойУзел(ОбъектXML, "Валюта", Товар.Валюта);<br> ЗаписатьТекстовойУзел(ОбъектXML, "СтранаПроисхождения", Товар.СтранаПроисхождения);<br> ЗаписатьТекстовойУзел(ОбъектXML, "Группа", Товар.Родитель);<br><br><br>КонецПроцедуры<br><br>Процедура ВыгрузитьКаталог(ОбъектXML, ИмяКаталога, ИдКаталога, ВладелецКаталога, Товары)<br><br> ОбъектXML.ЗаписатьНачалоЭлемента("Каталог");<br><br> ЗаписатьТекстовойУзел(ОбъектXML, "Ид", Строка(ИдКаталога));<br> Если НЕ ЗначениеЗаполнено(ИмяКаталога) Тогда<br> ИмяКаталога = "Каталог товаров от "+ Строка(ТекущаяДата());<br> КонецЕсли;<br> ЗаписатьТекстовойУзел(ОбъектXML, "Наименование", ИмяКаталога);<br> ВыгрузитьКонтрагента(ОбъектXML, "Владелец", ВладелецКаталога);<br> <br> КоличествоВыгруженныхСтрок = 0;<br> ОбъектXML.ЗаписатьНачалоЭлемента("Товары");<br> Выборка = Товары.Выбрать();<br> Пока Выборка.Следующий() Цикл<br> Если НЕ Выборка.ЭтоГруппа Тогда<br> ОбъектXML.ЗаписатьНачалоЭлемента("Товар");<br> ВыгрузитьРеквизитыТовара(ОбъектXML, Выборка);<br> ОбъектXML.ЗаписатьКонецЭлемента();<br> КоличествоВыгруженныхСтрок = КоличествоВыгруженныхСтрок + 1;<br> КонецЕсли;<br> КонецЦикла;<br> ОбъектXML.ЗаписатьКонецЭлемента();<br><br> ОбъектXML.ЗаписатьКонецЭлемента();<br><br> Сообщить(" Количество выгруженных строк каталога товаров: " + КоличествоВыгруженныхСтрок);<br><br>КонецПроцедуры<br><br><br>"