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

Выгрузка с Excel

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


Вступление в Клуб: 30.09.2010
СообщениеСр Ноя 06, 2013 12:20   Выгрузка с Excel Ответить с цитатой
Полезность: Нет оценки
Добрый день!
Была операция, выводящая данные в Word, я ее переделал для вывода в Excel.
Есть параметр P_DATA (квалификатор на форме TextData)
Есть переменная V_DEST (квалификатор на форме V_DEST)

"Начинка" стандартная для операций с Excel.

Клиент-скрипт тоже стандартный
Код:
Public Function Main(LastControl)
   If LastControl is OK and V_DEST.Text <> "" Then
      DO
         Execute V_DEST.Text
         V_DEST.Text = ""
         Call Form1.ScriptServerValidate( OK, "OK")
      Loop While   V_DEST.Text <> ""
   End If
   
   Main = True 'Результат валидатора (True, False, NULL)   
End Function


При запуске ошибка компидяции VBScript
Expected statement
Src: Microsoft VBScript compilation error
Line:3 Error:0
Scode:800a0400

Короче...ай нид хэлп...
devor
Профи


Вступление в Клуб: 13.02.2012
СообщениеСр Ноя 06, 2013 12:38   Re: Выгрузка с Excel Ответить с цитатой
Полезность: Нет оценки
danzki пишет:


При запуске ошибка компидяции VBScript
Expected statement
Src: Microsoft VBScript compilation error
Line:3 Error:0
Scode:800a0400

Короче...ай нид хэлп...


В таких случаях помогает отладчик скриптов.
http://supportobject.cft.ru/ibso/docum/instr_script.zip
yaffil
Профи


Вступление в Клуб: 18.08.2011
СообщениеСр Ноя 06, 2013 13:10    Ответить с цитатой
Полезность: Нет оценки
А V_DATA вам зачем? Удалите её, она для ворда.
Операция для Ексель групповая?
Самый простой вариант - просто закопировать операцию в Эксель, а не Ворд.
danzki
Участник - экстремал


Вступление в Клуб: 30.09.2010
СообщениеСр Ноя 06, 2013 13:11    Ответить с цитатой
Полезность: Нет оценки
Проблема решена. Спасибо
Alexsey
Эксперт


Вступление в Клуб: 06.09.2007
СообщениеСр Ноя 06, 2013 13:14    Ответить с цитатой
Полезность: Нет оценки
У меня рабочий вариант вот такой:
Код:
If LastControl is OK and  V_Dest.Text <> "" Then
      DO   'исполнение сценария
         Execute V_Dest.Text
         Call Form1.ScriptServerValidate( OK, "OK")
      Loop While   V_Dest.Text <> ""
   End If

Ну и хотелось бы отметить, что в цикле вы принудительно обнуляете V_Dest. Возможно связано с этим.
_________________
всегда есть как минимум 2 выхода
danzki
Участник - экстремал


Вступление в Клуб: 30.09.2010
СообщениеСр Ноя 06, 2013 13:39    Ответить с цитатой
Полезность: Нет оценки
Нет проблема как оказалось была не в Клиент-скрипте, а в VB скрипте, который формируется в Локальных описаниях для формирования excel-файла.
Всем спасибо за ответы.
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle Часовой пояс: GMT + 3
Страница 1 из 1

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