Всем привет! Ситуация такая есть самописная конфа, где очень сложный пересчет цен, нужно было написать вн обработку которая бы делала пересчет, в документе пересчет реализован (кнопка Пересчет), так вот чтобы все параметры из дока не извлекать решил воспользоваться SendKey,но тут такой подвох что открытая форма закрывается только после исполнения процедуры, в результате польшого количества открытых окон происходит зависание 1С, как закрывать форму при преходе на след. документ????

Процедура ЗакрФорма(Докум);
   Форм="";
   ОткрытьФорму(Докум,Конт);
   Скрипт=СоздатьОбъект("WScript.Shell");
   Скрипт.SendKeys("^{Enter}");
   Форм.Форма.Закрыть(0);        
КонецПроцедуры    

Процедура Сформировать()

Док=СоздатьОбъект("Документ.М_ПоступлениеМатериалов");
Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);

Пока Док.ПолучитьДокумент()=1 Цикл
   ЗакрФорма(Док.ТекущийДокумент());        
КонецЦикла;
КонецПроцедуры

офигеть...
а программно вызывать процедуру пересчета трудно что-ли?

(0) Ты правда хочешь, чтобы честно сказали?

Я понимаю что изврат, но описывать все слишком долго, правда

Как программно вызвать процедуру через внеш обработку ???

(0) ну если параметров меньше 100, то дешевле всё-таки не связываться с формами, а извлечь из документа напрямую.

Лень человеку переписать обработку заполнения... Бывает...

Если уж пошла такая петрушка - попробуй открывать форму модально, что бы окна не плодились...

Не открывай следующую форму, пока не отработала текущая.
Подсказать как?

(8)Подсказать всегда можно

Можно вызывать и процедуры формы документа, в поиск

Процедура Сформировать()

Док=СоздатьОбъект("Документ.М_ПоступлениеМатериалов");
Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);

Пока Док.ПолучитьДокумент()=1 Цикл
глПеременная = "СтоятьЯсказал";
    ЗакрФорма(Док.ТекущийДокумент());        
Пока глПеременная = "СтоятьЯсказал" Цикл

КонецЦикла;
КонецЦикла;
// в доке прописать: глПеременная = "Можно";

КонецПроцедуры

2(11) вечный цикл.

(12) Поясни.


Процедура ЗакрФорма(Докум)
   Цикл
       ОткрытьФорму(Докум,Конт, "ВыполнитьПересчет");
   КонецЦикла;
КонецПроцедуры


В форме документе:


Процедура ПередОткрытием()
   Если Параметр = "ВыполнитьПересчет" Тогда
       ВыполнитьПересчет();
       СтатусВозврата = 0;
   КонецЦикла;
КонецПроцедуре


Ксати - можно и так:

Процедура Сформировать()

Док=СоздатьОбъект("Документ.М_ПоступлениеМатериалов");
Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);

Пока Док.ПолучитьДокумент()=1 Цикл
СтатусВозврата(123456789);
    ЗакрФорма(Док.ТекущийДокумент());        
Пока СтатусВозврата() = 123456789 Цикл

КонецЦикла;
КонецЦикла;
// в доке прописать: глПеременная = "Можно";


КонецПроцедуры

(15) Кстати да в (14) нужно модально открывать форму, тогда нормально все будет.

2(16) При модальном открытии на фиг не нужны все эти извраты.

2(13) Проще будет тебе попробовать запустить свой код.