// Функция проверяет наличие в строке только цифр // // Параметры // СтрокаПроверки - Строка для проверки...
Полезные, Универсальные Функции
Полезные, Универсальные Функции
// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия Попытка БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги"); Исключение Предупреждение("Для работы конфигурации...
Процедура КнопкаВыполнитьНажатие(Кнопка) Для Каждого Рег Из РегистрыНакопления Цикл Если Рег.ПолучитьИспользованиеИтогов()=Ложь Тогда Рег.УстановитьИспользованиеИтогов(Истина); Состояние("Идет пересчет итогов регистра накопления...
// Универсальная процедура, которая инициирует механизм подбора // номенклатуры в документы (открывает основную форму обработки подбор). //...
// Открытие периода ДатаТА = ПолучитьДатуТА(); Если (РабочаяДата() > ДатаТА) И ((ДатаМесяц(ДатаТА) <> ДатаМесяц(РабочаяДата())) ИЛИ (ДатаГод(ДатаТА) <>...
// Возвращает вид объекта по переданной ссылке - строку "Справочник", "Документ" и т.д. // Не обрабатываются точки...
Процедура ПолучениеСпискаАктивныхПользователей() ИтогСписокСоединений.Очистить(); СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы(); Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл ТЗ=ИтогСписокСоединений.Добавить(); ТЗ.Пользователь=Соединение.Пользователь.Имя; ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения); ТЗ.НачалоРаботы=Соединение.НачалоСеанса; ТЗ.Компьютер=Соединение.ИмяКомпьютера;...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс; Если...
// Возвращает менеджер объекта по переданной ссылке. // Не обрабатываются точки маршрутов бизнес-процессов. Функция МенеджерОбъектаПоСсылке(Ссылка) Экспорт ИмяОбъекта...
Функция СоздатьПользователя(Имя, Пароль) Если (Метаданные.Роли.Найти("ПолныеПрава") = Неопределено) или (Метаданные.Роли.Найти("Админ") = Неопределено) Тогда Сообщить("Нет возможности создать пользователя """...
В 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)...
Алгоритм «по среднему» реализуется наиболее просто: определяется текущая стоимость товара и текущий остаток. Их отношение дает нам...
Код причины постановки на учёт (КПП) представляет собой девятизначный цифровой код, который вместе с ИНН организации позволяет...