Дмитрий

редактировать метку

муж.

Краснодар(Россия)

daringer85

21.11.1985(39 лет)

11 лет 8 мес. 2 дня

14 марта 2016 в 17:15:48(9 лет 22 недели 1 день 10 часов 12 минут назад)

Яндекс-директ

Информация

Управляемые формы, БСП, конвертация данных, интеграция с другими системами по API,

Специализация

8.x, Бухгалтерия Предприятия
8.x, Деньги
8.x, Документооборот 8 КОРП
8.x, Управление небольшой фирмой
8.x, Управление торговлей
8.x, Зарплата и Управление Персоналом

Активность на сайте

Последние сообщения пользователя

Сообщение на форуме

9 октября 2015 в 15:43:54

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;




Настройки = КомпоновщикНастроек.Настройки;


СписокУдаляемыхЭлементов = Новый СписокЗначений;
Для каждого ЭлементУсловногоОформления Из Настройки.УсловноеОформление.Элементы Цикл
Если ЭлементУсловногоОформления.ИдентификаторПользовательскойНастройки = "Предустановленный" Тогда
СписокУдаляемыхЭлементов.Добавить(ЭлементУсловногоОформления);
КонецЕсли;
КонецЦикла;
Для каждого Элемент Из СписокУдаляемыхЭлементов Цикл
Настройки.УсловноеОформление.Элементы.Удалить(Элемент.Значение);
КонецЦикла;


ВыборкаМетки= Справочники.Метки.Выбрать();
Пока ВыборкаМетки.Следующий() Цикл

ЦветФона = ВыборкаМетки.Цвет.Получить();
Если ТипЗнч(ЦветФона) <> Тип("Цвет") Тогда
Продолжить;
КонецЕсли;

ЭлементУсловногоОформления = Настройки.УсловноеОформление.Элементы.Добавить();

ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Метка");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.ПравоеЗначение = ВыборкаМетки.Ссылка;


ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("ЦветФона", ЦветФона);
ЭлементУсловногоОформления.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
ЭлементУсловногоОформления.ИдентификаторПользовательскойНастройки = "Предустановленный";

КонецЦикла;

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки);

ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
КонецПроцедуры

Сообщение на форуме
9 октября 2015 в 15:31:46

Программно наложи условное оформление на все возможные цвета, которые есть в твоей базе и будет тебе счастье
Сообщение на форуме
9 октября 2015 в 15:30:17

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;

Настройки = КомпоновщикНастроек.Настройки;

СписокУдаляемыхЭлементов = Новый СписокЗначений;
Для каждого ЭлементУсловногоОформления Из Настройки.УсловноеОформление.Элементы Цикл
Если ЭлементУсловногоОформления.ИдентификаторПользовательскойНастройки = "Предустановленный" Тогда
СписокУдаляемыхЭлементов.Добавить(ЭлементУсловногоОформления);
КонецЕсли;
КонецЦикла;
Для каждого Элемент Из СписокУдаляемыхЭлементов Цикл
Настройки.УсловноеОформление.Элементы.Удалить(Элемент.Значение);
КонецЦикла;

ВыборкаСостояния = Справочники.СостоянияЗаказовПокупателей.Выбрать();
Пока ВыборкаСостояния.Следующий() Цикл

ЦветФона = ВыборкаСостояния.Цвет.Получить();
Если ТипЗнч(ЦветФона) <> Тип("Цвет") Тогда
Продолжить;
КонецЕсли;

ЭлементУсловногоОформления = Настройки.УсловноеОформление.Элементы.Добавить();

ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Ссылка");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.ПравоеЗначение = ВыборкаСостояния.Ссылка;

ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("ЦветФона", ЦветФона);
ЭлементУсловногоОформления.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
ЭлементУсловногоОформления.ИдентификаторПользовательскойНастройки = "Предустановленный";
ЭлементУсловногоОформления.Представление = "По состоянию" + ВыборкаСостояния.Наименование;

КонецЦикла;

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки);

ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
КонецПроцедуры

На главную страницу заданий 1с