# Алгоритмы # Расстояние между 2-мя точками по координатам ``` // Код на 1С Pi = 3.1415926535897932; rlat1 = lat1 * Pi / 180; rlon1 = lon1 * Pi / 180; rlat2 = lat2 * Pi / 180; rlon2 = lon2 * Pi / 180; EarthRradius = 6371000; // по другим данным - 6372,795 Distance = EarthRradius * 2 * ASin(Sqrt((1 - Cos(rlat1 - rlat2))/2 + Cos(rlat1) * Cos(rlat2) * (1-Cos(rlon1-rlon2))/2)); ``` Формула для расчета:
![](https://1chub.ru/wp-content/uploads/2023/07/image-5.png)
![](https://1chub.ru/wp-content/uploads/2023/07/image-2.png)
![](https://1chub.ru/wp-content/uploads/2023/07/image-6.png)
![](https://1chub.ru/wp-content/uploads/2023/07/image-1.png)
![](https://1chub.ru/wp-content/uploads/2023/07/image-7.png)
Радиусы земли:
![](https://1chub.ru/wp-content/uploads/2023/07/image-3.png)
Ссылки
- [Редко используемые тригонометрические функции](https://ru.wikipedia.org/wiki/%D0%A0%D0%B5%D0%B4%D0%BA%D0%BE_%D0%B8%D1%81%D0%BF%D0%BE%D0%BB%D1%8C%D0%B7%D1%83%D0%B5%D0%BC%D1%8B%D0%B5_%D1%82%D1%80%D0%B8%D0%B3%D0%BE%D0%BD%D0%BE%D0%BC%D0%B5%D1%82%D1%80%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D0%B5_%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D0%B8) - [Haversine\_formula](https://en.wikipedia.org/wiki/Haversine_formula) - [Вычисляем ближайшие объекты по координатам](https://habr.com/ru/articles/566474/) - [Great-circle\_distance](https://en.wikipedia.org/wiki/Great-circle_distance) ([вариант на русском](https://ru.wikibrief.org/wiki/Great-circle_distance)) - [Расчет среднего радиуса земли](https://ru.wikibrief.org/wiki/Earth_radius#Mean_radius) - [Центральный угол](https://en.wikipedia.org/wiki/Central_angle)
P.S. Тонкости перевода: **Right angle**(правильный угол; по русски – прямой) = 90 degrees, **Straight angle**(прямой угол; по-русски – развернутый) = 180 degrees # Асинхронный “cинхронный” вопрос ``` &НаКлиенте Асинх Процедура СинхронныййВызовНовый(Команда) Ответы = Новый СписокЗначений; Ответы.Добавить("Ответ1"); Ответы.Добавить("Ответ2"); Ответ = Ждать ВопросАсинх("Ваш ответ?", Ответы); ОбщегоНазначенияКлиент.СообщитьПользователю("Ждем ответа"); Если Ответ = "Ответ2" Тогда ОбщегоНазначенияКлиент.СообщитьПользователю("Верно"); Иначе ОбщегоНазначенияКлиент.СообщитьПользователю("Не верно"); КонецЕсли; КонецПроцедуры ``` # Формирование текста для поля составного типа в запросе по списку типов В качестве оптимизации запроса при выборе в запросе поля составного типа или типа, включающего ВСЕ ссылки (например, ДокументСсылка) исходя из логики запроса можно наложить на поле ограничение по типам: `ВЫБОР КОГДА Регистратор ССЫЛКА Документ.ОтчетПроизводстваЗаСмену ТОГДА ВЫРАЗИТЬ(Регистратор КАК Документ.ОтчетПроизводстваЗаСмену))`. Это может дать существенный прирост по производительности запроса. Если известен список типов, который может быть выбран в запросе, то текст запроса для данного поля можно получить следующим кодом: ``` //ДоступныеТипы = Метаданные.РегистрыБухгалтерии.Хозрасчетный.СтандартныеРеквизиты.Регистратор.Тип.Типы(); ДоступныеТипы = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей().Отбор.Регистратор.ТипЗначения.Типы(); ПутьКПолю = "Регистратор"; РазделительПолей = ""; ТекстСПолем = ""; Для Каждого Тип Из ДоступныеТипы Цикл ДокументСсылка = Новый(Тип); ИмяТипа = "Документ." + ДокументСсылка.Метаданные().Имя; ТекстСПолем = ТекстСПолем + РазделительПолей + СтрШаблон("ВЫБОР КОГДА %1 ССЫЛКА %2 | ТОГДА ВЫРАЗИТЬ(%1 КАК %2)", ПутьКПолю, ИмяТипа); РазделительПолей = Символы.ПС; КонецЦикла; Если ЗначениеЗаполнено(ТекстСПолем) Тогда ТекстСПолем = СтрШаблон("%1%2КОНЕЦ", ТекстСПолем, Символы.ПС); КонецЕсли; ``` # Как определить новый элемент при открытии управляемой формы? ``` &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Если Параметры.Ключ.Пустая() Тогда ... КонецЕсли; КонецПроцедуры ``` # Програмное получение места на диске ``` fso = Новый COMОбъект("scripting.fileSystemObject"); Сообщить(Окр(Число(fso.getDrive(fso.GetDriveName("d:\")).freeSpace())/1024/1024, 2)); ``` # Использование RegExp в 1С ``` &НаКлиентеНаСервереБезКонтекста Функция РазобратьТекст(ИсходныйТекст, Шаблон) Попытка RegExp = Новый COMОбъект(«VBScript.RegExp»); Исключение Возврат Новый Массив; КонецПопытки; RegExp.Multiline = Истина; RegExp.Global = Истина; RegExp.IgnoreCase = Истина; RegExp.Pattern = Шаблон; РезультатРазбора = RegExp.Execute(ИсходныйТекст); Результат = Новый Массив; Для каждого Item Из РезультатРазбора Цикл Результат.Добавить(Item.Value); КонецЦикла; Возврат Результат КонецФункции ``` # Как установить цвет авто программно [Источник](https://forum.infostart.ru/forum9/topic228836/) ``` // вариант 1 ЭлементыФормы.Номенклатура.ЦветФонаПоля = ЦветаСтиля.ЦветФонаПоля; // вариант 2 ЭлементыФормы.Номенклатура.ЦветФонаПоля = Новый Цвет(); ``` # Параллельное выполнение кода в 1С ``` &НаСервере Процедура ВыполнитьПаралельноНаСервере() МассивЗаданий = Новый Массив; Для Каждого ТекСтрока ИЗ ТЗСклады Цикл НаборПараметров = Новый Массив; НаборПараметров.Добавить("%ЗначениеПараметра1%"); НаборПараметров.Добавить("%ЗначениеПараметраN%"); // запуск фонового задания Задание = ФоновыеЗадания.Выполнить("%ОбщийСерверныйМодуль%.%Имяпроцедуры%", НаборПараметров); // добавляем задание в массив, что бы потом отследить выполнение МассивЗаданий.Добавить(Задание); КонецЦикла; // проверим результат выполнения фоновых заданий Если МассивЗаданий.Количество() > 0 Тогда Попытка ФоновыеЗадания.ОжидатьЗавершения(МассивЗаданий); Исключение // действия в случае ошибки КонецПопытки; КонецЕсли; КонецПроцедуры // ВыполнитьПаралельно() ``` # Разработка регламентного задания Перед началом выполнения регламентного задания, выполняющего интеграцию с внешними ресурсами, необходимо проверить возможность работы базы с внешними ресурсами. ``` ``` ИмяСобытияЖР = КонстантыМодуля("ИмяСобытияЖР"); ТекстСообщенияБлокировкаРаботыСвнешнимиРесурсами = КонстантыМодуля("ТекстСообщенияБлокировкаРаботыСвнешнимиРесурсами"); ТекстСообщенияНеВыполнена = КонстантыМодуля("ТекстСообщенияНеВыполнена"); Если БлокировкаРаботыСВнешнимиРесурсами.РаботаСВнешнимиРесурсамиЗаблокирована() Тогда ОписаниеОшибки = ТекстСообщенияНеВыполнена + " " + ТекстСообщенияБлокировкаРаботыСвнешнимиРесурсами; #ЕСЛИ НаКлиенте ТОГДА Сообщить(ОписаниеОшибки); #КОНЕЦЕСЛИ ЗаписьЖурналаРегистрации(ИмяСобытияЖР, УровеньЖурналаРегистрации.Информация,,, ОписаниеОшибки); Возврат; КонецЕсли; ``` Функция КонстантыМодуля(ИмяКонстанты) Если ИмяКонстанты = "ИмяСобытияЖР" Тогда Возврат %ИмяСобытияЖР% ИначеЕсли ИмяКонстанты = "ТекстСообщенияБлокировкаРаботыСвнешнимиРесурсами" Тогда Возврат "Работа с внешними ресурсами заблокирована." ИначеЕсли ИмяКонстанты = "ТекстСообщенияНеВыполнена" Тогда Возврат "Регламентное задание прервано." КонецЕсли; ВызватьИсключение СтрШаблон("Константа %1 не определена", ИмяКонстанты); КонецФункции // КонстантыМодуля() ``` # Проверка существования реквизита формы в 1С (и не только) ``` // Проверяет наличие реквизита или свойства у произвольного объекта без обращения к метаданным. Функция ЕстьРеквизитИлиСвойствоОбъекта(Объект, Имяреквизита) Экспорт Ключуникальности = Новый Уникальныйидентификатор; СтруктураРеквизита = Новый Структура (ИмяРеквизита, КлючУникальности); ЗаполнитьЗначенияСвойств (СтруктураРеквизита, Объект); Возврат СтруктураРеквизита[ИмяРеквизита] <> Ключуникальности; Конецфункции ``` Пример использования ``` Результат = ЕстьРеквизитИлиСвойствоОбъекта(Форма, "ИмяИскомогоРеквизита"); ``` # Работа с метаданными ``` Функция МенеджерОбъектаПоСсылке(Ссылка) Экспорт    ТипСсылки = ТипЗнч(Ссылка);    XMLИмяТипа = XMLТип(ТипСсылки).ИмяТипа;    Возврат Новый(СтрЗаменить(XMLИмяТипа, "Ref.", "Manager.")); КонецФункции Функция ЭтоСсылочныйТип(имяТипаXML) Экспорт    фрагменты = СтрРазделить(имяТипаXML, ".", Ложь);    Возврат Прав(фрагменты[0], 3) = "Ref"; КонецФункции ``` # Как отловить события Удаление / Добавление / Изменения регистра в 1С ? Источник: [20](https://forum.infostart.ru/forum9/topic182981/#20) , [29](https://forum.infostart.ru/forum9/topic182981/#29) Добавление новой записи: ``` НаборЗаписей.Количество() > 0 НаборЗаписей.Модифицированность() = Истина ``` Изменение записи: ``` НаборЗаписей.Количество() = 0 НаборЗаписей.Модифицированность() = Ложь НаборЗаписей.Количество() > 0 НаборЗаписей.Модифицированность() = Истина ``` Удаление записи: ``` НаборЗаписей.Количество() = 0 НаборЗаписей.Модифицированность() = Истина ``` # Удалить текущую строку таблицы значений (управляемые формы) ``` Таблица = <<ТаблицаЗначений>>; ТекущаяСтрока = Элементы.<<ТаблицаЗначений>>.ТекущаяСтрока; Таблица.Удалить(Таблица.НайтиПоИдентификатору(ТекущаяСтрока)); ``` # Генерация псевдослучайных чисел (линейный конгруэнтный метод) Формула:
![X_{{n+1}}=(aX_{n}+c)~~{\bmod ~}~m,](https://wikimedia.org/api/rest_v1/media/math/render/svg/e8ac4b3f0d4461a1706da6bcb103e7185ea71d4e)
Примеры аргументов
Source*m*множитель *a*слагаемое *c*используемые биты
*[Numerical Recipes](https://ru.wikipedia.org/w/index.php?title=Numerical_Recipes&action=edit&redlink=1)*[\[9\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-9)23216645251013904223
[Borland](https://ru.wikipedia.org/wiki/Borland) C/C++232226954771bits 30..16 in *rand()*, 30..0 in *lrand()*
[glibc](https://ru.wikipedia.org/wiki/Glibc) (used by [GCC](https://ru.wikipedia.org/wiki/GNU_Compiler_Collection))[\[10\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-10)231110351524512345bits 30..0
[ANSI C](https://ru.wikipedia.org/wiki/ANSI_C): [Watcom](https://ru.wikipedia.org/wiki/Watcom_C_compiler), [Digital Mars](https://ru.wikipedia.org/w/index.php?title=Digital_Mars&action=edit&redlink=1), [CodeWarrior](https://ru.wikipedia.org/wiki/CodeWarrior), [IBM VisualAge](https://ru.wikipedia.org/wiki/IBM_VisualAge) C/C++[\[11\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-11)231110351524512345bits 30..16
[C99](https://ru.wikipedia.org/wiki/C99), [C11](https://ru.wikipedia.org/wiki/C11): Suggestion in the ISO/IEC 9899[\[12\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-12)232110351524512345bits 30..16
[Borland Delphi](https://ru.wikipedia.org/wiki/Borland_Delphi), [Virtual Pascal](https://ru.wikipedia.org/wiki/Virtual_Pascal)2321347758131bits 63..32 of *(seed \* L)*
[Microsoft Visual/Quick C/C++](https://ru.wikipedia.org/wiki/Visual_C%2B%2B)232214013 (343FD16)2531011 (269EC316)bits 30..16
[Microsoft Visual Basic](https://ru.wikipedia.org/wiki/Visual_Basic) (6 and earlier)[\[13\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-13)2241140671485 (43FD43FD16)12820163 (C39EC316)
RtlUniform from [Native API](https://ru.wikipedia.org/wiki/Native_API)[\[14\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-14)231 − 12147483629 (7FFFFFED16)2147483587 (7FFFFFC316)
[Apple CarbonLib](https://ru.wikipedia.org/w/index.php?title=CarbonLib&action=edit&redlink=1), [C++11](https://ru.wikipedia.org/wiki/C%2B%2B11)'s `minstd_rand0`[\[15\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-cpp11-15)231 − 1168070see [MINSTD](https://ru.wikipedia.org/w/index.php?title=MINSTD&action=edit&redlink=1)
[C++11](https://ru.wikipedia.org/wiki/C%2B%2B11)'s `minstd_rand`[\[15\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-cpp11-15)231 − 1482710see [MINSTD](https://ru.wikipedia.org/w/index.php?title=MINSTD&action=edit&redlink=1)
[MMIX](https://ru.wikipedia.org/wiki/MMIX) by [Donald Knuth](https://ru.wikipedia.org/wiki/%D0%9A%D0%BD%D1%83%D1%82,_%D0%94%D0%BE%D0%BD%D0%B0%D0%BB%D1%8C%D0%B4_%D0%AD%D1%80%D0%B2%D0%B8%D0%BD)26463641362238467930051442695040888963407
[Newlib](https://ru.wikipedia.org/wiki/Newlib)26463641362238467930051bits 63…32
[VAX](https://ru.wikipedia.org/wiki/VAX)'s **MTH$RANDOM**,[\[16\]](https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D1%83%D1%8D%D0%BD%D1%82%D0%BD%D1%8B%D0%B9_%D0%BC%D0%B5%D1%82%D0%BE%D0%B4#cite_note-16) old versions of [glibc](https://ru.wikipedia.org/wiki/Glibc)232690691
[Java](https://ru.wikipedia.org/wiki/Java)2482521490391711bits 47…16
**Ранее во многих компиляторах:**
[RANDU](https://ru.wikipedia.org/wiki/RANDU)231 655390
Ссылки [https://habr.com/ru/post/132217/](https://habr.com/ru/post/132217/) Пример кода с проверкой цикличности неповторяемого блока: ``` #include unsigned long int seed = 1; unsigned int lcg() { int a = 433494438; unsigned int m = 99999989; seed = seed * a % m; return seed; } int main() { unsigned int r = lcg(); unsigned int n = 1; while (lcg () != 433494438) { n++; } printf("%d\n", n); return 0; } ```