gifts2017

Кнопка "Выбранные ранее сотрудники"

Опубликовал Сергей (seermak) в раздел Программирование - Работа с интерфейсом

Выбор сотрудников в несколько документов "ТабельУчетаРабочегоВремениОрганизации"

1С:Предприятие 8.2 (8.2.13.219) Конфигурация Зарплата и Управление Персоналом, редакция 2.5 (2.5.37.1)

Проблема: при заполнении нескольких документов "ТабельУчетаРабочегоВремениОрганизации" (у нас заполняют по участкам) иногда попадаются ранее выбранные сотрудники (да, при подборе выводится сообщение, но сотрудник попадает в список отбора)

Решение: добавлена кнопка в Справочник.СотрудникиОрганизации.ФормаСписка

Процедура ДействияФормыОтметитьВыбранных(Кнопка)//***************************************
    //Процедура СправочникСписокПриПолученииДанных(Элемент, ОформленияСтрок) = изменить цвет выбранного =
    //Оформление.ЦветТекста = ЦветаСтиля.ЦветПодобранногоЭлемента; На Оформление.ЦветТекста = ЦветаСтиля.ТекстИнформационнойНадписи;
    //Важно: документ сначала надо записать (без проведения)
    Попытка
        Запрос = Новый Запрос;
        Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
        | ТабельЗаПериод.Сотрудник
        |ИЗ
        | Документ.ТабельУчетаРабочегоВремениОрганизации.ОтработанноеВремяВЦеломЗаПериод КАК ТабельЗаПериод
        |ГДЕ
        | ТабельЗаПериод.Ссылка.Проведен = ИСТИНА
        | И ТабельЗаПериод.Ссылка.ПериодРегистрации = &ДатаНачалаОтбора
        | И ТабельЗаПериод.Ссылка.Организация = &ВыбОрганизация
        |
        |ОБЪЕДИНИТЬ ВСЕ
        |
        |ВЫБРАТЬ РАЗЛИЧНЫЕ
        | ТабельОтработанноеВремя.Сотрудник
        |ИЗ
        | Документ.ТабельУчетаРабочегоВремениОрганизации.ОтработанноеВремя КАК  ТабельОтработанноеВремя
        |ГДЕ
        | ТабельОтработанноеВремя.Ссылка.Проведен = ИСТИНА
        | И ТабельОтработанноеВремя.Ссылка.Организация = &ВыбОрганизация
        | И ТабельОтработанноеВремя.Ссылка.ПериодРегистрации = &ДатаНачалаОтбора"; 
        Запрос.УстановитьПараметр("ВыбОрганизация", КлючУникальности.Организация);
        Запрос.УстановитьПараметр("ДатаНачалаОтбора", НачалоМесяца(КлючУникальности.ДатаНачалаПериода));
        Табл = Запрос.Выполнить().Выгрузить();
        мМассивВыбранныхЗначений = Табл.ВыгрузитьКолонку("Сотрудник");
        ЭлементыФормы.СправочникСписок.ОбновитьСтроки();
        ЭлементыФормы.СправочникСписок.Колонки.Аванс.Видимость = Ложь;
        ЭлементыФормы.СправочникСписок.Колонки.ДатаПриема.Видимость = Ложь;
        ЭлементыФормы.СправочникСписок.Колонки.Состояние.Видимость = Ложь;
    Исключение
    КонецПопытки;
КонецПроцедуры //**********************************************************************

Пустячок, а расчетчику приятноLaughing

Люди как-то красиво оформляют строки, у меня тяму не хватает на это.... Так что, извиняйте

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Igоr Sаulеviсh (gutentag) 29.07.11 15:03
А как поставить эту кнопку без снятия конфигурации с поддержка?
И почему нельзя это сделать как "обработка и/или печатная форма" - исправляющая данную ошибку?
Спасибо!
2. Алексей Константинов (alexk-is) 29.07.11 15:25
3. Beqa BarbaqaZe (Beka.Barbakadze) 29.07.11 15:50
Hi I Have One Question About УправлениеНебольшойФирмой...


I Have "РасходнаяНакладная" - "РН - 001" FE. where СуммаДокумента = 756;
ВалютаДокумента = "GEL";

When I create ПоступлениеНаСчет and fill field "ДокументОснование" and then when i click on button "ЗаполнитьПоОснованию" it fills to times more in СуммаДокумента 1512.

i debuged it and there is such code:

1. Документ = РеквизитФормыВЗначение("Объект");
2. Документ.Заполнить(ДокОснование);
3. ЗначениеВРеквизитФормы(Документ, "Объект");
4. Модифицированность = Истина;


-----------------------------------------------------

ДокОснование.СуммаДокумента = 756;
but after line-2;
Объект.СуммаДокумента = 1512;
Do U Have Some Ideas Why?
4. Сергей (seermak) 29.07.11 18:13
(1) Можно снять до редактирования с сохранением поддержки. Наверное можно сделать и во внешней отбработке, но мне так было удобнее и быстрее
(2) Спасибо, я следующий раз еще и кисточкой попробую ))
(3) Промахнулись? Вроде это ко мне совсем не относится..... Но, я готов подискутировать.... знать бы только о чем)))
5. Igоr Sаulеviсh (gutentag) 30.07.11 14:50
(4)
Можно снять до редактирования с сохранением поддержки


...как это сделать раскажите пожалуйста?
Спаибо ! :)
6. Сергей (seermak) 30.07.11 15:37
gutentag,
вот как-то так
Прикрепленные файлы:
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа