День добрый!

Есть обработка: формирование ценников.
На ней есть кнопка "Заполнить цены из прайса". На кнопке - процедура:
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(гТабВыборка,        "Данные");
Параметры.ДобавитьЗначение(ДокументПрайсЛист,    "Прайс");
ОткрытьФормуМодально("Обработка.ПоискЦен", Параметры);


Обработка - ПоискЦен
Перем МожноЗакрыть;

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

       РабочаяТаблица.ВыбратьСтроки();

       Если СокрЛП(ДокументПрайсЛист) = "" Тогда
           Предупреждение("Укажите прайс-лист.");
           Активизировать("ДокументПрайсЛист");
           Возврат;
       КонецЕсли;
       
       Excel                = СоздатьОбъект("Excel.Application");
       Книга                = Excel.Workbooks.Open(ДокументПрайсЛист);
       Лист                = Книга.WorkSheets(1);
       Колонки            = Лист.Columns(1);
       мПоследняяСтрока    = Лист.UsedRange.Rows.Count;
       мТекЯчейка            = Лист.Range("D1:D" + Лист.UsedRange.Rows.Count).Address();
       Диапазон            = Лист.Range("D1:" + мТекЯчейка);

       Пока РабочаяТаблица.ПолучитьСтроку() = 1 Цикл
           
           мАртикулПрайс = СокрЛП(РабочаяТаблица.АртикулПрайс);
           Попытка
               
               Нашли = Диапазон.Find(мАртикулПрайс, Диапазон.Cells(1,1), -4123,1,1,1,0,0);
               НашлиАдрес = Нашли.Address;
               НашлиСтрока = Нашли.Row;
               НашлиКолонка = Нашли.Column;
               НоваяКолонка = НашлиКолонка + 2;
               
               Цена = Окр(Лист.Cells(НашлиСтрока,НоваяКолонка).Value);
               РабочаяТаблица.ЦенаИзПрайса = Цена;        
           СтрокаСостояния    = СтрокаСостояния + ".";
           Исключение
               Сообщить("Номенклатура с артикулом - " + мАртикулПрайс + " не найдена в прайс-листе.");    
           КонецПопытки;    
           
       КонецЦикла;
       Excel.DisplayAlerts = 0;
       Excel.Quit();
   КонецЕсли;
   
   МожноЗакрыть = 1;
   Форма.Закрыть(0);
   
КонецПроцедуры    // ПослеОткрытия

Процедура ПриОткрытии()
   
   МожноЗакрыть = 0;
   
   РабочаяТаблица        = Форма.Параметр.Получить("Данные");
   ДокументПрайсЛист    = Форма.Параметр.Получить("Прайс");

   Выполнить(РабочаяТаблица, ДокументПрайсЛист);
   
КонецПроцедуры    // ПриОткрытии

Процедура ПриЗакрытии()
   
   СтатусВозврата(МожноЗакрыть);
   
КонецПроцедуры    // ПриЗакрытии

На форме обработки "ПоискЦен" - текстовой поле "идет поиск.....". Так вот: поиск происходит, все, что надо заполняется, а вот форма не отображается. Почему?
Спасибо.

Форма отображается только когда ей передается управление - то есть когда завершается выполнение кода.

(0)


   МожноЗакрыть = 1;
   Форма.Закрыть(0);


  СтатусВозврата(МожноЗакрыть);

она не открывается

Бляха-муха....
А как сделать, чтобы сначала отобразилась форма, а потом началось выполнение. без доп. движений пальцами?

(3) через повторное открытие

не пойму Ёпрст в отпуске что-ли?

(4) Это как?

(5) Да, блин! Где он?

(3) Форма.обработкаОжидания("Сформировать",5)

(8) ПриОткрытии?

(2) Форма.Закрыть() обрабатывается только после завершения работы кода.

(8) точно, форма то модальная, не уследил
(10) ага, но форма не откроется

(11) И при чем тут (2)?

Скажите, куда пихать ОбработкуОжидания?

(13) Ей богу, не удержусь и скажу :)

(12) в ПриОткрытии вызывается закрытие формы

(14) Скажи! Только не русском матерном :))))

(16) У тебя есть другие варианты, кроме как в при открытии?
Если нет, то значит естественно туда.

+(15) форма откроется когда закончится работа ПриОткрытии, а там пшик

(15) Попробуй в обработку, в приОткрытии(), добавить одну всего строку - форма.Закрыть(), и убедишься что форма будет открываться.

(19) попробовал, не открывается

(20) Не ври пожалуйста.

В ПриОткрытии сделала:
.....
Форма.ОбработкаОжидания("Выполнить(РабочаяТаблица, ДокументПрайсЛист)",5);
//Выполнить(РабочаяТаблица, ДокументПрайсЛист);

Теперь висит форма с надписью, не заполняется, не закрывается....

Форма.ОбработкаОжидания("Выполнить",5);

(23) Без параметров?
Или сначала Ожидание, а потом с параметрами?

перем рабочаяТаблица;
перем прайслист;
Процедура Выполнить()
...
Процедура ПриОткрытии()
   
   МожноЗакрыть = 0;
   
   РабочаяТаблица         = Форма.Параметр.Получить("Данные");
   ДокументПрайсЛист     = Форма.Параметр.Получить("Прайс");

   Выполнить();

(24) Буква в букву как я написал.

перем документпрайслист; Виноват.

А где Ожидание?

(28) Вместо Выполнить() в приоткрытии()

А говоришь - буква в букву....

Нету Выполнить....... Висит форма.....

(31) Выложи полностью текущий код
И форму надеюсь не модально вызываешь?

(32) модально

(21) не вру

И в Выполнить() нужно добавить форма.обработкаожидания("",0);
первой строчкой.
В модальных формах форма.обработкаожидания() не работает.
но есть другой способ - через форма.Закрыть() и выполнить в процедуре приЗакрытии()

(31) Модально.

(35) судя по всему автор и пытался так сделать

(34) Извини, но врешь.
форма.Закрыть() ничего не закрывает, а только выставляет флаг закрытия, который отрабатывается после выполнения кода, и полного открытия формы. Даже если сработает быстро, форма мелькнет на экране.

иначе нафига было играться со статусом возврата

(38) ну так мелькнула, так что не вру, у нас просто нет договоренности о терминах :)

и у автора она 100% мелькала, но не "открылась"

(41) Мелькала.

(42) убери Форма.Закрыть()

(40) Теперь еще один простой вопрос - она мелькала из-за того что форма закрылась, или из-за того что она не открылась перед выполнением кода?

Все. Сделала ПриЗакрытии. мне нравится :))))))
СПАСИБО!

(44) согласен, от того что открытая форма закрылась

(46) У неё она и должна закрыться по окончании обработки.
А проблема в том что у неё открывалась только после окончания обработки, а должна была открываться до. И при чем тут ПриЗакрытии()?

(47) понятия не имею, нафиг было Форма.Закрыть() вставлять?

(48) Чтоб по окончании обработки форма закрылась.

(49) а зачем? мы же тогда ничего можем не увидеть

я так понял нужно чтобы форма открылась и табличка заполнилась

Поиск в прайсе - большой файл, несколько минут происходит. Хочется, чтобы на время поиска висело окошко "Идет поиск....", а потом само закрылось.

Нормально.

PS Сижу ем мороженое - хорошо :)))))

(52) может тогда на форму прогрессбар нарисовать?

(54) Каким макаром? Поиск по Excel'ю - Find. Красивого прогрессбара не получится :(((

(55) цикл то есть Пока РабочаяТаблица.ПолучитьСтроку() = 1 Цикл

(55) Допиши после
Пока РабочаяТаблица.ПолучитьСтроку() = 1 Цикл
состояние(окр(Рабочаятаблица.номерстроки*100/рабочаятаблица.количествострок(),0));

и убедишься что всё там нормально.

Обработка - ПоискЦен
//Перем МожноЗакрыть; //У кого мне надо спросить разрешение, чтоб закрыть форму? Убери эту чушь.
Перем     РабочаяТаблица, ДокументПрайсЛист;

*
*
*
*
Процедура ПриОткрытии()
   
   МожноЗакрыть = 0;
   
   РабочаяТаблица         = Форма.Параметр.Получить("Данные");
   ДокументПрайсЛист     = Форма.Параметр.Получить("Прайс");

   // Выполнить(РабочаяТаблица, ДокументПрайсЛист); впадлу самому кнопочку нажать?
   
КонецПроцедуры    // ПриОткрытии

Процедура ПриЗакрытии()
   
  //  СтатусВозврата(МожноЗакрыть); Это бред. МожноЗакрыть никогда не принимает значение отличное от 1
   
КонецПроцедуры    // ПриЗакрытии

Кто-то немного тормозит...

(57) Попробовала: пару минут - тишина, потом быстренько пробежали цифирки.
Я же говорю: позиций для поиска около 100, а в прайсе - около 70 страниц. И где какая позиция - вопрос. Мне больше нравится окошко. :)))
(58) Высокие отношения.......

(59) А зачем вообще вызывать форму обработки, если не предполагается, что пользователь с ней взаимодействует? Весь код из обработки "ПоискЦен" в "формирование ценников" добавить, да и не морочить голову.
Запихивать Выполнить в ПриЗакрытии() это плохо.

(61) Чем плохо?

(62) Не логично. Выскочила какая то форма, пользователь перепугался и чтоб чего то не поломать решил её закрыть от греха подальше. А обработка возьми да начни выполнять чего то. Так и до инфаркта можно довести юзера. Когда программа делает не то,что от неё ожидают это всегда плохо.

(63) Ничего не понял. На обработке написано что она делает, и как пользователь закроет обработку без доступа к форме?

(63) Логично..... Еще более логично, прежде чем, "тыкать" в какую-то форму, хорошенько подумать: "А оно мне надо?"

(65) Обработки предполагают, что с ними пользователь интерактивно взаимодействует и как то может повлиять на результат работы. Если в данном случае это так, то пусть сам жмёт батон "Выполнить", не переломится. Если от юзера ничего такого не требуется, то просто необходимый код добавь в "формирование ценников".

(66) Да ладно? Зайди в prnforms, и подумай с чем там пользователь взимодействует.

(66) Мда..... Зашибись...... И Вы еще меня учите не ковыряться в носу.....

PS Пойду я еще мороженное съем. Блин, у нас +38. На улице - как в парилке. Только веника не хватает.....

(67) От это нафига? "Бляха-муха....
А как сделать, чтобы сначала отобразилась форма, а потом началось выполнение. без доп. движений пальцами?"
Либо пользователь видит форму и сам решает на какую кнопку жать, либо форма даже не открывается, обработка всё делает сама.
А чтоб юзер тупо пялился на пустую форму, такого не видел.

(69) то есть, если обработка фоном считает без сообщений, а программа не отвечает - это нормально.
А если при этом форма на экране, и написано выполняется такая-то обработка - это зло? :)

В Состояние или Сообщить выводить для юзера не достаточно?

Хм, мне тоже стало интересно.
(70) У меня некоторые отчеты из реготчетности формируются 20-30 мин. и никто не тупит над тем, что перед ним пустая форма

(71) Ты не ответил на вопрос - чем плохо сообщение о выполнении обработки в виде модальной формы на экране?

(72) Повезло с юзерями. А мои просят. "Она работает или висит?"
(71) Сообщить не всегда красиво отображается - может прикрывать форму. И потом его (окно сообщений) закрывать надо. Состояние (в данном случае) - мне не нравится.

И чего вы придираетесь?

(74) баньтики дело такое, на вкус и цвет разные, как фломастеры :)

(75) Согласна :)