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

1С: получаем список НКО с сервера minjust.gov.ru

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

Почему то у нас как всегда всё.. Государство требует проверять контрагента является ли он НКО, а инструментарий для этого не предлагает. Не, ну какой-никакой сервис у них был — можно было зайти на сайт, ввести в поле поиска название НКО и и получить результат — есть в списке это организация или нет. Но это согласитесь бред. «Автоматизировать процесс проверки?? А зачем? Куча бухгалтеров — бездельников, чего делать будет? ;)». Всего файла целиком скачать возможности не было. Поэтому приходилось парсить у них сайт, собирая по кусочками Excel файлы в одну кучу (была у них кнопка «экспорт текущей страницы»). Теперь сайт изменили..но лучше не стало. Возможности скачать весь файл целиком как не было так и не стало. Чуть поковыряв их страницу нашел как получить «сессионный ключ» и способ как передавать правильные POST параметры, чтобы получить кусочки JSON, кои потом можно склеить в единую базу. Результат вылился в обработку для 1С, которую можно скачать тут

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

1С: Получение ссылки на перечисление по её синониму

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

Нехитрая задача, и решение простое, «в лоб»:

&НаСервере
Функция НайтиПеречислениеПоИмени(перечисление,перечисление_строка)	
	для каждого стр из перечисление цикл
		если строка(стр)=перечисление_строка тогда 
			возврат стр;
		конецесли;	
	конеццикла;	
	возврат перечисление.ПустаяСсылка();
КонецФункции

&НаСервере

Функция НайтиПеречислениеПоИмени(перечисление,перечисление_строка)

для каждого стр из перечисление цикл

если строка(стр)=перечисление_строка тогда

возврат стр;

конецесли;

конеццикла;

возврат перечисление.ПустаяСсылка();

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

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

1с: Число прописью без нулей

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

Задача: вывести число прописью, число должно быть целым

Решение:

ЧислоПрописью(ПроцентВознаграждения,"НП=Ложь",",,,,,,,,0")

1	ЧислоПрописью(ПроцентВознаграждения,"НП=Ложь",",,,,,,,,0")

Ну и бонусом, перечислю наиболее распространенные варианты использования.

Вывод рублей и копеек:

ЧислоПрописью(итвсегосндс,"Л=ru_RU; ДП=Ложь","рубль, рубля, рублей, м, копейка, копейки, копеек, ж" );

1	ЧислоПрописью(итвсегосндс,"Л=ru_RU; ДП=Ложь","рубль, рубля, рублей, м, копейка, копейки, копеек, ж" );

Вывод процентов:

ЧислоПрописью(ПроцентВознаграждения,"НП=Истина","процент,процента,процентов,,,,,,0")

1	ЧислоПрописью(ПроцентВознаграждения,"НП=Истина","процент,процента,процентов,,,,,,0")

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

1С Бухгалтерия 3.0.121.31: отправка письма

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

В данной версии БСП используемой в БУх, отправка письма производится так:

	тело="Прювет";
	ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", объект.email, "Абырвалг", тело,"HTML");
	РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(),ПараметрыПисьма);

тело="Прювет";

ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", объект.email, "Абырвалг", тело,"HTML");

РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(),ПараметрыПисьма);

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

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 … 5 6 7 8 9 … 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