26.08.2025
ИмяФайла = "Отчет.xls"; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); ДиалогОткрытияФайла.ПолноеИмяФайла = ИмяФайла; ДиалогОткрытияФайла.Каталог = КаталогВременныхФайлов(); ДиалогОткрытияФайла.Фильтр = "Файлы Microsoft...
ДокExcel = Новый COMОбъект("Excel.Application"); //... ДокExcel.Application.Workbooks.Application.Workbooks.Add(1); ДокExcel.Application.Workbooks.Application.ActiveSheet.Name = "Закладка 1"; ДокExcel.Application.Workbooks.Application.ActiveWorkbook.Worksheets.Add(); ДокExcel.ActiveWorkbook.Sheets.Application.ActiveSheet.Name = "Вторая Закладка"; ДокExcel.Visible =...
//Перебор Основных Реквизитов формы Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип)); КонецЦикла; //...
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe...
// Открытие периода ДатаТА = ПолучитьДатуТА(); Если (РабочаяДата() > ДатаТА) И ((ДатаМесяц(ДатаТА) <> ДатаМесяц(РабочаяДата())) ИЛИ (ДатаГод(ДатаТА) <>...
// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия Попытка БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги"); Исключение Предупреждение("Для работы конфигурации...
В Модуль приложения, в самый конец процедуры ПередНачаломРаботыСистемы() добавить: //Установить значение ГлавныйСтиль можно только // в Модуле...
Функция ПолучитьСИнетаКакСтроку(АдресП) соминет = Новый COMОбъект("MSXML2.XMLHTTP"); соминет.open ("GET", АдресП, Ложь); соминет.send(); Возврат соминет.responseText; КонецФункции
Шаблон Функции возвращают строковое значение, сформированное в соответствии с заданным параметром <Строка_шаблон>, заменив в ней все встро­енные...
Cистема выдает следующее сообщение: Существуют более ранние проведенные документы! Этим сообщением программа предупреждает пользователя о том, что...
Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | Номенклатура.Ссылка |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | Номенклатура.ПометкаУдаления = ИСТИНА |";...
//Выведем весь справочник Номенклатура Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | Номенклатура.* |ИЗ | Справочник.Номенклатура КАК Номенклатура |"; РезультатЗ...
Выборка = Справочники.Номенклатура.Выбрать( , Владелец); Если Выборка.Следующий() = Истина Тогда // Есть подчиненные элементы. КонецЕсли; Запрос =...
//проуедура всем контрагентам мозжает подчиненный докогвор "Дополнительный" Спр=СоздатьОбъект("Справочник.Контрагенты"); Попытка дог=СоздатьОбъект("Справочник.Договоры"); исключение Предупреждение("В конфигурации нет справочника ДОГОВОРЫ"); возврат;...