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

не запускается ворд

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих
Предыдущая тема :: Следующая тема  
Автор Сообщение
rety
Участник
Неподтвержденный


Вступление в Клуб: 23.12.2014
СообщениеСр Dec 24, 2014 16:25   не запускается ворд Ответить с цитатой
Полезность: Нет оценки
Добрый день!
Не давно начал познавать азы работы с ибсо и столкнулся с проблемой, при написании операции с нуля не могу запустить вордовский шаблон для отчета
вот код из проверки:
Код:
begin
  if p_message = 'DEFAULT' then -- Действия до загрузки экранной формы
      P_DATE_1   := ::[SYSTEM].[VARIABLES].GetOpDate-1;
      P_DATE_2   := P_DATE_1;
                F_Click := true;
       p_info := 'OK';   
       [WORD].Init_Wrd;
       V_DEST := null;
  elsif p_message = 'VALIDATE' then   -- при загрузке экранной формы
     if p_info = 'OK' then
       sFile:=[MSLIB].GetReportPath||'DOC\KDR_PRINT_SPRAV_CL.dot';
       if F_Click then
          F_Click := false;
          [WORD].Open_file(sFile, false);
          [WORD].Visible;
          [WORD].Release;
       end if;
       [WORD].Exec_Script(V_DEST);
    end if;
  end if;
end; 


вот код из клиент-скрипта
Код:
Public Function Main(LastControl)
   if LastControl is OK Then
      While V_DEST.Text <> ""
         Execute V_DEST.Text
         V_DEST.Text = ""
         Call Form1.ScriptServerValidate(OK, "OK")
      WEND
   End if
   
   Main = True
End Function

Пытался упростотить по максимуму, оставить только запуск шаблона ворд. Однако Ворд не запускается и ошибок не выводится. Буду очень благодарен за какую-либо инфу по работе с вордом (да в принципе, любую инфу по разработке в ИБСО), в настоящий момент в основном делаю наугад.
Volod
Профи
Неподтвержденный


Вступление в Клуб: 19.09.2007
СообщениеСр Dec 24, 2014 16:48    Ответить с цитатой
Полезность: Нет оценки
OK валидируется? debug_pipe внутри ветки по ОК что показывает?
rety
Участник
Неподтвержденный


Вступление в Клуб: 23.12.2014
СообщениеСр Dec 24, 2014 17:21    Ответить с цитатой
Полезность: Нет оценки
Не совсем понял что необходимо сделать, добавил тут строчку
Код:
       
     sFile:=[MSLIB].GetReportPath||'DOC\KDR_PRINT_SPRAV_CL.dot';
      debug_pipe(sFile,0);
       if F_Click then

получил в ответ:
Отладочный(ая) пайп(а):
\\*****\KDR_PRINT_SPRAV_CL.dot
Примечание: содержимое отладочного(ой) пайпа(ы) считывается навигатором и выводится в окно отладочной информации если уровень отладки > 0 и не запущен монитор коммуникационного канала
vtar
Эксперт
Неподтвержденный


Вступление в Клуб: 20.03.2009
СообщениеСр Dec 24, 2014 17:55    Ответить с цитатой
Полезность: Нет оценки
на вкладке Доп. свойства - поставить Клиент, Сервер или Сервер, Клиент,
в обоих местах

В редакторе экранных форм на кнопке ОК поставить Валидируется (check validate) true , надпись ОК должна стать курсивным шрифтом на кнопке
rety
Участник
Неподтвержденный


Вступление в Клуб: 23.12.2014
СообщениеСр Dec 24, 2014 17:56    Ответить с цитатой
Полезность: Нет оценки
перезашел в навигатор и заработало. странно, но все равно спасибо за участие.
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих Часовой пояс: GMT + 3
Страница 1 из 1

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