Вставка Картринок в WORD

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

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

LaaLaa

Re: Вставка Картринок в WORD

Сообщение LaaLaa »

korvanakorvana писал(а):
LaaLaa писал(а):
korvanakorvana писал(а):как примерно должен выглядеть мой код :shock:
На Vip примерно как то так.

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

Interface BarCodeReport;

  create view  as select
    * 
   from 
     KatSopr, 
     SpSopr,
     KatMc
   where 
   (( 
      101 == KatSopr.VidSopr and
      KatSopr.nRrec == SpSopr.cSopr  and
      SpSopr.cMcUsl == KatMc.nrec
   ));

  datastream BarCodeStream
  (
    table KatSopr
    (
       KatSopr.Nrec;
       KatSopr.Nsopr;
       ...
    )
    table SpSopr
    (
      SpSopr.Nrec
      SpSopr.Price;
      SpSopr.Kol;
      [Summa] SpSopr.Price * SpSopr.Kol;
      [McName] KatMc.name;
      [McBarKod] KatMc.BarKod
    );
  )
  end;

  browse brKatSopr;
  table KatSopr;
  fields
     KatSopr.dSopr;
     KatSopr.NoDok;
   end;

  handleEvent
    cmInit:
       RunFReport(AktStream, '', false);
  end;

end;
Как рисовать в дизайнере FR посмотрите на видео роликах.

PS: Пример не проверял на компилируемость, набросал экспромтом в форуме. Полные компилируемые примеры есть по ссылкам выше.
korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

Re: Вставка Картринок в WORD

Сообщение korvanakorvana »

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

interface _kor_shtrihkod;

create view shtrihkodreport
var
BasedocNRec:comp;
as
select * from 
  basedoc
, stepdoc
, spsopr
, katparty
, katmc
where
((
33776997205294963==basedoc.nrec
and basedoc.nrec==stepdoc.cbasedoc
and stepdoc.nrec==katsopr.cstepdoc
and katsopr.nrec==spsopr.csopr

and spsopr.cparty==katparty.nrec
and spsopr.cmcusl==katmc.nrec
))
;
parameters BasedocNRec;

datastream shtrihkodreport
  (
    table KatSopr
    (
       KatSopr.Nrec;
       KatSopr.Nsopr;
       
    );

    table SpSopr
    (
      SpSopr.Nrec;
      SpSopr.Kol;
      [McName] KatMc.name;
      [McBarKod] KatMc.BarKod2;
    );
)       
end;
handleevent
cmInit:
RunFReport(shtrihkodreport, '', true);  

end;

end.
Компилирую этот отчет. Все ок . Настроила на режим дизайнера. Запускаю выпадает Fastreport. Посмотрела примеры , не могу додуматься с этой средой что как(( :? Источник Данных пуст. Как туда добавить я не понимаю(( Объясните пожалуйста . только здесь могу спросить больше нет таких у нас (.


LaaLaa вы писали
Уже в дизайнере отчета KatSopr назначаете бэнду MasetData, а SpSopr бэнду DetailData. Всего FR поддерживает 6 уровней вложенности бэндов. Если надо блольше то можно использовать SubReport или FastScript.

А как же это сделать?)
LaaLaa

Re: Вставка Картринок в WORD

Сообщение LaaLaa »

korvanakorvana писал(а):А как же это сделать?)
См. видео пример создания отчета FastReport для печати фотографии сотрудников из базы Галактики:
Изображение

Полный исходный код примера можно скачать здесь: PrintPictures_src_rus.zip
Видео файл высокой четкости для offline-просмотра можно скачать здесь: PrintPictures.mp4

Тема обсуждалась на "Минском форуме". Рекомендую подписаться на этот форум тоже 8-)
korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

Re: Вставка Картринок в WORD

Сообщение korvanakorvana »

LaaLaa писал(а):
korvanakorvana писал(а):А как же это сделать?)
См. видео пример создания отчета FastReport для печати фотографии сотрудников из базы Галактики:
Изображение

Полный исходный код примера можно скачать здесь: PrintPictures_src_rus.zip
Видео файл высокой четкости для offline-просмотра можно скачать здесь: PrintPictures.mp4

Тема обсуждалась на "Минском форуме". Рекомендую подписаться на этот форум тоже 8-)

АГА разобралась как в fastreport данные получать. Спасибо намного удобнее тут работать. Единственное не поняла как
вывести например katsopr { spsopr } ???
Ответить