25.08.2025

7.x

7.x

Для включения интерактивной помощи в приложение на платформе 1С версии 7.7 достаточно добавить на форму кнопку вызова...
// Пример 1 РегТовары = СоздатьОбъект("Регистр.Товары"); РегТовары.ВыбратьИтоги(); Пока РегТовары.ПолучитьИтог()=1 Цикл Сообщить("Товар " + Строка(РегТовары.Товар) + " на...
&НаКлиенте Процедура ПоКнопкеНайти(Команда) // Вставить содержимое обработчика. Сообщить(НайтиКонтрагента("000000001")); КонецПроцедуры &НаСервере Функция НайтиКонтрагента(КодКонтрагента) Перем КонрагентДляПоиска, СсылкаНайденногоКонрагента; КонрагентДляПоиска =...
// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия Попытка БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги"); Исключение Предупреждение("Для работы конфигурации...
Шелл=СоздатьОбъект("Shell.Application"); Место=Шелл.NameSpace(Путь); Сообщить(Место.GetDetailsOf(Место.ParseName(Файл),26)); А если картинка на интерне сайте, и нужно узнать ее высоту, то: ИЕ=CreateObject("InternetExplorer.Application"); ИЕ.Navigate("Aboutblank");...
Перем ИмяПути,ИмяФайла; Перем xmlParser; //пример чтения xml файла. Функция УстановитьКомпоненту() Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда Сообщить("Не...
Для Ном=1 По Метаданные.ГруппаРасчета() Цикл кфгГруппаРасч = Метаданные.ГруппаРасчета(Ном); //недоработка фирмы 1С. По имени группы расчета нельзя получить...
Для 8.х в нижеследующем коде замените СоздатьОбъект( на Новый COMОбъект! //Пример 1: Процедура Сформировать() Екскел=СоздатьОбъект("Excel.Application"); Книга=Екскел.WorkBooks.Open("C:\Ищем.xls"); Книга.Worksheets(1).Unprotect...
// Функция возвращает Истина при соответствии типов, ложь в обратном случае Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач) Возврат ТипЗнч(ИсхЗнач) = Тип(ТипЗнач);...
В чем дело, программа пишет "Неудачная попытка создания объекта (AddIn.XMLParser)"? Очевидно, что Вы запускаете обработку, которая использует...
// Пример 1 РегДоходы = СоздатьОбъект("Регистр.Доходы"); ТабЗнач = СоздатьОбъект("ТаблицаЗначений"); РегДоходы.ВыгрузитьИтоги(ТабЗнач); ТабЗнач.ВыбратьСтроки(); Пока ТабЗнач.ПолучитьСтроку()=1 Цикл Сообщить("Товар " +...