property PrintedCount: integer
procedure openTemplates; var aRTF: TAdapterRTF; begin TableObjektVorlage.setstringparam('OB_ID', self.getparam('OB_ID')); TableObjektVorlage.readData; aRTF := TAdapterRTF.Create; try aRTF.SourceComp := 'MenuDocVorlagen'; aRTF.SourceID := self.DI_ID; aRTF.CO_ID := self.CO_ID; aRTF.DefaultStorageType := 'Objektablage'; aRTF.AddPrimaryDataSet(TableObjektVorlage, 'Objekt Daten', '', nil); aRTF.TemplateListdlg; Message_dlg('Gedruckte Dokumente: '+inttostr(aRTF.PrintedCount)); finally aRTF.Free; end; end;
ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam.