Ниже приведен код функции, которая определяет — Файловая или SQL. //Функция возвращает: Истина - Файловая, Ложь -...
Полезные, Универсальные Функции
Полезные, Универсальные Функции
Функция возвращает вариант базы данных "Файловая" или "Серверная": Функция КакаяБаза() СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы(); // в зависимости от...
Вариант сортировки числового ряда (от малого к великому) методом шейкера. Считается более оптимизированным и быстрым алгоритмом сортировки...
// Функция определяет пол работника по его отчеству Функция ПолучитьПол(ОтчествоРаботника) Экспорт Если Прав(ОтчествоРаботника, 2) = "ич" Тогда...
Функция ФамилияИО(ПолнИмя) Экспорт ПервПроб = Найти(ПолнИмя," "); Если ПервПроб=0 Тогда Возврат ПолнИмя; Иначе Фамилия = Лев(ПолнИмя,ПервПроб); ИО...
Как сохранить рабочую конфигурацию из конфигуратора знают все, но это не всегда удобно. Мне понадобилось сохранять рабочую...
// Функция проверяет наличие в строке только цифр // // Параметры // СтрокаПроверки - Строка для проверки...
// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия Попытка БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги"); Исключение Предупреждение("Для работы конфигурации...
Процедура КнопкаВыполнитьНажатие(Кнопка) Для Каждого Рег Из РегистрыНакопления Цикл Если Рег.ПолучитьИспользованиеИтогов()=Ложь Тогда Рег.УстановитьИспользованиеИтогов(Истина); Состояние("Идет пересчет итогов регистра накопления...
// Универсальная процедура, которая инициирует механизм подбора // номенклатуры в документы (открывает основную форму обработки подбор). //...
// Открытие периода ДатаТА = ПолучитьДатуТА(); Если (РабочаяДата() > ДатаТА) И ((ДатаМесяц(ДатаТА) <> ДатаМесяц(РабочаяДата())) ИЛИ (ДатаГод(ДатаТА) <>...
// Возвращает вид объекта по переданной ссылке - строку "Справочник", "Документ" и т.д. // Не обрабатываются точки...
Процедура ПолучениеСпискаАктивныхПользователей() ИтогСписокСоединений.Очистить(); СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы(); Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл ТЗ=ИтогСписокСоединений.Добавить(); ТЗ.Пользователь=Соединение.Пользователь.Имя; ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения); ТЗ.НачалоРаботы=Соединение.НачалоСеанса; ТЗ.Компьютер=Соединение.ИмяКомпьютера;...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс; Если...
// Возвращает менеджер объекта по переданной ссылке. // Не обрабатываются точки маршрутов бизнес-процессов. Функция МенеджерОбъектаПоСсылке(Ссылка) Экспорт ИмяОбъекта...
Функция СоздатьПользователя(Имя, Пароль) Если (Метаданные.Роли.Найти("ПолныеПрава") = Неопределено) или (Метаданные.Роли.Найти("Админ") = Неопределено) Тогда Сообщить("Нет возможности создать пользователя """...
В 7.7 Откройте Справочник Контрагенты — Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в...
Нужно получить из html страницы текст: //the_pal, через HTTPСоединение: СерверИсточник = HTTPserver; Адрес = "/price.asp"; ИмяВходящегоФайла =...
Данная функция написана для ЗиК 7.7 //Функция подбирает окончание для возраста Функция СтрГода(Возраст) Остаток = Возраст%10; Если...
Процедура КнопкаВыполнитьНажатие(Элемент) ТекстовыйФайл = Новый ТекстовыйДокумент(); ПутьКФайлу = "C:\Documents and Settings\Adm\Application Data\1C\1Cv8\v8ib.lst"; ТекстовыйФайл.Прочитать(ПутьКФайлу); КС = ТекстовыйФайл.КоличествоСтрок(); Для...