Архивы 1C - Страница 4 из 41

1C: прикрепление файла к документу в разных версиях БСП

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

БСП < 2.0:

АдресФайлаВХранилище = ПоместитьВоВременноеХранилище(Base64Значение(body.file_base64));
		РаботаСФайламиВызовСервера.СоздатьФайлСВерсией(
			док.Ссылка,
			"результат",
			"pdf",
			ТекущаяДата(),
			ТекущаяДата(),
			,
			АдресФайлаВХранилище,АдресФайлаВХранилище,
			Ложь,
			,
			,
			Истина);

АдресФайлаВХранилище = ПоместитьВоВременноеХранилище(Base64Значение(body.file_base64));

РаботаСФайламиВызовСервера.СоздатьФайлСВерсией(

док.Ссылка,

"результат",

"pdf",

ТекущаяДата(),

АдресФайлаВХранилище,АдресФайлаВХранилище,

Ложь,

Истина);

БСП 2..3:

 // Добавляем его в присоединенные файлы к договору.
    ДвоичныеДанныеФайла = Новый ДвоичныеДанные(ИмяФайла);
    АдресВХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла);
    НаименованиеФайла = НачалоНаименованияФайла + " " + ДоговорСсылка.Номер + " от " + Формат(ДоговорСсылка.Дата, "ДЛФ=D");
    //ПрисоединенныйФайлСсылка = ПрисоединенныеФайлы.ДобавитьФайл(ДоговорСсылка, НаименованиеФайла, РасширениеБезТочки, , , АдресВХранилище,,,, НаименованиеФайла + " (Сф-но автомат-ки)");

    ИмяФайлаПриведенное = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(НаименованиеФайла, "_"); // ЕМ 2015_10_20
    ПрисоединенныйФайлСсылка = ПрисоединенныеФайлы.ДобавитьФайл(ДоговорСсылка, ИмяФайлаПриведенное, РасширениеБезТочки, , , АдресВХранилище,,,, НаименованиеФайла + " (Сф-но автомат-ки)");

// Добавляем его в присоединенные файлы к договору.

ДвоичныеДанныеФайла = Новый ДвоичныеДанные(ИмяФайла);

АдресВХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла);

НаименованиеФайла = НачалоНаименованияФайла + " " + ДоговорСсылка.Номер + " от " + Формат(ДоговорСсылка.Дата, "ДЛФ=D");

//ПрисоединенныйФайлСсылка = ПрисоединенныеФайлы.ДобавитьФайл(ДоговорСсылка, НаименованиеФайла, РасширениеБезТочки, , , АдресВХранилище,,,, НаименованиеФайла + " (Сф-но автомат-ки)");

ИмяФайлаПриведенное = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(НаименованиеФайла, "_"); // ЕМ 2015_10_20

ПрисоединенныйФайлСсылка = ПрисоединенныеФайлы.ДобавитьФайл(ДоговорСсылка, ИмяФайлаПриведенное, РасширениеБезТочки, , , АдресВХранилище,,,, НаименованиеФайла + " (Сф-но автомат-ки)");

Современные версии

ИмяФайлаНаДиске = "C:\Users\v.burmistrov\Downloads\ффд12.pdf";	
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайлаНаДиске);
ВременноеХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
// Подготоваливаем описание файла заполнив все необходимые параметры
ПараметрыФайла = РаботаСФайлами.ПараметрыДобавленияФайла();
ПараметрыФайла.Автор = Пользователи.ТекущийПользователь();
ПараметрыФайла.ВладелецФайлов = ДокументСсылка;
ПараметрыФайла.ИмяБезРасширения = СтрЗаменить(ИмяФайлаНаДиске,".pdf","");
ПараметрыФайла.РасширениеБезТочки = "pdf";
// Используем функцию БСП и добавляем файл к объекту
РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, ВременноеХранилище);

ИмяФайлаНаДиске = "C:\Users\v.burmistrov\Downloads\ффд12.pdf";

ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайлаНаДиске);

ВременноеХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);

// Подготоваливаем описание файла заполнив все необходимые параметры

ПараметрыФайла = РаботаСФайлами.ПараметрыДобавленияФайла();

ПараметрыФайла.Автор = Пользователи.ТекущийПользователь();

ПараметрыФайла.ВладелецФайлов = ДокументСсылка;

ПараметрыФайла.ИмяБезРасширения = СтрЗаменить(ИмяФайлаНаДиске,".pdf","");

ПараметрыФайла.РасширениеБезТочки = "pdf";

// Используем функцию БСП и добавляем файл к объекту

РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, ВременноеХранилище);

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

1C: Выгрузка и загрузка данных

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

Иногда бывает необходимо выгрузить данные из одной конфигурации и загрузить её в другую. Если конфигурации идентичны, или очень похожи, то можно воспользоваться обработкой «Выгрузка и загрузка данных XML».

В моём случае из-за небольшого фекапа с обновлением, потерялась часть данных в справочнике «файлы», а потому необходимо было выгрузить из конфигурации восстановленной из бекапа выгрузить данные в обновленную конфигурацию. Причём часть реквизитов в ней была изменена. Для реализации задуманного воспользуемся вкладкой «Дополнительные объекты для выгрузки», выбрав там данные «файл» и заполнив таблицу запросом:

ВЫБРАТЬ
	Файлы.Ссылка КАК Ссылка
ИЗ
	Справочник.Файлы КАК Файлы
ГДЕ
	Файлы.ВладелецФайла ССЫЛКА Документ.СК_ГР_ЗапросыГосуслуги

ВЫБРАТЬ

Файлы.Ссылка КАК Ссылка

ИЗ

Справочник.Файлы КАК Файлы

ГДЕ

Файлы.ВладелецФайла ССЫЛКА Документ.СК_ГР_ЗапросыГосуслуги

Далее в полученном файле XML необходимо добиться полной идентичности данных. В моём случае это достигается добавленим реквизита

<v8:ПодписанЭЦП>false</v8:ПодписанЭЦП>

1	<v8:ПодписанЭЦП>false</v8:ПодписанЭЦП>

После чего открываем обработку в целевой конфигурации и загружаем данные.

Оставить комментарий 1c, выгрузка и загрузка xml

1c: извлечение страницы из pdf документа

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

В настоящий момент в 1С нет встроенного средства для редактирования pdf документов, поэтому единственный выход — использовать внешние программы. Например — pdftk или ExtractPagePDF

Ниже пример реализации для ExtractPagePDF:

функция ИзвлечьСтраницуPDF(имяфайла,страница)
	answer=новый Структура("error,result",false,"");
		// вариант с ExtractPDF
		ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();
		ИмяВременногоФайлаИзвлечения 	= ПолучитьИмяВременногоФайла("pdf");
		КаталогИзвлечения 				= ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());			
		КодВозвратаКомпоненты = 1;
		ЗапуститьПриложение(ПутьКПрограммеИзвлечения + " 1 """ + имяфайла + """ """ + ИмяВременногоФайлаИзвлечения+""" "+Формат(страница,"ЧГ=0"), , Истина, КодВозвратаКомпоненты);			
		Если КодВозвратаКомпоненты <> 0 Тогда 				
				answer.error=true;      
				answer.result="Не удалось извлечь файлы счетов! для л/с ";
				возврат answer;
		КонецЕсли;
        answer.result=ИмяВременногоФайлаИзвлечения;	
		
		// вариант с pdftk			
		//ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();
		//ИмяВременногоФайлаИзвлечения 	= ПолучитьИмяВременногоФайла("pdf");
		//КаталогИзвлечения 				= ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());			
		//КодВозвратаКомпоненты = 1;      
		//страница=Формат(страница,"ЧГ=0");
		//ЗапуститьПриложение(ПутьКПрограммеИзвлечения +" """+ имяфайла + """ cat "+страница+" """ + ИмяВременногоФайлаИзвлечения+"""", , Истина, КодВозвратаКомпоненты);			
		//Если КодВозвратаКомпоненты <> 0 Тогда 				
		//		answer.error=true;      
		//		answer.result="Не удалось извлечь файлы счетов! для л/с ";
		//		возврат answer;
		//КонецЕсли;
		//answer.result=ИмяВременногоФайлаИзвлечения;	
		
		
		
	возврат answer;
конецфункции

функция ИзвлечьСтраницуPDF(имяфайла,страница)

answer=новый Структура("error,result",false,"");

// вариант с ExtractPDF

ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();

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

КаталогИзвлечения = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());

КодВозвратаКомпоненты = 1;

ЗапуститьПриложение(ПутьКПрограммеИзвлечения + " 1 """ + имяфайла + """ """ + ИмяВременногоФайлаИзвлечения+""" "+Формат(страница,"ЧГ=0"), , Истина, КодВозвратаКомпоненты);

Если КодВозвратаКомпоненты <> 0 Тогда

answer.error=true;

answer.result="Не удалось извлечь файлы счетов! для л/с ";

возврат answer;

КонецЕсли;

answer.result=ИмяВременногоФайлаИзвлечения;

// вариант с pdftk

//ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();

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

//КаталогИзвлечения = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());

//КодВозвратаКомпоненты = 1;

//страница=Формат(страница,"ЧГ=0");

//ЗапуститьПриложение(ПутьКПрограммеИзвлечения +" """+ имяфайла + """ cat "+страница+" """ + ИмяВременногоФайлаИзвлечения+"""", , Истина, КодВозвратаКомпоненты);

//Если КодВозвратаКомпоненты <> 0 Тогда

// answer.error=true;

// answer.result="Не удалось извлечь файлы счетов! для л/с ";

// возврат answer;

//КонецЕсли;

//answer.result=ИмяВременногоФайлаИзвлечения;

возврат answer;

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

Оставить комментарий 1c, pdf, получение страницы, разделение документа

Получение email пользователя ИБ

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

Задача: получение email пользователя ИБ по известному пользователю конфигурации

При разработке на платформе 1С, в рано или поздно сталкиваешся с данностью, что нужно работать с двумя разными сущностями: пользователь информационной базы (задаётся в конфигураторе), и пользователь справочника «Пользователь» в используемой конфигурации. При использовании стандартной БСП, они обычно связаны между собой при помощи реквизита «ИдентификаторПользователяИБ».

Email пользователя может храниться в двух местах:

В контактной информации пользователя в справочнике Пользователи
Как реквизит Пользователя информационной базы.

И самое удивительное, что они не синхронизируются между собой, т.е. могут быть в принципе и разными.

В моём случае, нужно получение email пользователя ИБ. Решается это так:

			ПользовательИБ=ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ВыборкаДетальныеЗаписи.ОтветственныйСотрудник.ИдентификаторПользователяИБ);
			email=ПользовательИБ.АдресЭлектроннойПочты;

ПользовательИБ=ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ВыборкаДетальныеЗаписи.ОтветственныйСотрудник.ИдентификаторПользователяИБ);

email=ПользовательИБ.АдресЭлектроннойПочты;

Оставить комментарий email, пользовательИБ

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 2 3 4 5 6 … 41 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		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	31