Клиент - скрипт работает со второго нажатия кнопки.
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
arkazar
Участник со стажем
Вступление в Клуб: 27.09.2010
|
 Пт Мар 23, 2012 15:23 Клиент - скрипт работает со второго нажатия кнопки. |
 |
Полезность: Нет оценки
|
Товарищи! Подскажите, что не так делаю? Почему только со второго нажатия по Button3 начинает работать скрипт?
ПРОВЕРКА:
| Код: | begin
if P_MESSAGE = 'DEFAULT' then
[CSMD].init_form(V_VB, &METHOD$CLASS, &METHOD$SNAME);
elsif p_message = 'VALIDATE' then
if P_INFO = 'RESET_ACC' then
stdio.put_line_buf('1000');
end if;
if P_INFO = 'Button3' Then
[csmd].Command(V_VB,
'if MsgBox("Запрос с такими условиями уже был сформирован ранее. Переформировать?", vbQuestion + vbYesNo, "Подтверждения построения") = vbYes then
Call Form1.ScriptServerValidate(nothing, "RESET_ACC")
end if
');
end if;
end if; |
КЛИЕНТ_СКРИПТ:
| Код: | Public Function Main(LastControl)
if V_VB.TEXT <> "" then
Execute V_VB.TEXT
end if
V_VB.TEXT = ""
Main = True
End Function |
|
|
 |
Alexsey
Эксперт
Вступление в Клуб: 06.09.2007
|
| Пт Мар 23, 2012 16:14 |
|
Полезность: Нет оценки
|
на операции вкладка "Дополнительные свойства" надо выставить правильный порядок Проверки при загрузке формы и смене контролов.
_________________
всегда есть как минимум 2 выхода |
|
|
arkazar
Участник со стажем
Вступление в Клуб: 27.09.2010
|
| Пт Мар 23, 2012 16:34 |
|
Полезность: Нет оценки
|
Спасибо! Всё оказалось так просто!)
Ещё вопрос!
А как обработать, если нажата кнопка НЕТ. Как сделать так, чтобы вернулся на форму? |
|
|
vtar
Эксперт
Вступление в Клуб: 20.03.2009
|
| Пн Мар 26, 2012 08:38 |
|
Полезность: 1
|
| Код: | x = MsgBox("Запрос с такими условиями уже был сформирован ранее. Переформировать?", vbQuestion + vbYesNo, "Подтверждения построения")
select case x
case 6
msgbox "yes"
case 7
msgbox "No"
end select
End If
|
|
|
|
Alexsey
Эксперт
Вступление в Клуб: 06.09.2007
|
| Пн Мар 26, 2012 14:36 |
|
Полезность: 1
|
Например:
| Код: | Public Function Main(LastControl)
Execute V_STR.Text
If LastControl Is Nothing Then
' Действия при загрузке формы
Else
' Действия при потере фокуса валидируемого контрола LastControl
End If
if LastControl is OK then
'Call Runtime.ServerValidate(Nothing, "KO")
if cnt > 0 then ' количество дублей
if msgbox("Найден дубликат. Продолжить?",vbYesNo+vbQuestion,"Внимание") <> vbYes then
Main = NULL
LastControl.SetFocus
exit function
end if
end if
end if
Main = True 'Результат валидатора (True, False, NULL)
End Function |
после нажатия в диалоге на кновку нет.. ни какого действия не произойдет и форма не закроется
_________________
всегда есть как минимум 2 выхода |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
