RUNMODAL

[by_HT]

Пытаюсь запустить одну форму, два раза через кодеюнит... пишу:

SCB.SETFILTER(Type,'=%1',SCB.Type::Rek);
IF SCB.FIND('-') THEN "Open Form SCB.Rek";
COMMIT;
FormSCB.RUNMODAL;

CLEAR(FormSCB);
SCB.SETFILTER(Type,'=%1',SCB.Type::Inn);
IF SCB.FIND('-') THEN "Open Form SCB.Inn";
COMMIT;
FormSCB.RUNMODAL;

но вываливается ошибка:
"форма с которой запускается коденит", не может быть закрыто, так как блокировано "Форма которая открывается: FormSCB".

[romeo]

А что такое вот это - "Open Form SCB.Rek"? Это процедура? Что делает?

[by_HT]

Это процедура.... я там передаю параметры на форму

tParam:=tParam::Rek;
IF Setup."Account Type"= Setup."Account Type"::Клиент THEN bParam :=1 ELSE
IF Setup."Account Type"= Setup."Account Type"::Поставщик THEN bParam :=2 ELSE
bParam:=0;
SCB.SETFILTER(Type,'=%1',SCB.Type::Rek);
FormSCB.SetParam(bParam,tParam); 
FormSCB.SETTABLEVIEW(SCB); 
FormSCB.SETRECORD(SCB); 
FormSCB.CAPTION('заголовок");
EXIT;

[randrews]

Цитата:

Сообщение от by_HT

но вываливается ошибка:
"форма с которой запускается коденит", не может быть закрыто, так как блокировано "Форма которая открывается: FormSCB".

1. Проследите по дебагеру на какой строке вываливается.
2. Есть подозрение, что тут важно - откуда вы запускаете этот код (контекст). Просто попробовал написать для теста такой код - все прокатило:

RCountry.FIND('-');
Countries.SETTABLEVIEW(RCountry);
Countries.SETRECORD(RCountry);
Countries.CAPTION('заголовок');
commit;
Countries.RUNMODAL;

CLEAR(Countries);

RCountry.FIND('-');
Countries.SETTABLEVIEW(RCountry);
Countries.SETRECORD(RCountry);
Countries.CAPTION('заголовок');
commit;
Countries.RUNMODAL;

P.S. Вас случайно не Тимур зовут? Просто НТ в логине и стиль программирования похож на одного моего знакомого коллегу.

[DA_NEAL]

На то и RUNMODAL чтобы один раз было открыто. Используйте RUN

[by_HT]

вернее это не ошибка, а Сообщение...
randrews , Ну явно это так, и при COMMIT, он хочет закрыть первоначальную форму... а закрыть ее он не может так как с нее запускается кодеюнит и он работает..и закрыться форма видемо может только после выполнения кода в кодеюните!.....
Если COMMIT не писать, то естествено не вываливается сообщение это... а вываливается уже другая о том, что нужно использовать COMMIT.
P.S К счастью, для Вас, не Тимур

DA NEAL, Если даже один раз писать RUNMODAL, все тоже сообщение выходит...

[apanko]

А что делает форма FormSCB когда запускается?

[by_HT]

В Форма Client, запускается кодеюнит:

import."Import Client Bank"(DateFrom, DateTo, "Bank Account No.");

В кодеюните, выполняем запуск формы FormSCB, но перед этим переходим в функцию: Open Form SCB.Rek";

SCB.SETFILTER(Type,'=%1',SCB.Type::Rek);
IF SCB.FIND('-') THEN BEGIN "Open Form SCB.Rek";
COMMIT;
FormSCB.RUNMODAL;
END;

в функции Open Form SCB.Rek":

tParam:=tParam::Rek;
IF Setup."Account Type"= Setup."Account Type"::Êëèåíò THEN bParam :=1 ELSE
IF Setup."Account Type"= Setup."Account Type"::Ïîñòàâùèê THEN bParam :=2 ELSE
bParam:=0;
SCB.SETFILTER(Type,'=%1',SCB.Type::Rek);
FormSCB.SetParam(bParam,tParam); 
FormSCB.SETTABLEVIEW(SCB); 
FormSCB.SETRECORD(SCB); 
FormSCB.CAPTION('заголовок');
EXIT;

[by_HT]

При Открытии формы, я там обробатываю параметры которые передовал из кодеюнита.

[romeo]

Цитата:

Сообщение от by_HT

При Открытии формы, я там обробатываю параметры которые передовал из кодеюнита.

А зачем КОММИТ?
А почему сама эта функция Open Form... не выполняет РАНМОДАЛ?

[by_HT]

почему выполняет, но опять же с этим сообщением:
форма с которой запускается коденит", не может быть закрыто, так как блокировано "Форма которая открывается: FormSCB".

[randrews]

Так зачем COMMIT ?
Если есть код, который не видим, то попробуйте COMMIT поставить до работы с SCB.
Судя по коду (кроме непонятной строки FormSCB.SetParam(bParam,tParam); ) там нет изменений данных.

[apanko]

Уберите commit-ы, а runmodal-ы замените на run-ы.

[by_HT]

В этой функции import."Import Client Bank"(DateFrom, DateTo, "Bank Account No.");
идет работа с SCB таблице.... =))

apanko, но тогда в этом случае, будут открываться сразу две формы!.. а надо по очереди...

[apanko]

Зато узнаете в них ли проблема.

Тогда вызов других форм перенесите из кодеюнита в первую форму (Клиент?).



И еще раз про последовательность:
Форма Клиент из нее запускается Кодеюнит ХХХ, функция Импорт
--Функция Импорт модифицирует (?) таблицу и вызывает форму СКБ, два раза
----Форма СКБ1. Делает непонятно что.
----Форма СКБ2. Делает непонятно что еще раз.

[by_HT]

Ни чего не понимаю... Уже делаю тупо, запускаю из одной формы, другую...Без всякого лишнего кода!...
И все равно такая фигня

[apanko]

Вызов кодеюнита (и других форм) как инициируется на главной форме? По кнопке?

[Milk]

by_HT, а функцию CLOSE не пробовали использовать?

[by_HT]

apanko, да по Кнопке!!!!!
Milk, нет не пробывал...а смысл ее использовать?

[apanko]

В свойстве кнопки PushAction, что указано?