Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 ноя 2024, 01:54

Выделение закрытых заказов покупателей в 1с 8.3 ут 10.3

Автор Ольга Чеботарь, 11 апр 2018, 16:36

0 Пользователей и 1 гость просматривают эту тему.

Ольга Чеботарь

Добрый день всем!
Поставило задачу руководство: нужно чтоб заказы, которые полностью закрыты, автоматически выделялись другим цветом, либо чтоб рядом проставлялась галочка (типа "Статус-закрыт"). Непонятно какие заказы закрыты полностью , а какие нет..
Поломала всю голову, как сделать , а потом возник вопрос : А возможно ли вообще в моей 1с это сделать?? 1С:Предприятие 8.3 (8.3.10.2580) "Управление торговлей", редакция 10.3 (10.3.45.2)

lansy

Где то в районе - привыводестроки - оценивать и менять оформление строки.
как оценивать = руководство должно четко сказать.

Ольга Чеботарь

Цитата: lansy от 11 апр 2018, 16:40
Где то в районе - привыводестроки - оценивать и менять оформление строки.
как оценивать = руководство должно четко сказать.
Ну они сказали так, что если поступила оплата по заказу и заказ был отгружает , то вот  и итог - заказ закрыт, надо выделить цветом, но не в ручную , а чтоб 1с сама понимала, что если произошла отгрузка, то можно выделять цветом

oleg-x

Пропиши в событие ПриВыводеСтроки
Как у нас реализовано:
Если ЗаказВыработан(ТекДок) тогда
ОформлениеСтроки.ЦветФона = ЦветаСтиля.ЦветФонаКнопки;
КонецЕсли;

Функция ЗаказВыработан(ТекДок)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0)) КАК КоличествоОстаток
|ИЗ
| РегистрНакопления.ЗаказыПокупателей.Остатки КАК ЗаказыПокупателейОстатки
|ГДЕ
| ЗаказыПокупателейОстатки.ЗаказПокупателя = &ЗаказПокупателя
| И ЗаказыПокупателейОстатки.ЗаказПокупателя.Проведен = ИСТИНА";

Запрос.УстановитьПараметр("ЗаказПокупателя", ТекДок);

РезультатЗапроса = Запрос.Выполнить();

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

Если ВыборкаДетальныеЗаписи.Следующий() Тогда
Если ВыборкаДетальныеЗаписи.КоличествоОстаток = NULL тогда
Возврат Истина;
ИначеЕсли ВыборкаДетальныеЗаписи.КоличествоОстаток <=0  Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
Иначе
Возврат Ложь;
КонецЕсли;
КонецФункции


Помог, нажми спасибо. Не помог, нажми спасибо :-)
Если у Вас есть проблема, то её уже кто то решил @Yandex, @Google

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск