Здравствуйте!!! Столкнулась с проблемой.. Существует некая внешняя обработка, которая печатает бейджики. Т.е. она берет людей из справочника физ лиц и их должности. В этом же справочнике есть раздел заметки, в котором присваивается индивидуальный номер(номер бэйджа) каждому физ.лицу. Данные заметок хранятся в регистре сведений. Была поставлена задача: выбрать из физ.лиц только водителей, проверить уволены они или нет, если уволены, то освободить их индивидуальный номер и присвоить его к новым водителям. Таким образом на форме есть кнопки: "Заполнить физ.лица" - заполняет данные в таблицу(фио, должность, номер бэйджа) и "Сформировать номера ФЛ" - эта кнопка и формирует номера по порядку (от 1 до ....). Я уже сделала выборку уволенных водителей и их номера. Теперь необходимо взять эти номера и присваивать водителям, которые поступили на работу. А если номеров нет, то присваивать как обычно по порядку.
Вот код выборки:

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|СотрудникиОрганизаций.Физлицо.Наименование  КАК ФизлицоНаименование,
|СотрудникиОрганизаций.Должность.Наименование КАК ДолжностьНаименование,
|СотрудникиОрганизаций.ДатаУвольнения   КАК ДатаУвольнения,
|Заметки.Содержание
| ИЗ
|Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
|ВНУТРЕННЕЕ СОЕДИНЕНИЕ
| РегистрСведений.Заметки   КАК Заметки
|ПО Заметки.Объект = СотрудникиОрганизаций.ФизЛицо
|ГДЕ
|СотрудникиОрганизаций.ДатаУвольнения <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
|И СотрудникиОрганизаций.Должность.Наименование ПОДОБНО "%водитель%"
|";


Код кнопки "Сформировать номера ФЛ":
Процедура КоманднаяПанель2ЗаписатьНомераФЛ(Кнопка)
//Проверим уществование таких значений заметок, как в справочнике виды заметок
Значение = Справочники.ВидыЗаметок.НайтиПоНаименованию("НомерБэйджа");
Если Значение = Справочники.ВидыЗаметок.ПустаяСсылка() Тогда
    Сообщить("Не существует вид заметки НомерБэйджа в справочнике Виды заметок !");
    Возврат;
    КонецЕсли;
    
//Проверим есть ли префикс жд в форме.
Если ЭтаФорма.ЭлементыФормы.Префикс.Значение="" Тогда
    Сообщить("Не заполнен префикс железной дороги!");  
    Возврат;
КонецЕсли;

    
    //Определим последний номер в базе фл
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
               |    Заметки.Содержание
               |ИЗ
               |    РегистрСведений.Заметки КАК Заметки
               |ГДЕ
               |    Заметки.ВидЗаметки.Ссылка = &ВидЗаметки
               |
               |УПОРЯДОЧИТЬ ПО
               |    Заметки.Дата УБЫВ";
Запрос.УстановитьПараметр("ВидЗаметки",Значение);
Выборка = Запрос.Выполнить().Выбрать();

//проверим, если таких номеров нет, то начнем с 1го.
Если Выборка.Количество()=0 Тогда
    ПоследнийНомер = 1;
Иначе
    ДлинаНомера = СтрДлина(Выборка.Содержание);
    
    ПоследнийНомер = Прав(Выборка.Содержание,ДлинаНомера-4);
    
    Попытка
        ПоследнийНомер = Число(ПоследнийНомер);
    Исключение
        ПоследнийНомер = 1;
    КонецПопытки;
КонецЕсли;


//Сделаем отбор на галочки по номерам

Для каждого Строка из ЭтотОбъект.Товары Цикл
    
        Если Строка.ФлагN Тогда
        //Для каждого элемента запишем.
        ФизЛицо = Строка.ФизЛицо;
        НаборЗаписей = РегистрыСведений.Заметки.СоздатьНаборЗаписей();      
        НаборЗаписей.Записывать = Истина;
        
        ТекДата =   ТекущаяДата();
        НаборЗаписей.Отбор.Объект.Установить(ФизЛицо);
        НоваяЗапись = НаборЗаписей.Добавить();
        НоваяЗапись.Дата = ТекДата;
        НоваяЗапись.ВидЗаметки = Справочники.ВидыЗаметок.НайтиПоНаименованию("НомерБэйджа");
        НоваяЗапись.Содержание = ЭтаФорма.Префикс+ПоследнийНомер;
        НоваяЗапись.Объект = ФизЛицо;
        
        //Получаем префикс дороги
         ПоследнийНомер=ПоследнийНомер+1;
        //Создаем запись в регистре сведений
        НаборЗаписей.Записать();
    
        НаборЗаписей.Записывать = Ложь;
        КонецЕсли;
КонецЦикла;

КонецПроцедуры

(0)>>Я уже сделала выборку уволенных водителей и их номера. Теперь необходимо взять эти номера и присваивать водителям...

Продолжайте описывать свои действия, нам очень интересно.

-------------------
...
|СотрудникиОрганизаций.Должность.Наименование КАК ДолжностьНаименование,
...

ужс если это ЗиУП. Сообщите вышестоящему начальству о проф. не пригодности.

так уж очень хочется старые номера заюзать?

(0) Почему бы вам не заполнить фото в личной карточке, глядишь и люди бы к вам потянулись... Намёк понятен? :)

(2) цифр и так мало осталось, надо думать об рациональном использовании.

вот вот именно их надо использовать.... причем это касается только должности "Водитель"

(0) что обозначают цифры в нике?

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

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|СотрудникиОрганизаций.Физлицо.Наименование  КАК ФизлицоНаименование,
|СотрудникиОрганизаций.Должность.Наименование КАК ДолжностьНаименование,
|СотрудникиОрганизаций.ДатаУвольнения   КАК ДатаУвольнения,
|Заметки.Содержание
| ИЗ
|Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
|ВНУТРЕННЕЕ СОЕДИНЕНИЕ
| РегистрСведений.Заметки   КАК Заметки
|ПО Заметки.Объект = СотрудникиОрганизаций.ФизЛицо
|ГДЕ
|СотрудникиОрганизаций.ДатаУвольнения <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
|И СотрудникиОрганизаций.Должность.Наименование ПОДОБНО ""%водитель%""
|";


ТЗ = Запрос.Выполнить().Выгрузить();

вот запрос... как из его результата взять номера и поместить их в массив, а самих владельцев удалить??????????????

(8) я думаю, удалять сотрудников из справочника дурная затея. Проще номер у этого сотрудника затереть и присвоить его другому.

(9) номер хранится в регистре сведений заметки.
Там же его надо и почистить и присвоить другим.

Не понимаю какой конкретно шаг у ТС вызывает трудности.

(7) А если понадобится посмотреть кто под этим беджиком ездил два года назад?

(11) да просто повешают недостачу на водителя принятого неделю назад. :) Номер то тот же :)

))))) ну так то да))) ну это уже не мое дело.... мне главное сделать)

(9) номер хранится в регистре сведений заметки.
Там же его надо и почистить и присвоить другим.

Это и вызывает))) как программно прописать... ?

http://www.google.ru/#bav=on.2,or.r_qf.&fp=47fbe83b7ce2a8a6&newwindow=1&q=регистр+сведений+удалить+записи

еще раз
http://www.google.ru/#bav=on.2,or.r_qf.&fp=47fbe83b7ce2a8a6&newwindow=1&q=регистр+сведений+удалить+записи

Без фото не взлетит уже говорили?

http://goo.gl/M4WLF2

1с Предприятие 8.2 (8.2.13.219), Конф ЗУП 2.5

Результат = Запрос.Выполнить().Выбрать();

МассивНомеров = Новый Массив;

Пока Результат.Следующий() Цикл


  МассивНомеров.Добавить(Результат.Содержание);

  МенеджерЗаписи = РегистрыСведений.Заметки.СоздатьМенеджерЗаписи();
  МенеджерЗаписи.Объект  = Результат.ФизЛицо;  
  МенеджерЗаписи.ВидЗаметки = Результат.ВидЗаметки;
  МенеджерЗаписи.Прочитать();


  Если МенеджерЗаписи.Выбран() Тогда
  
   МенеджерЗаписи.Удалить();
  
  КонецЕсли;

КонецЦикла;

Вот.. посмотрите все правильно???

(21) Фото на паспорт... Ну, уже что-то, конечно, но по-веселее нет?))

на работе я)))) нормальной нету)))

(23) В контакте/одноклассниках сто пудова есть, можно оттуда взять и сюда вставить))

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

А тут вся фишка в фотке или все таки в помощи???

(26) Смотря какое фото)))
К девушкам с удачными фотками желающих помочь набегает больше)))

АААААА ну вечером поменяю))

И все-таки кто-нибудь сможет мне помочь????

(29)Конечно, в чем проблема?

Выше написана задача...
Думаю идти по такой логике:
1. Находим первого водителя без номера.

2. Находим первую запись со "свободным" номером

3. Если таковой нету, генерим новый номер,  Если такая запись есть, то удаляем эту запись со старого водителя, и присваиваем этот номер новому водителю.

4. Переходим к п.1

Выборку по новым водителям (т.е. без номера) сделала:
ВЫБРАТЬ
   СотрудникиОрганизаций.Ссылка,
   Заметки.Содержание
ИЗ
   Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Заметки КАК Заметки
       ПО (Заметки.Объект = СотрудникиОрганизаций.Физлицо)
ГДЕ
   СотрудникиОрганизаций.Должность.Наименование ПОДОБНО "%водитель%"
  И  Заметки.Содержание ЕСТЬ NULL

Выборка уволенных водителей тоже есть:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|СотрудникиОрганизаций.Физлицо.Наименование  КАК ФизлицоНаименование,
|СотрудникиОрганизаций.Должность.Наименование КАК ДолжностьНаименование,
|СотрудникиОрганизаций.ДатаУвольнения   КАК ДатаУвольнения,
|Заметки.Содержание
| ИЗ
|Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
|ВНУТРЕННЕЕ СОЕДИНЕНИЕ
| РегистрСведений.Заметки   КАК Заметки
|ПО Заметки.Объект = СотрудникиОрганизаций.ФизЛицо
|ГДЕ
|СотрудникиОрганизаций.ДатаУвольнения <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
|И СотрудникиОрганизаций.Должность.Наименование ПОДОБНО ""%водитель%""
|";

ну норм.
За исключением того номер может уже ни принадлежать ни текущему водителю, ни уволенному водителю. Номера лучше освобождать сразу при увольнении. И текущую должность надо брать не из справочника, а рс кадровая история сотрудников.

Как теперь связать все это? То есть взять у уволенных водителей номера и присваивать их к новым, а у уволенных водителей их удалять??

Пыталась удалить номера...Он ругается(((
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|СотрудникиОрганизаций.Физлицо.Наименование  КАК ФизлицоНаименование,
|СотрудникиОрганизаций.Должность.Наименование КАК ДолжностьНаименование,
|СотрудникиОрганизаций.ДатаУвольнения   КАК ДатаУвольнения,
|Заметки.Содержание
| ИЗ
|Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
|ВНУТРЕННЕЕ СОЕДИНЕНИЕ
| РегистрСведений.Заметки   КАК Заметки
|ПО Заметки.Объект = СотрудникиОрганизаций.ФизЛицо
|ГДЕ
|СотрудникиОрганизаций.ДатаУвольнения <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
|И СотрудникиОрганизаций.Должность.Наименование ПОДОБНО ""%водитель%""
|";
  

Результат = Запрос.Выполнить().Выбрать();

МассивНомеров = Новый Массив;

Пока Результат.Следующий() Цикл

  // Добавим в массив номер, для дальнейшей его обработки
  МассивНомеров.Добавить(Результат.Содержание);

  МенеджерЗаписи = МенеджерЗаписи = РегистрыСведений.Заметки.СоздатьМенеджерЗаписи();  // освобождение номера, путем удалениедений.Заметки.СоздатьМенеджерЗаписи();
  МенеджерЗаписи.Объект  = Результат.ФизЛицо; // д.б. ключевым полем
  МенеджерЗаписи.ВидЗаметки = Результат.ВидЗаметки; // д.б. ключевым полем
  МенеджерЗаписи.Прочитать();


  Если МенеджерЗаписи.Выбран() Тогда
  
   МенеджерЗаписи.Удалить();
  
  КонецЕсли;

Ругается на эти 2 строчки :
МенеджерЗаписи.Объект  = Результат.ФизЛицо;

МенеджерЗаписи.ВидЗаметки = Результат.ВидЗаметки;

{Форма.Форма.Форма(950)}: Значение не является значением объектного типа (Объект)

(34) У меня вопрос на засыпку: зачем УДАЛЯТЬ номера у уволенных?

ну их же надо взять и присвоить к новым

(38) Ну и присваивай. Удалять-то зачем? Пусть будут для истории...

как вариант.
1. работать при необходимости выдать новый номер;
2. брать любой уволенный, переназначать владельца;
3. нет уволенных - брать макс(0, максимальный из имеющихся)+1;

(38) а сколько номеров максимум может быть на бейдже?

(40) ну по сути так и надо. правда все это касается только водителей. Вот один уволился у него был номер, теперь этот номер надо обозначить как свободный. И вот тут новый водитель поступил на работу ему нужен номер. Если есть свободные, то ему присваивается наименьший, а если свободных нет, то мах + 1

сколько сотрудников столько и номеров. у каждого он индивидуален

(42) обозначение свободности - в уволенности. в чём затык?

и я вообще молчу про сомнительность необходимости освобождения номеров

(44) А если договор срочный?))

(45) Вот это +100. Не, ну можно ещё освобождать через месяц после увольнения, но сразу... Будут коллизии 100%.

ну вот надо сразу...... Уволен - все номер свободен. Его можно отдать другому

это же бейджики они будут редко меняться

(48) Уволен случайно (ну кадровик после корпоратива не туда тыкнула) - меняй бейджик...

автор так и не ответила ажно ещё на (2)

)))))))))) ну получается да)))))

на что не ответила??))

(43)Кривая структура хранения данных. Высокая вероятность вылезти какому-нибудь глюку. В любом случае будет копрокод.

Вот тебе вариант.

Удаленных водителей выгружаешь в ТЗ. (сортируешь по номеру)

Обходишь выборку новых водителей.
Внутри проверяешь пустая ли таблица с удаленными водителями.
Если нет. Берешь номер с первой строки. Запись в регистре и ТЗ по водиле удаляешь.

это понятно на словах...... а вот программно ;((((((((((((((((((((((((((((((((((((((((((((((

(48)(49) чо-то ты запутала. Когда номер освобожалется при увольнении сразу или редко во время печати бейджев?

(53) на кой ляд нужна вся эта эротика?

(42) Сколько у вас водителей? Сколько меняется каждый день?

Есть ли вообще смысл в автоматизации этого процесса? Моожет проще человеку ручками номер перебить. Только отчет ему в помощь, у кого какой номер. И отметить уволенных.

в общем вот в чем суть....... это все внешняя обработка и за добавление нового номера отвечает кнопка. То есть вот пришел новый водитель надо ему бейджик. Зашли они в обработку нажали кнопку "Заполнить номера" и тогда тут пошел процесс: ищет уволенных, берет их номера, присваивает первый номер ему, если нет номеров свободных то генерируется стандартно, т.е. мах +1

(59) То есть вот пришел новый водитель надо ему бейджик, генерируется стандартно, т.е. мах +1
ТЧК

водителей 79. Меняться думаю будут редко. Вот первый раз распечатали всем бейджики и все. Теперь в следующий раз будут печатать только новому сотруднику.

ну так если есть уволенный водитель и номер у него тогда пропадет...

а генерировать можно до бесконечности

(62) светлая память. ты ничего не сказала на эту тему

(63) не до бесконечности, а до переполнения счётчика

в общем задача была поставлена брать у уволенных и ставить новым

(66) слабый аргумент

например если сотрудников 300, а номеров больше 1000 это тоже не корректно

а у уволенных номера все равно никак не используются

(68) почему?
кстати, табельные номера сотрудников освобождаются при увольнении?

(69) ты уже целый день сидишь над задачей, которая упрощается до безобразия, если не вымудриваться

ну.... голову ломаю...((

тем более с 1с я ооочень мало знакома...

(73) в общем, ты меня не убедила в том, что нужно делать именно так. реализовывать или участвовать в реализации такого алгоритма я не хочу

(73) ааа. видимо им так важна 1ска раз они ставят такого человека на нее :(

Если бы мне заплатили за копрокод сделал бы так.

//Уволенные
Запрос = //твой запрос уволенные.

УволенныеТЗ = Запрос.Выполнить().Выгрузить();

Запрос = //твой запрос новые

ВыборкаНовые = Запрос.Выполнить.Выбрать();

Пока ВыборкаНовые.Следующий() Цикл
Если УволенныеТЗ.Количество() >0 Тогда
УдалитьЗаписьРС(УволенныеТЗ[0].Водитель);
номер = УволенныеТЗ.Номер;
УволенныеТЗ.Удалить(0);
ДобавитьЗаписьРС(ВыборкаНовые.Водитель,номер);
Иначе
ДобавитьЗаписьРС(ВыборкаНовые.Водитель);
КонецЦикла;

--
А если бы заплатили хорошо переделал бы структуру нормально :)