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

Помогите пожалуйста!

Автор voodoo200, 22 дек 2010, 13:55

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

voodoo200

Вобщем задача такова - Есть 2 справочника Сотрудники и Люди в Сотрудниках лежит информация по работе в Люди лежит личная (д.р м.р и. т.д) как выгрузить данные (кроме уволенных) из обоих справочников в txt файл? Помогите оч срочно надо.

prog1c7.7

ФайлИс = СтрЗаменить(Строка(РабочаяДата()),"."," ") + ".txt";   
ФайлИстории = КаталогИБ()   + ФайлИс;   
Файл = СоздатьОбъект("Текст");
СпрСотрудники = СоздатьОбъект("Справочник.Сотрудники");
СпрСотрудники.ВыбратьЭлементы(1);
Пока СпрСотрудники.ПолучитьЭлемент() = 1 Цикл
Файл.Открыть(ФайлИстории);
Файл.ДобавитьСтроку(СпрСотрудники.Наименование);
Файл.ДобавитьСтроку(СпрСотрудники.КемРаботает);
Файл.ДобавитьСтроку(СпрСотрудники.Зарплата);
Файл.Записать(ФайлИстории);
КонецЦикла;
  <_<
ФайлИс1 = СтрЗаменить(Строка(РабочаяДата()),"."," ") + ".txt";   
ФайлИстории1 = КаталогИБ()   + ФайлИс1;   
Файл1 = СоздатьОбъект("Текст");
СпрЛюди = СоздатьОбъект("Справочник.Люди");
СпрЛюди.ВыбратьЭлементы(1);
Пока СпрЛюди.ПолучитьЭлемент() = 1 Цикл
Файл1.Открыть(ФайлИстории1);
Файл1.ДобавитьСтроку(СпрЛюди.Наименование);
Файл1.ДобавитьСтроку(СпрЛюди.СКемСпит);   :thwrt:
Файл1.ДобавитьСтроку(СпрЛюди.ЗаЧтоНеНавидитПрограммиста);   ui;;t;
Файл1.Записать(ФайлИстории1);
КонецЦикла;

:wacko:

prog1c7.7

ФайлИс1 = СтрЗаменить(Строка(РабочаяДата()),"."," ") + ".txt"; 
меняй на
ФайлИс1 = СтрЗаменить(Строка(РабочаяДата()),"."," ") + "Lydi.txt"; 

в первый раз не пойдет  - скажет файла нет либо агрегатка не обнаружена,
НО создаст их !!!
Запусти ишшо раз и все сделается.

prog1c7.7

//да, забыл про уволенных:
//после
Пока СпрСотрудники.ПолучитьЭлемент() = 1 Цикл
//добавь
Если
СпрСотрудники.ХарактерРаботы=Перечисление.ХарактерРаботы.ТрудовыеОтношенияПрекращены тогда
Продолжить;
КонецЕсли;



voodoo200


Теги:

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

Рейтинг@Mail.ru

Поиск