// Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel //...
7.x
7.x
RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.IgnoreCase = Ложь; //Игнорировать регистр RegExp.Global = Истина; //Поиск всех вхождений шаблона RegExp.MultiLine...
Запустите программу «1С:Предприятие» в монопольном режиме: меню «Пуск» -> «Программы» -> «1С:Предприятие 7.7» -> «1С:Предприятие Монопольно». Для...
Текст = ""; Подсказка = "Введите текст напоминания"; Если ВвестиСтроку(Текст,Подсказка, 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'; ДатаКон =...
В 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 = Истина; //Игнорировать регистр...
Функция ПолучитьТаблицуКурсов(ДатаКурса) Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов; Reader = СоздатьОбъект("MSXML2.XMLHTTP");...
КолВо = 1; Если ВвестиЧисло(КолВо, "Введите количество", 10, 2) Tогда // обработка введенного количество КонецЕсли; Если ВвестиЧисло(Ном,...