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

вывод в Word данных

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


Вступление в Клуб: 16.05.2008
СообщениеПн Июл 27, 2009 11:17   вывод в Word данных Ответить с цитатой
Полезность: Нет оценки
подскажите как в ворлд вывести повторяющееся данные
например

name string; -- этого много, повторяется много раз
begin
if p_message='DEFAULT' then
for ss in [BK_PAKETSEND] ALL
where ss.[PAKET].[NAME_PAKET]= this.[NAME_PAKET]
loop
name:=ss.[KLIENT].[NAME];
end loop;
elsif p_message ='VALIDATE' then
if p_info='OK' then
PATH := [SYSTEM_PARAMS]::[GET]('PATH_PRINT_DOC',null);
V_RUN_SCRIPT := '1';
V_FILE_NAME := PATH||'KL_LETTER.dot';
end if;
end if;
end;


на выходе надо получить вордовский документ по 4 организации на листе

спасибо
Volod
Эксперт


Вступление в Клуб: 19.09.2007
СообщениеПн Июл 27, 2009 14:05    Ответить с цитатой
Полезность: Нет оценки
Если реализован вывод в поля по наименованным закладкам, то можно так:

пример скрипта

Код:


здесь стандартный код

NumLetter = CInt(GetData("КОЛ_ПИСЕМ")) ' кол-во писем
' в цикле заполняем раздел 1 шаблона и делаем его копию
For x = 1 To NumLetter
TextData = "@@@" & CStr(x) 'передаем номер строки в Проверку для поиска индекса таблицы
Call Form1.ScriptServerValidate( TextData, "####" )
         
' заполняем Закладки в шаблоне
Call SetFormField(WrdApp, WrdDoc, "ДОЛЖНОСТЬ_БОССА")
Call SetFormField(WrdApp, WrdDoc, "ФИО_БОССА")
и т.д.
' копируем в новый раздел
' при копировании Закладки остаются в разделе 1
Call CopySection(WrdApp, WrdDoc)
      Next
      
WrdDoc.Sections(1).Range.Delete ' удаляем раздел 1, чтобы не было повторения

' показать документ
Call SetWordVisible(WrdApp, WrdDoc)
   
End If
Main = True ' Результирующее значение валидатора (True или False)   
End Function

Sub CopySection(WrdApp, WrdDoc)
' копируем раздел 1 в новый раздел
    WrdDoc.Sections(1).Range.Copy ' копируем в буфер первый раздел
   Set Range2 = WrdDoc.Content
      Range2.Collapse(wdCollapseEnd) ' вставляем вниз документа
      Range2.Paste

End Sub



или вывод в таблицу, что не очень быстро
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Банковская отчетность (оперативная, обязательная, Oracle Reports) Часовой пояс: GMT + 3
Страница 1 из 1

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