Имя: Пароль:
1C
1С v8
Работа с таблицой в УФ
0 Tumakota
 
16.06.15
15:44
Добрый народ подскажите, как мне программно изменить при октрытие формы имя колонки в таблице значений! Смысл таков, есть таблица с 31 колонкой, и при открытие нужно проверять какой день недели и поставлять в наименование колонки, Подскажите
1 lopus
 
16.06.15
15:45
Может тебе табель в типовой посмотреть.
2 Ligor
 
16.06.15
15:45
(0)я программно создавал колонки и обзывал их как захочу :)
3 Tumakota
 
16.06.15
15:46
(1) у меня нету ЗУПА чтобы посмотреть)
4 singlych
 
16.06.15
15:50
Элементы.ТаблицаКолонка.Заголовок = "имя колонки"
5 Cyberhawk
 
16.06.15
15:54
А что конкретнее не получается?
6 Tumakota
 
16.06.15
15:58
Ну у меня есть поле месяц, при создании на сервере хочу, чтобы проверилось какой день недил какому числу, колонки от 1-31 и изменилось на название 1 Пн, 2 Вт, ну или Вт 1 не сильно важно
7 Tumakota
 
16.06.15
15:59
(5) Зупа нету чтобы там посмотреть как это формируется в табеле, но я серовно думаю что там как то наверно замудрено))
8 lopus
 
16.06.15
16:02
ЦветРабочегоДня = ЦветаСтиля.ЦветТекстаФормы;
    ЦветВыходногоДня = ЦветаСтиля.ЦветОсобогоТекста;
    
    ПоследнийДеньМесяца = ЗарплатаКадрыРасширенныйКлиентСервер.КоличествоДнейМесяца(Месяц);
    
    Для НомерДня = 1 По ПоследнийДеньМесяца Цикл
        
        ТекущийДень = Дата(Год(Месяц), Месяц(Месяц), НомерДня);
        
        ДеньНедели = ДеньНедели(ТекущийДень);
        
        Элемент = ЭлементыФормы[СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонИмениПоля, НомерДня)];
        Элемент.Видимость = Истина;
        Элемент.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
                                "%1%2%3", НомерДня, Символы.ПС, Формат(ТекущийДень, "ДФ=ддд"));
        Элемент.ЦветТекстаЗаголовка = ?(ДеньНедели = 6 Или ДеньНедели = 7, ЦветВыходногоДня, ЦветРабочегоДня);
        
    КонецЦикла;
9 HEKPOH
 
16.06.15
16:10
(7) "но я серовно думаю что там как то наверно замудрено" - если так, то да :)
10 Tumakota
 
16.06.15
16:14
(8) Спасибо за код, но я вижу в нем подвох

ЗарплатаКадрыРасширенныйКлиентСервер.КоличествоДнейМесяца(Месяц);

вот в этой строке
11 oslokot
 
16.06.15
16:22
(10) вот он, твой подвох :)

// Функция определяет количество дней в месяце.
//
// Параметры:
//    Дата - любая дата месяца
//
// Возвращаемое значение
//    - число, количество дней в месяце
//
Функция КоличествоДнейМесяца(Дата) Экспорт
    Возврат День(КонецМесяца(Дата));
КонецФункции
12 Tumakota
 
16.06.15
16:57
(11) спасибо помог))