|
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"); |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |