Имя: Пароль:
1C
1С v8
Кто нибудь в камине 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
А адрес регистрации аналогично никто не выгружал? Тип реквизита адрес тоже хранилище а метод пишет не найден у обьекта...