Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
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
|
или вывод в таблицу, что не очень быстро |
|
 |
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
|
|