КолВо = 1; Если ВвестиЧисло(КолВо, "Введите количество", 10, 2) Tогда // обработка введенного количество КонецЕсли; Если ВвестиЧисло(Ном,...
7.x
7.x
Ex = Новый COMObject("Excel.Application"); Ex.Workbooks.Open(Путь); Ex.Visible = 1; ТекЛист=Ex.WorkSheets(1); Для Ячейка = 1 по 400 цикл Если...
Справ=СоздатьОбъект("Справочник.Задания"); Справ2=СоздатьОбъект("Справочник.Задания"); Справ.ИспользоватьВладельца(Цель); Справ2.ИспользоватьВладельца(Источник); Справ.ИспользоватьДату(НаДату); Справ2.ИспользоватьДату(НаДату); Справ2.ВыбратьЭлементы(); Пока Справ2.ПолучитьЭлемент()>0 Цикл Справ.Новый(); Справ.Записать(); МетаСправочник=Метаданные.Справочник(Справ.Вид()); Для Счетчик=1 По МетаСправочник.Реквизит()...
В 8-ых версий нет встроенной функции получения каталога базы данных, так напишем ее, //Получить представление информационной базы...
Данный метод работает аналогично методу Остаток, однако здесь могут быть заданы не все значения измерений, а только...
Рассчитать все регистры с установленным флагом временного расчета на конец события. (на конец даты или на момент...
//проуедура всем контрагентам мозжает подчиненный докогвор "Дополнительный" Спр=СоздатьОбъект("Справочник.Контрагенты"); Попытка дог=СоздатьОбъект("Справочник.Договоры"); исключение Предупреждение("В конфигурации нет справочника ДОГОВОРЫ"); возврат;...
Код //Подключается делает выборку прогоняет по циклу количество записей соответствует истине function dataload() { var v8=new ActiveXObject("V81.COMConnector");...
Объяснить мне сразу трудно — поэтому давайте "на пальцах" Свежий простой пример : вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";"...
Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1) Перем Имя,Каталог; scr=СоздатьОбъект("MSScriptControl.ScriptControl"); scr.language="javascript"; shell=СоздатьОбъект("Shell.Application"); scr.AddObject("Shell",shell); ИмяСлужбы="ImapiService"; Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда Предупреждение("Вам недозволено записывать диски СД!",5);...
// Посчитаем все начисления текущего сотрудника за январь: ВсегоНачислено = 0; ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон); Пока ЖЗ.ПолучитьЗапись()=1...
//Открыть отчет в новом окне можно, для этого надо добавить решетку: РасположениеФайла(Путь,Файл); ОткрытьФорму("Отчет#", Параметр,Путь+Файл);
Варианты решения проблемы "Не открывается предварительный просмотр": 1. Нет принтера — нет предварительного просмотра. Попробуй переустановить принтеры....
Подскажите с сумм, превышающих предельную величину базы (415000,00) для начисления страховых взносов и с компенсации за неиспользованный...
//рег=СоздатьОбъект("VBScript.RegExp"); // Для 7.7 Рег = Новый COMОбъект("VBScript.RegExp"); Рег.global=-1; Рег.ignorecase=-1; Рег.pattern="[а-я]"; Сообщить(Рег.test("есть русские bukovy")); Сообщить(Рег.test("netu russ bukov"));
Попытка ЗагрузитьВнешнююКомпоненту("scanopos.dll") Исключение Сообщить("Ошибка загрузки внешней компоненты!"); КонецПопытки; Попытка // Получить объект компоненты. Объект = Новый("AddIn.Scanner"); Исключение...
Режим = РежимДиалогаВопрос.ДаНетОтмена; Ответ = Вопрос("Выполнить?", Режим, 0); Если Ответ =КодВозвратаДиалога.Да Тогда Сообщить("Выполнено"); ИначеЕсли Ответ = КодВозвратаДиалога.Нет...
Примеры кода для 7 версии, но будут работать и в 8-ой Функция мРазнПреобразоватьСтрокуСБольшимиБуквами(ИсходнаяСтрока) Экспорт СтрокаВозврата = Сред(ИсходнаяСтрока,...
Для 8.1 : 1. Список баз 8.1 можно сохранять в файл.Для этого правой кнопкой мыши по корневому...
Процедура ПечатьВWord() wrd=создатьобъект("word.application"); wrd.documents.add("D:\doc.dot"); wrd.visible=1; wrd.documents(1).tables(1).cell(1,2).range.text = НомерДок; wrd.documents(1).tables(1).cell(1,4).range.text = ДатаДок; wrd.documents(1).tables(1).cell(2,2).range.text = Склад.Наименование; wrd.documents(1).tables(1).cell(3,2).range.text = Получатель.Наименование;...