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

Вывод данных из справочника в csv

Автор boyarincev, 27 апр 2016, 14:18

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

boyarincev

Добрый день форумчане... Давно не пользовался 1с 7.7
Надо вспомнить!
Задача, Имеется справочник.организации
в них находятся поля: к примеру Справочник.Организации.ПолнНаимен и Справочник.Организации.ПочтовыйАдресОрганизации
Плиззз подскажите - всю логику забыл, как мне сделать выгрузку в CSV (txt с разделителями ";" )
вида
000001;ООО"Пупсик";Ставраполь*******;
000002;******************************

Очень жду подсказок... не работал в ней лет 5 уже

boyarincev

не оставляйте без внимания пожалуйста!!!

VivaBrunko

Цитата: boyarincev от 27 апр 2016, 14:42
не оставляйте без внимания пожалуйста!!!
курите гугл

boyarincev

Гугл вкурил - торчануло, все получилось - ИТОГ:

Перем ТекЗакладка;
Процедура Сформировать()         
   Сообщить ("Началась обработка");
       Т=СоздатьОбъект ("Текст");
      СпрФ=СоздатьОбъект ("Справочник.Организации");   
      СпрФ.ПорядокКодов ();
      СпрФ.ВыбратьЭлементы ();
Пока СпрФ.ПолучитьЭлемент ()>0 Цикл
        Если СпрФ.ЭтоГруппа ()=1 Тогда 
Продолжить;                               
КонецЕсли; 
Наим = Сокрлп(СпрФ.ПолнНаимен);
Юрадр = Сокрлп(СпрФ.ЮрАдресОрганизации);
ТелОрг = Сокрлп(СпрФ.ТелефоныОрганизации);
ТекЗакладка = СпрФ.Код;
Спр = СоздатьОбъект("Справочник.Контрагенты");
    Спр.НайтиПоКоду(ТекЗакладка);
    Если Спр.выбран()=1 тогда
        Емайл = Спр.Email;
   Иначе
      Емайл = " ";
    КонецЕсли;
Т.ДобавитьСтроку(СпрФ.Код+";"+СпрФ.ИНН+";"+Наим+";"+Юрадр+";"+ТелОрг+";"+Емайл);   

КонецЦикла;       
Файл="yurorg.csv";
Т.Записать (Файл);
Сообщить ("Файл с данными "+Файл+" сохранен в каталоге пользователя");
КонецПроцедуры

Теги:

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

Рейтинг@Mail.ru

Поиск