Odes
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте,
Работаю с 1С 7.7 Бухгалтерия
При запросе не могу получить ни должность, ни подразделение. Помогите плз.
Код: //*******************************************
Процедура Вывод_данных_из_1С()
Перем ТаблицаСотрудников; // возвращаемая таблица
Перем ТекстЗапроса, Запрос, Таб;
Спр_Сотрудники = СоздатьОбъект("Справочник.Сотрудники");
//*******************************************
ДБФ=СоздатьОбъект("XBase");
ДБФ.ДобавитьПоле("stf_id", "n",10,0); //поле кода
ДБФ.ДобавитьПоле("stf_name", "S", 150,0); //поле имени
ДБФ.ДобавитьПоле("stf_pstid", "n",4,0); //поле должность
ДБФ.ДобавитьПоле("stf_depid", "n",4,0); //поле департартамент
//ДБФ.СоздатьФайл(ФС.ТекКаталог()+"\"+"Staff_data.dbf");
ДБФ.СоздатьФайл("C:\St.dbf");
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
// |Период С (НачГода(ТекущаяДата())) По ТекущаяДата()
|Сотрудник = Справочник.Сотрудники.ОсновнойЭлемент;
|Код = Справочник.Сотрудники.Код;
|Родитель = Справочник.Сотрудники.Родитель;
|СостояниеФизлица = Справочник.Сотрудники.СостояниеФизлица;
|Должность = Справочник.Сотрудники.Должность;
// |Подразделение = Справочник.Сотрудники.Подразделение.Получить(ДатаДок);
// |СотрОсновнойЭлемент = Справочник.Сотрудники.ОсновнойЭлемент;
// |Группировка Должность Упорядочить по Должность.Наименование;
|Группировка Сотрудник Упорядочить по Сотрудник.Наименование без Групп;
// |Группировка КодСотр Упорядочить по КодСотр.Код;
// |Условие(Сотрудник.ПометкаУдаления()=0);
|Функция Колво = Счётчик();
|"//}}ЗАПРОС;
;
Запрос.Выполнить(ТекстЗапроса);
Пока Запрос.Группировка()=1 Цикл
ДБФ.Добавить(); //добавляем новую строку
ДБФ.stf_id=Запрос.Сотрудник.Код;
ДБФ.stf_name=Запрос.Сотрудник.Наименование;
//ДБФ.stf_pstid=Запрос.Сотрудник.Должность;
//ДБФ.stf_depid=Запрос.Сотрудник.Подразделение;
ДБФ.Записать(); //фиксируем изменения
КонецЦикла;
ДБФ.ЗакрытьФайл();
КонецПроцедуры |
|
