Код //Функция открывает таблицу в MS Excel //Таблица - печатная форма 1С //ИмяЛиста - имя, которое будет...
7.x
7.x
// Глобальная переменная в которой будем хранить // известные нам типы статусов сетевой карты перем сзТипСтатуса; //...
// Документ - ссылка на документ, Реквизит - название реквизита, например "Контрагент" Функция гРеквизитДокумента(Документ,Реквизит) Экспорт Если Метаданные.Документ(Документ).РеквизитШапки(Реквизит).Выбран()=1...
Добавление записи в журнал расчетов: Метод Новая может быть вызван где угодно, в глобальном модуле, модуле обработок,...
Для 8.х заменить СоздатьОбъект( на Новый COMОбъект( // Пример от Jaap Vduul // Пример чтения таблицы из...
Это выполняется в предопределенной процедуре ПриОткрытии модуля формы списка Журнала расчетов Зарплата. процедура ПриОткрытии() // Предопределенная процедура...
// Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel //...
RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.IgnoreCase = Ложь; //Игнорировать регистр RegExp.Global = Истина; //Поиск всех вхождений шаблона RegExp.MultiLine...
Функция ПолучитьТаблицуКурсов(ДатаКурса) Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов; Reader = СоздатьОбъект("MSXML2.XMLHTTP");...
Текст = ""; Подсказка = "Введите текст напоминания"; Если ВвестиСтроку(Текст,Подсказка, 0, истина) Тогда // запомнить текст напоминания...
Заполняет Вордовский шаблон из СпискаЗначений Вставляется в виде обрабтки. При открытии передается СЗ первым значением идет WORD,...
Функция ПересечениеОтрезков(А1, А2, Б1, Б2) Если А1<=Б1 Тогда Х = Мин(Б2-Б1,А2-Б1); Х = Макс(Х,0); // если Х<0,...
При выводе на печать кассовых документов не подставляются ответственные лица, генеральный директор и главный бухгалтер хотя они...
// Пример 1 Процедура ПолучитьОстатки(Товар, Склад, ОстатокТовара, Стоимость); Регистр.УчетТовара.Остатки(Товар, Склад); ОстатокТовара = Регистр.УчетТовара.ОстаткиТовара; Стоимость = Регистр.УчетТовара.СтоимостьТовара; КонецПроцедуры...
Рассчитать все регистры с установленным флагом временного расчета на начало события. (на начало даты или на момент...
Форма = Справочники.Номенклатура.ПолучитьФормуСписка(); Форма.Открыть(); Форма = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФорму("ФормаСпискаФайловИИзображений"); Форма.Открыть(); Элемент = Справочники.Номенклатура.НайтиПоКоду("00030"); Форма = Элемент.ПолучитьФорму(); Форма.Открыть(); Перем контр;...
// Пример 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'; ДатаКон =...