Перем зн, спр;
//*******************************************
Процедура Сформировать ()
//сначала получим все справочники
Сз=СоздатьОБъект ("СписокЗначений");
Для Индекс=1 По Метаданные. Справочник () Цикл
Значение = Метаданные. Справочник (Индекс). Идентификатор;
Представление = Метаданные. Справочник (Индекс). Представление ();
Если пустоеЗначение (представление) =1 Тогда
представление=значение;
КонецЕсли;
сз. ДобавитьЗначение (значение, представление) ;
КонецЦикла;
//пусть пользователь выберет
зн=""; поз="";
Если сз. ВыбратьЗначение (зн, "Выберите справочник", поз, 0)<>1 тогда
возврат;
конецЕсли;
зн = СокрЛП (зн) ;
имяСправочника = зн;
элСправочника = "";
//тзЗначения. Очистить ();
//Форма. элСправочника. НазначитьТип ("Справочник. "+зн) ;
тзЗначения. Очистить ();
спРеквизиты. УдалитьВсе ();
спРеквизиты. ДобавитьЗначение ("Код");
спРеквизиты. ДобавитьЗначение ("Наименование");
спРеквизиты. Пометка (1,1);
спРеквизиты. Пометка (2,1);
тзЗначения. НоваяКолонка ("Код");
тзЗначения. НоваяКолонка ("Наименование");
//а вот теперь только перебираем реквизиты
Для Индекс=1 По Метаданные. Справочник (зн). Реквизит () Цикл
Значение = Метаданные. Справочник (зн). Реквизит (индекс). Идентификатор;
спРеквизиты. ДобавитьЗначение (Значение) ;
тзЗначения. НоваяКолонка (Значение) ;
тип= Метаданные. Справочник (зн). Реквизит (индекс). тип;
вид= Метаданные. Справочник (зн). Реквизит (индекс). вид;
//Сообщить (значение+""+тип+""+ вид) ;
КонецЦикла;
КонецПроцедуры
//*****
Процедура Перечитать ()
тЗначения = СоздатьОбъект ("Текст");
спЗначения = СоздатьОбъект ("СписокЗначений");
тзЗначения. УдалитьСтроки ();
спр = СоздатьОбъект ("Справочник. "+зн) ;
стрВидимость = "";
Для ии = 1 По спРеквизиты. РазмерСписка () Цикл
Если ии <спРеквизиты. РазмерСписка () Тогда
стрВидимость=стрВидимость + ии+",";
Иначе
стрВидимость=стрВидимость + ии;
КонецЕсли;
КонецЦикла;
тзЗначения. ВидимостьКолонки (стрВидимость, 0);
стрВидимость = "";
Для ии = 1 По спРеквизиты. РазмерСписка () Цикл
Если спРеквизиты. Пометка (ии) = 1 Тогда
стрВидимость=стрВидимость + ии+",";
КонецЕсли;
КонецЦикла;
Если Прав (стрВидимость, 1)="," Тогда
стрВидимость=Лев (стрВидимость, СтрДлина (стрВидимость) -1);
КонецЕсли;
тзЗначения. ВидимостьКолонки (стрВидимость, 1);
спр. ИспользоватьДату (НаДату, 1);
спр. ВыбратьЭлементы (0);
Пока спр. ПолучитьЭлемент () = 1 Цикл
ии = 0; кк = 1;
тзЗначения. НоваяСтрока ();
спЗначения. УдалитьВсе ();
Для ии = 1 По спРеквизиты. РазмерСписка () Цикл
Если спРеквизиты. Пометка (ии) = 1 Тогда
ид = спРеквизиты. ПолучитьЗначение (ии) ;
знач0 = спр. ПолучитьАтрибут (ид) ;
тзЗначения. УстановитьЗначение (тзЗначения. КоличествоСтрок (),ид, знач0);
спЗначения. ДобавитьЗначение (знач0);
кк = кк +1;
КонецЕсли;
КонецЦикла;
строка0 = спЗначения. ВСтрокуСРазделителями ();
тЗначения. ДобавитьСтроку (строка0);
КонецЦикла;
тЗначения. Записать ("c:\"+имяСправочника+".csv");
Сообщить (" данные записаны в "+"c:\"+имяСправочника+".csv");
КонецПроцедуры
имяСправочника= "К_Клиенты";
НаДату = РабочаяДата ();
а вот форма:
