Разработка в 1С 8.0


         

Код:


ТабДок = Новый ТабличныйДокумент;

ТекстЗапроса = "ВЫБРАТЬ

|   СпрНоменклатура.Наименование,

|   СпрНоменклатура.ЭтоГруппа,

|   СпрНоменклатура.Ссылка КАК Ссылка,

|   РегОстатки.КоличествоОстаток КАК Остаток 

|ИЗ 

|   Справочник.Номенклатура КАК СпрНоменклатура 

|   ЛЕВОЕ СОЕДИНЕНИЕ 

|     РегистрНакопления.УчетНоменклатуры.Остатки КАК РегОстатки 

|     ПО СпрНоменклатура.Ссылка = РегОстатки.Номенклатура 

|ГДЕ ЭтоГруппа = Ложь 

|ИТОГИ СУММА(Остаток) ПО Ссылка ТОЛЬКО ИЕРАРХИЯ";

Запрос = Новый Запрос(ТекстЗапроса);

Макет = ПолучитьМакет("Остатки");

Обл = Макет.ПолучитьОбласть("Шапка");

ТабДок.Вывести(Обл);

 

//зафиксируем шапку для удобного просмотра 

ТабДок.ФиксацияСверху = ТабДок.ВысотаТаблицы;

 

Обл = Макет.Область("Строка");

 

ОбычныйШрифт = Обл.Шрифт;

ОбычныйЦветТекста = Обл.ЦветТекста;

ОбычныйЦветФона = Обл.ЦветФона;

 

//один раз получим область Строка

Обл = Макет.ПолучитьОбласть("Строка");

 

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл

Остаток = ?(Выборка.Остаток = Null, 0, Выборка.Остаток);  

Обл = Макет.Область("Строка");  

Обл.Шрифт = ОбычныйШрифт;  

Обл.ЦветТекста = ОбычныйЦветТекста;  

Обл.ЦветФона = ОбычныйЦветФона;  

Если Выборка.ТипЗаписи()<>ТипЗаписиЗапроса.ИтогПоГруппировке Тогда   

Если Остаток <= 2 Тогда   

<

Содержание  Назад  Вперед