| 
    
        
     
     | 
    
  | 
Кто нибудь в камине 3.0 место рождения сотрудника выгружал? | ☑ | ||
|---|---|---|---|---|
| 
    0
    
        GreenDay1986    
     09.11.11 
            ✎
    10:34 
 | 
         
        Кто нибудь в камине место рождения сотрудника выгружал? Подскажите плиз как сделать.     
         | 
|||
| 
    1
    
        Vladal    
     09.11.11 
            ✎
    10:36 
 | 
         
        Так же, как и другие реквизиты, например, дату приема.
  
        Собственно, что делаешь и каким способом?  | 
|||
| 
    2
    
        tomvlad    
     09.11.11 
            ✎
    10:37 
 | 
         
        Да просто там все:
  
        МестоРождения = Сотрудник.МестоРождения.Получить(); Если ТипЗнч(МестоРождения) = Тип("Соответствие") Тогда Страна = МестоРождения.Получить("Страна"); Область = МестоРождения.Получить("Область"); Район = МестоРождения.Получить("Район"); НасПункт = МестоРождения.Получить("НасПункт"); КонецЕсли;  | 
|||
| 
    3
    
        bazvan    
     09.11.11 
            ✎
    10:38 
 | 
         
        Смотри код АДВ-1  (заявление на получение пенссвидетельства)     
         | 
|||
| 
    4
    
        GreenDay1986    
     09.11.11 
            ✎
    10:44 
 | 
         
        Это где такой? В конфе не нашел что-то. МестоРождения = Сотрудник.МестоРождения.Получить(); Как до сотрудника добраться?     
         | 
|||
| 
    5
    
        GreenDay1986    
     09.11.11 
            ✎
    10:44 
 | 
         
        АДВ -1 где? В камине не наблюдаю :(     
         | 
|||
| 
    6
    
        ZanderZ    
     09.11.11 
            ✎
    10:46 
 | 
         
        (0) зачем посты плодить...возьми запрос с прошлого поста - сделай выборку, в выборке получай место рождения и выгружай...     
         | 
|||
| 
    7
    
        ice777    
     09.11.11 
            ✎
    10:46 
 | 
         
        Открой в конфигураторе спр-к Сотрудники и смотри код (почти аналогичен в (2)):
  
        л_Список = МестоРождения.Получить(); Если ТипЗнч(л_Список) = Тип("Соответствие") Тогда л_Страна = СокрЛП(л_Список.Получить("Страна")); л_Область = СокрЛП(л_Список.Получить("Область")); л_Район = СокрЛП(л_Список.Получить("Район")); л_НасПункт = СокрЛП(л_Список.Получить("НасПункт")); рд_МестоРождения = ?(л_Страна <> "",л_Страна+", ","") + ?(л_Область <> "",л_Область+", ","") + ?(л_Район <> "",л_Район+", ","") + ?(л_НасПункт <> "",л_НасПункт+", ",""); Если рд_МестоРождения <> "" Тогда рд_МестоРождения = Лев(рд_МестоРождения,СтрДлина(рд_МестоРождения)-2); КонецЕсли; КонецЕсли;  | 
|||
| 
    8
    
        ice777    
     09.11.11 
            ✎
    10:48 
 | 
         
        Походу ТС не сталкивался с ХранилищемЗначения.     
         | 
|||
| 
    9
    
        GreenDay1986    
     09.11.11 
            ✎
    10:48 
 | 
         
        Процедура КнопкаВыполнитьНажатие(Кнопка)
  
        Док = Новый ТабличныйДокумент; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ |ФИО.Фамилия КАК Фамилия, |ФИО.Имя КАК Имя, |ФИО.Отчество КАК Отчество, |Кадр.Должность КАК Должность, |Кадр.Сотрудник.МестоРождения КАК МестоРождения, |Кадр.Сотрудник.ДатаРождения КАК ДатаРождения, |Кадр.Сотрудник.Пол КАК Пол, |Кадр.Сотрудник.Документ.КемВыдан КАК КемВыдан, |Кадр.Сотрудник.Документ.ДатаВыдачи КАК ДатаВыдачи, |Кадр.Сотрудник.Документ.СерияДокумента КАК Серия, |Кадр.Сотрудник.Документ.НомерДокумента КАК Номер, |Кадр.Сотрудник.КонтактнаяИнформация.Вид КАК АдресРегистрации, |Кадр.Прием.Дата КАК ДатаПриема, |Кадр.Увольнение.Дата КАК ДатаУвольнения |ИЗ РегистрСведений.КадровыеСведения.СрезПоследних КАК Кадр |ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОСотрудников КАК ФИО |ПО Кадр.Сотрудник = ФИО.Сотрудник |ГДЕ |(Кадр.Прием.Дата МЕЖДУ &ДатаНачалаПериода и &ТекущаяДата)И //|(Кадр.Сотрудник.КонтактнаяИнформация.Вид = &АдресРег)И |ВЫБОР КОГДА ЕСТЬNULL(Кадр.Увольнение.Дата, 0) = 0 |ТОГДА ИСТИНА |ИНАЧЕ Кадр.Прием.Дата > Кадр.Увольнение.Дата |КОНЕЦ |"; Справочники.Сотрудники.Э // Запрос.УстановитьПараметр("АдресРег",Справочники.ВидыКонтактнойИнформации.АдресРегистрации); Запрос.УстановитьПараметр("ДатаНачалаПериода",НачалоДня(ДатаПриема)); Запрос.УстановитьПараметр("ТекущаяДата",КонецДня(ТекущаяДата())); Рез = Запрос.Выполнить().Выбрать(); Макет = ПолучитьМакет("Макет"); Область = Макет.ПолучитьОбласть("ЗаголовокАнгл"); Док.Вывести(Область); Область = Макет.ПолучитьОбласть("ЗаголовокРус"); Док.Вывести(Область); Пока Рез.Следующий() Цикл Область = Макет.ПолучитьОбласть("Строка"); Область.Параметры.Фамилия = Врег(Рез.Фамилия); Область.Параметры.Имя = Врег(Рез.Имя); Область.Параметры.Отчество = Врег(Рез.Отчество); Пол = Рез.Пол; Область.Параметры.Пол = ТранслитПол(Пол); Область.Параметры.ДатаРождения = Формат(Рез.ДатаРождения,"ДФ=дд/ММ/гггг"); Область.Параметры.МестоРождения = Врег(Рез.МестоРождения); Область.Параметры.НомерПаспорта = СокрЛП(СтрЗаменить(Рез.Серия," ",""))+ СокрЛП(Рез.Номер); Область.Параметры.ОрганВыдачи = Врег(Рез.КемВыдан); Область.Параметры.ДатаВыдачи = Формат(Рез.ДатаВыдачи,"ДФ=дд/ММ/гггг"); Область.Параметры.Работодатель = "ЗАО ТФ ВАТТ"; Область.Параметры.Должность = Врег(Рез.Должность); Область.Параметры.Карта = "Visa Classic"; Фамилия = Рез.Фамилия; Имя = Рез.Имя; Область.Параметры.ИмяНаКарте = СокрЛП(Транслит(Имя))+" "+ СокрЛП(Транслит(Фамилия)); Область.Параметры.Кодовое = Врег(Рез.Фамилия); Область.Параметры.АдресРегистрации = Врег(Рез.АдресРегистрации); Область.Параметры.АдресФактический = Формат(Рез.ДатаПриема,"ДФ=дд/ММ/гггг"); Док.Вывести(Область); КонецЦикла; Док.Записать("F:\temp\BankData.xls",ТипФайлаТабличногоДокумента.XLS); КонецПроцедуры  | 
|||
| 
    10
    
        GreenDay1986    
     09.11.11 
            ✎
    10:50 
 | 
         
        Я и выгружаю. В выгрузке все нормально выгружается а в графе место рождения появляется строка "Хранилищезначения" СП читал, не доходит как выгрузить место... :(     
         | 
|||
| 
    11
    
        GreenDay1986    
     09.11.11 
            ✎
    10:50 
 | 
         
        Не сталкивался :(     
         | 
|||
| 
    12
    
        ZanderZ    
     09.11.11 
            ✎
    10:53 
 | 
         
        (10)  в выборке вставь код
  
        МестоРождения = Рез.МестоРождения.Получить(); Если ТипЗнч(МестоРождения) = Тип("Соответствие") Тогда Страна = МестоРождения.Получить("Страна"); Область = МестоРождения.Получить("Область"); Район = МестоРождения.Получить("Район"); НасПункт = МестоРождения.Получить("НасПункт"); Область.Параметры.МестоРождения = Врег(страна+","+область+","+район+","+наспункт); КонецЕсли;  | 
|||
| 
    13
    
        GreenDay1986    
     09.11.11 
            ✎
    11:04 
 | 
         
        Спасибо ребята, затупил маленько. Ток ошибку выдает 
  
        Значение не является значением объектного типа (Параметры) Область.Параметры.МестоРождения = (Врег(страна+","+область+","+район+","+наспункт));  | 
|||
| 
    14
    
        ДенисЧ    
     09.11.11 
            ✎
    11:07 
 | 
         
        Дык область-то ещё получить надо :-)
  
        Как отчёт формируешь? Только не говори, что СКД :_)  | 
|||
| 
    15
    
        hhhh    
     09.11.11 
            ✎
    11:08 
 | 
         
        (13) а сам-то эту строчку читал? Ведь фигню написал.     
         | 
|||
| 
    16
    
        GreenDay1986    
     09.11.11 
            ✎
    11:34 
 | 
         
        Всем спасибо Ребят. Отчет не в СКД, отчет в макете делал. Поправил. Все работает 
  
        МестоРождения = Рез.МестоРождения.Получить(); Если ТипЗнч(МестоРождения) = Тип("Соответствие") Тогда Страна = МестоРождения.Получить("Страна"); Область = МестоРождения.Получить("Область"); Район = МестоРождения.Получить("Район"); НасПункт = МестоРождения.Получить("НасПункт"); Место = Врег(СокрЛП(Страна)+","+СокрЛП(Область)+","+СокрЛП(Район)+","+СокрЛП(Наспункт)); КонецЕсли; Область = Макет.ПолучитьОбласть("Строка"); Область.Параметры.МестоРождения = Место;  | 
|||
| 
    17
    
        GreenDay1986    
     09.11.11 
            ✎
    11:35 
 | 
         
        Огромное спасибо!!!     
         | 
|||
| 
    18
    
        GreenDay1986    
     09.11.11 
            ✎
    13:01 
 | 
         
        А адрес регистрации аналогично никто не выгружал? Тип реквизита адрес тоже хранилище а метод пишет не найден у обьекта...     
         | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |