Имя: Пароль:
1C
 
Почему вызывается Outlook
0 Neirofun
 
01.08.19
16:03
Во время отладки почему-то вызывается Outlook хотя нигде не фигурирует. Может кто подсказать?

Процедура ЗагрузитьВРСНажатие(Элемент)
    Попытка
        
            Excell = Новый COMОбъект("Excel.Application");
        
    Исключение
        
            Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
        
    Возврат;
    КонецПопытки;

    Книга = Excell.WorkBooks.Open(ПутьКФайлу); ///здесь необходимо указать путь к шаблону
    Лист = Книга.WorkSheets(1);
    ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
    ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
    НовДокРС = Документы.ИзменениеДополнительныхПараметровНоменклатуры.СоздатьДокумент();
    НовДокРС.Организация = Справочники.Организации.НайтиПоКоду("00001   ");   //Розничная сеть Торес
    НовДокРС.Дата = ТекущаяДата();
    НовДокРС.ХозОперация = Справочники.ХозОперации.УстановкаПараметровСистемыЗаказовВыборочная;
    НовДокРС.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");   //643 Рубли
    НовДокРС.Автор = ПараметрыСеанса.Пользователь;
    НовДокРС.ПодразделениеКомпании = Справочники.ПодразделенияКомпании.НайтиПоКоду("00001   ");  //Код розничной сети
    НовДокРС.УстановитьНовыйНомер();
        
    Для Строка = 1 По ВсегоСтрок Цикл
    
        //СтрокаТабличнойЧасти = НовДокРС.ТоварыДокумента.Добавить();
    
        Для Колонка = 1 По ВсегоКолонок Цикл
        
            Значение = СокрЛП(Лист.Cells(Строка,Колонка).Value);
                        
            Если Колонка = 1 тогда
                Если не    Значение = "" Тогда
                      Подразделение = (Справочники.ПодразделенияКомпании.НайтиПоНаименованию(Значение));
                      Если Подразделение.Организация =  Справочники.Организации.НайтиПоКоду("00001   ") Тогда
                          СтрокаТабличнойЧасти = НовДокРС.ТоварыДокумента.Добавить();
                          СтрокаТабличнойЧасти.ПодразделениеНазначения = Подразделение;
                          Иначе Прервать;
                      КонецЕсли;
            
                КонецЕсли;
            ИначеЕсли Колонка = 2 Тогда
                Если не    Значение = "" Тогда
                    Значение = Справочники.Номенклатура.НайтиПоКоду(Значение);
                    СтрокаТабличнойЧасти.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(Значение);
                КонецЕсли;
            ИначеЕсли колонка = 4 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.ОсновнойПоставщик = Справочники.Контрагенты.НайтиПоНаименованию(Значение);
                КонецЕсли;
            ИначеЕсли колонка = 5 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.АльтернативныйПоставщик1 = Справочники.Контрагенты.НайтиПоНаименованию(Значение);
                    //СтрокаТабличнойЧасти.АльтернативныйПоставщик2 = Справочники.Контрагенты.НайтиПоНаименованию(Значение);    
                КонецЕсли;
            ИначеЕсли колонка = 6 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.Менеджер = Справочники.Сотрудники.НайтиПоНаименованию(Значение);
                КонецЕсли;
            ИначеЕсли колонка = 7 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.ПериодичностьЗаказа = Перечисления.ВидыПериодичностиЗаказов.Еженедельно;
                    //СтрокаТабличнойЧасти.КоличествоДнейПериодичности = Значение;
                КонецЕсли;
            ИначеЕсли колонка = 8 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.ДниНедели = Значение;
                КонецЕсли;
            ИначеЕсли колонка = 9 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.СрокПоставки = Число(Значение);        
                КонецЕсли;
            ИначеЕсли колонка = 10 Тогда
                    СтрокаТабличнойЧасти.ПараметрыКоличества = Перечисления.ВидыКоличестваЗаказа.АвтоматическийРассчет;
                    //СтрокаТабличнойЧасти.Количество = Число(Значение);
            ИначеЕсли колонка = 11 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.КвантПоставки = Число (Значение);
                КонецЕсли;
            ИначеЕсли колонка = 12 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.МинимальныйОстаток = Число (Значение);
                    СтрокаТабличнойЧасти.МаксимальныйЗапас = Число (Значение);
                КонецЕсли;
            ИначеЕсли колонка = 13 Тогда
                Если не    Значение = "" Тогда
                    СтрокаТабличнойЧасти.ПроцентОтходов = Число (Значение);
                КонецЕсли;
            КонецЕсли;

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

//Исключение

Сообщить(""+ОписаниеОшибки());

//КонецПопытки;

КонецПроцедуры
1 ДенисЧ
 
01.08.19
16:08
В какой момент он вызывается - мы должны угадать?
2 Neirofun
 
01.08.19
16:11
http://prntscr.com/omzobd  Вот скрин в момент когда он вызывается
3 dka80
 
01.08.19
16:22
Вероятно, просто переключается текущее активное окно
Посмотри тут, может поможет:
https://forum.infostart.ru/forum9/topic135806/
4 Neirofun
 
01.08.19
16:41
Понял, буду пробовать