Compare Page Revisions
« Ältere Version - Zurück zu der Eintragshistorie - Aktuelle Version
procedure AddDataSet(const Table: TRPCTable; const Name: string; const StorageType: string; SelectedRows: TBookmarkList)
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; finally aRTF.Free; end; end;
ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam.