Перем Значение; // В эту переменную запишем значение из реестра RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Читаем значение ключа...
8.x
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо, | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка, | СУММА(ЗарплатаКВыплатеОрганизацийЗарплата.Сумма) КАК Сумма, | ПОДСТРОКА(ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Комментарий,...
#Если ВнешнееСоединениеТогда // Фрагмент кода, который должен выполняться в сессии внешнего соединения. #КонецЕсли #Если Клиент Тогда //...
// Универсальная процедура, которая инициирует механизм подбора // номенклатуры в документы (открывает основную форму обработки подбор). //...
// сравнение значений перечислений на больше/меньше // применяется для перечислений, для которых последовательность // значений имеет определяющее...
СтруктураОтборов = Новый Структура; СтруктураПараметровОтбора = Новый Структура; Для Каждого ЭлементОтбора из ЖурналДокументовСписок.Отбор Цикл Если ЭлементОтбора.Использование Тогда...
Режим = РежимДиалогаВопрос.ДаНетОтмена; Ответ = Вопрос("Выполнить?", Режим, 0); Если Ответ =КодВозвратаДиалога.Да Тогда Сообщить("Выполнено"); ИначеЕсли Ответ = КодВозвратаДиалога.Нет...
спКомп = СоздатьОбъект("СписокЗначений"); Попытка ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl"); ScrptCtrl.Language="vbscript"; ScrptCtrl.AddCode(" |Function GetComputers() | Set WinNT = GetObject(""WinNT:"") | WinNT.Filter =...
Можно на командной панели формы сделать Подменю Отбор и в Имени каждого пункта указать значение отбора, а...
Попытка XLSОбъектОсновной = Новый COMОбъект("Excel.Application"); Исключение Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");...
//Получение макета и областей вывода Макет = ПолучитьМакет("Отчет"); ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой") ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");...
// функция ПолучитьТаблицуЧисленностейВТЗ() возвращает таблицу значений ТзВрем=ПолучитьТаблицуЧисленностейВТЗ(Организация, НачПериода,КонПериода); // теперь нужно вывести тыблицу значений в табличное поле...
&НаКлиенте Процедура ПоКнопкеНайти(Команда) // Вставить содержимое обработчика. Сообщить(НайтиКонтрагента("000000001")); КонецПроцедуры &НаСервере Функция НайтиКонтрагента(КодКонтрагента) Перем КонрагентДляПоиска, СсылкаНайденногоКонрагента; КонрагентДляПоиска =...
Функция ПолучитьСИнетаКакСтроку(АдресП) соминет = Новый COMОбъект("MSXML2.XMLHTTP"); соминет.open ("GET", АдресП, Ложь); соминет.send(); Возврат соминет.responseText; КонецФункции
// Получает разность календарных дат указанного вида. В случае ошибки возвращает -1 Функция ПолучитьРазностьДат(рНачДата,рКонДата,рВидРазности="ДЕНЬ") Экспорт Если не...
Узнать последнюю строку можно следующими примерами: 1. Сообщить(appExcel.WorkSheets(1).UsedRange.Row); 2. метод определяет, когда закончились данные на листе: SpecialCells(11)...
Запрос=Новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | ХозрасчетныйОстаткиИОбороты.Счет, | ХозрасчетныйОстаткиИОбороты.Субконто1, | ХозрасчетныйОстаткиИОбороты.Субконто2, | ХозрасчетныйОстаткиИОбороты.Субконто3, | ХозрасчетныйОстаткиИОбороты.Организация, | ХозрасчетныйОстаткиИОбороты.СуммаОборот, |...
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДиалогОткрытияФайла.Выбрать(); Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла); Текст = "Файл: " + Файл.Имя; Текст =...
Используется модель последовательного доступа (работа осуществляется только с одним текущим узлом): Запись = Новый ЗаписьXML; //Путь к...
Функция СтрокаНаписанаПоРусски(Знач СтрокаПараметр) Экспорт СтрокаПараметр = СокрЛП(СтрокаПараметр); СписокДопустимыхЗначений = Новый СписокЗначений; СписокДопустимыхЗначений.Добавить(184); СписокДопустимыхЗначений.Добавить(168); СписокДопустимыхЗначений.Добавить(45); СписокДопустимыхЗначений.Добавить(46); СписокДопустимыхЗначений.Добавить(32); СписокДопустимыхЗначений.Добавить(48);...