Архивы 1с - Страница 3 из 29

1С: Автоматическое сохранение данных на форме

10.08.2023 Павел Грибов 1C

Часто бывает ситуация, что необходимо во внешней обработке какие-то реквизиты позволять пользователю сохранять. Классический вариант — сохранять данные в пользовательских настройках, или придумывать иное место хранения. Но для этого нужны телодвижения со стороны программиста. С недавних пор (ну как с недавних, лет 5 уже 😉 ) , есть уже штатный способ, встроенный в платформу:

Автоматическое сохранение данных»В свойствах формы выбираем «Автоматическое сохранение данных» = использовать:

И далее проставляем в графе «Сохранение» галочки у тех реквизитов, которые необходимо сохранять:

Оставить комментарий 1с, сохранение данных формы

1C: Генератор паролей

19.05.2023 Павел Грибов 1C

Функция ГенерацияСлучайногоПароля(длн)
    ГСЧ = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах());    
    СлучайнаяСтрока = "";
    Для Сч = 1 по длн Цикл        
        Набор = ГСЧ.СлучайноеЧисло(1,7);    
        Если Набор = 1 Тогда
            // это число
            СлучайныйСимвол = ГСЧ.СлучайноеЧисло(0,9);    
        ИначеЕсли Набор = 2 Тогда
            // это Большая буква латиницы
            СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(65,90));
        ИначеЕсли Набор >= 3 Тогда
            // это маленькая буква латиницы
            СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(97,122));
		КонецЕсли;			
        Если Набор >= 7 Тогда
            // это спецсимвол
			спецсимволы="!@#$&*()_-+[]^";
			поз=ГСЧ.СлучайноеЧисло(0,стрдлина(спецсимволы));
            СлучайныйСимвол =Сред(спецсимволы,поз,1);						
        КонецЕсли;
		
        СлучайнаяСтрока = СлучайнаяСтрока + СлучайныйСимвол;
    КонецЦикла;      
    Возврат(СлучайнаяСтрока);    
КонецФункции

Функция ГенерацияСлучайногоПароля(длн)

ГСЧ = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах());

СлучайнаяСтрока = "";

Для Сч = 1 по длн Цикл

Набор = ГСЧ.СлучайноеЧисло(1,7);

Если Набор = 1 Тогда

// это число

СлучайныйСимвол = ГСЧ.СлучайноеЧисло(0,9);

ИначеЕсли Набор = 2 Тогда

// это Большая буква латиницы

СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(65,90));

ИначеЕсли Набор >= 3 Тогда

// это маленькая буква латиницы

СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(97,122));

КонецЕсли;

Если Набор >= 7 Тогда

// это спецсимвол

спецсимволы="!@#$&*()_-+[]^";

поз=ГСЧ.СлучайноеЧисло(0,стрдлина(спецсимволы));

СлучайныйСимвол =Сред(спецсимволы,поз,1);

КонецЕсли;

СлучайнаяСтрока = СлучайнаяСтрока + СлучайныйСимвол;

КонецЦикла;

Возврат(СлучайнаяСтрока);

КонецФункции

Оставить комментарий 1с, генератор пароля

1С: Еще раз о создании файла DOCX по шаблону без Word на сервере

03.05.2023 Павел Грибов 1C

Подобная статья уже была где-то на сайте, но вот еще одна, но решил актуализировать.

Итак, задача: при нажатии кнопки «В Word», сформировать на сервере файл по шаблону, сохранить его на клиент и открыть любым зарегистрированным приложением. Работать должно кроссплатформенно Linux/Windows

Создадим docx файл вида:

Решение:

{v8 Область.Тушка}

какойто текст, текст, текст. Бла-бла-бла..

{v8 АрбитражныйСудНаименование}

{/v8 Область.Тушка}

Загрузим его в макет как бинарные данные.

Далее код кнопки:


&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)	
	ПоказатьОповещениеПользователя("Формирую документ", "", "Формируем документ. Это может занять некоторое время", БиблиотекаКартинок.БизнесПроцесс);	
	Для Каждого ДокументСсылка Из ПараметрКоманды Цикл
		БинарныеДанные = СформироватьДокументНаСервере(ДокументСсылка);
		врмф = ПолучитьИмяВременногоФайла(".docx");
		БинарныеДанные.Записать(врмф);
		
		Оповещение = Новый ОписаниеОповещения("ЗапускПриложения", ЭтотОбъект);
		НачатьЗапускПриложения(Оповещение, врмф, , Ложь);
	 	ПоказатьОповещениеПользователя("Документ сформирован", "", "Дождитесь открытия приложения для работы с документом", БиблиотекаКартинок.БизнесПроцесс);
	КонецЦикла;		
КонецПроцедуры

&НаКлиенте
Процедура ЗапускПриложения(КодВозврата, ДополнительныйПараметр) Экспорт

КонецПроцедуры



&НаСервере
Функция СформироватьДокументНаСервере(ДокументСсылка);
	Возврат Документы.СК_КалькуляторИндексации.СгенерироватьДокумент(ДокументСсылка,"ЗаявлениеОбИндексации");
КонецФункции

&НаКлиенте

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

ПоказатьОповещениеПользователя("Формирую документ", "", "Формируем документ. Это может занять некоторое время", БиблиотекаКартинок.БизнесПроцесс);

Для Каждого ДокументСсылка Из ПараметрКоманды Цикл

БинарныеДанные = СформироватьДокументНаСервере(ДокументСсылка);

врмф = ПолучитьИмяВременногоФайла(".docx");

БинарныеДанные.Записать(врмф);

Оповещение = Новый ОписаниеОповещения("ЗапускПриложения", ЭтотОбъект);

НачатьЗапускПриложения(Оповещение, врмф, , Ложь);

ПоказатьОповещениеПользователя("Документ сформирован", "", "Дождитесь открытия приложения для работы с документом", БиблиотекаКартинок.БизнесПроцесс);

КонецЦикла;

КонецПроцедуры

&НаКлиенте

Процедура ЗапускПриложения(КодВозврата, ДополнительныйПараметр) Экспорт

КонецПроцедуры

&НаСервере

Функция СформироватьДокументНаСервере(ДокументСсылка);

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

КонецФункции

Код формирования файла на сервере:

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

Функция ПолучениеОписанияОбластей() Экспорт
	ОписаниеОбластей = Новый Структура;	
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "Тушка", "Общая");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "Подвал", "Общая");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "ВерхнийКолонтитул", "ВерхнийКолонтитул");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийКолонтитул", "НижнийКолонтитул");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийТитульныйКолонтитул", "НижнийТитульныйКолонтитул");		
	Возврат ОписаниеОбластей;		
КонецФункции		


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

Функция СгенерироватьДокумент(ДокументСсылка,ИмяМакета) Экспорт
	
	ДанныеОбъекта = Новый Структура;
	ДанныеОбъекта.Вставить("АрбитражныйСуд", "Самый гуманный суд в мире!");
	
	ДанныеМакетов = ПолучитьДанныеМакета(ИмяМакета);	
	
	ТипМакета = ДанныеМакетов.ТипыМакетов[ИмяМакета];
	ДвоичныеДанныеМакета = ДанныеМакетов.ДвоичныеДанныеМакетов;
	Области = ДанныеМакетов.ОписаниеОбластей;
		
	
	Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета[ИмяМакета],ТипМакета,ИмяМакета);
	
	Если Макет = Неопределено Тогда
		Возврат "";
	КонецЕсли;
	
	ЗакрытьОкноПечатнойформы = Ложь;	
	

	ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета,Макет);
	АдресХранилищаПечатнойФормы = "";
		
	Если ПечатнаяФорма = Неопределено Тогда
		УправлениеПечатью.ОчиститьСсылки(Макет);
		Возврат "";
	КонецЕсли;	
	
	Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Тушка"]);
	УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);
		
	АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);
			
	УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы);
	УправлениеПечатью.ОчиститьСсылки(Макет);
	
	докбин = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресХранилищаПечатнойФормы));
	док = докбин.Получить();
	Возврат док;

		
КонецФункции

Процедура ДобавитьОписаниеОбласти(НаборОбластей, знач ИмяОбласти, знач ТипОбласти) Экспорт

НоваяОбласть = Новый Структура;

НоваяОбласть.Вставить("ИмяОбласти", ИмяОбласти);

НоваяОбласть.Вставить("ТипОбласти", ТипОбласти);

НаборОбластей.Вставить(ИмяОбласти, НоваяОбласть);

КонецПроцедуры

Функция ПолучениеОписанияОбластей() Экспорт

ОписаниеОбластей = Новый Структура;

ДобавитьОписаниеОбласти(ОписаниеОбластей, "Тушка", "Общая");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "Подвал", "Общая");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "ВерхнийКолонтитул", "ВерхнийКолонтитул");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийКолонтитул", "НижнийКолонтитул");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийТитульныйКолонтитул", "НижнийТитульныйКолонтитул");

Возврат ОписаниеОбластей;

КонецФункции

функция ПолучитьДанныеМакета(Знач ИмяМакета)

ОписаниеОбластей = Новый Соответствие;

ДвоичныеДанныеМакетов = Новый Соответствие;

ТипыМакетов = Новый Соответствие;

ДвоичныеДанныеМакетов.Вставить(ИмяМакета, ПолучитьМакет(ИмяМакета));

ОписаниеОбластей.Вставить(ИмяМакета, ПолучениеОписанияОбластей());

Макет = Новый Структура;

Макет.Вставить("ОписаниеОбластей", ОписаниеОбластей);

Макет.Вставить("ДвоичныеДанныеМакетов", ДвоичныеДанныеМакетов);

Макет.Вставить("ТипыМакетов", ТипыМакетов);

Макет.Вставить("ЛокальныйКаталогФайловПечати", Неопределено);

Если НЕ Макет.Свойство("ТипыМакетов") Тогда

Макет.Макеты.Вставить("ТипыМакетов", Новый Соответствие);

КонецЕсли;

Возврат Макет;

Конецфункции

Функция СгенерироватьДокумент(ДокументСсылка,ИмяМакета) Экспорт

ДанныеОбъекта = Новый Структура;

ДанныеОбъекта.Вставить("АрбитражныйСуд", "Самый гуманный суд в мире!");

ДанныеМакетов = ПолучитьДанныеМакета(ИмяМакета);

ТипМакета = ДанныеМакетов.ТипыМакетов[ИмяМакета];

ДвоичныеДанныеМакета = ДанныеМакетов.ДвоичныеДанныеМакетов;

Области = ДанныеМакетов.ОписаниеОбластей;

Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета[ИмяМакета],ТипМакета,ИмяМакета);

Если Макет = Неопределено Тогда

Возврат "";

КонецЕсли;

ЗакрытьОкноПечатнойформы = Ложь;

ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета,Макет);

АдресХранилищаПечатнойФормы = "";

Если ПечатнаяФорма = Неопределено Тогда

УправлениеПечатью.ОчиститьСсылки(Макет);

Возврат "";

КонецЕсли;

Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Тушка"]);

УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);

УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы);

УправлениеПечатью.ОчиститьСсылки(Макет);

докбин = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресХранилищаПечатнойФормы));

док = докбин.Получить();

Возврат док;

КонецФункции

Оставить комментарий 1с, linux, формирование файла по шаблону

Нарушена целостность структуры конфигурации 1С

19.04.2023 Павел Грибов 1C

Уже ранее была статья на эту тему, но в этом случае все советы не помогли. Помогли другие:

Найти не битую cf этой версии конфигурации
Зайти битую конфигурацию, снять её с поддержки
Объединить битую конфигурацию с не битой cf. В время объединения 1С предложит снова поставить её на поддержку
После этой манипуляции, битая становится не битой и позволяет далее нормально штатно обновлятся

Оставить комментарий 1с, нарушена целостность структуры

1C : нахождение самого верхнего родителя иерархического справочника

28.10.2022 Павел Грибов 1C

Функция ПолучитьРодителя(СправочникСсылка)
		
	Пока НЕ СправочникСсылка.Родитель.Пустая() Цикл
		СправочникСсылка = СправочникСсылка.Родитель;	
	КонецЦикла;
	
	Возврат СправочникСсылка;

КонецФункции

Функция ПолучитьРодителя(СправочникСсылка)

Пока НЕ СправочникСсылка.Родитель.Пустая() Цикл

СправочникСсылка = СправочникСсылка.Родитель;

КонецЦикла;

Возврат СправочникСсылка;

КонецФункции

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

« 1 2 3 4 5 … 29 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30