Все записи автора prog

1с:8.2 Управляемые формы. Как открыть форму элемента справочника

Вот способ открытия формы элемента справочника  в управляемых формах (1с 8.2, 1с 8.3)

Делаем на примере справочника товары


&НаКлиенте
Процедура ОткрытьТовары(Команда)
 Параметр = Новый Структура("Ключ", Товар); 
    
 Форма = ПолучитьФорму(

         "Справочник.Товары.Форма.ФормаЭлемента"
        ,Параметр);
 Форма.Открыть();
КонецПроцедуры


1с:8.2 Управляемые формы. Как открыть форму элемента справочника

Вот способ открытия формы элемента справочника  в управляемых формах (1с 8.2, 1с 8.3)

Делаем на примере справочника товары


&НаКлиенте
Процедура ОткрытьТовары(Команда)
 Параметр = Новый Структура("Ключ", Товар); 
    
 Форма = ПолучитьФорму(

         "Справочник.Товары.Форма.ФормаЭлемента"
        ,Параметр);
 Форма.Открыть();
КонецПроцедуры


1с 8: Установка сервера 1с 8.3. Ошибка загрузки компоненты testbase

Если инсталлировать сервер 1с 8.3 без платформы, возникает ошибка загрузки компоненты testbase
После инсталляции скопировать в папку с сервером 1С файл testbase.dll и перезагрузиться. Перезапуск служб сервера почему-то не помогает...

1с 8: Установка сервера 1с 8.3. Ошибка загрузки компоненты testbase

Если инсталлировать сервер 1с 8.3 без платформы, возникает ошибка загрузки компоненты testbase
После инсталляции скопировать в папку с сервером 1С файл testbase.dll и перезагрузиться. Перезапуск служб сервера почему-то не помогает...

1c 8.1 Как найти файлы во вложеных каталогах

Как найти все файлы во вложеных папках? Есть простой способ:



Процедура НайтиВсеФайлы(Путь)
НайденныеФайлы = НайтиФайлы(Путь, "*.*");
Для каждого НайденныйФайл Из НайденныеФайлы Цикл
    Если НайденныйФайл.ЭтоКаталог() Тогда
        // Ищем все файлы в найденном каталоге 
        НайтиВсеФайлы(НайденныйФайл.ПолноеИмя);
    Иначе
        // Это файл, выведем его полное имя 
        Сообщить(НайденныйФайл.ПолноеИмя);
        НовыйЭлемент = Справочники.Файлы.СоздатьЭлемент();
        НовыйЭлемент.Наименование = НайденныйФайл.Имя;
        НовыйЭлемент.Путь = НайденныйФайл.Путь;
        НовыйЭлемент.РазмерФайла = (НайденныйФайл.Размер())/1000;
        НовыйЭлемент.ПолноеНаименование = НайденныйФайл.ПолноеИмя;
        НовыйЭлемент.Записать();
    КонецЕсли;
КонецЦикла;
КонецПроцедуры

источник

1c 8.1 Как найти файлы во вложеных каталогах

Как найти все файлы во вложеных папках? Есть простой способ:



Процедура НайтиВсеФайлы(Путь)
НайденныеФайлы = НайтиФайлы(Путь, "*.*");
Для каждого НайденныйФайл Из НайденныеФайлы Цикл
    Если НайденныйФайл.ЭтоКаталог() Тогда
        // Ищем все файлы в найденном каталоге 
        НайтиВсеФайлы(НайденныйФайл.ПолноеИмя);
    Иначе
        // Это файл, выведем его полное имя 
        Сообщить(НайденныйФайл.ПолноеИмя);
        НовыйЭлемент = Справочники.Файлы.СоздатьЭлемент();
        НовыйЭлемент.Наименование = НайденныйФайл.Имя;
        НовыйЭлемент.Путь = НайденныйФайл.Путь;
        НовыйЭлемент.РазмерФайла = (НайденныйФайл.Размер())/1000;
        НовыйЭлемент.ПолноеНаименование = НайденныйФайл.ПолноеИмя;
        НовыйЭлемент.Записать();
    КонецЕсли;
КонецЦикла;
КонецПроцедуры

источник