|
Здравствуйте!
Столкнулся со следующей ситуацией, подскажите как выйти из нее:
Открывается форма Form1.
LookUpMode = TRUE.
При выполнении ниже приведенного кода, при выполнении DIALOG.CONFIRM(txtQuestion,FALSE) система выдает сообщение:
"Form1 не может быть закрыто, так как система работает."
После закрытия этого окна появляется мое сообщение txtQuestion.
Как сделать, чтобы появлялось только мое сообщение txtQuestion?
recHR_Employee.RESET;
recHR_Employee.SETRANGE(recHR_Employee.HR_Last_Name_1,strHR_Last_Name);
recHR_Employee.SETRANGE(recHR_Employee.HR_DOB,datHR_DOB);
IF recHR_Employee.FINDFIRST THEN
BEGIN
IF DIALOG.CONFIRM(txtQuestion,FALSE) THEN
BEGIN
prcINSERT_New_Employee;
blnSave:=TRUE;
boolExit:=TRUE;
END;
END
ELSE
BEGIN
prcINSERT_New_Employee;
blnSave:=TRUE;
boolExit:=TRUE;
END;
END;
|