Здравствуйте!

С 7.7 не работал ранее. Но отчет по размерам сотрудников сделал.

Таб.№    ФИО    Подразделение    Размер обуви    Размер одежды    Рост

Начал ручками забивать размеры в 1С 8, но 2 тыс сотрудников, на третьем десятке энтузиазму поубавилось.

Как бы автоматизировать это...

ставь всем 22.5

(0) Сохранить из 7.7 в эксель, обработку написать и загрузить из экселя в УПП.

(2) Я обработок таких не писал.

Мне получается надо эти данные записать в РС

РегистрСведений.ЗначенияСвойствОбъектов

Что взять за основу? А из таблицы mxl не получится загрузить?

И туда значение из ПВХ надо писать

ПланВидовХарактеристикСсылка.СвойстваОбъектов

...

(3) >Я обработок таких не писал.
http://catalog.mista.ru/public/225624/

Ладно, нашел, как получить ТЗ из ТД:

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    ТабЗначений = ПреобразоватьТабличныйДокументВТаблицуЗначений(ЭлементыФормы.ПолеТД);
    
КонецПроцедуры

Функция ПреобразоватьТабличныйДокументВТаблицуЗначений(ТабДокумент)    
    
    ПоследняяСтрока = ТабДокумент.ВысотаТаблицы;
    ПоследняяКолонка = ТабДокумент.ШиринаТаблицы;
    ОбластьЯчеек = ТабДокумент.Область(1, 1, ПоследняяСтрока, ПоследняяКолонка);
    
    // Создаем описание источника данных на основании области ячеек табличного документа.
    ИсточникДанных = Новый ОписаниеИсточникаДанных(ОбластьЯчеек);
        
    // Создаем объект для интеллектуального построения отчетов,
    // указываем источник данных и выполняем построение отчета.
    ПостроительОтчета = Новый ПостроительОтчета;    
    ПостроительОтчета.ИсточникДанных = ИсточникДанных;
    ПостроительОтчета.Выполнить();
    
    // Результат выгружаем в таблицу значений.
    ТабЗначений = ПостроительОтчета.Результат.Выгрузить();
    
    Возврат ТабЗначений
    
КонецФункции


Теперь нужно из строк запихнуть в РС ЗначенияСвойствОбъектов ...

(6) заведи задание на лансере, там такие переносы по 500 рублей

(7) Да я и сам справлюсь, надо же на работе работу делать, мне ж деньги за это платят.

Ну, собственно, перенёс, ничего сложного:


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

            НоваяЗапись = НаборЗаписей.Добавить();
            НоваяЗапись.Объект = Лицо;
            НоваяЗапись.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Размер обуви");
            НоваяЗапись.Значение = РазмерыСотрудника.РазмерОбуви;
            
            НоваяЗапись = НаборЗаписей.Добавить();
            НоваяЗапись.Объект = Лицо;
            НоваяЗапись.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Размер одежды");
            НоваяЗапись.Значение = РазмерыСотрудника.РазмерОдежды;
            
            НоваяЗапись = НаборЗаписей.Добавить();
            НоваяЗапись.Объект = Лицо;
            НоваяЗапись.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Рост");
            НоваяЗапись.Значение = РазмерыСотрудника.Рост;
            
            НаборЗаписей.Записать();
            
        КонецЕсли;
        
    КонецЦикла;
    

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

Функция ПреобразоватьТабличныйДокументВТаблицуЗначений(ТабДокумент)

Обработка - загрузка данных из табличного документа

(9) я всегда в тебя верил

(11) верил, что он регистр потрет?

(12) Ничего я не потер