Режим = РежимДиалогаВыбораФайла.Открытие; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = ""; Фильтр = "Текст(*.txt)|*.txt"; ДиалогОткрытияФайла.Фильтр = Фильтр; ДиалогОткрытияФайла.МножественныйВыбор...
8.x
ДГ = ЭлементыФормы.ДГ; // Установить заголовок диаграммы. ДГ.ОбластьЗаголовка.Текст = "График дежурств"; // Интервал будем определять самостоятельно. ДГ.АвтоОпределениеПолногоИнтервала...
Попытка ОтправитьПоПочте2(ТекСтрока); // работает с Батом Исключение Попытка ОтправитьПоПочте1(ТекСтрока); // работает с Аутлуком, но переспрашивает при отправке...
Вопрос: Как в 1 С Бухгалтерия 8.1 доукомплектовать основное средство (компьютер), чтобы увеличить его первоначальную стоимость? Ответ:...
В примере "1cv7s.exe", для 8-ки замениете на "1cv8.exe"
Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL) СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer + (";UID=") +...
//Проверка на заполненность реквизитов формы, для которых установлен признак АвтоОтметкаНезаполненного Функция ПроверкаАвтоОтметкаНезаполненного(ЭлементыФормы) Экспорт Результат = Ложь; Для...
Инфо = Новый СистемнаяИнформация; Текст = "Версия 1С:Предприятия 8.0: " + Инфо.ВерсияПриложения; Текст = Текст + Символы.ПС...
На Рабочем столе Shell = Новый COMОбъект("WScript.Shell"); РабочийСтол = Shell.SpecialFolders("Desktop"); Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk"); Ярлык.TargetPath =...
//внешние обработки и отчеты: Процедура ЗагрузитьОбработкуВХранилище(РеквизитТипХранилище) СтепеньСжатия = Новый СжатиеДанных(9); //9 максимум РеквизитТипХранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные("c:\отчеты\отчет.epf",...
MS Excel Попытка Excel = Новый COMОбъект("Excel.Application"); Исключение Сообщить("ВНИМАНИЕ! TOpenOffice не установлен или недостаточно прав доступа! |...
Вопрос: Можно ли зафиксировать несколько колонок в таблице так, чтобы при горизонтальной прокрутке они всегда были на...
Для каждого ЭлементМассива Из Массив1 Цикл Массив2.Добавить(ЭлементМассива); КонецЦикла;
Для вывода иерархического справочника в отчет с сохранением иерархии необходимо пользоваться запросом аналогичным следующему: ВЫБРАТЬ Номенклатура.Код, Номенклатура.Наименование...
// Передать файл по FTP Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт Если ПутьФТП = Неопределено Тогда ТекПутьФТП = ПараметрыСеанса.FTPПуть; Иначе...
Схема = ЭлементыФормы.ГеоСхема; СписокГородов = Новый СписокЗначений; // Запретить перерисовку схемы на время обновления. Схема.Обновление = Ложь;...
Процедура ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента) Если ТипЗнч(ЭлементДанных) = Тип("ДокументОбъект.РеализацияТоваров") Тогда Если ЭлементДанных.Склад <> Склад Тогда ОтправкаЭлемента = ОтправкаЭлементаДанных.Удалить; КонецЕсли;...
Процедура УстановитьСубконто(Счет, Субконто, ИмяСубконто, ЗначениеСубконто) Экспорт Если Счет = Неопределено ИЛИ Счет.Пустая() Тогда Возврат; КонецЕсли; Если ТипЗнч(ИмяСубконто)...
ВЫБРАТЬ ПЕРВЫЕ 1 ХозрасчетныйОстаткиИОбороты.Регистратор КАК Регистратор ИЗ РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&ДатаН, &ДатаК, Регистратор, , Счет = &Счет, , ) КАК...
//Струтура в ТЗ Функция СтруктураВТЗ(Структр) ТЗ = Новый ТаблицаЗначений; ТЗ.Колонки.Добавить("Значение"); ТЗ.Колонки.Добавить("Описание"); Для Каждого ТекЭлем из Структр Цикл...