29 авг. 2018 г.

Объединить ячейки на листе 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



ждем

11 июн. 2018 г.

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

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

СКД из ТаблицыЗначений \ ВнешниеИсточники

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; // Подготавливаем таблицу значений ДоходДоллар = ДоходДолларПолучить(); РасходГривна = РасходГривнаПолучить(); РасходДоллар = РасходДолларПолучить(); РасходыПроизводство = РасходыПроизводствоПолучить(); ТаблицаРезультат = Новый ТаблицаЗначений; ТаблицаРезультат.Колонки.Добавить("ДоходДоллар"); ТаблицаРезультат.Колонки.Добавить("РасходГривна"); ТаблицаРезультат.Колонки.Добавить("РасходДоллар"); ТаблицаРезультат.Колонки.Добавить("РасходыПроизводство"); новстр = ТаблицаРезультат.Добавить(); новстр.ДоходДоллар = 10; новстр.РасходГривна = 13; новстр.РасходДоллар = 111; новстр.РасходыПроизводство = 8; новстр.ДоходДоллар = ДоходДоллар; новстр.РасходГривна = РасходГривна; новстр.РасходДоллар = РасходДоллар; новстр.РасходыПроизводство = РасходыПроизводство; //Получаем схему из макета СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); //Из схемы возьмем настройки по умолчанию Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию; //Помещаем в переменную данные о расшифровке данных ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных; //Формируем макет, с помощью компоновщика макета КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; //Передаем в макет компоновки схему, настройки и данные расшифровки МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки); //Выполним компоновку с помощью процессора компоновки ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, Новый Структура("ТаблицаРезультат", ТаблицаРезультат), ДанныеРасшифровки); //Очищаем поле табличного документа ДокументРезультат.Очистить(); //Выводим результат в табличный документ ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; ПроцессорВывода.УстановитьДокумент(ДокументРезультат); ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); КонецПроцедуры



 

CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07