Форма = Справочники.Номенклатура.ПолучитьФормуСписка(); Форма.Открыть(); Форма = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФорму("ФормаСпискаФайловИИзображений"); Форма.Открыть(); Элемент = Справочники.Номенклатура.НайтиПоКоду("00030"); Форма = Элемент.ПолучитьФорму(); Форма.Открыть(); Перем контр;...
7.x
7.x
// Пример 1 Сервер="IP-адрес-сайта"; // IP адрес сайта ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных ПарольСервера="пароль-пользователя-базы-данных"; // пароль...
Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение ИмяФайла = ПолучитьИмяВременногоФайла(".txt"); //строка-образец //http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1 //http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1 СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER"; СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ",""); Попытка //соединяемся...
Режим предназначен для выполнения конфигуратором административных функций без участия пользователя. Данный режим применяется в специальных случаях. Например,...
Например, организуем перебор записей с периодом действия в январе. ЖЗ = СоздатьОбъект("ЖурналРасчетов.Зарплата"); ДатаНач = '01.01.2002'; ДатаКон =...
В 8-ых версиях используйте: ИспользуемоеИмяФайла (UsedFileName) Использование: Только чтение. Описание: Тип: Строка. Содержит полное имя файла внешней...
Копировать из 1С в буфер обмена( без ВК): ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь); Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow; Окно.ClipboardData.SetData("Text", ТекстПисьма); ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));...
Замечание: В Excel разделителем дробной части считается символ ",". Поэтому перед сохранением таблицы 1С в формате Excel...
RegExp = CreateObject("VBScript.RegExp"); // здесь под восьмерку переделай RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.IgnoreCase = Истина; //Игнорировать регистр...
Иногда возникает ситуация, когда необходимо очистить базу от документов, это либо открытие нового периода с чистой базой,...
КолВо = 1; Если ВвестиЧисло(КолВо, "Введите количество", 10, 2) Tогда // обработка введенного количество КонецЕсли; Если ВвестиЧисло(Ном,...
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);...