Листинг процедуры при открытии
Процедура ПриОткрытии()
ВыборАгента();
СзК = СоздатьОбъект("СписокЗначений");
СзТМЦ = СоздатьОбъект("СписокЗначений");
ТзТМЦ = СоздатьОбъект("ТаблицаЗначений");
ТзТМЦ.НоваяКолонка("ГУИД");
ТзТМЦ.НоваяКолонка("ПапкаГуид");
ТзТМЦ.НоваяКолонка("Папка");
ТзТМЦ.НоваяКолонка("Название");
ТзТМЦ.НоваяКолонка("Код");
ТзТМЦ.НоваяКолонка("ВЧем");
ТзТМЦ.НоваяКолонка("Цена");
ТзТМЦ.НоваяКолонка("Остаток");
Фирма = СоздатьОбъект("Справочник.Фирмы");
Фирма.ВыбратьЭлементы();
Пока Фирма.ПолучитьЭлемент() = 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 = "Файл отправки не забран КПК";
КонецЕсли;
КонецЕсли;
КонецЕсли;
Форма.обновить();
КонецПроцедуры
Цитата(Batchir @ 05.10.11, 10:37) необходимо зарегистрироваться для просмотра ссылки
В отладчике не видно на чем вылетает?
На других компах, конфигурациях, бд как себя ведет?
на компе с ОС 2008 Server и той же конфигурацией 1С, но DBF ной только что проверил - не вылетает...
Версии внешних компонент одинаковы.