[Talkman]

И снова здравствуйте. Проблема у меня. Написал я обработку, которая делает загрузку выгрузку данных из 1С в Агент Плюс и наоборот. Работает без проблем, если не считать, что при закрытии обработки вылетает сеанс 1С. Даже не знаю как конкретнее осве(Я)тить проблему. Добавлю что использую внешние компоненты

 ЗагрузитьВнешнююКомпоненту(ПутьКПримеру+"DialMail.dll");

и

 ЗагруженV7Plus = ЗагрузитьКомпоненту("V7Plus.dll");

. Мануал был просмотрен, пару страниц гугла прочтено, но причины так и не нашел. Может при закрытии необходимо как то выгружать компоненты?... В общем я в замешательстве. Спасибо за внимание. Жду ваших комментариев. Добавлю что ОС Win2k3. Конфигурация 1С ПУБ жестоко переделанная. 7.70.027

[Vofka]

Даже если просто открыть/закрыть (без нажатия каких-то кнопок и выполнения операций) 1С вылетает?

[Talkman]

Даже если просто открыть/закрыть (без нажатия каких-то кнопок и выполнения операций) 1С вылетает?

Да

[Batchir]

В отладчике не видно на чем вылетает?
На других компах, конфигурациях, бд как себя ведет?

[Talkman]

Листинг процедуры при открытии

Процедура ПриОткрытии()
    ВыборАгента();
    СзК = СоздатьОбъект("СписокЗначений");    
    СзТМЦ = СоздатьОбъект("СписокЗначений");    
    ТзТМЦ = СоздатьОбъект("ТаблицаЗначений");
    ТзТМЦ.НоваяКолонка("ГУИД"); 
    ТзТМЦ.НоваяКолонка("ПапкаГуид");
    ТзТМЦ.НоваяКолонка("Папка");
    ТзТМЦ.НоваяКолонка("Название");
    ТзТМЦ.НоваяКолонка("Код");
    ТзТМЦ.НоваяКолонка("ВЧем");
    ТзТМЦ.НоваяКолонка("Цена");
    ТзТМЦ.НоваяКолонка("Остаток");
    
    Фирма = СоздатьОбъект("Справочник.Фирмы");
    Фирма.ВыбратьЭлементы();
    Пока Фирма.ПолучитьЭлемент() = 1 Цикл 
        Если СокрЛП(Строка(Фирма)) = "Полікор" Тогда
            прервать;
        КонецЕсли;
    КонецЦикла;
    
    СчетПоУмолчанию = СоздатьОбъект("Справочник.НашиДенежныеСчета");
    СчетПоУмолчанию.ИспользоватьРодителя(Фирма);
    СчетПоУмолчанию.НайтиПоКоду(2,0);
    СчетПоУмолчанию = СчетПоУмолчанию.ТекущийЭлемент();    
    СписокФайлов = СоздатьОбъект("СписокЗначений");
    
    Если УстановитьКомпоненту()=0 тогда
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;
    КаталогДобавления = ФС.ТекКаталог();
    МаскаФайлов = "*.*";
    МаскаФайловАрхива = "*.*";
    ИмяАрхива = "archiv.zip";
    Состояние ("Версия компоненты "+SystComm.Версия);  
    
КонецПроцедуры

Процедура ВыборАгента()      //проверки на наличие файлов
    
    Если Агент.Выбран() = 1 Тогда
        ПутьЗагрузки = "C:\APlusSrvRoot\PPC1\To1C.XML";
        ПутьВыгрузки = "C:\APlusSrvRoot\PPC1\From1C.dat"; 
        
        Если ФС.СуществуетФайл("C:\APlusSrvRoot\PPC1\To1C.ZIP") = 1 Тогда
            ФайлАрхива = "C:\APlusSrvRoot\PPC1\To1C.ZIP"; 
        Иначе
            Сообщить("Не найден архив выгрузки данных из КПК!","!");
            Возврат;
        КонецЕсли;
        
        Если СокрЛП(Агент.Наименование) = "Зозуля О. С." Тогда  
            
            
            Если Фс.СуществуетФайл(ПутьВыгрузки) = 1 тогда
                Примечание1 = "Файл присутствует";
            Иначе 
                Примечание1 = "ФАЙЛ ОТСТУТСТВУЕТ!!!";
            КонецЕсли;    
            
        КонецЕсли; 
        
        Если СокрЛП(Агент.Наименование) = "Зозуля О. С." Тогда  

            Если Фс.СуществуетФайл(ПутьЗагрузки) = 1 тогда
                Примечание1 = "Файл присутствует";
            Иначе 
                Если ФС.СуществуетФайл("C:\APlusSrvRoot\PPC1\To1C.ZIP") = 1 Тогда
                    Примечание1 = "Есть ZIP файл. Разархивируте для загрузки.";
                иначе
                    Примечание1 = "ФАЙЛ ОТСТУТСТВУЕТ!!!";    
                КонецЕсли;
            КонецЕсли;
            
            Если ФС.СуществуетФайл("C:\APlusSrvRoot\PPC1\To1C.ZIP") = 0 Тогда
                Примечание2 = "Файл к отправке не готов";
            иначе
                Примечание2 = "Файл отправки не забран КПК";
            КонецЕсли;
            
        КонецЕсли; 
    КонецЕсли;
    
    Форма.обновить();
КонецПроцедуры

В отладчике не видно на чем вылетает?
На других компах, конфигурациях, бд как себя ведет?

на компе с ОС 2008 Server и той же конфигурацией 1С, но DBF ной только что проверил - не вылетает...


Версии внешних компонент одинаковы.

[Flexy]

А где инициализация ФС?
Помню у меня без нее не работала работа с файлами и тоже вываливались ошибки.
Делал так:

ФС = СоздатьОбъект("ФС");
...

[Talkman]

А где инициализация ФС?
Помню у меня без нее не работала работа с файлами и тоже вываливались ошибки.
Делал так:

ФС = СоздатьОбъект("ФС");
...

На сколько я помню в 1С не обязательно создавать объект ФС. Он присутствует по умолчанию. Но сейчас попробую... мало ли...

На сколько я помню в 1С не обязательно создавать объект ФС. Он присутствует по умолчанию. Но сейчас попробую... мало ли...

Фс = СоздатьОбъект("ФС");
{F:\BASE\POLYKOR_SQL\EXTFORMS\IPAQ\ПРОБААГЕНТ - КОПИЯ.ERT(854)}: Попытка присвоить значение недоступной для записи переменной (ФС)


О чем я и говорил

[Flexy]

тьфу
ФС зарезервированный объект.И его нельзя юзать как перменную.
Пардонтье.
От так попробуйте:

ФайлСистем = СоздатьОбъект("ФС");

Сообщение отредактировал Flexy - 05.10.11, 10:01

[Talkman]

тьфу
ФС зарезервированный объект.И его нельзя юзать как перменную.
Пардонтье.
От так попробуйте:

ФайлСистем = СоздатьОбъект("ФС");

Я, конечно, дико извиняюсь, но зачем инициализировать еще один обїект ФС, если уже присутствует объект ФС по умолчанию. Я понимаю, что семерка глючная в некоторых моментах, но не на столько же...



Умом семерку не понять... Перестало вылетать.... О_о...

Причина редактирования: Прочтите правила форума!!!

[Flexy]

Умом семерку не понять... Перестало вылетать.... О_о...

Стихами говорите
Вот и чудненько

[Talkman]

Стихами говорите
Вот и чудненько

Благодарим-с.