WshShell = Новый COMОбъект("WScript.Shell"); WshShell.Run(СтрокаЗапуска, 0, Истина)
8.x
Скопировать строку с номером, с лидирующими нулями, в числовом поле (с форматом без групп, без группировки), и вернуть(скопировать)...
Массив = Справочники.ТипВсеСсылки().Типы(); Для Каждого ОчереднойТип из Массив Цикл Сообщить(ОчереднойТип); КонецЦикла;
При подключении из одной базы к другой через COM внезапно стала появляться следующая ошибка: «V82.COMConnector.1: Не найдена...
Товар = Справочники.Номенклатура.ПустаяСсылка();
//Функция позволяет пользователю выбрать каталог на диске. Функция ВыбратьКаталог(ИмяКаталога) Экспорт Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); Диалог.Заголовок = "Укажите...
Запрос = Новый Запрос(" |ВЫБРАТЬ | Ссылка, | Наименование |ИЗ | Справочник.Номенклатура |ГДЕ | Родитель = &Родитель...
//Создаем СписокЗначений СписокЦен = Новый СписокЗначений; //Добавление из выборки Выборка = Справочники.ТипыЦен.Выбрать(); Пока Выборка.Следующий() Цикл СписокЦен.Добавить(Выборка.Ссылка, Выборка.Наценка,...
Файл C:Program Files1Cv81inconflogcfg.xml должен содержать: Код <...
Процедура ПолучениеСпискаАктивныхПользователей() ИтогСписокСоединений.Очистить(); СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы(); Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл ТЗ=ИтогСписокСоединений.Добавить(); ТЗ.Пользователь=Соединение.Пользователь.Имя; ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения); ТЗ.НачалоРаботы=Соединение.НачалоСеанса; ТЗ.Компьютер=Соединение.ИмяКомпьютера;...
Процедура ПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки) //Раскрасим ячейку статус в разные цвета взависимости от значения если сокрЛП(ДанныеСтроки.статус) = "Новая"...
Пример кода быстрая Печать таблицы значений //ТПОтчета - Табличное поле с формы (Таблица значений) с данными ПострПечать...
Классификатор ОКОФ входит в поставку конфигурации. Расположен в подкаталоге шаблонов tmplts каталога установки программных файлов 1С Предприятия...
// Например необходимо: // в строке "C:\Documents and Settings\E.S.Migachev\Рабочий стол\1С" получить номер последнего символа "\" //Ном= ПолучитьНомерПоследнегоСимвола(...
Выборка = Справочники.Сотрудники.Выбрать(); //или Выборка = Справочники.Сотрудники.ВыбратьИерархически(); Пока выборка.Следующий() = 1 Цикл ... //действия с очередным элементом...
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe...
ФайлНаДиске = Новый Файл(ИмяФайла); Если НЕ(ФайлНаДиске.Существует()) Тогда Предупреждение("Файл с таким именем не существует " + ИмяФайла); Возврат;...
Отчет = РабочиеКниги.Open(Каталог+Названиефайла); ОтЛевогоКрая=550; ОтВерха=80; Длина=100; Высота=50; кн = Отчет.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота); st = "Private Sub CommandButton1_Click()"...
//Перебор Основных Реквизитов формы Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип)); КонецЦикла; //...