|
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");
|
|