Перенести файл с клиента на сервер

Если при нажатии на клиенте кнопку нужно формировать файл на сервере, а потом результат формирования перенести назад на клиента тогда

&НаКлиенте Процедура СформироватьXLSX(Команда) //сохранение файла Если ПустаяСтрока(ПутьКФайлу) Тогда Режим = РежимДиалогаВыбораФайла.ВыборКаталога; ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытия.Каталог = ""; ДиалогОткрытия.МножественныйВыбор = Ложь; ДиалогОткрытия.Заголовок = "Выберите каталог"; Если ДиалогОткрытия.Выбрать() Тогда ПутьКФайлу = ДиалогОткрытия.Каталог + "\"; Иначе Предупреждение("Каталог не выбран!"); Возврат; КонецЕсли; КонецЕсли; ИмяФайлаНаДиске = ПутьКФайлу+ИмяФайла+".xlsx"; //сохранение файла //формирование прайса МассивПрайсовДД = СформироватьXLSXСКлиента(ИмяФайлаНаДиске ); //формирование прайса Если МассивПрайсовДД = Неопределено Тогда Возврат; КонецЕсли; //перенос файла на клиент ПереместитьПрайсы(МассивПрайсовДД, ИмяФайлаНаДиске); //перенос файла на клиент КонецПроцедуры &НаКлиенте Процедура ПереместитьПрайсы(МассивПрайсовДД, ИмяФайлаНаДиске) // Создаем описание получаемых файлов. ОписанияФайлов = Новый Массив; Для Каждого ПрайсДД Из МассивПрайсовДД Цикл ОписаниеФайла = Новый ОписаниеПередаваемогоФайла(ПолучитьИмяВременногоФайла(), ПрайсДД); ОписанияФайлов.Добавить(ОписаниеФайла); КонецЦикла; // Сохраняем файлы из временного хранилища в локальную файловую систему. ПолученныеФайлы = Новый Массив; ПолучитьФайлы(ОписанияФайлов, ПолученныеФайлы, , Ложь); // Открываем файлы. Для Каждого ПолученныйФайлы Из ПолученныеФайлы Цикл дд = Новый ДвоичныеДанные(ПолученныйФайлы.Имя); дд.Записать(ИмяФайлаНаДиске); //Предупреждение("Файл сохранен "+ ИмяФайлаНаДиске); ЗапуститьПриложение(ИмяФайлаНаДиске); КонецЦикла; КонецПроцедуры Функция СформироватьXLSXСКлиента(ИмяФайлаНаДиске) //сохранение прайса на сервере дд = Новый ДвоичныеДанные(ИмяФайлаНаДиске); //C:\\1.xls АдресаВоВременномХранилище = Новый Массив; АдресаВоВременномХранилище.Добавить(ПоместитьВоВременноеХранилище(дд, ЭтаФорма.УникальныйИдентификатор)); Возврат АдресаВоВременномХранилище; //возврат адрес прайса на сервере КонецФункции

Объединить ячейки на листе Excel из 1С

Что бы объединить ячейки на листе Excel по COM из 1С делаем

Ячейка = ДобавленныйЛист.Range(ДобавленныйЛист.Cells(НомерСтрокиЛиста,1),ДобавленныйЛист.Cells(НомерСтрокиЛиста,8)); Ячейка.Merge(); //объединение ячеек

Добавить гиперссылку на лист Excel из 1С

Что бы добавить текст по COM из 1С на лист Excel, при нажатии на который будет переход на другой лист, пишем

Ячейка.Hyperlinks.Add(Ячейка, "", ИмяЛиста+"!R1C1", Ячейка.Value,Ячейка.Value);//ссылка

Добаить изображение с гиперссылкой 1С

Нужно программно добавить по COM из 1С на лист Excel изображение с гиперссылкой, которая ведет на другой лист.

Верх = Ячейка.Top+3; Лево = Ячейка.Left+145 ; ВысотаКартинки = 55; ШиринаКартинки = 140; Изображение =ДобавленныйЛист.Shapes.AddPicture(Стрелка, Истина, Истина, Лево, Верх, ШиринаКартинки, ВысотаКартинки); ДобавленныйЛист.Hyperlinks.Add(Изображение, , "ГЛАВНАЯ!R1C");

Скачать сайт

Для того, что бы скачать сайт, нужна программа wget

а далее, открываем командную строку

wget64.exe -U "Mozilla / 5.0 (Windows; U; Windows NT 5.1; де; с.в .: 1.9.2.3) Gecko / 20100401 Firefox / 3.6.3" -r -l10 -k https://NameSite.com/ -np

ждем

Печать в несколько колонок

&НаСервере Функция ПечатьКолонкамиНаСервере() Обработка = РеквизитФормыВЗначение("Объект"); Макет = Обработка.ПолучитьМакет("Шаблон_480х166_Товары"); Область = Макет.ПолучитьОбласть("Область|Область1"); табДок = Новый ТабличныйДокумент; КоличествоКолонок = 1; Для Каждого Эл Из Объект.Товары Цикл Область.Параметры.Код = Эл.Номенклатура.Артикул; Область.Параметры.Наименование = Эл.Номенклатура.НаименованиеПолное; Если КоличествоКолонок = 1 Или КоличествоКолонок = 5 Тогда //печать в 4 колонки табДок.Вывести(Область); КоличествоКолонок = 1; Иначе табДок.Присоединить(Область); КонецЕсли; КоличествоКолонок = КоличествоКолонок + 1; КонецЦикла; Возврат табДок; КонецФункции