Как реализовать расписание в нетиповой конфигурации?

Question

[ViktorGuerro]

Каим лучше способом лучше реализовать расписание в нетиповой конфигурации(без основы), обычная форма

Answer 1

[Дмитрий Кинаш]

Любым, который знаете.

Comments

[ViktorGuerro]

Знаю так, но это не нормально

//Операции с количеством дней, плюс или минус день 
Если Элемент.ТекущаяКолонка.Имя="Первое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Первое); 
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Второе" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Второе); 
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Третье" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Третье);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Четвертое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Четвертое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Пятое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Пятое);          
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Шестое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Шестое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Седьмое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Седьмое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Восьмое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Восьмое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Девятое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Девятое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Десятое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Десятое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Одиннадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Одиннадцатое); 
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Двенадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Двенадцатое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Тринадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Тринадцатое);          
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Четырнадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Четырнадцатое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Пятнадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Пятнадцатое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Шестнадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Шестнадцатое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Семьнадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Семьнадцатое);          
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Восемнадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Восемнадцатое); 
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Девятнадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Девятнадцатое); 
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Двадцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Двадцатое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьПервое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьПервое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьВторое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьВторое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьТретье" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьТретье);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьЧетвертое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьЧетвертое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьПятое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьПятое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьШестое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьШестое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьСедьмое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьСедьмое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьВосьмое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьВосьмое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ДвадцатьДевятое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ДвадцатьДевятое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="Тридцатое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.Тридцатое);         
    ИначеЕсли Элемент.ТекущаяКолонка.Имя="ТридцатьПервое" Тогда 
        ДеньПриИзменении(Элемент.ТекущиеДанные.ТридцатьПервое);     
    КонецЕсли;

[ViktorGuerro]

ТЧ: vfl.ru/fotos/1b918cfe27546343.html и Печатная форма: vfl.ru/fotos/cdc216ba27546344.html

[Константин Нагибович]

ViktorGuerro,
я не уверен, но может попробовать такой вариант
Элемент.ТекущиеДанные["Первое"]
Тогда не надо будет городить вашу конструкцию.

[ViktorGuerro]

Константин Нагибович, в процедуре ТабличнаяЧасть1ПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования) выполняется, поэтому Элемент=ТабличнаяЧасть1, а не строка ТЧ, потому что у булево нету процедуры ПриИзменении()

[Дмитрий Кинаш]

ViktorGuerro, все это выглядит очень страшно, но если работает и заказчика устраивает, то нет смысла переделывать.

[ViktorGuerro]

Дмитрий Кинаш, пока не работает, просто париться с этим говнокодом или есть способ лучше?

[ViktorGuerro]

код сократился до

ДеньПриИзменении(Элемент.ТекущиеДанные[Элемент.ТекущаяКолонка.Имя])

[Константин Нагибович]

ViktorGuerro, именно об этом я и писал.

[Дмитрий Кинаш]

ViktorGuerro, 1) хз что такое "рассписание" и для чего оно нужно 2) хз что не работает

Когда я делал похожий график посещений (только в днях были табельные отметки - 8 для робочих дней, б - больничные, о - отпуска и т.д.), то у моего документа была табличная часть график. В табличной части помимо работника были реквизиты День1, День2...., День31 (автонумерация при копировании). В зависимости от выбранного месяца на форме скрывал видимость лишних дней (в феврале может быть только 28, а в апреле 30). Тоже был подсчет общего количества дней (где 8 или 4) - при изменении в табличной части цикл типа такого (пишу по памяти):

ТекущаяСтрока = Элемент.ТекущиеДанные;
ТекущаяСтрока.РабочихДней = 0;
Для Счетчик=1 по 31 Цикл
ЗначениеКолонки = ТекущаяСтрока["День"+Счетчик];
Если ЗначениеКолонки = "8" или ЗначениеКолонки = "4" Тогда
ТекущаяСтрока.РабочихДней = ТекущаяСтрока.РабочихДней + 1;
КонецЕсли;
КонецЦикла;