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

SOS товарищи
На страницу Пред.  1, 2
 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Справочник PL/PLUS: Функции, примеры, приёмы
Предыдущая тема :: Следующая тема  
Автор Сообщение
Матвеев Евгений
Профи
Неподтвержденный


Вступление в Клуб: 31.01.2012
СообщениеЧт Окт 08, 2015 12:37   Re: SOS товарищи Ответить с цитатой
Полезность: Нет оценки
Цитата:
Добрый день, товарищи.
такая проблема:

есть отчет, который выгружает объемный набор данных в ексель. Т.к. клиентскриптовая переменная ограничена размером, то в проверке юзают [EXCEL].Exec_Script(V_DEST) для перезаписи нового куска кода на VB, а в Клиент-скрипте Call Form1.ScriptServerValidate(OK, "OK") - пока не опустошится клиентскриптовая переменная.
Т.е. циклическая передача от тела к КСу, и снова в тело, и снова в КС..

По завершении выгрузки, форма отчета не закрывается.


Тут помимо OOXML есть варианты
Можно ж на уровне клиент скрипта печать реализовать...
Ну это если V_DEST не получится победить, то можно будет за пару часов "нацарапать")))
Как то так
Код:

   ' EXCEL ----------------------------------------------------------------------------------------------
   Set Excel = CreateObject("Excel.Application")   
   Set ExcelWorkbook = Excel.Workbooks.Add
   Set ExcelSheet = ExcelWorkbook.WorkSheets(1)
   Excel.Visible = false
   
    ExcelSheet.Columns("A:A").ColumnWidth = 10
    ExcelSheet.Columns("B:B").ColumnWidth = 30
    ExcelSheet.Columns("C:C").ColumnWidth = 25
    ExcelSheet.Columns("D:D").ColumnWidth = 70
    ExcelSheet.Columns("E:E").ColumnWidth = 70

   ExcelSheet.Cells(1, 1).Value = "№п.п."
   ExcelSheet.Cells(1, 2).Value = "ФИО клиента"   
   ExcelSheet.Cells(1, 3).Value = "Номер договора"
   ExcelSheet.Cells(1, 4).Value = "Адрес регистрации"   
   ExcelSheet.Cells(1, 5).Value = "Адрес залоговой ценности"   
   
   ExcelCurRow = 2
   ' EXCEL ----------------------------------------------------------------------------------------------



........................................................... тут что то заполняется ........................................
Код:

   ' EXCEL ----------------------------------------------------------------------------------------------
   ExcelSheet.Range("A1:E"&(ExcelCurRow-1)).Select   
   Excel.Selection.Borders(7).LineStyle = 1
   Excel.Selection.Borders(7).Weight = 2
   Excel.Selection.Borders(8).LineStyle = 1
   Excel.Selection.Borders(8).Weight = 2
   Excel.Selection.Borders(9).LineStyle = 1
   Excel.Selection.Borders(9).Weight = 2
   Excel.Selection.Borders(10).LineStyle = 1
   Excel.Selection.Borders(10).Weight = 2   
   Excel.Selection.Borders(11).LineStyle = 1
   Excel.Selection.Borders(11).Weight = 2         
   Excel.Selection.Borders(12).LineStyle = 1
   Excel.Selection.Borders(12).Weight = 2      
   ExcelWorkbook.SaveAs V_TARGET_PATH & V_PREFIX_TARGET_PATH & V_PREFIX_TARGET_PATH2 & V_TARGET_REESTR_FILE_EXCEL
   Excel.Quit   
   ' EXCEL ----------------------------------------------------------------------------------------------   

wolfio
Участник - экстремал
Нордеа Банк


Вступление в Клуб: 22.10.2012
СообщениеЧт Окт 08, 2015 12:47    Ответить с цитатой
Полезность: Нет оценки
Volod пишет:
Я хотел уточнить, только этот отчет глючит, только на данной машине, только в конкретной версии навигатора?


повторяется на любой машине, а вот версия навигатора у нас у всех одна 6.0.116.76. он у нас самый последний.
Volod
Профи
Неподтвержденный


Вступление в Клуб: 19.09.2007
СообщениеЧт Окт 08, 2015 12:53    Ответить с цитатой
Полезность: Нет оценки
Старых версий навигатора совсем нет? Для проверки.
Alexsey
Эксперт
МЕГА БАНК


Вступление в Клуб: 06.09.2007
СообщениеЧт Окт 08, 2015 16:50    Ответить с цитатой
Полезность: Нет оценки
После выполнения КС Main = true?
_________________
всегда есть как минимум 2 выхода
wolfio
Участник - экстремал
Нордеа Банк


Вступление в Клуб: 22.10.2012
СообщениеЧт Окт 08, 2015 17:59    Ответить с цитатой
Полезность: Нет оценки
Alexsey пишет:
После выполнения КС Main = true?

ага. Да и сообщение выдается при запуске операции, когда Main <> true

Volod пишет:

Старых версий навигатора совсем нет? Для проверки.

даже если и найду, и убедюсь, что дело в навигаторе - мне это не поможет. Юзеры работают через терминалку, и проблема в том, что это как бы пользователь считает эту ситуевину дефектом, т.к. у него форма не закрывается, а закрывать крестиком ему лень
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Справочник PL/PLUS: Функции, примеры, приёмы Часовой пояс: GMT + 3
На страницу Пред.  1, 2
Страница 2 из 2

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