Функция ПересечениеОтрезков(А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 достаточно добавить на форму кнопку вызова...
Сп=СоздатьОбъект("СписокЗначений"); Сп.ИзСтрокиСРазделителями(ЗначениеВСтрокуВнутр(СоздатьОбъект("Документ.Счет"))); Сообщить("Номерок таблицы - "+Сп.ПолучитьЗначение(4));
Код create function base36_to_base10 (@base36 char(6)) returns char(10) as begin if @base36 is null return null if...
Для контроля версий обрабатываемых конфигураций можно получить номер релиза из внешней обработки путем анализа файла 1sconst.dbf: ДБФ...
Функция Перекодировка(Стр="",Кодировка="windows-1251") Стрим = СоздатьОбъект("Adodb.Stream"); Стрим.Type = 2; Стрим.Mode= 3; Стрим.charset="iso-8859-5"; Стрим.Open(); Стрим.WriteText(Стр); Стрим.Position=0; Стрим.charset=Кодировка; Рез=Стрим.ReadText(-1); Стрим.Close();...
Код create function base36_to_base10 (@base36 char(6)) returns char(10) as begin if @base36 is null return null if...
Для наглядного представления продолжительного процесса выполнения обработки данных можно реализовать строку прогресса в строке состояния при помощи...
База SQL: Наличие в каталоге базы файла 1cv7.dba База DBF: 1. Отсутствие 1cv7.dba 2. Наличие *.dbf 3....
Процедура глЗаполнитьШапку(Конт, Скопирован=0) Экспорт ... //Блокировка ввода новых документов СтатусВозврата(0); ... КонецПроцедуры Хотя наиболее правильно будет изменять...
Добавить в Модуль Мриложения в процедуру "ПриНачалеРаботыСистемы()" код открытия журнала после загрузки //Список контрагентов Панель=Справочники.Контрагенты.ПолучитьФорму("ФормаСписка"); Панель.Открыть(); //Журнал...
Функция осуществляет сортировку числового ряда (в массиве) от малого к большему http://ru.wikipedia.org/wiki/Сортировка_пузырьком методом "пузырька"[/url] Область применения достаточно...
Ниже приведен код функции, которая определяет — Файловая или SQL. //Функция возвращает: Истина - Файловая, Ложь -...
Функция возвращает вариант базы данных "Файловая" или "Серверная": Функция КакаяБаза() СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы(); // в зависимости от...
Вариант сортировки числового ряда (от малого к великому) методом шейкера. Считается более оптимизированным и быстрым алгоритмом сортировки...
// Функция определяет пол работника по его отчеству Функция ПолучитьПол(ОтчествоРаботника) Экспорт Если Прав(ОтчествоРаботника, 2) = "ич" Тогда...