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

Ошибка VBScript

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle
Предыдущая тема :: Следующая тема  
Автор Сообщение
tarasov-es
Участник со стажем


Вступление в Клуб: 18.05.2011
СообщениеПн Июн 06, 2011 07:28   Ошибка VBScript Ответить с цитатой
Полезность: Нет оценки
Коллеги, добрый день.
Пытаюсь выполнить операцию на фин счетах - "формировать сообщение об открытии(закрытии счета)".
При этом получаю ошибку - скрин во вложении. Подскажите, если кто сталкивался, как пофиксить?[/img]
Alexsey
Эксперт


Вступление в Клуб: 06.09.2007
СообщениеПн Июн 06, 2011 09:23   Re: Ошибка VBScript Ответить с цитатой
Полезность: Нет оценки
tarasov-es пишет:
Коллеги, добрый день.
Пытаюсь выполнить операцию на фин счетах - "формировать сообщение об открытии(закрытии счета)".
При этом получаю ошибку - скрин во вложении. Подскажите, если кто сталкивался, как пофиксить?[/img]

что написано с клиент-скрипте?
_________________
всегда есть как минимум 2 выхода
tarasov-es
Участник со стажем


Вступление в Клуб: 18.05.2011
СообщениеПн Июн 06, 2011 09:45   Re: Ошибка VBScript Ответить с цитатой
Полезность: Нет оценки
в клиент скрипте следующее
Код:
' подгружаем библиотеку "Библиотека VBA функций для печати в Word"
'#include ::[RUNTIME].[MSWORD_SCRIPT]

Public Function Main(LastControl)
   if LastControl is nothing then
      'if v_vis.Text = "1" then
         'Label11.Visible = true
         'Date3.Visible   =   true
      'end if
   end if
   
   
   Memo1.Visible = (Check1.Value= "0")
   Tabbed1.Visible = (Check1.Value= "0")
   Label12.Visible = (Check1.Value= "0")
   Combo1.Visible = (Check1.Value= "0")
   
   If LastControl is p_num   Then
      p_num.ForeColor = vbRed
   End If
   
   EXECUTE v_vis.TEXT
   v_vis.TEXT = ""   
   
   If LastControl is OK then
      if Dest.Text <> "" Then
         DO
            Execute Dest.Text
            Call Form1.ScriptServerValidate (OK, "OK")
         Loop While   Dest.Text <> ""
      End If

      If Grid_msg_sf.Rows > 1 Then
         
         For i = 1 To Grid_msg_sf.Rows - 1
            if Grid_msg_sf.Value(i, 12) = 1 then 'Формировать уведомление клиенту
               If Grid_msg_sf.Text(i, 4) = "ФСС" Then
                  if not OpenWordDoc (WrdApp, WrdDoc, GetData ("FSS_REPORTFILE")) then
                     Main = False
                     Exit function
                  end if
                  
                  For Each f in WrdDoc.FormFields
                     Call SetFormField(WrdApp, WrdDoc, f.Name)
                     
                     if (Check1.Value = 1 and f.Name = "OP_STR") or (Check1.Value = 0 and f.Name = "CL_STR") then
                        Set ffield = WrdDoc.FormFields(f.Name)
                        ffield.Select
                        WrdApp.Selection.Font.Underline = true
                     end if
                  Next
         
                  Call SetWordVisible (WrdApp, WrdDoc)
               ElseIf Grid_msg_sf.Text(i, 4) = "ПФР" Then
                  if not OpenWordDoc (WrdApp, WrdDoc, GetData ("PFR_REPORTFILE")) then
                     Main = False
                     Exit function
                  end if
         
                  For Each f in WrdDoc.FormFields
                     Call SetFormField(WrdApp, WrdDoc, f.Name)
                     
                     if (Check1.Value = 0 and (f.Name = "OP_STR" or f.Name = "OP_DSTR")) or (Check1.Value = 1 and (f.Name = "CL_STR" or f.Name = "CL_DSTR")) then
                        Set ffield = WrdDoc.FormFields(f.Name)
                        ffield.Select
                        WrdApp.Selection.Font.Strikethrough  = true
                     end if
                  Next
         
                  Call SetWordVisible (WrdApp, WrdDoc)
               End If
            End If   
         Next   
      End if
   End If

   Main = True 'Результат валидатора (True, False, NULL)   
End Function


private sub Grid_msg_sf_RowColChange
   row_num.value = Grid_msg_sf.IndexByRow (Grid_msg_sf.Row)
   Call Form1.ScriptServerValidate (OK, "GRID_ROW_CHANGED")
end sub
Alkov
Профи


Вступление в Клуб: 23.09.2010
СообщениеПн Июн 06, 2011 10:33    Ответить с цитатой
Полезность: Нет оценки
соответственно хотелось бы добавить
MsgBox v_vis.TEXT
перед
EXECUTE v_vis.TEXT

и
MsgBox Dest.Text
перед
Execute Dest.Text

что там будет при нажатии ok ?
tarasov-es
Участник со стажем


Вступление в Клуб: 18.05.2011
СообщениеПн Июн 06, 2011 11:10    Ответить с цитатой
Полезность: Нет оценки
сделал как Вы сказали.
Проскочило 4 сообщения.
После того как я со всеми согласился операция отработала как нужно...
Странно.. Как бы сделать так чтоб без сообщений.
Alexsey
Эксперт


Вступление в Клуб: 06.09.2007
СообщениеПн Июн 06, 2011 13:38    Ответить с цитатой
Полезность: Нет оценки
из скрипта 2 видно как на грид вешается вьюхи и закрываются на доступность элементы... 3-й и 4-й скрипты это выгрузка в Эксель.

Да совсем забыл.. индекс в гриде начинается с 1-цы.
Обычно такая ошибка, как приведена в примере, возникает когда индексы в гриде идут не по порядку. Посмотрите в этом направлении.
_________________
всегда есть как минимум 2 выхода
tarasov-es
Участник со стажем


Вступление в Клуб: 18.05.2011
СообщениеПн Июн 06, 2011 13:53    Ответить с цитатой
Полезность: Нет оценки
Alexsey пишет:
из скрипта 2 видно как на грид вешается вьюхи и закрываются на доступность элементы... 3-й и 4-й скрипты это выгрузка в Эксель.

Да совсем забыл.. индекс в гриде начинается с 1-цы.
Обычно такая ошибка, как приведена в примере, возникает когда индексы в гриде идут не по порядку. Посмотрите в этом направлении.

почему то не работает только для счетов 40702* для любых других работает
Alexsey
Эксперт


Вступление в Клуб: 06.09.2007
СообщениеПн Июн 06, 2011 15:10    Ответить с цитатой
Полезность: Нет оценки
а можно увидеть скрин грида с 40702*?
_________________
всегда есть как минимум 2 выхода
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПн Июн 06, 2011 18:51    Ответить с цитатой
Полезность: Нет оценки
Может поставить "MS Script Debugger"?
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle Часовой пояс: GMT + 3
Страница 1 из 1

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