Архивы 1C - Страница 8 из 46

1С: POST запросы

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

POST запрос к какому то ресурсу в 1С можно организовать например примерно так:

&НаСервере
Функция СтруктураВСтрокуJSON(Данные)экспорт
	
		ЗаписьJSON = Новый ЗаписьJSON();
		ЗаписьJSON.УстановитьСтроку();
		ЗаписатьJSON(ЗаписьJSON, Данные);
		ответ=ЗаписьJSON.Закрыть();
		// заменим -999999999 на null раз уж 1С это не умеет
		ответ=стрЗаменить(ответ,"-999999999","null");
		возврат ответ;
	
КонецФункции
&НаСервере
Функция API_SendSMS(УРЛ,Логин,Пароль,Отправитель,Телефон,ТекстСмс,ВремяЖизни=360)экспорт
	Соединение=ПолучитьПараметрыСоединения(УРЛ,Логин,Пароль);
	answer=API_getSessionID(Соединение,Логин,Пароль);
	если answer.error=true тогда возврат answer;конецесли;	
	
	ПОСТ_Структура=Новый Структура("sessionId,sourceAddress,data,destinationAddress,validity");
	ПОСТ_Структура.sessionId=answer.result; 		 //идсессии,
	ПОСТ_Структура.sourceAddress=Отправитель;  		 //имяотправителя
	ПОСТ_Структура.destinationAddress=Телефон;		 //получатель(номер)
	ПОСТ_Структура.data=ТекстСмс;	 				 //текст сообщения
	ПОСТ_Структура.validity=ВремяЖизни; 			 //время жизни в минутах

	Заголовки = Новый Соответствие;
	Заголовки["Content-Type"] = "application/json";	
	Заголовки.Вставить("Connection", "keep-alive");	
	Заголовки.Вставить("User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko)");

	HTTPЗапрос = Новый HTTPЗапрос("/rest/Sms/Send",Заголовки);
	HTTPЗапрос.УстановитьТелоИзСтроки(СтруктураВСтрокуJSON(ПОСТ_Структура), КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	
	Результат = Соединение.ВызватьHTTPМетод("POST",HTTPЗапрос);
	РезЗапроса=JSONВСтруктуру(Результат.ПолучитьТелоКакСтроку());
	если ТипЗнч(РезЗапроса)=Тип("Строка") тогда
		answer.error=true;
		answer.result=РезЗапроса;
		возврат answer;
	конецесли;	
	если ТипЗнч(РезЗапроса)=Тип("Структура") тогда
		answer.error=true;
		answer.result=РезЗапроса.Desc;
		возврат answer;		
	конецесли;	
	answer.error=false;
	answer.result=РезЗапроса[0];
	возврат answer;
	
КонецФункции

&НаСервере

Функция СтруктураВСтрокуJSON(Данные)экспорт

ЗаписьJSON = Новый ЗаписьJSON();

ЗаписьJSON.УстановитьСтроку();

ЗаписатьJSON(ЗаписьJSON, Данные);

ответ=ЗаписьJSON.Закрыть();

// заменим -999999999 на null раз уж 1С это не умеет

ответ=стрЗаменить(ответ,"-999999999","null");

возврат ответ;

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

&НаСервере

Функция API_SendSMS(УРЛ,Логин,Пароль,Отправитель,Телефон,ТекстСмс,ВремяЖизни=360)экспорт

Соединение=ПолучитьПараметрыСоединения(УРЛ,Логин,Пароль);

answer=API_getSessionID(Соединение,Логин,Пароль);

если answer.error=true тогда возврат answer;конецесли;

ПОСТ_Структура=Новый Структура("sessionId,sourceAddress,data,destinationAddress,validity");

ПОСТ_Структура.sessionId=answer.result; //идсессии,

ПОСТ_Структура.sourceAddress=Отправитель; //имяотправителя

ПОСТ_Структура.destinationAddress=Телефон; //получатель(номер)

ПОСТ_Структура.data=ТекстСмс; //текст сообщения

ПОСТ_Структура.validity=ВремяЖизни; //время жизни в минутах

Заголовки = Новый Соответствие;

Заголовки["Content-Type"] = "application/json";

Заголовки.Вставить("Connection", "keep-alive");

Заголовки.Вставить("User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko)");

HTTPЗапрос = Новый HTTPЗапрос("/rest/Sms/Send",Заголовки);

HTTPЗапрос.УстановитьТелоИзСтроки(СтруктураВСтрокуJSON(ПОСТ_Структура), КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);

Результат = Соединение.ВызватьHTTPМетод("POST",HTTPЗапрос);

РезЗапроса=JSONВСтруктуру(Результат.ПолучитьТелоКакСтроку());

если ТипЗнч(РезЗапроса)=Тип("Строка") тогда

answer.error=true;

answer.result=РезЗапроса;

возврат answer;

конецесли;

если ТипЗнч(РезЗапроса)=Тип("Структура") тогда

answer.error=true;

answer.result=РезЗапроса.Desc;

возврат answer;

конецесли;

answer.error=false;

answer.result=РезЗапроса[0];

возврат answer;

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

Оставить комментарий 1с, HTTPЗапрос, post

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

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

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

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

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

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

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, получение страницы, разделение документа

« 1 … 6 7 8 9 10 … 46 »

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