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

Помогите создать оброботку

Автор serj5082, 06 мар 2013, 08:13

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

serj5082

Доброго время суток, помогите в чем ошибка Идея такова, нашел обработку которая должна автоматом менять значение "ОТ" на "В" в документе Табель учета рабочего времени организации не получается, не меняет вот код:Процедура КнопкаВыполнитьНажатие(Кнопка)
ДокОбъект = мДокумент.ПолучитьОбъект();

мФорма = ДокОбъект.ПолучитьФорму();

ТабЧасть = мФорма.ЭлементыФормы.ОтработанноеВремя.Значение;
Для Каждого ТекСтрока Из ТабЧасть Цикл
Для Сч=1 По 31 Цикл
Если Не ЗначениеЗаполнено(ТекСтрока["ПервыйВидВремени"+Сч]) Тогда
ТекСтрока["ПервыйВидВремени"+Сч] = Справочники.КлассификаторИспользованияРабочегоВрем ени.ВыходныеДни;
ТекСтрока["ПервыйЧасов"+Сч] = 8;
Иначе
КонецЕсли;;
КонецЦикла;
КонецЦикла;
мФорма.Открыть();


КонецПроцедуры
не могу понять в чем ошибка.

serj5082

Люди горю помогите с идеей :dfbsdfbsdf:

Gunner


serj5082


Gunner


serj5082


Yura063

Цитата: serj5082 от 06 мар 2013, 08:13мФорма = ДокОбъект.ПолучитьФорму();

ПолучитьФорму (GetForm)
Синтаксис:

ПолучитьФорму(<ИмяФормы>, <Параметры>, <Владелец>, <Уникальность>, <Окно>)
Параметры:

<ИмяФормы> (обязательный)

Тип: Строка.
Имя формы. Образуется как полный путь к объекту метаданных Форма (например, "Справочник.Контрагенты.Форма.ФормаОбъекта", "ОбщаяФорма.ФормаСохраненияФайла") или как полный путь к прикладному объекту, дополненный именем формы по умолчанию (например, "Справочник.Товары.ФормаВыбора").
Имена форм по умолчанию:
Помогли, отблагодари!

Gunner

Док = Документ.ПолучитьОбъект(); //документ "табель раб. времени"
ТабЧасть = Док.ОтработанноеВремя;
Для каждого СтрокаТЧ Из ТабЧасть Цикл
Для Сч=1 По 31 Цикл
Если СтрокаТЧ["ПервыйВидВремени"+Сч] = Справочники.КлассификаторИспользованияРабочегоВремени.НайтиПоРеквизиту("БуквенныйКод", "ОТ") Тогда
СтрокаТЧ["ПервыйВидВремени"+Сч] = Справочники.КлассификаторИспользованияРабочегоВремени.НайтиПоРеквизиту("БуквенныйКод", "В");
КонецЕсли;
КонецЦикла;
КонецЦикла;

Док.Записать();

Теги:

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

Рейтинг@Mail.ru

Поиск