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