Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
13 дек 2024, 20:47

Загрузка из XML

Автор Tyshkan, 16 окт 2012, 11:59

0 Пользователей и 1 гость просматривают эту тему.

Tyshkan

помогите загрузить данные по составу семь!!! есть код сотрудника, степень родства, дата рождения и имя. Но в базу ранее загружалась степень родства и дата рождения. Необходимо либо погрузить имя, либо все очистить и заново все поля загрузить. и еще как получить строку в составе семьи, я добавляю новую, но это не правильно...

Сотрудник = Справочники.ФизическиеЛица.НайтиПоКоду(Массив.id).ПолучитьОбъект();
ЧленСемьи = Сотрудник.СоставСемьи.Добавить();
Если ПолучитьДатуИзСтроки(ЧленСемьи.ДатаРождения) = ПолучитьДатуИзСтроки(Массив.birthdate) Тогда
ЧленСемьи.Имя = Массив.fio;
Иначе
ЧленСемьи.ДатаРождения = ПолучитьДатуИзСтроки(Массив.birthdate);
ЧленСемьи.Имя = Массив.fio;
Стр = СокрЛП(Массив.fdegree);

Если Стр = "1" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Отец");
ИначеЕсли Стр = "2" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Мать");
ИначеЕсли Стр = "3" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Сын");
ИначеЕсли Стр = "4" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Дочь");
ИначеЕсли Стр = "5" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.Муж;
ИначеЕсли Стр = "6" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.Жена;
ИначеЕсли Стр = "7" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Брат");
ИначеЕсли Стр = "8" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Сестра");
ИначеЕсли Стр = "9" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Бабушка");
ИначеЕсли Стр = "10" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Опекун");
ИначеЕсли Стр = "11" Тогда
ЧленСемьи.СтепеньРодства = Справочники.СтепениРодстваФизЛиц.НайтиПоНаименованию("Другая степень родства");
КонецЕсли;
КонецЕсли;
Сотрудник.Записать();

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск