3
Сэм
13.04.12
✎
12:36
|
Процедура ПриОткрытии()
Перем Файлик,ВыбКаталог,Сч;
Дополнительные_отчеты.НоваяКолонка("Номер" ,"Строка",,,"№",5);
Дополнительные_отчеты.НоваяКолонка("Отчет" ,"Строка",,,"Имя файла отчета",15);
Дополнительные_отчеты.НоваяКолонка("Описание" ,"Строка",,,"Описание отчета" ,30);
Сч=0;
КаталогОбработок = КаталогИБ()+"ert\";
Файлик=ФС.НайтиПервыйФайл(КаталогОбработок+"*.ert");
Пока ПустоеЗначение(Файлик)=0 Цикл
Сч=Сч+1;
Дополнительные_отчеты.НоваяСтрока();
Дополнительные_отчеты.Номер=Сч;
Дополнительные_отчеты.Отчет=Файлик;
Дополнительные_отчеты.Описание=????????????????????????????????????????????????????;
Файлик=ФС.НайтиСледующийФайл();
КонецЦикла;
КонецПроцедуры
|
|