Данная функция написана для ЗиК 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 достаточно добавить на форму кнопку вызова...
Сп=СоздатьОбъект("СписокЗначений"); Сп.ИзСтрокиСРазделителями(ЗначениеВСтрокуВнутр(СоздатьОбъект("Документ.Счет"))); Сообщить("Номерок таблицы - "+Сп.ПолучитьЗначение(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();...