SOS товарищи
На страницу Пред. 1, 2
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Матвеев Евгений
Профи
Вступление в Клуб: 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 ").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( .LineStyle = 1
Excel.Selection.Borders(.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 пишет: |
Старых версий навигатора совсем нет? Для проверки.
|
даже если и найду, и убедюсь, что дело в навигаторе - мне это не поможет. Юзеры работают через терминалку, и проблема в том, что это как бы пользователь считает эту ситуевину дефектом, т.к. у него форма не закрывается, а закрывать крестиком ему лень |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
