CftClub.ru
Клуб специалистов ЦФТ-Банк

Клиент - скрипт работает со второго нажатия кнопки.

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle
Предыдущая тема :: Следующая тема  
Автор Сообщение
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 выхода
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru