Имя: Пароль:
1C
1С v8
Поле Дата
0 Ly_Alena
 
10.10.14
10:43
Нужно чтобы, если дата не текущий год, то подкрашивалась красным.

Если ДатаУтверждения<Дата(Год(ТекущийГод), НомерМесяца, 1) Тогда
            ДатаУтверждения.ЦветТекста=Цвет(255,255,255,255);
        КонецЕсли;
1 Cube
 
10.10.14
10:45
(0) На этом форуме девушкам принято фотку сначала в личную карточку вставлять, а потом уже вопросы задавать :)
Чем удачнее фотот, тем больше помогающих.
2 Михаил Козлов
 
10.10.14
10:46
Вообще-то цвета 3, а не 4. И (255,255,255) это белый, а не красный. И подкрашивать Вы хотите реквизит или поле ввода?
3 vicof
 
10.10.14
10:46
(0) пусть оно заработает, вах!!!
4 Ly_Alena
 
10.10.14
10:48
Боюсь в моем случае фотка не поможет ) ПОдкрасить хочу поле даты
5 Cube
 
10.10.14
10:49
(4) Ну, не надо скромничать...
6 hhhh
 
10.10.14
10:51
ДатаУтверждения -это не поле у вас, а переменная, реквизит базы.
7 Ly_Alena
 
10.10.14
10:51
Дорогой Cube, вот поможете мне с этим и обещаю самую удачную фотку! )
8 sky2010
 
10.10.14
10:51
Если ДатаУтверждения < Год(ТекущаяДата()) Тогда
            ДатаУтверждения.ЦветТекста=Цвет(255,255,255,255);

КонецЕсли;

При условии что только проверка год
9 Timon1405
 
10.10.14
10:52
СП

ЦветВажнойКнопки = Новый Цвет(255, 0, 0); // красный
ЦветОбычнойКнопки = ЦветаСтиля.ЦветФонаКнопки;

// Для обычной формы
Если ОстатокТовара <= Товар.Остаток Тогда
    ЭлементыФормы.КнопкаЗаказать.ЦветФонаКнопки = ЦветВажнойКнопки;
Иначе
    ЭлементыФормы.КнопкаЗаказать.ЦветФонаКнопки = ЦветОбычнойКнопки;
КонецЕсли;

// Для управляемой формы
Если ОстатокТовара <= Товар.Остаток Тогда
    Элементы.КнопкаЗаказать.ЦветФона = ЦветВажнойКнопки;
Иначе
    Элементы.КнопкаЗаказать.ЦветФона = ЦветОбычнойКнопки;
КонецЕсли;

условие на дату вам после фотки напишут
10 KishMish
 
10.10.14
10:53
Если ДатаУтверждения<НачалоГода(ТекущаяДата()) Тогда
            ДатаУтверждения.ЦветТекста=Цвет(255,0,0);
        КонецЕсли;
11 Ly_Alena
 
10.10.14
10:53
Процедура или функция с указанным именем не определена (Цвет)
ДатаУтверждения.ЦветТекста=<<?>>Цвет(255,255,255,255); (Проверка: Толстый клиент (обычное приложение))
12 ChiginAV
 
10.10.14
10:55
(11) Новый Цвет(255,255,255)
13 Ly_Alena
 
10.10.14
10:55
{Обработка.РассчитатьСебестоимостьНоменклатуры.Форма.ОсновнаяФорма.Форма(504,40)}: Процедура или функция с указанным именем не определена (Цвет)
ДатаУтверждения.ЦветТекста=<<?>>Цвет(255,0,0); (Проверка: Толстый клиент (обычное приложение))
14 Fish
 
10.10.14
10:55
(11) Надо писать: НОВЫЙ Цвет
15 Ly_Alena
 
10.10.14
10:56
Если Выборка.Следующий() Тогда
        
        Спецификация = Выборка.Спецификация;

        ТрудозатратыПродукция = Выборка.Трудозатраты;
        ЭлектроэнергияПродукция = Выборка.Электроэнергия;
        ПроцентОтходов=Выборка.ПроцентОтходов;
        ДатаУтверждения = Выборка.ДатаУтверждения;
        Если ДатаУтверждения<НачалоГода(ТекущаяДата()) Тогда
            ДатаУтверждения.ЦветТекста=Цвет(255,0,0);
        КонецЕсли;
        
КонецЕсли;
16 barrgand
 
10.10.14
10:57
(15) ЭлементыФормы.ДатаУтверждения.ЦветТекста = Новый Цвет("Красненький")
17 Ly_Alena
 
10.10.14
10:58
Значение не является значением объектного типа (ЦветТекста)
18 vicof
 
10.10.14
10:58
С (0) до (15) никакого прогресса,  напиши уважаемому LivingStar,  он тебе поможет :)
19 batman69
 
10.10.14
10:58
(17) Что у Вас "ДатаУтверждения"?
20 ChiginAV
 
10.10.14
10:59
(16) ЭлементушкиФормочки.ДатаУтвержденьица.ЦветТекста = Новенький Цвет("Красненький")
21 vicof
 
10.10.14
10:59
Люблю пятницы
22 Ly_Alena
 
10.10.14
10:59
batman69 Тип значений "Дата" (19)
23 ВРедная
 
10.10.14
10:59
Да, фотка в этом случае не поможет
24 Ly_Alena
 
10.10.14
11:01
ChiginAV какой ты миленький, но 1С наверное мальчик у меня - не понимает розовых соплей, попробуй пожестче - может че поймет )
25 Cube
 
10.10.14
11:02
(7) Самая распространенная фраза, после которой фотки не будет с достоверностью 95%...
26 Fish
 
10.10.14
11:04
(24) Тебе уже помогли - все ответы в ветке есть, а чтобы тебе дали готовый рабочий код, нужно хотя бы выполнить просьбу форумчан, а не ёрничать.
27 Ly_Alena
 
10.10.14
11:04
А я думала тут все кинулись из лучших чувств мне помогать, а все фотку ждут? )
28 Ly_Alena
 
10.10.14
11:04
Ответа не было.
29 Fish
 
10.10.14
11:05
(28) Неправда. Ответ уже дан. Но надо чуть-чуть своих мозгов приложить. А готовый код - это не ответ, а выполнение работы за другого.
30 Timon1405
 
10.10.14
11:06
может погадаем на каком посте ТС достигнет удовлетворения?
думаю 152
31 Banned
 
10.10.14
11:07
(29) Что приложить, извините?
32 Cube
 
10.10.14
11:09
(27) Да, мы такие... :)
Это миста, детка! :))))))
33 Asmody
 
10.10.14
11:10
К 50 посту выясним, что форма управляемая, а раскрашивать надо таблицу.
34 batman69
 
10.10.14
11:10
(30) Чего достигнет, простите?
35 Ly_Alena
 
10.10.14
11:10
36 ChiginAV
 
10.10.14
11:11
(31) Центр, отдел нервной системы человека и позвоночных животных, состоящий из нервной ткани, располагающийся в черепе (головной мозг) и канале позвоночника (спинной мозг).

Наверное имелся ввиду 2й вариант
37 batman69
 
10.10.14
11:11
(22) Тип значений чего?
38 Ly_Alena
 
10.10.14
11:11
Мой профиль но вы мне не помогли.
39 batman69
 
10.10.14
11:12
(38) Ответ на вопрос (19), (37) где?
40 sky2010
 
10.10.14
11:12
В вк ти єсть ?да дай силку помогу
41 Asmody
 
10.10.14
11:12
Я бы закрыл ветку, ибо тема не отражает суть сообщения, но вдруг кто поможнт
42 batman69
 
10.10.14
11:13
Что блин, по капле выдавливать нужно?
43 Cube
 
10.10.14
11:14
(35) Нет, в свой профиль вставляй)) И что ты прибеднялась, не понятно)
44 Asmody
 
10.10.14
11:14
(35) Алена, а на фото вы с яблоком?
45 Cube
 
10.10.14
11:14
(41) Ты сегодня не так жесток и безжалостен))) Странно)
46 Asmody
 
10.10.14
11:16
(45) я просто с мобильного.
47 Ly_Alena
 
10.10.14
12:08
Если ДатаУтверждения<НачалоГода(ТекущаяДата()) Тогда
            ЭлементыФормы.ДатаУтверждения1.ЦветТекстаПоля = WebЦвета.Красный;
        КонецЕсли;

Это рабочий вариант.
48 Ly_Alena
 
10.10.14
12:09
Cube, я не прибеднялась. Внешность лично мне не поможет в работе.
49 Cube
 
10.10.14
12:12
(48) Зато поможет на мисте))
50 Ly_Alena
 
10.10.14
12:17
Не особо помогло...
51 Cube
 
10.10.14
12:19
(50) Так фотки-то нет... Надо в личную карточку вставлять... Была бы фотка, я б в первом посте ещё ответил :)
52 Ly_Alena
 
10.10.14
12:45
Новый вопрос )
Если изменяется поле спецификации нужно чтобы очищался формат поля дата.
Запрос.УстановитьПараметр("Номенклатура",Номенклатура);
    
    Выборка = Запрос.Выполнить().Выбрать();
    
    Если Выборка.Следующий() Тогда
        
        Спецификация = Выборка.Спецификация;

        ТрудозатратыПродукция = Выборка.Трудозатраты;
        ЭлектроэнергияПродукция = Выборка.Электроэнергия;
        ПроцентОтходов=Выборка.ПроцентОтходов;
        ДатаУтверждения = Выборка.ДатаУтверждения;
        
        Если ЗначениеЗаполнено(ДатаУтверждения<НачалоГода(ТекущаяДата())) Тогда
            ЭлементыФормы.ДатаУтверждения1.ЦветТекстаПоля = WebЦвета.Красный;
        КонецЕсли;
        
    КонецЕсли;
53 Cube
 
10.10.14
12:47
(52) А фотка де?)
54 1dvd
 
10.10.14
12:48
(53) в (35)
55 Cube
 
10.10.14
12:50
(54) Всю тему ты не читал, я так понимаю? :)
56 1dvd
 
10.10.14
12:50
Если ЗначениеЗаполнено(Год(ДатаУтверждения)<>Год(ТекущаяДата())) Тогда

а то, что писале ранее не соответствует задаче
57 1dvd
 
10.10.14
12:51
(56) *
Если Год(ДатаУтверждения)<>Год(ТекущаяДата()) Тогда
58 batman69
 
10.10.14
12:51
(52) Что значит "очищался формат поля" ?
59 Ly_Alena
 
10.10.14
12:51
С работы не могу фотку установить. Обещанное сделала.
60 1dvd
 
10.10.14
12:51
(58) +1
61 Cube
 
10.10.14
12:52
(59) Не, ну я так не играю...
62 batman69
 
10.10.14
12:52
(59) В (58) вопрос.
63 batman69
 
10.10.14
12:56
Видимо ТС, все пофигу, сама с собой разговаривает... пятница..
64 Ly_Alena
 
10.10.14
12:56
Очищался формат поля значит - если текст поля дата стало красным, и потом сменить спецификацию оно остается красным, а нужно чтобы менялось на черный.
65 batman69
 
10.10.14
12:57
(64) Ну так сделай наоборот, в чем вопрос?
66 batman69
 
10.10.14
12:57
+(65) На красный меняешь? Меняй на черный.
67 1dvd
 
10.10.14
12:58
Если Год(ДатаУтверждения) = Год(ТекущаяДата()) Тогда
    ЭлементыФормы.ДатаУтверждения1.ЦветТекстаПоля = WebЦвета.Черный;
Иначе
    ЭлементыФормы.ДатаУтверждения1.ЦветТекстаПоля = WebЦвета.Красный;
КонецЕсли;
68 Ly_Alena
 
10.10.14
13:03
Да пока писала объяснение уже поняла )
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс