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

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

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

ТиС для Украины. Как получить список цен?

maestro_voln
читатель
офлайн
Дата регистрации: 04.03.2009
Сообщений: 289
Пост №1
 
23.11.2009 16:31

Как в таблицу значений с 2х колонок -(цена и дата цены)выгрузить цены определенного товара, определенной категории цены за определенный период?

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №2
 
23.11.2009 16:36

1. глВернутьЦены(СписокТоваров,КатегорияЦен,ДатаЦен=0)<br>2. вызываем несколько раз - для разных дат, потом сворачиваем для всех таблиц

maestro_voln
читатель
офлайн
Дата регистрации: 04.03.2009
Сообщений: 289
Пост №3
 
23.11.2009 16:50

А что даты прийдется все перебирать?

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №4
 
23.11.2009 16:59

смотри обработку СписокПериодическихРеквизитов

maestro_voln
читатель
офлайн
Дата регистрации: 04.03.2009
Сообщений: 289
Пост №5
 
23.11.2009 17:06

Да чета там сильно много понаписано )))

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №6
 
23.11.2009 17:14

> Да чета там сильно много понаписано )))<br>не уже ли так трудно подумать?<br><br><br>подсказка - смотри объект периодический<br>

maestro_voln
читатель
офлайн
Дата регистрации: 04.03.2009
Сообщений: 289
Пост №7
 
23.11.2009 17:24

"Да просто никогда не сталкивался<br>Вот что написал<br><br>Процедура глVBAЦеныПериод(кодтовара) Экспорт <br>СпрНом=СоздатьОбъект("Справочник.Номенклатура");<br>Цены=СоздатьОбъект("Справочник.Цены");<br>Пер=СоздатьОбъект("Периодический"); <br>СпрТЦ= СоздатьОбъект("Справочник.КатегорииЦен");<br>СпрНом.НайтиПоКоду(кодтовара);<br>Цены.ИспользоватьВладельца(СпрНом);<br>ТипЦены="Розничная";<br><br>теперь не знаю что с этим дальше делать))<br><br>"

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №8
 
23.11.2009 18:10

"Ну чуток подумать и все же получится ;)<br><br>ТаблицаСведений=СоздатьОбъект("ТаблицаЗначений");<br>ТаблицаСведений.НоваяКолонка("ДатаЦены","Дата");<br>ТаблицаСведений.НоваяКолонка("Цена","Число",15,2);<br>Номенклатура=СоздатьОбъект("Справочник.Номенклатура");<br>Цены=СоздатьОбъект("Справочник.Цены");<br>История=СоздатьОбъект("Периодический");<br>Если Номенклатура.НайтиПоКоду(КодТовара)=1 Тогда<br> Цены.ИспользоватьВладельца(Номенклатура.ТекущийЭлемент());<br> Цены.ВыбратьЭлементыПоРеквизиту("ТипЦен",Константа.РозничныйТипЦен,1,0);<br> Пока Цены.ПолучитьЭлемент()=1 Цикл<br>      История.ИспользоватьОбъект("Цена",Цены.ТекущийЭлемент());<br>      История.ВыбратьЗначения(НачДата,КонДата);<br>      Пока История.ПолучитьЗначение()=1 Цикл<br>       ТаблицаСведений.НоваяСтрока();<br>       ТаблицаСведений.ДатаЦены=История.ДатаЗнач;<br>       ТаблицаСведений.Цена=История.Значение;<br>      КонецЦикла;<br> КонецЦикла;<br>КонецЕсли;<br><br>В результате в ТаблицаСведений будет история цен за какой то период с НачДата по КонДата"

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №9
 
23.11.2009 19:38

"> Ну чуток подумать и все же получится ;)<br>> <br>> ТаблицаСведений=СоздатьОбъект("ТаблицаЗначений");<br>> ТаблицаСведений.НоваяКолонка("ДатаЦены","Дата");<br>> ТаблицаСведений.НоваяКолонка("Цена","Число",15,2);<br>> Номенклатура=СоздатьОбъект("Справочник.Номенклатура");<br>> Цены=СоздатьОбъект("Справочник.Цены");<br>> История=СоздатьОбъект("Периодический");<br>> Если Номенклатура.НайтиПоКоду(КодТовара)=1 Тогда<br>> Цены.ИспользоватьВладельца(Номенклатура.ТекущийЭлемент());<br>> Цены.ВыбратьЭлементыПоРеквизиту("ТипЦен",Константа.РозничныйТипЦен,1,0);<br>> Пока Цены.ПолучитьЭлемент()=1 Цикл<br>>       История.ИспользоватьОбъект("Цена",Цены.ТекущийЭлемент());<br>>       История.ВыбратьЗначения(НачДата,КонДата);<br>>       Пока История.ПолучитьЗначение()=1 Цикл<br>>       ТаблицаСведений.НоваяСтрока();<br>>       ТаблицаСведений.ДатаЦены=История.ДатаЗнач;<br>>       ТаблицаСведений.Цена=История.Значение;<br>>       КонецЦикла;<br>> КонецЦикла;<br>> КонецЕсли;<br>> <br>> В результате в ТаблицаСведений будет история цен за какой то период с НачДата по КонДата<br><br>поправка - там этот периодичский реквизит пожет изменяться и доками => надо и это учесть"

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №10
 
23.11.2009 19:57

А для значения установленного доком ДатаЗнач тоже не пустое же, оно соответствует дате, которая там была аргументом в методе модуля проведения УстановитьРеквизитСправочника(,,,,,,)<br>так что алгоритм емкий и все значения охватит

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

Читают тему:

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