Объектные интерфейсы и word

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Sytin
Постоянный обитатель
Сообщения: 159
Зарегистрирован: 28 сен 2005, 19:48
Откуда: mos
Контактная информация:

Объектные интерфейсы и word

Сообщение Sytin »

Можно ли при написании отчета формата rtf использовать объектные интерфейсы? И если можно, то как?
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

Nikos
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

Сообщение Nikos »

Кусочек отчета с объектными интерфейсами:
.LinkForm ’PRNMOVNAK_10_OBJ_RTF’ Prototype is ’PRINTINMOVNAK’
.Group ’Vnut’
.declare
#include mtrfuncs.vih
.enddeclare
.NameInList ’12. Накладная на внутреннее перемещение с объектами (rtf)’
.DEFP PA4
.var
object : string;
ObjectKod : string;
ob : mtrfuncs;
ckatstr : comp;
.endvar
.Create View ObjView
As Select *
from KATSTROY
Where ((ckatstr == KATSTROY.nRec));
.fields
....
.begin
object := ’’;
LoadVipInterface(ob);

Ckatstr := ob.GetObjUKS(1110,НРЕКПОЗИЦИИ);

if ObjView.GetFirst KATSTROY = tsOk
{
Object := KATSTROY.NAME;
ObjectKod := KATSTROY.CODE;
}
else
{
Object := ’’;
ObjectKod := ’’;
}
end.

...
Sytin
Постоянный обитатель
Сообщения: 159
Зарегистрирован: 28 сен 2005, 19:48
Откуда: mos
Контактная информация:

Сообщение Sytin »

Спасибо разобрался
Ответить