Автор: Павел Грибов

1С: использование HTML поля на форме

1C

Сиё может понадобиться, если необходимо ну…например вывести какую-то динамическую информацию на форму, причём со стилями не стандартными для 1С, т.е. штатными средствами 1С не выполнимыми или трудновыполнимыми.

В моём случае, я в это поле просто вывожу динамический список напоминаний. При клике на который открывается соответствующий документ.

Итак, создаём на форме реквизит «Прочие напоминания» с типом строка. Длина -0, т.е. не ограниченная. Затем перетаскиваем реквизит на форму и выбираем вид «Поле HTML документа»:

При открытии формы, заполняем HTML:

&НаСервере
Функция СформироватьСписокНапоминанийНаСервере(Исполнитель)
список_напоминаний=СК_ОбщиеФункции.СформироватьУведомленияОНапоминаемыхДатах(ложь,Исполнитель);
	body="<ul>";
	для каждого стр из список_напоминаний цикл
		body=body+"<li><a href='"+стр.ссылка.номер+"'>"+стр.Пояснение+"</a></li>";
	конеццикла;	
	body=body+"</ul>";
	возврат body;
КонецФункции

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ПрочиеНапоминания="<html><head></head><body>"+СформироватьСписокНапоминанийНаСервере(Исполнитель)+"</body></html>";	
КонецПроцедуры

Далее отлавливаем клик по полю HTML, и открываем документ:

&НаКлиенте
Процедура ПрочиеНапоминанияПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
	если ДанныеСобытия.Свойство("href") тогда
		РазделёныйМассивСсылки=СтрРазделить(ДанныеСобытия.href,"/");		
		НомерДокумента=РазделёныйМассивСсылки[РазделёныйМассивСсылки.Количество()-1];
		ОткрытьЗначение(ПолучитьСсылкуНаДокумент(НомерДокумента));
	конецесли;
	СтандартнаяОбработка=ложь;
КонецПроцедуры
Оставить комментарий ,

1С: Кнопка печати на управляемой форме

1C

Для того чтобы на форме автоматически появилась кнопка печати, достаточно:

1.Создать команду, с именем надписи которая будет в выпадающей кнопке печати

    2. В модуле команды разместить код вывода печатной формы. Примерно что-то в этом духе:

    Функция КомпонентаФормированияQRКода()
	
	QRCodeGenerator = Неопределено;
	
	Попытка
		Если ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиQRКода24", "QR") Тогда
			QRCodeGenerator = Новый("AddIn.QR.QRCodeExtension");
		Иначе
			Возврат Неопределено;
		КонецЕсли;
	Исключение
		сообщить(ОписаниеОшибки());
		Возврат Неопределено;
	КонецПопытки;
	
	Возврат QRCodeGenerator;
	
КонецФункции


&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

	СК_ЖурналДействийПользователей.ЗарегистрироватьДействие(
		"ВызовКоманды",
		ПараметрыВыполненияКоманды.НавигационнаяСсылка,
		ПараметрКоманды
	);
	

	ТабДок = ПолучитьТабДок(ПараметрКоманды);
	ТабДок.Показать();
	
КонецПроцедуры

&НаСервере
Функция ПолучитьТабДок(ДокСсылка)
	
	ТабДок = Новый ТабличныйДокумент;
	ТабДок.АвтоМасштаб			= Истина;
	ТабДок.ОриентацияСтраницы	= ОриентацияСтраницы.Ландшафт;
	ТабДок.КлючПараметровПечати	= "ПАРАМЕТРЫ_ПЕЧАТИ_СК_ГР_РеестрУведомленныхПотребителей";
	
	QRCodeGenerator = КомпонентаФормированияQRКода();
	
	Макет = Документы.СК_ГР_РеестрУведомленныхПотребителей.ПолучитьМакет("Квитанция");
	КоличествоКвитанций=0;
	для каждого стр из  ДокСсылка цикл
		КоличествоКвитанций =КоличествоКвитанций + 1; 
		ОбластьШапка  = Макет.ПолучитьОбласть("Шапка");	
		
		ОбластьШапка.Параметры.Адрес 			= стр.АдресПотребителя;
		если ТипЗнч(стр.лс)=Тип("Строка") тогда
			лицсч=стр.лс;			
		иначе	
			лицсч=стр.лс.код;
		конецесли;	
		ОбластьШапка.Параметры.ЛС= "9" + Строка(лицсч);
		ОбластьШапка.Параметры.ФИО 	= стр.ФИО_потребителя;
		ОбластьШапка.Параметры.СуммаРуб 	=Цел(стр.ПолнаяОплатаЗадолженостиСумма);
		ОбластьШапка.Параметры.СуммаКоп 	= Прав(Формат(стр.ПолнаяОплатаЗадолженостиСумма,"ЧДЦ=2"),2);
	
		ИмяQRКода = "ШтрихКод";
		
		Попытка
			УровеньКоррекции = 0;
			Размер = 120;
			ДанныеВШК = "ST00012|Name=ООО Сукацукая|PersonalAcc=234к234к34к|BankName=ПАО СБЕРБАНК|BIC=044525225|CorrespAcc=епукепк|Category=екпукеп|PayeeINN=4543е345е|Purpose=ОТКЛЮЧЕНИЕ/ПОДКЛЮЧЕНИЕ|PersAcc="+"9" + Строка(лицсч)+"|PayerAddress="+стр.АдресПотребителя+"|Sum="+формат(Цел(стр.ПолнаяОплатаЗадолженостиСумма*100),"ЧГ=")+"";
			ДанныеQRКода = QRCodeGenerator.GenerateQRCode(ДанныеВШК, УровеньКоррекции, Размер);
		Исключение  
		сообщить(описаниеОшибки());	
		КонецПопытки;
		
		Если ДанныеQRКода <> Неопределено Тогда 
			ОбластьШапка.Рисунки[ИмяQRКода].Картинка = Новый Картинка(ДанныеQRКода);
		КонецЕсли;
		Если КоличествоКвитанций = 2 Тогда
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
			КоличествоКвитанций = 0;
		КонецЕСли;
	
	
	ТабДок.Вывести(ОбластьШапка);
	конеццикла;
	
	ТабДок.ТолькоПросмотр = истина;
	ТабДок.АвтоМасштаб = истина;
	
	
	Возврат ТабДок;
	
КонецФункции

    3. В модуле менеджера документа разместить функцию:

    Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
	ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;		
КонецПроцедуры

    И всё. Теперь на форме документа и форме списка появится кнопка «Печать» с выпадающим списком.

    Оставить комментарий , , ,

    Чтиво за последнее время

    Чтиво

    Перешел с FBReader на AlreaderPro, по причине того, что разработчики напрочь сломали работу с OPDS. Пока еще привыкаю, тоже есть нюансы но в целом хорошо.

    Взрослое:

    Алекс и Алекс 1…5 Афанасьев Семен. Сюжет: Будущее. В мозг одного подростка в результате не понятных событий попадает разум из параллельной вселенной. Ну и он там начинает прокачиваться за счёт этого. Еще первые две части читабельно, далее всё хуже и хуже. Читабельность 3/5

    Смотритель Университета. Малютин Антон. Сюжет: настоящее. Рядом с нами параллельно существую люди обладающие знаниями об иных мирах. Мало того, Иномиряне всех видов и форм вполне себе живут вместе с нами. Дочитать не смог: 3 из 5

    Детское:

    Домовладелец среди зомби. Денис Симонов. Сюжет: Обстановка на земле всё хуже и хуже, и скоро грядет ядерная война. Для тогого чтобы попытаться её предотвратить, люди из паралельной вселенной присылают систему и зомби. Главный герой: аутист, которому претит общение с другими людьми. Но хочешь выжить — начнешь сотрудничать с кем захочешь. В общем выживание. Оценка 4 из 5.

    Оставить комментарий

    SolidWorks 2023: Задание единиц измерения по умолчанию

    Windows

    Для меня лично большим неудобством является то, что при создании новой детали, необходимо каждый раз выставлять руками единицы измерения ММГС (миллиметры). Недолго, но с десяток секунд каждый раз теряется.

    Для того чтобы единицы измерения всегда были такими по умолчанию, достаточно открыть шаблон детали из например C:\ProgramData\SolidWorks\SolidWorks 2012\templates\ , установить там единицы измерения и сохранить затем шаблон.

    И собственно всё. В следующий раз при создании детали, единицы измерения будут ММГТ

    Оставить комментарий , , ,

    Подпись при помощи ЭЦП файла из консоли Linux

    Linux

    Посмотреть сертификаты:

    /opt/cprocsp/bin/amd64/certmgr -list

    Подписать файл:

    /opt/cprocsp/bin/amd64/cryptcp -signf t.log -dn "L=ВОЛОГДА ГОРОД"

    Ключ -signf означает, что будет создан файл с подписью t.log.sig

    в параметре -dn нужно перечислить критерии поиска первого подходящего сертификата в хранилище. Критерии смотрим в строке «Субьект» в списке сертификатов

    Оставить комментарий , , , ,
    1 … 11 12 13 14 15 … 308