25.08.2025

8.x

// Траб - Таблица значений с данными // Диаграмма - ЭлементыФормы.Диаграмма Процедура ПостроитьДиаграмму(Траб,Диаграмма) Для Каждого Колонка из...
Для 8.х в нижеследующем коде замените СоздатьОбъект( на Новый COMОбъект! //Пример 1: Процедура Сформировать() Екскел=СоздатьОбъект("Excel.Application"); Книга=Екскел.WorkBooks.Open("C:\Ищем.xls"); Книга.Worksheets(1).Unprotect...
Процедура ПереместитьСтрокуДерева(Дерево, ПеремещаемаяСтрока, НовыйРодитель, Уровень = 0) Если Уровень = 0 Тогда НоваяСтрока = НовыйРодитель.Строки.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, ПеремещаемаяСтрока);...
ВЫБРАТЬ ХозрасчетныйВидыСубконто.Ссылка КАК Счет ИЗ ПланСчетов.Хозрасчетный.ВидыСубконто КАК ХозрасчетныйВидыСубконто ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПланСчетов.Хозрасчетный.ВидыСубконто КАК ХозрасчетныйВидыСубконто1 ПО ХозрасчетныйВидыСубконто.Ссылка = ХозрасчетныйВидыСубконто1.Ссылка...
Если Не Контрагент.Пустая() Тогда ФормаПодчиненныхДоговоров = Справочники.ДоговорыКонтрагентов.ПолучитьФормуСписка(); ФормаПодчиненныхДоговоров.ПараметрОтборПоВладельцу = Контрагент; ФормаПодчиненныхДоговоров.Открыть(); КонецЕсли;
// Добавление записей в периодический независимый регистр сведений НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Валюта.Установить(ТекущаяВалюта); НаборЗаписей.Отбор.Период.Установить(ТекущаяДата); НовЗапись = НаборЗаписей.Добавить(); НовЗапись.Валюта...
RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.IgnoreCase = Ложь; //Игнорировать регистр RegExp.Global = Истина; //Поиск всех вхождений шаблона RegExp.MultiLine...
Срок годности позиции номенклатуры задается в справочнике «Номенклатура» на закладке «Серии номенклатуры». Отчет по товарам с указанием...
// Найти и открыть документ Результат = Документы.РасходнаяНакладная.НайтиПоНомеру(НомерДок, РабочаяДата); Если Результат.Пустая() Тогда Предупреждение("Документ не найден!"); Иначе Результат.ПолучитьФорму().Открыть();...
ПараметрыПредметаИсчисления = "килограмм, килограмма, килограммов, м, грамм, грамма, граммов, м, 3"; ФорматнаяСтрока = "Л=ru_RU; ДП=Истина"; Сообщить(ЧислоПрописью(ВыводимоеЧисло, ФорматнаяСтрока,...