Имя: Пароль:
1C
1C 7.7
v7: авто.сохранить в ексеель
0 serg-lom89
 
27.03.13
10:05
Подскажите пожалуйста.есть обработка которая выгружает документ в екселевскую форму.потом отсылаеться по нужным адресам.
как сделать так что бы одновременно с выгрузкой формировался отчет,его то можно и показать,а потом сохранить как,но есть люди которые тока умеют мышку с трудом держать на предприятиях,нужно что бы сохорняло его автоматически..подскажите как это осуществить.буду очень благодарен
вот делал но что то не то

//*******************************************
Процедура ВыборФайла()
   ИмяПути=КаталогПользователя();
   ИмяФайла=СокрЛП(ИмяФайла);
   Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл загрузки","Все файлы(*.xls)|*.xls","xls",)=1 Тогда
       ИмяФайла=ИмяПути+ИмяФайла;
   КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура Сформировать()
   
   Таб = СоздатьОбъект("Таблица");
   Таб.ВывестиСекцию("Шапка");
   /////
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("Док","Документ.ПоступлениеМолокаГМЗ");
   //ТЗ.НоваяКолонка("Раен");
   ТЗ.НоваяКолонка("РаенКод");
   ТЗ.НоваяКолонка("МассаНеттоПр");
   ТЗ.НоваяКолонка("МассаНаБазисПр");
   ////
   ДокПоступлениеМолокаГМЗ = СоздатьОбъект("Документ.ПоступлениеМолокаГМЗ");
   ДокПоступлениеМолокаГМЗ.ВыбратьДокументы(ДатаНач,ДатаКон);
   Пока ДокПоступлениеМолокаГМЗ.ПолучитьДокумент()>0 Цикл
       Если ДокПоступлениеМолокаГМЗ.Проведен() = 0 Тогда  
           Продолжить;    
       КонецЕсли;
       ТЗ.НоваяСтрока();
       ТЗ.РаенКод=ДокПоступлениеМолокаГМЗ.Контрагент.РайонДляМолока;
       ТЗ.МассаНеттоПр =ДокПоступлениеМолокаГМЗ.МассаНеттоПр;
       ТЗ.МассаНаБазисПр = (ДокПоступлениеМолокаГМЗ.МассаНаБазисПр)/1000 ;
       Если ДокПоступлениеМолокаГМЗ.ВнПеремещение = 0 Тогда
           Таб.ВывестиСекцию("Основ");
       КонецЕсли;
   КонецЦикла;
   
   СохранитьЗначение("Таблица1", ИмяФайла);
   Таб.Записать(ИмяФайла,"XLS");
   ////////////    
   ТабОтчет=СоздатьОБъект("Таблица");
   ТабОтчет.ИсходнаяТаблица("Таблица1");
   //ТЗ.СОртировать("РаенКод");
   ТЗ.Свернуть("РаенКод","МассаНеттоПр,МассаНаБазисПр");
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСТроку()>0 цикл
       ТабОтчет.ВывестиСекцию("Строка");
   конеццикла;
   ТабОтчет.Показать();
   ТабОтчет.Записать(ТабОтчет,"XLS");
   СохранитьЗначение("ПутьФайлаВыгрПостМолока", ТабОтчет);
   ////////////
КонецПроцедуры
Процедура ПриОткрытии()
   ИмяФайла = ВосстановитьЗначение("ПутьФайлаВыгрПостМолока");
   ДатаНач = РабочаяДата();
   ДатаКон = РабочаяДата();
КонецПроцедуры
1 Ёпрст
 
гуру
27.03.13
10:10
(0)
//ТабОтчет.Записать(ТабОтчет,"XLS");
ТабОтчет.Записать("тут прописать нормальный полдный путь к сохраняемому файлу, например, D:\Вася.xls","XLS");
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший