Проверил, обработка работает

Установил технологическую платформу 8.2.16.368. Запустил под админом

Тест делал так:

1. Демонстрационная конфигурация к книге "Разработка управляемого интерфейса"
2. Конфигурация - Поставка конфигурации - Настройка поставки
3. Для одного из документов убрал "Включать в поставку исходный текст модулей объекта"
4. Конфигурация - Поставка конфигурации - Создать файл поставки и обновления конфигурации - Создать файл поставки
5. Открыл получившийся cf-шник и проверил что модуль документа скрыт

Запустил 8.2, открыл в ней обработку декомпиляции
В обработке открыл cf-файл и выполнил декомпиляцию
В процессе выдало пару сообщений "Неизвестный вид метаданных"+GUID, "Неизвестный вид группы метаданных"+GUID

Сверил модуль документа из конфигурации и из cf-файла - декомпиляция прошла правильно

zay @ Сегодня, 9:48 ,
A винда какая? у меня ругается при открытии обработки на регистрацию dll

alexandr_f @ Сегодня, 10:11 ,
Windows 7 professonal, SP1, 64-bit

у меня wind 10 64 bit. Ни в какую не регистрирует длл. Пишет точка входа не найдена

alexandr_f @ 06.10.23, 11:25 ,

Как регистрируете библиотеку? Если Windows x64, то по умолчанию используется regsvr32 x64. Попробуйте использовать regsvr32 x86.

X:\Windows\System32\regsvr32.exe или X:\Windows\SysWOW64\regsvr32.exe

Здравствуйте,
помогите пожалуйста разблокировать этот файл

Подскажите какой код вставить в обьект чтобы декомпилятор не вскрыл его когда она за паролем как пример.

ramin666 @ 02.07.24, 16:01 ,

// <Назначение: Создает документ "Поступление товаров и услуг" на основании данных из файла Excel.>
// <Параметры: >
//  ИмяФайла - Строка - Полный путь к файлу Excel для импорта.
//  Склад - СправочникСсылка.Склады - Склад, на который оформляется поступление.
//  ВыводитьСообщения - Булево - (необязательный) Если Истина, будут выводиться диагностические сообщения.
//
Процедура СоздатьПоступлениеИзExcel(Знач ИмяФайла, Знач Склад, Знач ВыводитьСообщения = Ложь) Экспорт
    
    // <INITIALIZATION>
    
    Попытка
        
        ExcelПриложение = Новый COMОбъект("Excel.Application");
        ExcelПриложение.Workbooks.Open(ИмяФайла);
        ЛистExcel = ExcelПриложение.Sheets(1);
        ВсегоСтрок = ЛистExcel.Cells(1, 1).SpecialCells(11).Row;
        
    Исключение
        
        ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
        Если ВыводитьСообщения Тогда
            Сообщить("Не удалось открыть файл Excel: " + ОписаниеОшибки);
        КонецЕсли;
        Возврат;
        
    КонецПопытки;
    
    // <DOCUMENT_CREATION>
    
    НовыйДокумент = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
    НовыйДокумент.Дата = ТекущаяДата();
    НовыйДокумент.Склад = Склад;
    // Предполагаем, что контрагент указан в одной из ячеек, например, B1
    НаименованиеКонтрагента = СокрЛП(ЛистExcel.Cells(1, 2).Value); 
    
    // <DATABASE_QUERY>
    
    НайденныйКонтрагент = Справочники.Контрагенты.НайтиПоНаименованию(НаименованиеКонтрагента);
    Если НЕ ЗначениеЗаполнено(НайденныйКонтрагент) Тогда
        
        // <LOGIC_BRANCH_CONTRACTOR_NOT_FOUND>
        
        Если ВыводитьСообщения Тогда
            Сообщить("Контрагент '" + НаименованиеКонтрагента + "' не найден. Документ не будет создан.");
        КонецЕсли;
        ExcelПриложение.Quit();
        Возврат;
        
    КонецЕсли;
    
    НовыйДокумент.Контрагент = НайденныйКонтрагент;
    
    // <DATA_PROCESSING_LOOP>
    
    // Предполагается, что данные начинаются со строки 2
    Для НомерСтроки = 2 По ВсегоСтрок Цикл
        
        // <READ_EXCEL_DATA>
        
        НаименованиеНоменклатуры = СокрЛП(ЛистExcel.Cells(НомерСтроки, 1).Value);
        Количество = ЛистExcel.Cells(НомерСтроки, 2).Value;
        Цена = ЛистExcel.Cells(НомерСтроки, 3).Value;
        
        // <VALIDATION>
        
        Если НЕ ЗначениеЗаполнено(НаименованиеНоменклатуры) Тогда
            
            Продолжить;
            
        КонецЕсли;
        
        // <DATABASE_QUERY>
        
        НайденнаяНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(НаименованиеНоменклатуры);
        Если НЕ ЗначениеЗаполнено(НайденнаяНоменклатура) Тогда
            
            // <LOGIC_BRANCH_ITEM_NOT_FOUND>
            
            Если ВыводитьСообщения Тогда
                Сообщить("Номенклатура '" + НаименованиеНоменклатуры + "' в строке " + НомерСтроки + " не найдена и будет пропущена.");
            КонецЕсли;
            Продолжить;
            
        КонецЕсли;
        
        // <DOCUMENT_TABLE_POPULATION>
        
        НоваяСтрокаТоваров = НовыйДокумент.Товары.Добавить();
        НоваяСтрокаТоваров.Номенклатура = НайденнаяНоменклатура;
        НоваяСтрокаТоваров.Количество = Количество;
        НоваяСтрокаТоваров.Цена = Цена;
        НоваяСтрокаТоваров.Сумма = Количество * Цена;
        
    КонецЦикла;
    
    // <FINALIZATION>
    
    Если НовыйДокумент.Товары.Количество() > 0 Тогда
        
        // <OPERATION_SAVE_DOCUMENT>
        
        НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
        Если ВыводитьСообщения Тогда
            Сообщить("Создан документ: " + НовыйДокумент);
        КонецЕсли;
        
    Иначе
        
        // <OPERATION_ABORT>
        
        Если ВыводитьСообщения Тогда
            Сообщить("В файле не найдено ни одной корректной строки для загрузки. Документ не создан.");
        КонецЕсли;
        
    КонецЕсли;
    
    ExcelПриложение.Quit();
    
КонецПроцедуры