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