RTF - вставка картинки (не работает)

[Timofey]

При использование

Код: Выделить всё

  InsFoto(outPath,’prbdoc.rtf’,0,0,0);

вставка не происходит остается пустой лист

А для использование WritePict необходимо чтоб он реализовался в интерфейсе, не совсем понятно, как его тогда использовать, для отчет, у которого форма прототипа уже определенна вида prbdoc

Это пример из справки, можно как то остаться с rtf, не создавая доп интерфейс и форму, или как использовать интерфейс тогда в rtf с формой прототипом prbdoc

Код: Выделить всё

A.prj:

#make "A.vip"

#make "B.frm"

#make "B1_W13_01.rtf"

#make "B1_W13_10.rtf"

#make "B1_W10_01.rtf"

#make "B1_W10_10.rtf"

#make "B1_W07.rtf"

#make "B1_W03.rtf"

Код: Выделить всё

A.vip:

interface A

  create view as select * from DOCREMARCH;

  form B('B.out');

  handleEvent

    cmInit: {

      B.WritePict(DOCREMARCH.MEMO, 'D')

      B.Write('Cat')

      B.PutEvent(feBreak)

      B.ShowFile('Отчет')

    }

  end

end.

Код: Выделить всё

.form B

.fields

  C 

.endfields

^

.endform

[Den]

Наверное, можно попробовать InsFoto делать в докомпиляции родной печати после формирования формы и ее показа.
m0p3e показывал в опыте , как можно колонтитул в rtf заполнить после формирования формы, посредством Vb-скрипта Но , в любом случае, без Alter не обойтись будет.