feb » Поиск » HelpF.pro

Результаты по ключевому слову: feb

Как декодировать (преобразовать) Unicode в 1С

При разработке очередного обмена с интернет магазином через API столкнулисть что сайт возвращает ответ в виде:

Код VBS

 {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}

из кода ясно что это JSON и используя код ПрочитатьJSON

Код 1C v 8.3

 Чтение = Новый ЧтениеJSON;

	Чтение.УстановитьСтроку(стрВходящая);

	ДанныеЛога = ПрочитатьJSON(Чтение);

	Чтение.Закрыть();

В переменной ДанныеЛога будет структура в виде

В результате получилась функция с 2-мя вариантами возрата, в зависимости от того как нужно

Код 1C v 8.3

 //Функция читает полученный JSON декадируя текст юникод

Функция ДекодироватьUniCodeВJSON(стрВходящая) 

	// стрВходящая содержит {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}

	

	Чтение = Новый ЧтениеJSON;

	Чтение.УстановитьСтроку(стрВходящая);

	ДанныеЛога = ПрочитатьJSON(Чтение);

	Чтение.Закрыть();

	

	// Вариант 1 используя перебор структуры и вывод в текстовую переменную

	Текст = "";

	Для каждого Элемент Из ДанныеЛога Цикл

		//добавим разделитель после предыдущего значения

		Текст = Текст + ?(НЕ ПустаяСтрока(Текст), Символы.ПС, "");

		//добавим представление ключа и значения:

		Текст = Текст + Элемент.Ключ + " = " + Элемент.Значение;

	КонецЦикла;

	Возврат Текст; //Вернет   ok = true   description = Статус заказа изменен

	

	// Вариант 2 мспользуя ЗаписьJSON

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

	Запись.УстановитьСтроку(Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет));

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

	Возврат Запись.Закрыть();  // Вернет JSON  {"ok":"true","description":"Статус заказа изменен"}

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

На просторах интернета была найдена еще одна функция:

Код 1C v 8.3

 //Параметры: Строка в Юникод (обязательный) Тип: Строка. Исходная строка.

//Возвращаемое значение: Тип: Строка. Строка обработанных символов.

//Описание: Возвращает преобразованную строку из формата Unicod.

//Автор: Александр Кияница (treedo)

Функция ПереобразоватьЮникод(Строка)

   

    ГотововаяСтрока = "" ;

    

    МасУкр = Новый Массив(66) ;

    

    МасУкр[0]="А";   МасУкр[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]="Ю"; МасУкр[32]="Я";  





    МасУкр[33]="а";  МасУкр[34]="б"; МасУкр[35]="в"; МасУкр[36]="г"; МасУкр[37]="ґ"; МасУкр[38]="д";

    МасУкр[39]="е";  МасУкр[40]="є"; МасУкр[41]="ж"; МасУкр[42]="з"; МасУкр[43]="и"; МасУкр[44]="і";

    МасУкр[45]="ї";  МасУкр[46]="й"; МасУкр[47]="к"; МасУкр[48]="л"; МасУкр[49]="м"; МасУкр[50]="н";

    МасУкр[51]="о";  МасУкр[52]="п"; МасУкр[53]="р"; МасУкр[54]="с"; МасУкр[55]="т"; МасУкр[56]="у";

    МасУкр[57]="ф";  МасУкр[58]="х"; МасУкр[59]="ц"; МасУкр[60]="ч"; МасУкр[61]="ш"; МасУкр[62]="щ";

    МасУкр[63]="ь";  МасУкр[31]="ю"; МасУкр[65]="я";  

        

    

    МасКод = Новый Массив(66) ;

    

    МасКод[0]="0410";   МасКод[1]="0411";  МасКод[2]="0412";  МасКод[3]="0413";  МасКод[4]="0490";  МасКод[5]="0414";

    МасКод[6]="0415";   МасКод[7]="0404";  МасКод[8]="0416";  МасКод[9]="0417";  МасКод[10]="0418"; МасКод[11]="0406";

    МасКод[12]="0407";  МасКод[13]="0419"; МасКод[14]="041A"; МасКод[15]="041B"; МасКод[16]="041C"; МасКод[17]="041D";

    МасКод[18]="041E";  МасКод[19]="041F"; МасКод[20]="0420"; МасКод[21]="0421"; МасКод[22]="0422"; МасКод[23]="0423";

    МасКод[24]="0424";  МасКод[25]="0425"; МасКод[26]="0426"; МасКод[27]="0427"; МасКод[28]="0428"; МасКод[29]="0429";

    МасКод[30]="042C";  МасКод[31]="042E"; МасКод[32]="042F";  





    МасКод[33]="0430";  МасКод[34]="0431"; МасКод[35]="0432"; МасКод[36]="0413"; МасКод[37]="0491"; МасКод[38]="0434";

    МасКод[39]="0435";  МасКод[40]="0454"; МасКод[41]="0436"; МасКод[42]="0437"; МасКод[43]="0438"; МасКод[44]="0456";

    МасКод[45]="0457";  МасКод[46]="0439"; МасКод[47]="043A"; МасКод[48]="043B"; МасКод[49]="043C"; МасКод[50]="043D";

    МасКод[51]="043E";  МасКод[52]="043F"; МасКод[53]="0440"; МасКод[54]="0441"; МасКод[55]="0442"; МасКод[56]="0443";

    МасКод[57]="0444";  МасКод[58]="0445"; МасКод[59]="0446"; МасКод[60]="0447"; МасКод[61]="0448"; МасКод[62]="0449";

    МасКод[63]="044C";  МасКод[31]="044E"; МасКод[65]="044F";  

    

    

    тмпСтрока = "" ;

    Для Счетчик = 1 По СтрДлина(Строка) Цикл      

        Если Лев(Строка, 1) = "\" Тогда

            Если Лев(Строка, 2) = "\u" Тогда

                

                тмпСтрока = Прав(Лев(Строка, 6),4) ;

                Если МасКод.Найти(тмпСтрока) = Неопределено Тогда

                    СтрокаЗамены = Прав(тмпСтрока, 1) ;

                    тмпСтрока = СтрЗаменить(тмпСтрока,СтрокаЗамены,ТРег(СтрокаЗамены)); 

                    Если МасКод.Найти(тмпСтрока) = Неопределено Тогда

                        Сообщить("Код символа не найден: " + тмпСтрока) ;

                    Иначе                      

                        ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;                                   

                    КонецЕсли;

                Иначе

                    ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;               

                КонецЕсли;

                

                Строка = Прав(Строка, (СтрДлина(Строка)-6)) ; 

            Иначе  

                Строка = Прав(Строка, (СтрДлина(Строка)-2)) ;

            КонецЕсли;

        Иначе

            ГотововаяСтрока = ГотововаяСтрока + Лев(Строка, 1) ;

            Строка = Прав(Строка, (СтрДлина(Строка)-1)) ;     

        КонецЕсли;         

    КонецЦикла;   





    Возврат ГотововаяСтрока ;

        

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

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Полезные советы по интерфейсу "Такси"

Чтобы шрифт не казался крупным, и формы помещались на экране, можно уменьшить масштаб

Для этого нужно воспользоваться Меню «Вид – Изменить масштаб».

Чтобы быстро найти нужный пункт меню, можно воспользоваться поиском меню

Найти окно поиска меню на любой панели. В верхнем правом углу написать ключевое слово для поиска.

Так же используя поиск можно быстро искать необходимые документы или элементы справочника

Чтобы на форме помещалось больше информации, можно сократить панель разделов

Вызвать настройку панели разделов, для этого нужно воспользоваться Меню «Вид – Настройка панели разделов». Убрать надписи с панели разделов и оставить только картинку в окне «Показывать».

Чтобы на форме были видны нужные колонки и не видны ненужные, можно настроить форму

Открыть форму и воспользоваться кнопкой «Еще». В верхней правой части формы снять флажки с ненужных колонок, а нужные колонки передвинуть вперед.

Чтобы добавить журналы документов покупателей и поставщиков, можно настроить панели «Продажи» и «Покупки»

Нажать меню «Продажи». В правом верхнем углу нажать на серую шестеренку «Настройки». Выбрать меню «Настройка навигации». В списке слева щелкнуть два раза на «Документы покупателей».

Фильтры / отборы в журнале

Нажать на меню «Операции». Открыть «Журнал операций». В левом верхнем углу в поле «Контрагент» указать покупателя.

Все функции и стандартные операции

Откройте Меню-Сервис-Параметры, установите галку Отображать команду Все функции и нажмите ОК

Стандартные

Внизу раздел Стандартные:

Как вернуть стандартную настроку списка документов или справочника

Избранное - быстрый доступ к документам, справочникам

Для добавления в избранное нажмите на значек звездочки в открытом списке

или в меню раздела

Для быстрого доступа к избранному нажмите на звездочку в левом верхнем углу

Категория: 1С Общие вопросы - Управляемые формы и Такс…

Как узнать кто изменил документ в 1С (Журнал регистрации действий пользователей)?

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

Очень часто мне задают вопросы:

Как в 1С 8.2 посмотреть поменявшего документ?
Как в 1с посмотреть изменившего документ?
Как в 1С узнать кто и когда изменял документы?
Как в 1С узнать кто изменил проводку в документе?
Как посмотреть кто изменял документ в 1с?

Журнал регистрации

Содержит информацию о том, какие события происходили в информационной базе в определенный момент времени или какие действия выполнял тот или иной пользователь. Для каждой записи журнала, отражающей изменение данных, отображается статус завершения транзакции (транзакция завершена успешно, или же транзакция отменена).

Журнал регистрации доступен как в режиме 1С:Предприятие, так и в режиме Конфигуратор.

Доступ к журналу регистрации возможен как из режима Конфигуратора (через меню Администрирование - Журнал регистрации), так и из режима Предприятия (меню Сервис - Журнал регистрации). В режиме Такси (Основное меню - Все функции - Стандартные - Журнал регистрации)

Вид журнала регистрации (Обычные формы и Такси):

Отбор в журнале регистрации (Обычные формы и Такси):

Используя средства работы со списками имеется возможность выгрузить журнал регистрации в табличный или, при необходимости, текстовый документ (через Действия - Вывести список) , который в дальнейшем может быть сохранен например в формате Excel , TXT или HTML. При этом существует возможность настройки уровня событий, которые будут фиксироваться в журнале регистрации, а также периодичности разделения журнала на отдельные файлы (в режиме конфигуратора меню Администрирование - Настройка журнала регистрации).

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

Где хранится журнал регистрации

В Файловой базе: в каталоге базы папка 1Cv8Log - это и есть директория содержащая журнал регистрации.

Если вы планируете перенести файловую базу данных и хотите сохранить историю журнала регистрации & вам обязательно надо скопировать папку 1Cv8Log в категорию новой базы 1С. Если необходимо очистить журнал регистрации 1С в файловой базе просто удалите папку 1Cv8Log.

В Клиент-серверной базе: C:\Program Files\1cv8\srvinfo\<Имя кластера сервера>\<Идентификатор базы на сервере>\1Cv8Log

С версии 8.3.5.1068. Значительно переработали журнал регистрации для того, чтобы увеличить скорость выполнения запросов к журналу и повысить надёжность хранения данных.
Для этого, в том числе, потребовалось изменить формат хранения журнала регистрации. Теперь он хранится в одном файле базы данных SQLite. Этот файл имеет расширение lgd.

Версионирование объектов

В некоторых конфигурациях 1С внедрен специальный механизм «Версионирование объектов».

По умолчанию версионирование выключено, чтобы включить откройте Сервис - Настройки учета - Настройка параметров учета

По кнопке «Настройка версионирования объектов» выбираем, какие справочники и документы нужно версионировать (наблюдать за тем, кто, что и когда изменил).

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

Все, при закрытии окна и нажатии на кнопку «Оk» наблюдение за объектами будет вестись.

Для того чтоб просмотреть все изменения которые кто-то делал в документе или справочнике нужно перейти в меню: Сервис - История изменений объектов

Категория: Администрирование

Универсальный парсер RSS для 1С

На одном проекте - клиент попросил отображать в программе данные, которые выдаю специализированные сайта в формате RSS - Что делать !?

Писать парсер rss для 1С

Первым делом, взглянув на ссылки, подумал что - обычный XML, сейчас его разложу и быстренько загружу в базу, но:

Выяснилось что сайты имеют разные форматы ввода RSS и главное они не валидные(

таким образом, написав небольшой код, который получает ссылку, далее XMLФайл.Прочитать() на одном сайте проходил на ура (этот пример я описывал в статье: Чтение данных с сайта в формате XML и загрузка в 1С), а вот второй сайт, и третий тоже, при попытке прочитать() выдавали:

{ОбщийМодуль.РегЗадания.Модуль(79)}: Ошибка при вызове метода контекста (Прочитать)

Пока XMLФайл.Прочитать() Цикл

по причине:

Ошибка разбора XML: - [1,1]

Фатальная ошибка:

Extra content at the end of the document

SystemId url rss

решил попробовать на rss других известных сайтов - 80% из проверяемых выдавали ошибку

Пришлось написать прямой построчный парсер RSS:

Структура конфигурации

ИсточникиRSS - URL на RSS, ДанныеRSS - сюда записываются загруженные данные новостей

Код получился таким(в принципе код универсальный, но возможно что-то придется подпилить):

Код 1C v 8.3

 

// RSS

Процедура ПрочитатьRSS(ИсточникRSS)

	url = ИсточникRSS.UrlRSS;

	

	// Получим Сервер

	Если Найти(url,".ru")>0 Тогда urlСервер = Лев(url,Найти(url,".ru")+2);	

	ИначеЕсли Найти(url,".com")>0 Тогда urlСервер = Лев(url,Найти(url,".com")+3);

	ИначеЕсли Найти(url,".org")>0 Тогда urlСервер = Лев(url,Найти(url,".org")+3);

	ИначеЕсли Найти(url,".info")>0 Тогда urlСервер = Лев(url,Найти(url,".info")+4);

	ИначеЕсли Найти(url,".pro")>0 Тогда urlСервер = Лев(url,Найти(url,".pro")+3);

	КонецЕсли;	 		

		

	//Определим тип соединения

	Если Лев(url,5)="https" Тогда

		//ssl = Новый ЗащищенноеСоединениеOpenSSL(Новый СертификатКлиентаWindows(), Новый СертификатыУдостоверяющихЦентровWindows());   

		ssl = Новый ЗащищенноеСоединениеOpenSSL( неопределено, неопределено );

		ТекАдрес = СтрЗаменить(url,urlСервер,""); Сервер = СтрЗаменить(urlСервер,"https://",""); 

		Соединение = Новый HTTPСоединение(Сервер,,,,,

		5, // таймаут в секундах

		ssl // защищенное HTTPS соединение

		);

	Иначе //Обычный HTTP 		

		ТекАдрес = СтрЗаменить(url,urlСервер,""); Сервер = СтрЗаменить(urlСервер,"http://","");

		Соединение = Новый HTTPСоединение(Сервер);

	КонецЕсли;





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

	Заголовки.Вставить("host", Сервер);  

	Запрос = Новый HTTPЗапрос(ТекАдрес, Заголовки);

	Ответ =Соединение.Получить(Запрос);

	Если Ответ.КодСостояния = 200 Тогда // Данные получены, обрабатываем их

		Содержимое= Ответ.ПолучитьТелоКакСтроку();

		//Преобразуем содержимое

		Содержимое = СтрЗаменить(Содержимое,"<br/>","|"); 

		Содержимое = СтрЗаменить(Содержимое,"<![CDATA[",""); Содержимое = СтрЗаменить(Содержимое,"]]>","");  

		Содержимое = СтрЗаменить(Содержимое,Символы.ПС,""); Содержимое = СтрЗаменить(Содержимое,Символы.ВК,""); 

		Содержимое = СтрЗаменить(Содержимое,Символы.ВТаб,""); Содержимое = СтрЗаменить(Содержимое,Символы.Таб,""); 

		Содержимое = СтрЗаменить(Содержимое,"><",">"+Символы.ПС+"<"); 

		

		RegExp = Новый COMОбъект("VBScript.RegExp"); //Регулярка

		RegExp.IgnoreCase = Ложь; 

		RegExp.Global = Истина;    

		RegExp.MultiLine = Истина;   		

		RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML   

		

		//Разберем полученный текст в таблицу

		ЭтоЗапись=Ложь;

		Для н=1 По СтрЧислоСтрок(Содержимое)Цикл

			обрТекст=СтрПолучитьСтроку(Содержимое,н);

			

			Если обрТекст = "<item>" Тогда //Началась запись 

				ЗаписьСтр = Новый Структура(); ЭтоЗапись=Истина; Продолжить;  

			ИначеЕсли обрТекст = "</item>" Тогда //Закончилась запись 

				

				/////////////// ЗАПИСЬ Закончилась //////////////

				/// теперь запишем ее в базу - Справочник ДанныеRSS

				// сначала ПОИСК ДУБЛЕЙ - вдруг уже загружен 				

				Запрос = Новый Запрос;

				Запрос.Текст = 

				"ВЫБРАТЬ

				|	ДанныеRSS.Ссылка

				|ИЗ

				|	Справочник.ДанныеRSS КАК ДанныеRSS

				|ГДЕ

				|	ДанныеRSS.ИсточникRSS =ИсточникRSS

				|	И ДанныеRSS.link ПОДОБНОlink";

				

				Запрос.УстановитьПараметр("link", "%"+ЗаписьСтр.link+"%");

				Запрос.УстановитьПараметр("ИсточникRSS", ИсточникRSS);				

				РезультатЗапроса = Запрос.Выполнить().Выбрать();

				Если РезультатЗапроса.Следующий() Тогда

					// Такая запись уже есть, пока ничего не делаем

				Иначе

					//СОЗДАЕМ Новый

					НовЭлем  = Справочники.ДанныеRSS.СоздатьЭлемент();

					ЗаполнитьЗначенияСвойств(НовЭлем,ЗаписьСтр);

					НовЭлем.ИсточникRSS = ИсточникRSS;

					НовЭлем.Записать(); 					

				КонецЕсли; 				

				/////////////////////// *** /////////////////////

				

				ЭтоЗапись=Ложь; Продолжить; 

			КонецЕсли; //Данные записи

			

			Если ЭтоЗапись Тогда	

				Если Найти(обрТекст,"title>")>0 и Найти(обрТекст,"/title>")>0 Тогда				

					обрТекст = СтрЗаменить(обрТекст,"title",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("Наименование",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"link>")>0 и Найти(обрТекст,"/link>")>0 Тогда				

					обрТекст = СтрЗаменить(обрТекст,"link",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("link",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"description>")>0 и Найти(обрТекст,"/description>")>0 Тогда			

					обрТекст = СтрЗаменить(обрТекст,"description",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					обрТекст=RegExp.Replace(обрТекст, ""); //Удалим все теги

					ЗаписьСтр.Вставить("desc",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"pubDate>")>0 и Найти(обрТекст,"/pubDate>")>0 Тогда			

					обрТекст = СтрЗаменить(обрТекст,"pubDate",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("pubDate",ПреобразоватьRFC822КДате0(СокрЛП(обрТекст)));

				КонецЕсли;

				

				Если Найти(обрТекст,"enclosure")>0 Тогда					 

					обрТекст = СтрЗаменить(обрТекст,"""",""); обрТекст = СтрЗаменить(обрТекст,"<enclosure url=","");

					обрТекст = СтрЗаменить(обрТекст,"<enclosure url=",""); обрТекст = СтрЗаменить(обрТекст,"type=image/png length=/>","");

					ЗаписьСтр.Вставить("img",СокрЛП(обрТекст));

				КонецЕсли;

			КонецЕсли;	

							

		КонецЦикла;

		

	КонецЕсли;

	

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









Процедура ПроверкаRSS() Экспорт

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ИсточникиRSS.Ссылка КАК Ссылка

	|ИЗ

	|	Справочник.ИсточникиRSS КАК ИсточникиRSS

	|ГДЕ

	|	ИсточникиRSS.Использовать

	|	И ДОБАВИТЬКДАТЕ(ИсточникиRSS.ДатаПоследнегоОбновления, СЕКУНДА, ИсточникиRSS.ПериодОбновленияВСекундах) <ТекДата"; 	

	Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());

	РезультатЗапроса = Запрос.Выполнить();

	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

		ПрочитатьRSS(ВыборкаДетальныеЗаписи.Ссылка);

		// Запишем дату последнего обновления

		ТекОб = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

		ТекОб.ДатаПоследнегоОбновления = ТекущаяДата();

		ТекОб.Записать();

	КонецЦикла;

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



Функция ПреобразоватьRFC822КДате0(ДатаВФорматеRFC822) Экспорт

    КопияСтроки = ДатаВФорматеRFC822;

    СтруктураДаты = Новый Структура("Год,Месяц,День,Час,Минута,Секунда",  "","","","","","");

    Месяцы = Новый Структура("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",  "01","02","03","04","05","06","07","08","09","10","11","12");

    Для каждого КлючИЗначение Из Месяцы Цикл

        Позиция = Найти(КопияСтроки,КлючИЗначение.Ключ);

        Если Позиция > 0  Тогда

             СтруктураДаты.Месяц = КлючИЗначение.Значение;

            Прервать;

        КонецЕсли;

    КонецЦикла; 

	Состояние = 0;

	КопияСтроки = СтрЗаменить(КопияСтроки,", 1 ",", 01 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 2 ",", 02 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 3 ",", 03 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 4 ",", 04 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 5 ",", 05 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 6 ",", 06 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 7 ",", 07 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 8 ",", 08 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 9 ",", 09 ");

	Для ш=0 По СтрДлина(КопияСтроки) Цикл

        ТекущийСимвол = Сред(КопияСтроки,ш,1); //ПолучитьСимвол(КопияСтроки, ш);

        ТекСимволЦифра= ЭтоЦифра(ТекущийСимвол);

        Если ТекСимволЦифра И Состояние = 0  Тогда

            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;

            Состояние = 1; //начало день

        ИначеЕсли ТекСимволЦифра И Состояние = 1  Тогда

            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;

            Состояние = 2; //ждем год

        ИначеЕсли ТекСимволЦифра И Состояние = 2  Тогда

            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;

            Состояние = 3; //продолжаем год

        ИначеЕсли ТекСимволЦифра И Состояние = 3  Тогда

            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = " " И Состояние = 3 Тогда

               Состояние = 4; //дальше час    

        ИначеЕсли ТекСимволЦифра И Состояние = 4  Тогда

            СтруктураДаты.Час = СтруктураДаты.Час + ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = ":" И Состояние = 4  Тогда

            Состояние = 5; //дальше минута

        ИначеЕсли ТекСимволЦифра И Состояние = 5  Тогда

            СтруктураДаты.Минута = СтруктураДаты.Минута +  ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = ":" И Состояние = 5  Тогда

            Состояние = 6; //дальше секунда

        ИначеЕсли ТекСимволЦифра И Состояние = 6  Тогда

            СтруктураДаты.Секунда = СтруктураДаты.Секунда +  ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = " " И Состояние = 6 Тогда

            Прервать;

        КонецЕсли;

    КонецЦикла;

    Попытка

        Результат = Дата(СтруктураДаты.Год+СтруктураДаты.Месяц+СтруктураДаты.День

                        +СтруктураДаты.Час+СтруктураДаты.Минута+СтруктураДаты.Секунда);

    Исключение

        Результат = Неопределено;    

    КонецПопытки;

    Возврат Результат;

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



Функция ЭтоЦифра(Символ) Экспорт

     Если (КодСимвола(Символ)>=48) И (КодСимвола(Символ)<=57) Тогда Возврат Истина; Иначе Возврат ложь; КонецЕсли;

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



Функция ПолучитьСимвол(КопияСтроки, ш)

	Возврат Сред(КопияСтроки,ш,1);

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

Результат загрузки новостей RSS HelpF.pro

Кстати, как позже выяснилось, здесь уже есть статья с примером через IE и DOM: Получения новостей с RSS-канала сайта buh.ru

Категория: Работа с Интернет, Почтой (Mail), FTP

Как преобразовать дату в формат RFC 822 и обратно?

Создавая обмены данными между 1С и сайтами, часто приходится форматировать вывод даты в стандарт RCF-822 или преобразовывать его в понятную для 1С ДатуВремя.

Дата в формате RFC-822 выглядит так: Tue, 12 Aug 2013 14:15:00 +0400

Небольшая справка по стандартам:

Как дату перевести в формат RFC-822?

Код 1C v 8.2 УП

 ДатаВФорматеRFC822 = Формат(ТекущаяДата(),"Л=en_US; ДФ='ddd, dd MMM yyyy hh:mm:ss +0400    '");

Как из формата RFC-822 получить дату и время для 1С?

Код 1C v 8.2 УП

 // Функция преобразовывает дату в формате RFC822 к формату 1С - дата и время
// Параметры
//  ДатаВФорматеRFC822  – Строка вида "Thu, 10 Aug 2006 14:48:27 +0400"
// Возвращаемое значение:
//   <Дата>   –    Результат преобразования или Неопределено, если преобразование не удалось
Функция ПреобразоватьRFC822КДате0(ДатаВФорматеRFC822) Экспорт
    КопияСтроки = ДатаВФорматеRFC822;
    СтруктураДаты = Новый Структура("Год,Месяц,День,Час,Минута,Секунда",  "","","","","","");
    Месяцы = Новый Структура("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",  "01","02","03","04","05","06","07","08","09","10","11","12");
    Для каждого КлючИЗначение Из Месяцы Цикл
        Позиция = Найти(КопияСтроки,КлючИЗначение.Ключ);
        Если Позиция > 0  Тогда
             СтруктураДаты.Месяц = КлючИЗначение.Значение;
            Прервать;
        КонецЕсли;
    КонецЦикла; 
    Состояние = 0;
    Для ш=0 По СтрДлина(КопияСтроки) Цикл
        ТекущийСимвол = ПолучитьСимвол(КопияСтроки, ш);
        ТекСимволЦифра= ЭтоЦифра(ТекущийСимвол);
        Если ТекСимволЦифра И Состояние = 0  Тогда
            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;
            Состояние = 1; //начало день
        ИначеЕсли ТекСимволЦифра И Состояние = 1  Тогда
            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;
            Состояние = 2; //ждем год
        ИначеЕсли ТекСимволЦифра И Состояние = 2  Тогда
            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;
            Состояние = 3; //продолжаем год
        ИначеЕсли ТекСимволЦифра И Состояние = 3  Тогда
            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = " " И Состояние = 3 Тогда
               Состояние = 4; //дальше час    
        ИначеЕсли ТекСимволЦифра И Состояние = 4  Тогда
            СтруктураДаты.Час = СтруктураДаты.Час + ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = ":" И Состояние = 4  Тогда
            Состояние = 5; //дальше минута
        ИначеЕсли ТекСимволЦифра И Состояние = 5  Тогда
            СтруктураДаты.Минута = СтруктураДаты.Минута +  ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = ":" И Состояние = 5  Тогда
            Состояние = 6; //дальше секунда
        ИначеЕсли ТекСимволЦифра И Состояние = 6  Тогда
            СтруктураДаты.Секунда = СтруктураДаты.Секунда +  ТекущийСимвол;
        ИначеЕсли ТекущийСимвол = " " И Состояние = 6 Тогда
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Попытка
        Результат = Дата(СтруктураДаты.Год+СтруктураДаты.Месяц+СтруктураДаты.День
                        +СтруктураДаты.Час+СтруктураДаты.Минута+СтруктураДаты.Секунда);
    Исключение
        Результат = Неопределено;    
    КонецПопытки;
    Возврат Результат;
КонецФункции // ПреобразоватьRFC822КДате()

В процессе изучения вопроса, встретил еще несколько вариантов:

Код 1C v 8.х

  // Автор: Mavka 

// По типу: Wed, 30 Mar 2011 17:50:11 +0200 

// Я написала код, но без учета часовых поясов( 

Функция ВДатуRFC822(Дата1С, ПоправкаGMT) Экспорт

    Перем ТемпДата;

    Перем ТемпГод;

    Перем ТемпМесяц;

    Перем ТемпДень;

    Перем ДатаRFC822;

    Перем ТемпЧас;

    Перем ТемпМинута;

    Перем ТемпСекунда;

    Перем НомерДняНедели;

    Перем ТемпДеньНедели;

    Перем МесяцИмя;

    ТемпДата = Дата1С - 60 * 60 * ПоправкаGMT;

    ТемпГод = СтрЗаменить(Формат(Год(ТемпДата),"ND=4; NLZ="),Символы.НПП,"");

    ТемпМесяц = Месяц(ТемпДата);

    Если ТемпМесяц = 1 Тогда

         МесяцИмя = "Jan";

     ИначеЕсли ТемпМесяц = 2 Тогда

         МесяцИмя = "Feb";

     ИначеЕсли ТемпМесяц = 3 ТОгда

         МесяцИмя = "Mar";

     ИначеЕсли ТемпМесяц = 4 Тогда

         МесяцИмя = "Apr";

     ИначеЕсли ТемпМесяц = 5 Тогда 

         МесяцИмя = "May";

     ИначеЕсли ТемпМесяц = 6 Тогда

         МесяцИмя = "Jun";

     ИначеЕсли ТемпМесяц = 7 Тогда

         МесяцИмя = "Jul";

     ИначеЕсли ТемпМесяц = 8 ТОгда

         МесяцИмя = "Aug";

     ИначеЕсли ТемпМесяц = 9 Тогда

         МесяцИмя = "Sep";

     ИначеЕсли ТемпМесяц = 10 Тогда 

         МесяцИмя = "Oct";

     ИначеЕсли ТемпМесяц = 11 Тогда

         МесяцИмя = "Nov";

     Иначе        

         МесяцИмя = "Dec";

    КонецЕсли;

    ТемпДень = Формат(День(ТемпДата),"ND=2; NLZ=");

    НомерДняНедели = ДеньНедели(ТемпДата);

    Если НомерДняНедели = 1 Тогда

         ТемпДеньНедели = "Mon";

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

         ТемпДеньНедели = "Tue";

     ИначеЕсли НомерДняНедели = 3 ТОгда

         ТемпДеньНедели = "Wed";

     ИначеЕсли НомерДняНедели = 4 Тогда

         ТемпДеньНедели = "Thu";

     ИначеЕсли НомерДняНедели = 5 Тогда 

         ТемпДеньНедели = "Fri";

     ИначеЕсли НомерДняНедели = 6 Тогда

         ТемпДеньНедели = "Sat";

     Иначе        

         ТемпДеньНедели = "Sun";

    КонецЕсли;

    

        ТемпЧас = ?(Час(ТемпДата) = 0, "00", Формат(Час(ТемпДата),"ND=2; NLZ="));

        ТемпМинута = ?(Минута(ТемпДата) = 0, "00", Формат(Минута(ТемпДата),"ND=2; NLZ="));

        ТемпСекунда = ?(Секунда(ТемпДата) = 0, "00", Формат(Секунда(ТемпДата),"ND=2; NLZ="));

        ДатаRFC822 = ТемпДеньНедели+ ", " + ТемпДень + " " + МесяцИмя + " " + ТемпГод + " " + ТемпЧас + ":" + ТемпМинута + ":" + ТемпСекунда + " +0200";

    

    Возврат ДатаRFC822;

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

Категория: Работа с Датами (Временем)

Как установить параметр динамического списка?

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

Для вывода используется используется запрос:

Код 1C v 8.3

 ВЫБРАТЬ

	РегистрСведенийFinans.Период,

	РегистрСведенийFinans.Клиент,

	РегистрСведенийFinans.Движение,

	РегистрСведенийFinans.Расшифровка,

	РегистрСведенийFinans.СуммаОбщая,

	РегистрСведенийFinans.РасходыСервиса,

	РегистрСведенийFinans.W1C

ИЗ

	РегистрСведений.Finans КАК РегистрСведенийFinans

ГДЕ

	РегистрСведенийFinans.Клиент =Клиент

Чтобы при открытии не отображалась информацию по другим клиентам, необходимо установить параметр динамического списка, сделаем это так:

Код 1C v 8.3

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

	Финансы.Параметры.УстановитьЗначениеПараметра("Клиент", Объект.Ссылка);

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

Можно и просто настроить отбор через настройки, используя ЭлементОтбораКомпоновкиДанных

Подробнее об этом: Динамический список ~ Как на управляемой форме разместить список регистра сведений с отбором?

Категория: Работа с Формой (Диалог) и её элементами

Как загрузить Адресный классификатор (KLADR) в 1С 8.3 (УП или Такси)

В прошлой статье: Установка адресного классификатора (KLADR) в 1С я рассказал Вам что такое Кладр и как его загрузить в 1С обычные формы (8.0-8.2).

В данной статье я расскажу как загрузить Адресный классификатор (KLADR) в управляемом интерфейсе или интерфейсе Такси:

Такси

Рассмотрим загрузку адресного классификатора на примере информационной базы конфигурации Бухгалтерия предприятие 3.0 в режиме Такси.

Для загрузки адресного классификатора необходимо войти в Вашу базу в режиме 1С Предприятие.

Далее необходимо в разделе "Справочники" открыть Настройка навигации и добавить Адресный классификатор в Обычное

В результате в меню появится Предприятие - Адресный классификатор, заходим в него

Откроется окно в котором можно выбрать Проверить обновление или Загрузить

Выберем Проверить обновление и программа через интернет проверит актуальность адресного классификатора и предложит обновить

Если выбрать Загрузить, то откроется окно - В котором нужно отметить необходимые к загрузке регионы и указать источник загрузки (щелкните на синюю надпись внизу)

Выберите источник загрузки

Загрузим из каталога на диске - укажите каталог с файлами kladr и нажмите Загрузить

По завершении загрузки вы уведите соответствующее сообщение!

Все

Управляемое Приложение

Так же рассмотрим загрузку адресного классификатора на примере информационной базы конфигурации Бухгалтерия предприятие 3.0.

Для загрузки адресного классификатора необходимо войти в Вашу базу в режиме 1С Предприятие.

Далее необходимо выбрать раздел «Справочники и настройки учета».

Здесь в левой части окна необходимо выбрать «Адресный классификатор».

В открывшемся окне можно как и в примере выше нажать кнопку «Проверить» и программа сама обновит из интернета, но мы сделаем через нажать на кнопку «Загрузить»

Далее необходимо отметить галочками необходимые регионы, для которых Вам нужно загрузить адресный классификатор. Нажимаем «Далее».

В следующем окне отмечаем пункт «У меня есть файлы адресного классификатора» и нажимаем на кнопку «…» для указания пути к файлам КЛАДР.

Укажите путь к каталогу KLADR, у меня, например, это D:\TEMP\KLADR и нажмите Далее

После нажатия на кнопку «Загрузить адресный классификатор» начинается процесс загрузки, который показан в следующем окне. Если процесс загрузки не сопровождается анимацией, это не означает, что процесс «завис». Загрузка адресного классификатора может занять длительное время.

По окончании процесса загрузки появится окно с сообщением.

Нажимаем «ОК» и закрываем следующее окно. Адресный классификатор успешно загружен!

Категория: 1С Общие вопросы - Управляемые формы и Такс…

Получения новостей с RSS-канала сайта buh.ru

Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp
Данный код для 7.7, при использовании в 8-ой версии нужно заменить СоздатьОбъект( на Новый COMОбъект(, остальное вроде так же.

Код 1C v 7.x

 

Функция ВытащитьДату(Стр)

	парсер=СоздатьОбъект("VBScript.RegExp");

	парсер.Global=-1;

	парсер.IgnoreCase =-1;  

	стрМес="Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";

	парсер.Pattern="(\d\d)\s(("+стрМес+"))\s(\d{4})";

	рез = парсер.Execute(Стр);

	Если рез.Count>0 Тогда

		рез_ = рез.Item(0);

		чч=Число(рез_.Submatches(0));

		мст=рез_.Submatches(1);  

		где=Найти(стрМес,мст);

		мм=цел(где/4)+1;

		гг=Число(рез_.Submatches(3));  

		дат=Дата(гг,мм,чч);

	Иначе

		дат=0;

	КонецЕсли;

	Возврат дат;

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



Процедура Сформировать()   

	ТЗ=СоздатьОбъект("ТаблицаЗначений");

	ТЗ.НоваяКолонка("ИД","Число");

	ТЗ.НоваяКолонка("Дата","Дата"); 

	ТЗ.НоваяКолонка("Заголовок","Строка");

	ТЗ.НоваяКолонка("Ссылка","Строка");

	ТЗ.НоваяКолонка("Текст","Строка"); 

	

	Состояние("Получение данных с сайта www.buh.ru");

	

	//ТаймАут поставьте в зависимости от качества подключения

	ТаймАут=100000;

	

	IE=СоздатьОбъект("InternetExplorer.Application");

	IE.navigate("http://www.buh.ru/rss/rss-2.0.jsp");

	Пока IE.readyState<4 Цикл

		ТаймАут=ТаймАут-1;

		Если ТаймАут=0 Тогда

			Предупреждение("Не удалось получить данные с сайта www.buh.ru",10);

			Возврат;

		КонецЕсли;

	КонецЦикла;        

	

	//версия 0.1 для v7plus.dll 

	//ХМЛ=СоздатьОбъект("AddIn.XMLParser");  

	//ХМЛДок=ХМЛ.СоздатьДокумент();

	//ХМЛДок.Загрузить(oIE.document.XMLDocument); 

	//Выборка=ХМЛДок.ВыбратьУзлы("//item");

	//Для ии=0 По Выборка.КоличествоУзлов()-1 Цикл 

	//	ЭлНовость=Выборка.ПолучитьУзел(ии);

	//	ТЗ.НоваяСтрока();

	//	ТЗ.Дата=ВытащитьДату(ЭлНовость.ВыбратьУзел("./pubDate").Текст);

	//	ТЗ.Заголовок=ЭлНовость.ВыбратьУзел("./title").Текст;

	//	ТЗ.Ссылка=ЭлНовость.ВыбратьУзел("./link").Текст;

	//	ТЗ.Текст=ЭлНовость.ВыбратьУзел("./description").Текст;

	//КонецЦикла; 

	

	//версия 0.2 для MSXML

	ХМЛДок=СоздатьОбъект("MSXML2.DOMDocument");;

	ХМЛДок.async=0;

	ХМЛДок.resolveExternals=0;

	ХМЛДок.load(IE.document.XMLDocument); 

	Выборка=ХМЛДок.selectNodes("//item");

	Для ии=0 По Выборка.length-1 Цикл 

		ЭлНовость=Выборка.item(ии);

		ТЗ.НоваяСтрока();

		ТЗ.Дата=ВытащитьДату(ЭлНовость.selectSingleNode("./pubDate").text);

		ТЗ.Заголовок=ЭлНовость.selectSingleNode("./title").text;

		ТЗ.Ссылка=ЭлНовость.selectSingleNode("./link").text;

		ТЗ.Текст=ЭлНовость.selectSingleNode("./description").text;

	КонецЦикла; 

    //Все. Мы получили ТЗ с последними новостями

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

К сожалению, автор не известен.

Категория: COM-объекты, WMI, WSH