25.08.2025

8.2 УП

8.2 УП

Для 8.х в нижеследующем коде замените СоздатьОбъект( на Новый COMОбъект! //Пример 1: Процедура Сформировать() Екскел=СоздатьОбъект("Excel.Application"); Книга=Екскел.WorkBooks.Open("C:\Ищем.xls"); Книга.Worksheets(1).Unprotect...
Процедура ОбойтиУровеньДерева(Строки) Для каждого Строка из Строки Цикл //что-то делаем со строкой, например: Сообщить(Строка.ИмяСуществующегоВСтрокеРеквизита); ОбойтиУровеньДерева(Строка.Строки); КонецЦикла; КонецПроцедуры...
//работает под толстым и тонким клиентами ремоте= Новый COMОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); ремоте= Новый COMОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); ремоте=СоздатьОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); Подсказал:...
ВЫБРАТЬ ХозрасчетныйОбороты.Счет, ХозрасчетныйОбороты.СуммаОборотДт, ХозрасчетныйОбороты.СуммаОборотКт ИЗ РегистрБухгалтерии.Хозрасчетный.Обороты(&ДатаНач, &ДатаКон , , Счет В ИЕРАРХИИ (&Счет), , , НЕ(КорСчет В...
Варианты указания в конструкторе: НачалоПериода(ДобавитьКДате(&КонецПериода, "День", 1) "День"); ДобавитьКДате(КонецПериода(&КонецПериода,"День"),"Секунда",1); В коде: Параметр = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти(Новый ПараметрКомпоновкиДанных("Период")); Граница =...
Перем Значение; // В эту переменную запишем значение из реестра RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Читаем значение ключа...
Функция КоличествоПрописью(Количество) Экспорт ЦелаяЧасть = Цел(Количество); ДробнаяЧасть = Окр(Количество - ЦелаяЧасть, 3); Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда...
Используйте ВводДоступен ВводДоступен (IsInputAvailable) Синтаксис: ВводДоступен() Возвращаемое значение: Тип: Булево. Истина — ввод данных в форму возможен...