// Возвращает менеджер объекта по переданной ссылке. // Не обрабатываются точки маршрутов бизнес-процессов. Функция МенеджерОбъектаПоСсылке(Ссылка) Экспорт ИмяОбъекта...
Полезные, Универсальные Функции
Полезные, Универсальные Функции
Функция СоздатьПользователя(Имя, Пароль) Если (Метаданные.Роли.Найти("ПолныеПрава") = Неопределено) или (Метаданные.Роли.Найти("Админ") = Неопределено) Тогда Сообщить("Нет возможности создать пользователя """...
В 7.7 Откройте Справочник Контрагенты — Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в...
Нужно получить из html страницы текст: //the_pal, через HTTPСоединение: СерверИсточник = HTTPserver; Адрес = "/price.asp"; ИмяВходящегоФайла =...
Данная функция написана для ЗиК 7.7 //Функция подбирает окончание для возраста Функция СтрГода(Возраст) Остаток = Возраст%10; Если...
Процедура КнопкаВыполнитьНажатие(Элемент) ТекстовыйФайл = Новый ТекстовыйДокумент(); ПутьКФайлу = "C:\Documents and Settings\Adm\Application Data\1C\1Cv8\v8ib.lst"; ТекстовыйФайл.Прочитать(ПутьКФайлу); КС = ТекстовыйФайл.КоличествоСтрок(); Для...
Копировать из 1С в буфер обмена( без ВК): ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь); Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow; Окно.ClipboardData.SetData("Text", ТекстПисьма); ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));...
Функция СформироватьТекстСообщения(Знач ТекстСообщения) Экспорт НачалоСлужебногоСообщения = Найти(ТекстСообщения, "{"); ОкончаниеСлужебногоСообщения = Найти(ТекстСообщения, "}:"); Если ОкончаниеСлужебногоСообщения > 0 И...
// В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. // Для этого кластера получается...
//Сравнивает две таблицы значений // Функция ТаблицыЗначенийРавны(ТаблицаЗначений1, ТаблицаЗначений2) Экспорт Если ТипЗнч(ТаблицаЗначений1) <> Тип("ТаблицаЗначений") ИЛИ ТипЗнч(ТаблицаЗначений2)...
Алгоритм «по среднему» реализуется наиболее просто: определяется текущая стоимость товара и текущий остаток. Их отношение дает нам...
Код причины постановки на учёт (КПП) представляет собой девятизначный цифровой код, который вместе с ИНН организации позволяет...
Для реализации алгоритмов «FIFO» и «LIFO» (FIFO (первый пришел – первый ушел), LIFO (последний пришел – первый...
ОГРН (основной государственный регистрационный номер) — государственный регистрационный номер записи о создании юридического лица либо записи о...
Функция ПересечениеОтрезков(А1, А2, Б1, Б2) Если А1<=Б1 Тогда Х = Мин(Б2-Б1,А2-Б1); Х = Макс(Х,0); // если Х<0,...
Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1) Перем Имя,Каталог; scr=СоздатьОбъект("MSScriptControl.ScriptControl"); scr.language="javascript"; shell=СоздатьОбъект("Shell.Application"); scr.AddObject("Shell",shell); ИмяСлужбы="ImapiService"; Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда Предупреждение("Вам недозволено записывать диски СД!",5);...
При сохранении данных на дискету нужно организовать контроль ошибок, в частности проверку наличия носителя в дисководе. Сделать...
На полную универсальность не претендует, но с русскими буквами работает нормально. // Преобразовать строку в UTF-8 Функция...
Функция СложныйПроцент(Кредит, Ставка, Срок = 1) Возврат Кредит*Pow(1 + Ставка/100, Срок); КонецФункции
Для включения интерактивной помощи в приложение на платформе 1С версии 7.7 достаточно добавить на форму кнопку вызова...