ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / перевод данных в Word
15 сообщений из 15, страница 1 из 1
перевод данных в Word
    #32998822
Ворпосник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ворпосник
Гость
Добрый день. Подскажите как быть? АСА 9.0 ПБ 9.0 ПФЦ
Юзверь затребовал следующую фичу. Есть у него отчетное DW, например 200 записей. Хочет 100 из них выделить и перенести в Word(через буфер, или через файл -неважно). А затем еще в этот Word файл еще из других DW -данных подкинуть. Вообщем, нет у него есче строгих отчетных форм.
Формат представления в Worde -в виде Grida (Тab - между колонками).

Посмотрел функцию dw -SaveAs но она не устраивает, во первых нельзя выделить часть записей, а во вторых если указан тип DropDownListBox у поля, то выдаеться само значение из БД.
Кто как выкручиваеться из таких ситуаций?
Заранее спасибо.
...
Рейтинг: 0 / 0
05.04.2005, 17:50
| Ответить | Цитировать | Написать  
перевод данных в Word
    #32998842
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
ВорпосникВообщем, нет у него есче строгих отчетных форм.
Вот когда будут - пусть и приходит .

Формат представления в Worde -в виде Grida (Тab - между колонками).
Вообще для таких задач мне больше Excel нравится... но на вкус и цвет...

Посмотрел функцию dw -SaveAs но она не устраивает, во первых нельзя выделить часть записей, а во вторых если указан тип DropDownListBox у поля, то выдаеться само значение из БД.
Кто как выкручиваеться из таких ситуаций?
1. Посылаем на...
2. То же самое...
...

100. Если всё-таки не получается - пишем экспорт в Word через OLE.
...
Рейтинг: 0 / 0
05.04.2005, 17:59
| Ответить | Цитировать | Написать  
перевод данных в Word
    #32998898
Фотография ChV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ChV
Участник
Своим пользователям дал возможность копировать из DW в буфер :
Clipboard( dw_1.describe( "DataWindow.data") )
или
Clipboard( dw_1.describe( "DataWindow.selected.data") ) , а из буфера данные вставлять - кто хочет в WORD, кто в EXECL и т.д.
...
Рейтинг: 0 / 0
05.04.2005, 18:23
| Ответить | Цитировать | Написать  
перевод данных в Word
    #32998946
Вопросник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопросник
Участник
2 ChV - а как же поля типа DropDownDW или DropDownListBox -?
...
Рейтинг: 0 / 0
05.04.2005, 18:51
| Ответить | Цитировать | Написать  
перевод данных в Word
    #32999061
Фотография PL99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PL99
Участник
Вопросник2 ChV - а как же поля типа DropDownDW или DropDownListBox -?Ну если коды не нравятся, считайте значения самостоятельно - <u_dw>.inv_base.of_GetItem (...) поможет
...
Рейтинг: 0 / 0
05.04.2005, 19:52
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33000384
Фотография ChV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ChV
Участник
Скажу честно - не проверял, занят. Но - мой первый ход, пожалуй, был бы - если мешают коды - присвоить данные удобной DataStore с тем же SQL, а уже её выводил бы в буфер : Clipboard( ds.describe( "DataWindow...") ) - просто и надежно.
...
Рейтинг: 0 / 0
06.04.2005, 13:37
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33000562
ZhV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZhV
Участник
Вопросник2 ChV - а как же поля типа DropDownDW или DropDownListBox -?

ls_s = ldw.Describe('evaluate("LookUpDisplay('+ls_column+')",'+String(row)+')')
...
Рейтинг: 0 / 0
06.04.2005, 14:25
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33000868
Фотография PL99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PL99
Участник
ВорпосникКто как выкручиваеться из таких ситуаций? SaveAsAscii устроит? Естественно, в отфильтрованном DS.
...
Рейтинг: 0 / 0
06.04.2005, 15:49
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33000875
Вопросник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопросник
Участник
Спасибо огромное всем.
Тока Clipboard( dw_1.describe( "DataWindow.selected.data")) -что то не работает. Пусто в буфере.
...
Рейтинг: 0 / 0
06.04.2005, 15:50
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33001451
zuzu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zuzu
Участник
ВопросникСпасибо огромное всем.
Тока Clipboard( dw_1.describe( "DataWindow.selected.data")) -что то не работает. Пусто в буфере.
Код: plaintext
1.
2.
3.
4.
5.
6.
if keyflags= 2  then // CTRL
	if key = KeyC! then

		::Clipboard( dw_1.describe("DataWindow.selected.data") )
	end if
end if
поставь ::
...
Рейтинг: 0 / 0
06.04.2005, 19:50
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33001670
Mykola
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mykola
Участник
для примера
****************

OleObject myoleobject
Integer rc, i, count
String mydata
n_ds lds_Help
Long ll_RowCount, ll_CountSelectedRow
lds_Help = Create n_ds
myoleobject = CREATE oleobject
rc = myoleobject.ConnectToNewObject ( "Excel.Application" )
IF rc <> 0 THEN
MessageBox ( "Error", String ( rc ) )
Return
END IF
Try
myoleobject.Application.Visible = TRUE
myoleobject.Workbooks.Add()
lds_Help.DataObject = dw_report.DataObject
ll_RowCount = dw_report.RowCount()
ll_CountSelectedRow = 0
For i = ll_RowCount To 1 Step - 1
If dw_report.IsSelected(i) Then
dw_report.rowscopy( i, i, Primary!, lds_Help, 1,Primary!)
ll_CountSelectedRow ++
End If
Next
If ll_CountSelectedRow = 0 Then
mydata = dw_report.Object.DataWindow.Data
Else
mydata = lds_Help.Object.DataWindow.Data
End If
ClipBoard ( mydata )
myoleobject.ActiveWorkbook.Sheets(1).Paste()
myoleobject.DisconnectObject()
Catch ( exception e )
MessageBox ( "Error", e.GetMessage() )
Finally
Destroy myoleobject
Destroy lds_Help
End Try
...
Рейтинг: 0 / 0
07.04.2005, 01:09
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33001843
Фотография ChV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ChV
Участник
ВопросникСпасибо огромное всем.
Тока Clipboard( dw_1.describe( "DataWindow.selected.data")) -что то не работает. Пусто в буфере.
...
Рейтинг: 0 / 0
07.04.2005, 09:34
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33001891
Фотография ChV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ChV
Участник
ВопросникСпасибо огромное всем.
Тока Clipboard( dw_1.describe( "DataWindow.selected.data")) -что то не работает. Пусто в буфере.Я надеюсь понятно, что в буфер должны были попасть данные из выделенной область DW ( т.е. мышью выделил ( не строку, а часть DW ), команду выполнил - данные в буфере получил).
...
Рейтинг: 0 / 0
07.04.2005, 09:53
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33002241
zuzu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zuzu
Участник
ChV ВопросникСпасибо огромное всем.
Тока Clipboard( dw_1.describe( "DataWindow.selected.data")) -что то не работает. Пусто в буфере.Я надеюсь понятно, что в буфер должны были попасть данные из выделенной область DW ( т.е. мышью выделил ( не строку, а часть DW ), команду выполнил - данные в буфере получил).

а я вижу что ты не читаешь все ответы, поставь ::Clipboard(..., (четыре точки, не знаю как по другому написать чтобы ты их увидел)
тоесть нужно вызвать глобальную функцию, а ты вызываешь функцию ДВ.
...
Рейтинг: 0 / 0
07.04.2005, 11:48
| Ответить | Цитировать | Написать  
перевод данных в Word
    #33003520
Фотография ChV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ChV
Участник
zuzu ChV ВопросникСпасибо огромное всем.
Тока Clipboard( dw_1.describe( "DataWindow.selected.data")) -что то не работает. Пусто в буфере.Я надеюсь понятно, что в буфер должны были попасть данные из выделенной область DW ( т.е. мышью выделил ( не строку, а часть DW ), команду выполнил - данные в буфере получил).

а я вижу что ты не читаешь все ответы, поставь ::Clipboard(..., (четыре точки, не знаю как по другому написать чтобы ты их увидел)
тоесть нужно вызвать глобальную функцию, а ты вызываешь функцию ДВ.Безусловно, zuzu, ты прав. Я ответил слишком кратко. Я считал, что, т.к. у Вопросник не работает только именно Clipboard( dw_1.describe( "DataWindow.selected.data")) , то очевидно, что он выдает эти команды не из DW => он не вызывает функцию DW Clipboard. Согласен, что твое замечание справедливое, особенно для того, кто эти функции раньше не использовал. Я скопировал примеры вызова этих функций из объекта tabpage.
...
Рейтинг: 0 / 0
07.04.2005, 18:39
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / перевод данных в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&msg=32998946&tid=1338428]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 89ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 70ms
get tp. blocked users:
 2ms
others: 242ms
total:  450ms
созд. / загр.: 450ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]