0
felixbloh
24.01.13
✎
14:58
|
Здравствуйте!
Помогите пожалуйста решить следующую проблему.
Необходимо выгрузить данные из справочника Сотрудники, где есть периодический реквизит КодВыгрузки, в dbf файл.
Если у сотрудника всего один Код Выгрузки, то все нормально.
А если несколько за разные даты, то в файл он сохраняет только Код за последнюю дату.
БД = создатьОбъект("XBASE");
БД.ДобавитьПоле("CodeEmpl","N",6,0); // числовое поле Код
БД.ДобавитьПоле("NameEmpl","S",30,0); // строковое поле Наименование
БД.ДобавитьПоле("CodeUnload","S",30,0); // строковое поле КодВыгрузки
БД.ДобавитьПоле("Date","D",30,0);
БД.СоздатьФайл("H:\sotr.dbf");
КодВыгрузки = СоздатьОбъект("периодический");
Спр = СоздатьОбъект("Справочник.Сотрудники");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
КодВыгрузки.ИспользоватьОбъект("КодВыгрузки",Спр.ТекущийЭлемент());
КодВыгрузки.ВыбратьЗначения();
Пока КодВыгрузки.ПолучитьЗначение() = 1 Цикл
БД.Добавить();
БД.CodeEmpl = Спр.Код;
БД.NameEmpl = Спр.Наименование;
Сообщить(Спр.Наименование);
БД.CodeUnload = КодВыгрузки.Значение;
Сообщить(КодВыгрузки.Значение);
БД.Date = КодВыгрузки.ДатаЗнач;
Сообщить(КодВыгрузки.ДатаЗнач);
БД.Записать();
КонецЦикла;
КонецЦикла;
БД.ЗакрытьФайл();
|
|
3
monsterZE
24.01.13
✎
15:14
|
попробывал у себя - все работает..
Спр.ИспользоватьРодителя(Выб.ТекущийЭлемент());
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Сообщить(Спр.Наименование);
ЧЧЧ.ИспользоватьОбъект("ЧЧЧ",Спр.ТекущийЭлемент());
ЧЧЧ.ВыбратьЗначения();
Пока ЧЧЧ.ПолучитьЗначение() = 1 Цикл
Сообщить(ЧЧЧ.Значение);
КонецЦикла;
КонецЦикла;
|
|
7
felixbloh
24.01.13
✎
15:37
|
(6) Большое спасибо!
Все заработало, после того как я перезапустила 1С =)
Не знаю в чем уж была проблема, но главное, что теперь он правильно все заполняет!
|
|