Альфа-Авто 5. Настройка списка номенклатуры
Для получения доступа к форуму необходимо
авторизоваться
или
зарегистрироваться
на сайте.
Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте
rarus-soft.ru
Читают тему
Как отобразить в списке номенклатуры цены.
Нужно сделать вид как в Альфа-Авто 4(смотрите фото)
В Настройке списка поля "закупочная", "гарантия", "розничная", "склад", "брак" отсутствуют в Альфа-Авто 5.
А в Альфа-Авто 4 такие поля в Настройке списка есть
Прикрепленные файлы
вот код который туда добавляли
СоответствиеСтрок = Новый Соответствие; МассивТоваров = Новый Массив; Для Каждого ОформлениеСтроки из ОформленияСтрок Цикл СоответствиеСтрок.Вставить(ОформлениеСтроки.ДанныеСтроки.Ссылка, ОформлениеСтроки); МассивТоваров.Добавить(ОформлениеСтроки.ДанныеСтроки.Ссылка); КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ОстаткиТоваровКомпанииОстатки.Номенклатура, | ОстаткиТоваровКомпанииОстатки.СкладКомпании КАК Склад, | ОстаткиТоваровКомпанииОстатки.КоличествоОстаток - ОстаткиТоваровКомпанииОстатки.РезервОстаток КАК Количество |ИЗ | РегистрНакопления.ОстаткиТоваровКомпании.Остатки(, Номенклатура В (&Номенклатура)) КАК ОстаткиТоваровКомпанииОстатки"; Запрос.УстановитьПараметр("Номенклатура", МассивТоваров); Выборка = Запрос.Выполнить().Выбрать(); СкладГарантия = Справочники.СкладыКомпании.НайтиПоКоду("00000005"); СкладОсновной = Справочники.СкладыКомпании.НайтиПоКоду("00000002"); СкладБрака = Справочники.СкладыКомпании.НайтиПоКоду("ЦБ000001"); Пока Выборка.Следующий() Цикл ТекСтрока = СоответствиеСтрок.Получить(Выборка.Номенклатура); Если Выборка.Склад = СкладГарантия Тогда ТекСтрока.Ячейки.Гарантия.УстановитьТекст(Выборка.Количество); ИначеЕсли Выборка.Склад = СкладОсновной Тогда ТекСтрока.Ячейки.Склад.УстановитьТекст(Выборка.Количество); ИначеЕсли Выборка.Склад = СкладБрака Тогда ТекСтрока.Ячейки.Брак.УстановитьТекст(Выборка.Количество); КонецЕсли; КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЦеныСрезПоследних.Номенклатура, | ЦеныСрезПоследних.Цена, | ЦеныСрезПоследних.ТипЦен |ИЗ | РегистрСведений.Цены.СрезПоследних( | , | Номенклатура В (&Номенклатура)) КАК ЦеныСрезПоследних"; Запрос.УстановитьПараметр("Номенклатура", МассивТоваров); Выборка = Запрос.Выполнить().Выбрать(); ТипЦен = Справочники.СкладыКомпании.НайтиПоКоду("00000005"); СкладОсновной = Справочники.СкладыКомпании.НайтиПоКоду("00000002"); СкладБрака = Справочники.СкладыКомпании.НайтиПоКоду("ЦБ000001"); Пока Выборка.Следующий() Цикл ТекСтрока = СоответствиеСтрок.Получить(Выборка.Номенклатура); Если Выборка.ТипЦен = Справочники.ТипыЦен.ОсновнойТипЦенЗакупки Тогда ТекСтрока.Ячейки.Закупочная.УстановитьТекст(Формат(Выборка.Цена, "ЧЦ=15; ЧДЦ=2")); ИначеЕсли Выборка.ТипЦен = Справочники.ТипыЦен.ОсновнойТипЦенПродажи Тогда ТекСтрока.Ячейки.Розничная.УстановитьТекст(Формат(Выборка.Цена, "ЧЦ=15; ЧДЦ=2")); КонецЕсли; КонецЦикла;Просто когда писал - не знал об этом еще