Wordt gebruikt als basisklas voor Templ02* %occReferenceStorage 0 %Library.RegisteredObject B-index van de eerste zoeksleutel in de vorm van : B-index N\B-index F\B-index D\B-index E indien een B-index in de taal niet ingevuld is wordt steeds de eerste genomen. Dit wordt normaal niet ingevuld. Als dit toch ingevuld wordt, vervang dit de B-index in ^DMC(UQC,USC,"EXTERN","INPUT",1) B-index van de tweede zoeksleutel in de vorm van : B-index N\B-index F\B-index D\B-index E indien een B-index in de taal niet ingevuld is wordt steeds de eerste genomen. Dit wordt normaal niet ingevuld. Als dit toch ingevuld wordt, vervang dit de B-index in ^DMC(UQC,USC,"EXTERN","INPUT",2) Vul hier de dmDMS-waarde in. Indien ingevuld worden de save methodes van Data-M actief en wordt de save uitgevoerd via extern openen, wijzigen en verwijderen. Indien in de definitie van het scherm geen vrije velden zijn moet deze parameter op 0 gezet worden. Als de parameter op 1 staat wordt een methode GetFreeFields aangemaakt Opgelet : als er geen dmDMS ingevuld is geldt deze parameter niet 1 Indien de Q-waarde deel uit maakt van de ID (enkel in de vorm Q||UI1) dan moet deze parameter op 1 gezet worden 1 = in B-index 149 wordt zit een Q49 expressie om dmUI1 te bepalen : vb : Key of $$functie..(..Key_..Key1) dmUQA om ^DMA(dmUQA te bepalen. Indien niet ingevuld wordt dmUQA en dmUSA via dmDMS(Q,dmDMS,"DMA",UFU opgehaald dmUSA om ^DMA(dmUQA,dmUSA te bepalen. Indien niet ingevuld wordt dmUSA = dmDMS gesteld %String 1 0 Hulp voor logginggegevens %Library.String 1 1 0 S {LoggingData}=$$LOGDATA^cAFVBO01("EA","","") 1 Q-waarde %Library.String 0 1 Vul hier de waarde in voor B-index149 %Library.String 0 1 %Library.String 0 1 Application Language (= QT) N , F, D, E %Library.String 0 1 User Language N , F, D, E %Library.String 0 1 QU-waarde InitialenLaatsteWijziging als User %Library.String 0 1 generator BIndex:%Library.String="" %Library.String in VB append (Yes/No)]]> generator QQ:%Library.String="" %Library.String generator Method:%Library.String="",Form:%Library.String="",Par:%Library.String="" %Library.String in VB append (Yes/No)]]> generator QQ:%Library.String="" %Library.String Is property 'Property' with value 'Value' unique ? 0 = No 1 = Yes generator QQ:%Library.String="",Property:%Library.String="",Value:%Library.String="" %Library.String generator GridId:%Library.String="",USC:%Library.String="" %Library.String 1 generator QTD:%Library.String="" %Library.String generator GridId:%Library.String="",QQ:%Library.String="",UQA:%Library.String="",USA:%Library.String="" %Library.String generator QQ:%Library.String="" %Library.String generator NOCPROP:%Library.String="" 1 %Library.String code %String generator QQ:%Library.String="",InputString:%Library.String="",GridId:%Library.String="",ID:%Library.String="",Parameters:%Library.String="",All:%Library.String="",FixedWhere:%Library.String="",QTD:%Library.String="" %Library.String Locking Methode 0 = error-locking 1 = OK generator QQ:%Library.String="" %Integer generator Par:%Library.String="",QQ:%Library.String="" %String generator QQ:%Library.String="" %Library.String Calculate next freen number generator QQ:%Library.String="" %String UFU = "O" TAB(1) = prop1\prop2\... TAB(n) = propn... UFU="W" TAB(101) = prop1 TAB(102) = prop2 TAB(nnn) = propn]]> generator UFU:%Library.String="" %Status generator Property:%Library.String="" %Library.String code Arg:%String="" %Library.Status generator Arg:%String="" %Library.Status UnLocking Methode generator QQ:%Library.String="" %String Sys_Save generator Sys_Id generator %Library.String 1 Sys_ExistsId generator id:%String %Boolean Sys_ExistsId id:%String %Boolean