Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Выгрузка номенклатуры за период

cacti
читатель
офлайн
Дата регистрации: 19.03.2010
Сообщений: 1
Пост №1
 
19.03.2010 02:38

"Помогите пожалуйста..опыт в программирование небольшой и я уже просто устала, не знаю что делать. имеется форма где указаны датнач и даткон. Нужно сделать чтобы выгружались все товары справочника номенклатура которые были которые входят в этот период.<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>"

ПСВ
читатель
офлайн
Дата регистрации: 06.04.2009
Сообщений: 379
Пост №2
 
19.03.2010 10:01

<br>судя по коду выгружается Справочник Номенклатура (Товары),<br>откуда может быть у справочника период?<br>его можно определить только косвенно <br>например по дате поступления первой партии данного товара и выбирать из регистра накопления "Партии"<br><br>если вы при каждом добавлении номенклатуры в справочник как то регитрируете дату его введения <br>в учетную систему<br><br>то метод выбрать имеет 3 параметр:<br>Выбрать(<Родитель>, <Владелец>, <Отбор>, <Порядок>)

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация