Имя: Пароль:
1C
 
v7: FormEx и ВыполнитьПроцедуру
0 вовочка
 
18.05.06
11:09
Не получается сохранить результаты выполнения процедуры :((
в Демки FormEx_а создал внешнюю обработку документов,
пишу
ВыполнитьПроцедуру(конт, "РасчитатьСумму",)
Конт.Форма.Закрыть()
в отладчике процедура выполняется, но при закрытии форм
сумма в документе не меняется :((
как записать изменениия ?
1 Токс
 
18.05.06
11:12
Конт.Записать() наверно...
2 вовочка
 
18.05.06
12:27
Не катит, пишет :
Данная команда не может выполняться в формуле элемента диалога!
3 Ангел- Хоронитель
 
18.05.06
12:31
(2)а так?
ВыполнитьПроцедуру(конт, "РасчитатьСумму",);
ВыполнитьПроцедуру(конт, "записать",);
Конт.Форма.Закрыть()
4 вовочка
 
18.05.06
12:39
Зря я радовался, что в процедуру попадаю :((
Там все значения нулевые :(
5 вовочка
 
18.05.06
12:53
обработку запихал md
полный текст
   Перем Конт;
   Док = СоздатьОбъект("Документ");
   Док.ВыбратьДокументы();
   Пока Док.ПолучитьДокумент() = 1 Цикл
       ОткрытьФорму(Док.ТекущийДокумент(), Конт);
       Если Сервис.АктивныйКонтекст(Конт) = 1 Тогда
           Сервис.ВыполнитьПроцедуру(Конт,"РасчетСуммы",);
           Сервис.ВыполнитьПроцедуру(Конт,"Записать",);
           Конт.Форма.Обновить();
           Конт.Форма.Закрыть(0);
       КонецЕсли;
   КонецЦикла;
6 вовочка
 
18.05.06
13:15
up !
7 Самобан
 
18.05.06
13:20
(5) запихал и что?
8 Токс
 
18.05.06
13:23
Альф нужен...
9 вовочка
 
18.05.06
13:24
все тоже переменных не видит, значения не сохраняет
10 вовочка
 
18.05.06
13:24
АЛьФ !!! HELP !
11 вовочка
 
18.05.06
13:55
Все заработало !
Протупил, что строки в документе надо выбирать !
все должно выглядеть так:
//*******************************************
Процедура Сформировать()
   Перем Конт;
   Док = СоздатьОбъект("Документ");
   Док.ВыбратьДокументы();
   Пока Док.ПолучитьДокумент() = 1 Цикл
       ОткрытьФорму(Док.ТекущийДокумент(), Конт);
       Если Сервис.АктивныйКонтекст(Конт) = 1 Тогда
           Конт.ВыбратьСтроки();
           Пока Конт.ПолучитьСтроку() = 1 Цикл
               Сервис.ВыполнитьПроцедуру(Конт,"РасчетСуммы",);
           КонецЦикла;
           Конт.Форма.Обновить();
           Конт.Форма.Закрыть(0);
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры