29 авг. 2018 г.

Открыть форму выбора с отбором 1С

&НаКлиенте Процедура СтрокиТаблицыНаФормеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ЗначениеОтбора = Новый Структура("ТипНоменклатуры", ПредопределенноеЗначение("Перечисление.ТипыНоменклатуры.Материалы")); ПараметрыВыбора = Новый Структура("Отбор", ЗначениеОтбора); ОткрытьФорму("Справочник.Номенклатура.Форма.ФормаВыбора", ПараметрыВыбора, Элемент); КонецПроцедуры

Установить курсор на строке таблицы значений 1С

Что бы установить курсор на последней строке таблицы значений, пишем

Элементы.ТаблицаЗначений.ТекущаяСтрока = ЭтаФорма.ТаблицаЗначений.Получить(ТаблицаЗначений.Количество()-1).ПолучитьИдентификатор();

Элементы.ТаблицаЗначений.ТекущаяСтрока = Объект.ТаблицаЗначений.Получить(Объект.ТаблицаЗначений.Количество()-1).ПолучитьИдентификатор(); //установить актиувную строку

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

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

&НаКлиенте Процедура Сформировать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);//ссылка
 

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