Index: TECH/Lock/LockUtils.cls.xml =================================================================== diff -u --- TECH/Lock/LockUtils.cls.xml (revision 0) +++ TECH/Lock/LockUtils.cls.xml (revision 9) @@ -0,0 +1,32 @@ + + + +%RegisteredObject + + +1 +Lock:%String + + + + + + Index: TECH/Events/KlantMaakEvent.cls.xml =================================================================== diff -u --- TECH/Events/KlantMaakEvent.cls.xml (revision 0) +++ TECH/Events/KlantMaakEvent.cls.xml (revision 9) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Print/PrintUtils.cls.xml =================================================================== diff -u --- TECH/Print/PrintUtils.cls.xml (revision 0) +++ TECH/Print/PrintUtils.cls.xml (revision 9) @@ -0,0 +1,59 @@ + + + + +0 +%RegisteredObject + + +%String +, + + + +%String +- + + + + +Zet een range lijst om in een ListIterator. +Vb: "12" , "12,15,136", "12,56-60,12" +1 +Ranges:%String +TECH.ListIterator + + + + + + Index: TECH/Algo/SQL/QueryEngine/QueryBuilder.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/QueryBuilder.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/QueryBuilder.cls.xml (revision 9) @@ -0,0 +1,196 @@ + + + + +1 +%RegisteredObject + + +TECH.Algo.SQL.QueryEngine.Tabel +array +1 + + + +TECH.Algo.SQL.QueryEngine.SelectieVeld +list +1 + + + +%String +array +1 + + + + +TECH.Algo.SQL.QueryEngine.IWhereConditie +1 + + + +TECH.Algo.SQL.QueryEngine.Tabel +1 + + + +SelectieVeld +list +1 + + + +%Integer +1 + + + +Tabel:TECH.Algo.SQL.QueryEngine.Tabel + + + + +TECH.ListIterator + + + + +Tabel:TECH.Algo.SQL.QueryEngine.Tabel + + + + +MaxAantal:%Integer + + + + +Veld:%String,Tabel:TECH.Algo.SQL.QueryEngine.Tabel + + + + +IndexVanVeld:%Integer + + + + +ForeignKey:TECH.Algo.SQL.QueryEngine.ForeignKey + + + + +ForeignKey:TECH.Algo.SQL.QueryEngine.ForeignKey,Tabel:TECH.Algo.SQL.QueryEngine.Tabel +1 + + + + +WhereConditie:TECH.Algo.SQL.QueryEngine.IWhereConditie + + + + +%String + + + + +1 +%String + + + + +1 +%String + + + + +1 +%String + + + + +Tabel:TECH.Algo.SQL.QueryEngine.Tabel +1 +%String + + + + +1 + 0) + { + Set GroupByString = " GROUP BY" + #dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GroupBy) + While (Iterator.HasNext()) + { + #dim SelectieVeld As SelectieVeld = Iterator.Next() + Set GroupByString = GroupByString_" "_SelectieVeld.GeefTabel().GeefNaam()_"."_SelectieVeld.GeefVeld() + If (Iterator.HasNext()) { Set GroupByString = GroupByString_", " } + } + } + Quit GroupByString +]]> + + + + + Index: TECH/Config/ConfigService.cls.xml =================================================================== diff -u --- TECH/Config/ConfigService.cls.xml (revision 0) +++ TECH/Config/ConfigService.cls.xml (revision 9) @@ -0,0 +1,46 @@ + + + + +1 +%RegisteredObject + + +TECH.Config.dto.ConfigItems + + + + + + Index: TECH/Events/LadeFinishedGezetEvent.cls.xml =================================================================== diff -u --- TECH/Events/LadeFinishedGezetEvent.cls.xml (revision 0) +++ TECH/Events/LadeFinishedGezetEvent.cls.xml (revision 9) @@ -0,0 +1,25 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.LadeFinishedGezetEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Concurrency/ConcurrencyException.cls.xml =================================================================== diff -u --- TECH/Concurrency/ConcurrencyException.cls.xml (revision 0) +++ TECH/Concurrency/ConcurrencyException.cls.xml (revision 9) @@ -0,0 +1,17 @@ + + + + +Specifieke Exception class, om toe te laten Concurrency problemen + te herkennen in code. +TECH.Exceptions.AbstractOmschrijvingException + + +TECH.enu.ExceptionCode + + + + + + Index: TECH/Events/VerwijderLeverancierEvent.cls.xml =================================================================== diff -u --- TECH/Events/VerwijderLeverancierEvent.cls.xml (revision 0) +++ TECH/Events/VerwijderLeverancierEvent.cls.xml (revision 9) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Comparator/IntegerReverseComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/IntegerReverseComparator.cls.xml (revision 0) +++ TECH/Comparator/IntegerReverseComparator.cls.xml (revision 9) @@ -0,0 +1,18 @@ + + + + +1 +%RegisteredObject,TECH.Comparator.IComparator +right + + +Waarde1:%Integer,Waarde2:%Integer +%Boolean + Waarde2 +]]> + + + + + Index: TECH/Events/LeverancierEventData.cls.xml =================================================================== diff -u --- TECH/Events/LeverancierEventData.cls.xml (revision 0) +++ TECH/Events/LeverancierEventData.cls.xml (revision 9) @@ -0,0 +1,39 @@ + + + + +JBL + 2011-04-18 +serial +1 +TECH.PubSub.EventData + + +%Integer + + + +LeverancierNr:%Integer +1 +1 +%Status + + + + +%Library.CacheSerialState +LeverancierEventDataState + +"DOM.LEV.impl.LeverancierEventData" + +LeverancierNr + + + + + + + Index: TECH/Math.cls.xml =================================================================== diff -u --- TECH/Math.cls.xml (revision 0) +++ TECH/Math.cls.xml (revision 9) @@ -0,0 +1,64 @@ + + + + +1 +%RegisteredObject + + +1 +Getal:%Float +%Float + + + + +1 +Getal:%Float +%Integer + + + + +1 +Getal:%Float +%Integer + + + + +1 +Getal1:%Float,Getal2:%Float +%Float + Getal2) Set Min = Getal2 + Quit Min +]]> + + + +1 +Getal1:%Float,Getal2:%Float +%Float + + + + +1 +Getal:%Float,CijfersNaKomma:%Integer +%Float + + + + + + Index: TECH/Directory.cls.xml =================================================================== diff -u --- TECH/Directory.cls.xml (revision 0) +++ TECH/Directory.cls.xml (revision 9) @@ -0,0 +1,68 @@ + + + + +1 +%RegisteredObject + + + +Maakt volledig directory path aan, bv C:\map1\map2\map3 +1 +Directory:%String + + + + + +Gaat volledig recursief een directory verwijderen +1 +Directory:%String + + + + + +Verwijdert alle bestanden uit een directory die ouder of gelijk zijn aan de opgegeven datum +1 +Directory:%String,Datum:%Date + + + + + + Index: TECH/Algo/SQL/QueryEngine/Tabel.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/Tabel.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/Tabel.cls.xml (revision 9) @@ -0,0 +1,33 @@ + + + + +1 +%RegisteredObject + + +%String +1 + + + + +Naam:%String +1 +1 +%Status + + + + +%String + + + + + + Index: TECH/StringUtils.cls.xml =================================================================== diff -u --- TECH/StringUtils.cls.xml (revision 0) +++ TECH/StringUtils.cls.xml (revision 9) @@ -0,0 +1,249 @@ + + + + +1 +%RegisteredObject + + +1 +String,F,T,From,Cnt,Continue=0 + + + + +1 +String,StartsWith + + + + +1 +String:%String +%String + + + + +1 +String:%String +%String + + + + +1 +String:%String +%String + + + + +1 +String:%String +%String + + + + + +Nagaan of Input match aan het opgegeven pattern. +Volgende mogelijkheden +* : 0 of meer characters +? : exact 1 character + +Voorbeelden +w ##class(TECH.StringUtils).MatchesWildCard("abcmqsldkfmlsqkfjdef","abc*def") +w ##class(TECH.StringUtils).MatchesWildCard("adm","a?m") +w ##class(TECH.StringUtils).MatchesPattern("a1mqsfd","a?m*") + +1 +Input:%String,Pattern:%String,CaseSensitive:%Boolean=0 +0 + + + + + +[Previously private] +1 +WildCard:%String,StartWith:%String + + + + +1 +Input:%String,Filler:%String,Width:%String + + + + +1 +Input:%String,CharToTrim:%String=" " +%String + + + + +1 +Input:%String,CharToTrim:%String=" " +%String + + + + +1 +Input:%String,CharToTrim:%String=" " +%String + + + + +1 +Input:%String,Positie:%Integer +%String + + + + +1 +Input:%String,CharactersPerLijn:%Integer +%ListOfDataTypes + + + + +1 +Input:%String,Width:%Integer=50 + + + + +1 +Input:%String,Char:%String=" ",Width:%Integer=50 + + + + +1 +Input:%String,Char:%String=" ",Width:%Integer=50 + + + + +1 +Input:%String,Width:%Integer=50 + + + + + + Index: TECH/ReversedListIterator.cls.xml =================================================================== diff -u --- TECH/ReversedListIterator.cls.xml (revision 0) +++ TECH/ReversedListIterator.cls.xml (revision 9) @@ -0,0 +1,84 @@ + + + + +1 +Iterator,%RegisteredObject +right + + +%AbstractList +1 + + + +%String +1 + + + + +%String +1 + + + + +%CacheString +1 + + + + +Returns true if the iteration has more elements. +%Boolean + + + + +List:%AbstractList +1 +1 +%Status + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + + + +%String + + + + + + Index: TECH/Process.cls.xml =================================================================== diff -u --- TECH/Process.cls.xml (revision 0) +++ TECH/Process.cls.xml (revision 9) @@ -0,0 +1,98 @@ + + + +vhLib.Macro +%RegisteredObject + + +1 +ProcessID:%String + + + + +1 +ProcessID:%String + + + + +1 +%String + + + + + +return SYS.Process (namespace %SYS) +ProcessID:%String + + + + +1 +ProcessID:%String + + + + +ProcessID:%String +1 +%SQL.StatementResult + + + + +1 +From:%Integer=1 +%String + "_$STACK($STACK-i,"MCODE") + } + Quit Txt +]]> + + + + + Index: TECH/Events/KenmerkenDeletedEvent.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkenDeletedEvent.cls.xml (revision 0) +++ TECH/Events/KenmerkenDeletedEvent.cls.xml (revision 9) @@ -0,0 +1,29 @@ + + + + +NIET GEÏMPLEMENTEERD +Dit is het bulk event voor KenmerkDeletedEvent. +Niet elk event gebeurt in bulk, er moet dus ook naar KenmerkDeletedEvent geluisterd worden. +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.KenmerkenDeletedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Config/dto/ConfigItem.cls.xml =================================================================== diff -u --- TECH/Config/dto/ConfigItem.cls.xml (revision 0) +++ TECH/Config/dto/ConfigItem.cls.xml (revision 9) @@ -0,0 +1,21 @@ + + + + +1 +%RegisteredObject,%XML.Adaptor +right + + +%String + + + + +TECH.Config.dto.ConfigWaarde +list + + + + + Index: TECH/Files.cls.xml =================================================================== diff -u --- TECH/Files.cls.xml (revision 0) +++ TECH/Files.cls.xml (revision 9) @@ -0,0 +1,182 @@ + + + + +1 +%RegisteredObject + + +%ListOfObjects + + + +1 +Directory:%String,Filename:%String + + + + +1 +Directory:%String,SubPath:%String + + + + +Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0 +%ListOfObjects + + + + + +Geeft lijst van FileInfo-objecten terug +AddSubDir loopt recursief door alle onderliggende subdirs +Directory:%String,AddSubDir:%Boolean=1 +%ListOfObjects + + + + +%New method to +provide notification that a new instance of an object is being created. + +

If this method returns an error then the object will not be created. +

It is passed the arguments provided in the %New call. +When customizing this method, override the arguments with whatever variables and types you expect to receive from %New(). +For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be: +

Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]> +FullName:%String,rset:%ResultSet + + + + +initvalue:%CacheString +1 +1 +%Status + + + + +%Query +Directory:%String,FileMask:%String + + + + +1 + +%Status + + + + +1 + +GetFilesExecute +%Status + + + + +1 + +GetFilesExecute +%Status + + + + +1 +FromPath:%String,ToPath:%String + + + + + + Index: TECH/Error.inc.rou =================================================================== diff -u --- TECH/Error.inc.rou (revision 0) +++ TECH/Error.inc.rou (revision 9) @@ -0,0 +1,66 @@ + /// Routine : TECH.Error.INC + /// + /// Author : Paul Verhulst + /// Created : 11/08/2010 + /// + +#include vhLib.Macro +#include %occInclude + + + + /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ + + +#define TECHErrorTrapOn new $ETRAP Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler()" +#define TECHErrorTrapOff Set $ETRAP="" + +#define LocalErrorTrapOn new $ETRAP Set $ETRAP="Do %TECHErrorLocalTrap("_$stack_").TrapHandler()" $$$InitLocalErrorTrap +#define LocalErrorTrapOnLabeled(%Label,%Opts) new $ETRAP Set $ETRAP="Do %TECHErrorLocalTrap("_$stack_").TrapHandler("%Label","%Opts")" $$$InitLocalErrorTrap +#define LocalErrorTrapOff Kill %TECHErrorLocalTrap($stack) $$$TECHErrorTrapOff + +#define InitLocalErrorTrap Set %TECHErrorLocalTrap($stack)=%this,%TECHErrorLocalTrap($stack,1)=$ETRAP + +#define CheckLocalErrorTraps $$$DollarOrderCheck $$$DollarDataCheck +#define DollarOrderCheck Set:($O(%TECHErrorLocalTrap($stack))'="") $ECODE="`PreviousTrapNotCleared" +#define DollarDataCheck Set:($D(%TECHErrorLocalTrap($stack))) $ECODE="`PreviousTrapNotCleared" + +#define ThrowError(%s,%v) Set $ECODE="`"_%s_"`"_%v_"`" +#define ThrowErrorStatus(%s,%v,%r) Set $ECODE="`"_%s_"`"_%v_"`"_$$ParseStatus^vhLib(%r)_"`" +#define ThrowErrorUser(%s,%v,%u) Set $ECODE="`"_%s_"`"_%v_"``"_%u, +#define ThrowErrorStatusAndUser(%s,%v,%r,%u) Set $ECODE="`"_%s_"`"_%v_"``"_%u +#define ThrowErrorObject(%o) Do ##class(TECH.Error).Throw(%o) set $ECODE="`"_%o.GeefErrorCode()_"`"_%o.GeefErrorType() + +#define ClearError Set $ECODE="" +#define ClearLocalError Set ErrorLevelTrapOn=$O(%TECHErrorLocalTrap(""),-1) If $ES=(ErrorLevelTrapOn+2) $$$ClearError +#define StdHandling Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler(.Label,.Options) +#define ReThrow ; Rethrow is automatic + +#define chkRequiredParameter(%p) If '$length($get(%p)) $$$ThrowError($$$errParameterRequired,"%p") +#define chkIsObject(%obj) If '$isobject(%obj) $$$ThrowError($$$errObjectExpected,"%obj") +#define chkValidateObject(%obj) Set sc=%obj.%ValidateObject() If $$$ISERR(sc) $$$ThrowErrorStatus($$$errObjectValidationFailed,"%obj",sc) +#define chkValidateDataType(%dt,%p) if '##class(%dt).IsValid(%p) $$$ThrowError($$$errInvalidInput,%p) +#define chkMaxLength(%var,%maxlength) if $length(%var) > %maxlength $$$ThrowError($$$errInvalidInput,%var_": "_$length(%var)_">"_%maxlength) + +#define CreateStdErrorObject set %vhLastError = ##class(TECH.Error.ErrorObject).%New() +#define AddToErrorObject(%String) do %vhLastError.Info.Insert(%String) + +#define errGeneralError "1000:GeneralError" +#define errPropertyRequired "1001:PropertyRequired" +#define errParameterRequired "1002:ParameterRequired" +#define errParameterInvalid "1002:ParameterInvalid" +#define errObjectExpected "1003:ObjectExpected" +#define errLocked "1004:Locked" +#define errInvalidInput "1005:InvalidInput" +#define errInvalidOutput "1005:InvalidOutput" +#define errInvalidID "1007:InvalidID" +#define errCreateObject "1006:Create object" +#define errInvalidEnumeration "1008:InvalidEnumerationValue" +#define errUnimplemented "1009:Unimplemented" + +#define errObjectValidationFailed "3000:ObjectValidationFailed" +#define errSaveFailed "3001:SaveFailed" + +#define errUserError "5000:UserError" + + Index: TECH/FileInfo.cls.xml =================================================================== diff -u --- TECH/FileInfo.cls.xml (revision 0) +++ TECH/FileInfo.cls.xml (revision 9) @@ -0,0 +1,32 @@ + + + + +1 +%RegisteredObject + + +%Date + + + +%Date + + + +%Float + + + +%String + + + + +%String + + + + + + Index: TECH/PubSub/Event.cls.xml =================================================================== diff -u --- TECH/PubSub/Event.cls.xml (revision 0) +++ TECH/PubSub/Event.cls.xml (revision 9) @@ -0,0 +1,58 @@ + + + +serial +1 +%SerialObject + + +TECH.PubSub.EventData + + + + +%Integer + + + +%String + + + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState +EventState +^TECH.PubSub.EventS + +listnode +"TECH.PubSub.Event" + +Data + + +TimeStampje + + +Type + + +TijdCreatie + + + + + + + Index: TECH/OBJ/Validator.cls.xml =================================================================== diff -u --- TECH/OBJ/Validator.cls.xml (revision 0) +++ TECH/OBJ/Validator.cls.xml (revision 9) @@ -0,0 +1,60 @@ + + + + +TECH.Error,vhLib.Macro +1 +%RegisteredObject + + +vhLib.Logger +1 + + + + + + + + +Object:%RegisteredObject +%Status + + + + +Logger:vhLib.Logger="" +1 +1 +%Status + + + + + + Index: TECH/ExceptionHandler.cls.xml =================================================================== diff -u --- TECH/ExceptionHandler.cls.xml (revision 0) +++ TECH/ExceptionHandler.cls.xml (revision 9) @@ -0,0 +1,94 @@ + + + + +1 +%RegisteredObject + + +1 +Exception:TECH.IException + + + + +1 +ExceptionTypes...:%String +TECH.IException + + + + + +Laat de callstack intakt. Exceptie is exceptioneel. Wanneer deze is leeggelaten wordt de bestaande exceptie gerethrowed (indien deze niet werd gecatched uiteraard!) +In geval van een transactie kan de rethrow zonder exceptie parameter niet gebruikt worden omdat de $zerror ook wordt gerollbacked. +Volgende stramien moet dan gebruikt worden: + Set Exceptie = ##class(TECH.ExceptionHandler).Catch() + TROLLBACK + Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie) +1 +Exceptie:TECH.IException + + + + + + Index: TECH/Events/LadeFinishedGezetEventData.cls.xml =================================================================== diff -u --- TECH/Events/LadeFinishedGezetEventData.cls.xml (revision 0) +++ TECH/Events/LadeFinishedGezetEventData.cls.xml (revision 9) @@ -0,0 +1,71 @@ + + + +serial +1 +TECH.PubSub.EventData + + +%String + + + + +%String + + + + +%Integer + + + +%Integer + + + +%Integer + + + +Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer,SequenceNr:%Integer +1 +1 +%Status + + + + +%Library.CacheSerialState +LadeFinishedGezetEventDataState + +listnode +"TECH.Events.LadeFinishedGezetEventData" + +ProductNummer + + +Toelevering + + +ToeleveringsLijn + + +BatchID + + +SequenceNr + + + + + + + Index: TECH/Algo/Graph/DependencyGraph.cls.xml =================================================================== diff -u --- TECH/Algo/Graph/DependencyGraph.cls.xml (revision 0) +++ TECH/Algo/Graph/DependencyGraph.cls.xml (revision 9) @@ -0,0 +1,145 @@ + + + + +TECH.Error +1 +%RegisteredObject + + +TECH.Algo.Graph.Node +array +1 + + + +1 +1 +%Status + + + + +Node:TECH.Algo.Graph.Node + + + + +DependentNode:TECH.Algo.Graph.Node,Node:TECH.Algo.Graph.Node + + + + +DependentName:%String,Name:%String + + + + +%ListOfObjects + 0) + { + Do ..VisitTopologicalSort(Queue.GetAt(1),.Visited,.DependencyQueue) + Do Queue.RemoveAt(1) + } + + Quit DependencyQueue +]]> + + + + + + + + +%ListOfObjects + + + + + 0) && (Queue.Count() = 0)) + While (('HasCycle) && (Queue.Size > 0)) + { + Set HasCycle = (..VisitCycle(Queue.GetAt(1)) > ..Nodes.Count()) + Do Queue.RemoveAt(1) + } + Quit HasCycle +]]> + + + + +Returns the length of the last visited path, if there is a cycle, it returns the numbers of nodes + 1 +Node:TECH.Algo.Graph.Node,PathLength:%Integer=0 +1 +%Integer + ..Nodes.Count()) && Iterator.HasNext()) + { + Set PathLength = ..VisitCycle(Iterator.Next(),PathLength+1) + } + Quit PathLength +]]> + + + + +Geeft lijst van de Data vertrekkende van de lijst van de Nodes van de Graph. +1 +DependencyQueue:%ListOfObjects +%ListOfObjects + + + + + + Index: TECH/Concurrency/VhPersistent.cls.xml =================================================================== diff -u --- TECH/Concurrency/VhPersistent.cls.xml (revision 0) +++ TECH/Concurrency/VhPersistent.cls.xml (revision 9) @@ -0,0 +1,70 @@ + + + + +Persistence methods die via inheritance overgenomen worden. +Deze gebeuren volledig via delegatie naar DbUtils. +Daardoor kan er aan gesleuteld worden zonder alle classes te moeten hercompileren. + +Let op: gebruik geen %-methods rechtstreeks die met locking te maken hebben! + +Merk op dat de InstanceVersion property eventueel in deze klasse zou kunnen staan, +maar dat maakt het gradueel in gebruik nemen complexer. +De VERSIONPROPERTY parameter zou hier niet kunnen staan. +1 + +TECH.Concurrency.VhConcurrencyPart + + +%Integer +0 + + + +InstanceVersion + + + +InstanceVersion:%Integer=-1 + + + + +1 +ID:%String +%ObjectHandle + + + + +1 +ID:%String,InstanceVersion:%Integer="",ControleerBijOpenen:%Boolean=1 +%ObjectHandle + + + + +insert:%Boolean +1 +%Status + + + + +insert:%Boolean +1 +%Status + + + + + + Index: TECH/Events/UGLYPickingEventData.cls.xml =================================================================== diff -u --- TECH/Events/UGLYPickingEventData.cls.xml (revision 0) +++ TECH/Events/UGLYPickingEventData.cls.xml (revision 9) @@ -0,0 +1,38 @@ + + + +serial +1 +TECH.PubSub.EventData + + +%String + + + + +ConsNr:%String +1 +1 +%Status + + + + +%Library.CacheSerialState +UGLYPickingEventDataState + +listnode +"TECH.Events.UGLYPickingEventData" + +ConsNr + + + + + + + Index: TECH/Matrix.cls.xml =================================================================== diff -u --- TECH/Matrix.cls.xml (revision 0) +++ TECH/Matrix.cls.xml (revision 9) @@ -0,0 +1,83 @@ + + + + +1 +%RegisteredObject + + +%ListOfDataTypes +list + + + +1 +Lijst:%ListOfDataTypes,AantalRijen:%Integer="",AantalKolommen:%Integer="" +TECH.Matrix + + + + +TECH.Matrix + + + + +%String + + + + + + Index: TECH/Events/LadeGerecepteerdEvent.cls.xml =================================================================== diff -u --- TECH/Events/LadeGerecepteerdEvent.cls.xml (revision 0) +++ TECH/Events/LadeGerecepteerdEvent.cls.xml (revision 9) @@ -0,0 +1,25 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/PubSub/impl/SimpelEventRaiser.cls.xml =================================================================== diff -u --- TECH/PubSub/impl/SimpelEventRaiser.cls.xml (revision 0) +++ TECH/PubSub/impl/SimpelEventRaiser.cls.xml (revision 9) @@ -0,0 +1,17 @@ + + + + +1 +TECH.PubSub.EventRaiser + + +Event:TECH.PubSub.Event +%Status + + + + + + Index: TECH/Enumeration.cls.xml =================================================================== diff -u --- TECH/Enumeration.cls.xml (revision 0) +++ TECH/Enumeration.cls.xml (revision 9) @@ -0,0 +1,88 @@ + + + +datatype +1 +%String + + +1 +%ListOfDataTypes +1 + + + + +1 +%ListOfDataTypes +1 + + + + +1 +%ListOfDataTypes +1 + + + + +1 +%List +1 + + + + +1 +TECH.ListIterator +1 + + + + +1 +TECH.ListIterator +1 + + + + + + Index: TECH/CodeGebruik/RoutineGebruikMonitor.cls.xml =================================================================== diff -u --- TECH/CodeGebruik/RoutineGebruikMonitor.cls.xml (revision 0) +++ TECH/CodeGebruik/RoutineGebruikMonitor.cls.xml (revision 9) @@ -0,0 +1,134 @@ + + + +%RegisteredObject + + + +Monitoring van gebruik van routines en hun subroutines. +Welke routines te monitoren, wordt via een config item geconfigureerd. +De resultaten worden bewaard bij het stoppen van monitoren. + +Deze configmanagersleutel moet of afwezig zijn of een lege string zijn (= geen monitoring) +of moet een $ListBuild zijn van %Strings die elk een routinenaam (evt. met * als wildcard) bevatten. +Zie ook de documentatie van %Monitor.System.LineByLine. +Voorbeeldconfiguratie: +Do ##class(TECH.Config.ConfigMgr).Instance().SetString("TECH.RoutineGebruikMonitor.RoutinesTeMonitoren", $LB("K*")) + +TECH.RoutineGebruikMonitor.RoutinesTeMonitoren + + + + + + + +1 + + + + +1 +%List + + + + +1 +RoutinesTeMonitoren:%List + + + + + + + + +1 + + + + +1 + + + + +1 +RoutineNaam:%String,Timestamp:%TimeStamp +1 + 0) { + Do ..BewaarSubRoutineGebruikIndienEersteLijn(RoutineNaam, RoutineLijnNummer, AantalKeerUitgevoerd, Timestamp) + } + + Set RoutineLijnNummer = RoutineLijnNummer + 1 + } + + Kill ResultSet +]]> + + + +1 +RoutineNaam:%String,RoutineLijnNummer:%Integer,AantalKeerUitgevoerd:%Integer,Timestamp:%TimeStamp +1 + + + + + + Index: TECH/Concurrency/TransactionMgr.cls.xml =================================================================== diff -u --- TECH/Concurrency/TransactionMgr.cls.xml (revision 0) +++ TECH/Concurrency/TransactionMgr.cls.xml (revision 9) @@ -0,0 +1,159 @@ + + + + +Koppeling van Transactie aan locks en aan het huidige proces. +TODO: Geneste Start / Commit ondersteunen. +%RegisteredObject + + +1 + + + + +1 + + + + +1 + + + + +1 +Object:%Persistent + + + + +1 +Object:%Persistent + + + + +1 +Object:%Persistent + + + + +1 +Object:%Persistent + + + + +1 + + + + + +Opvragen of we momenteel in de context van een transactie lopen. +1 +%Boolean + + + + + +Opvragen of we momenteel in de context van een RepeatableRead transactie lopen. +1 +%Boolean + + + + + +Opvragen of we momenteel in de context van een ReadCommitted transactie lopen. +1 +%Boolean + + + + +1 + + + + +1 +1 + + + + +1 +Transactie:Transactie +1 + + + + + + Index: TECH/Events/KlantWijzigEvent.cls.xml =================================================================== diff -u --- TECH/Events/KlantWijzigEvent.cls.xml (revision 0) +++ TECH/Events/KlantWijzigEvent.cls.xml (revision 9) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/ListbuildIterator.cls.xml =================================================================== diff -u --- TECH/ListbuildIterator.cls.xml (revision 0) +++ TECH/ListbuildIterator.cls.xml (revision 9) @@ -0,0 +1,61 @@ + + + + +Een lege string wordt niet aanschouwd als een piece. De HasNext() zal dus false teruggeven als de string leeg is. + +1 +%RegisteredObject,TECH.Iterator +right + + +%Integer +1 + + + +%String +1 + + + + +%Integer +1 + + + +Listbuild:%String +1 +%Status + + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + Index: TECH/Events/KenmerkenModifiedEvent.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkenModifiedEvent.cls.xml (revision 0) +++ TECH/Events/KenmerkenModifiedEvent.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + + +Dit is het bulk event voor KenmerkDeletedEvent. +Niet elk event gebeurt in bulk, er moet dus ook naar KenmerkDeletedEvent geluisterd worden. +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.KenmerkenModifiedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Exceptions/ObjectExpectedException.cls.xml =================================================================== diff -u --- TECH/Exceptions/ObjectExpectedException.cls.xml (revision 0) +++ TECH/Exceptions/ObjectExpectedException.cls.xml (revision 9) @@ -0,0 +1,16 @@ + + + + +1 +TECH.Exceptions.AbstractOmschrijvingException + + +TECH.enu.ExceptionCode + + + + + + Index: TECH/ArrayOneDimIterator.cls.xml =================================================================== diff -u --- TECH/ArrayOneDimIterator.cls.xml (revision 0) +++ TECH/ArrayOneDimIterator.cls.xml (revision 9) @@ -0,0 +1,69 @@ + + + + +1 +Iterator,%RegisteredObject +right + + +%String +1 +1 + + + + +%String +1 + + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +1 +1 +%Status + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + + + +%String + + + + + + Index: TECH/Vector.cls.xml =================================================================== diff -u --- TECH/Vector.cls.xml (revision 0) +++ TECH/Vector.cls.xml (revision 9) @@ -0,0 +1,214 @@ + + + +serial +1 +%SerialObject + + +%Float + + + +%Float + + + +%Float + + + +X:%Float,Y:%Float,Z:%Float +1 +1 +%Status + + + + +%String + + + + +1 +Graden:%Float +%Float + + + + +1 +Radialen:%Float +%Float + + + + +%Boolean + + + + +v2:Vector +Vector + + + + +v2:Vector +%Float + + + + +v2:Vector +Vector + + + + +V2:Vector + + + + +Digits=5 +Vector + + + + + +Clips the vector between 0 and the given maximum value for each coordinate +MaxX:%Float,MaxY:%Float,MaxZ:%Float +Vector +MaxX: MaxX, 1: ..X) + Set YRes = $Select(..Y<0: 0, ..Y>MaxY: MaxY, 1: ..Y) + Set ZRes = $Select(..Z<0: 0, ..Z>MaxZ: MaxZ, 1: ..Z)*/ + Set XRes = $Select(..X>MaxX: MaxX, 1: ..X) + Set YRes = $Select(..Y>MaxY: MaxY, 1: ..Y) + Set ZRes = $Select(..Z>MaxZ: MaxZ, 1: ..Z) + Quit ..%New(XRes, YRes, ZRes) +]]> + + + +%Float + + + + +Vector + + + + +Vector + + + + +v2:Vector +%Float + + + + +Angle:%Float +Vector + + + + +Angle:%Float +Vector + + + + +Angle:%Float +Vector + + + + + +Rotate the vector around another vector over an angle. The other vector needs to a unit vector. +Angle:%Float,Around:Vector +Vector + + + + +%Library.CacheSerialState +VectorState +^TECH.VectorS + +listnode +"TECH.Vector" + +X + + +Y + + +Z + + + + + + + Index: TECH/Algo/SQL/QueryEngine/ForeignKey.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/ForeignKey.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/ForeignKey.cls.xml (revision 9) @@ -0,0 +1,79 @@ + + + + +1 +%RegisteredObject + + +%String +1 + + + + +TECH.Algo.SQL.QueryEngine.Tabel +1 + + + +%String +1 + + + + +TECH.Algo.SQL.QueryEngine.Tabel +1 + + + +Veld1:%String,Tabel1:TECH.Algo.SQL.QueryEngine.Tabel,Veld2:%String,Tabel2:TECH.Algo.SQL.QueryEngine.Tabel +1 +1 +%Status + + + + +%String + + + + +TECH.Algo.SQL.QueryEngine.Tabel + + + + +%String + + + + +TECH.Algo.SQL.QueryEngine.Tabel + + + + + + Index: TECH/CompileUtils.cls.xml =================================================================== diff -u --- TECH/CompileUtils.cls.xml (revision 0) +++ TECH/CompileUtils.cls.xml (revision 9) @@ -0,0 +1,131 @@ + + + + +1 +%RegisteredObject + + + +TODO : + + Include file afscannen naar andere en kijken of die andere includes heeft genest + Wat moet gecompileerd worden eerst in een compile list steken + Compile flags kunnen meegeven +1 + + + + + + + + +incFile + + + + +incFile +%List + + + + +incFile +%List + + + + +1 + + + + +1 + 1 + do svnHelper.CompileImportedSourceCode(Recompile) + } +]]> + + + + + Index: TECH/Print/Printer.cls.xml =================================================================== diff -u --- TECH/Print/Printer.cls.xml (revision 0) +++ TECH/Print/Printer.cls.xml (revision 9) @@ -0,0 +1,31 @@ + + + +1 + +1 +%RegisteredObject + + +AbstractLabel +list + + + + + + +Item:TECH.Print.AbstractLabel +%Status + + + +%Status + + + + + + + + Index: TECH/KeyValuePair.cls.xml =================================================================== diff -u --- TECH/KeyValuePair.cls.xml (revision 0) +++ TECH/KeyValuePair.cls.xml (revision 9) @@ -0,0 +1,31 @@ + + + + +1 +%RegisteredObject,%XML.Adaptor +right + + +%CacheString + + + +%CacheString + + + +Key:%CacheString="",Value:%CacheString="" +1 +1 +%Status + + + + + + Index: TECH/Config/ConfigMgr.cls.xml =================================================================== diff -u --- TECH/Config/ConfigMgr.cls.xml (revision 0) +++ TECH/Config/ConfigMgr.cls.xml (revision 9) @@ -0,0 +1,211 @@ + + + + +De ConfigMgr beheert configuratie-waarden. +Het gebruikt ConfigItem instanties als data-bron. +Elk proces heeft zijn eigen ConfigMgr instantie. +Een proces kan zijn instantie resetten, bvb aan het begin van het verwerken van een SOAP call. +Een proces kan een config waarde tijdelijk wijzigen, zonder andere processen te impacteren. + +Dit kan uitgebreid worden met: +- controle op het type van de waarde +- wijziging van een waarde enkel in het huidige proces toepassen +- periodiciteit van waardes +- in sync houden van waardes over meerdere databanken +- Default waarde (per omgeving?) +- duurtijd waarop een applicatie een configuratie waarde mag cachen +... + +vhLib.Macro,TECH.Error +1 +%RegisteredObject + + +ConfigMgr + + + +ALLE + + + +1 +TECH.Config.ConfigMgr + + + + +Sleutel:%String +%Boolean + + + + + +Remark: DefaultWaarde is optioneel. +Sleutel:%String,DefaultWaarde:%String +%String + + + + +Sleutel:%String,DefaultWaarde:%String +%String + + + + +Sleutel:%String,DefaultWaarde:%Boolean +%Boolean + + + + + +Remark: DefaultWaarde is optioneel. +Sleutel:%String,DefaultWaarde:%Boolean +%Boolean + + + + + +Remark: Applicatie is optioneel. +Sleutel:%String,Waarde:%String,Applicatie:%String + + + + +Sleutel:%String,Waarde:%String,Applicatie:%String + + + + +Omgeving:%String="",Sleutel:%String + + + + +Sleutel:%String,Waarde:%Boolean,Applicatie:%String + + + + +Sleutel:%String + + + + + + + + + + + + + + Index: TECH/Exceptions/AbstractOmschrijvingException.cls.xml =================================================================== diff -u --- TECH/Exceptions/AbstractOmschrijvingException.cls.xml (revision 0) +++ TECH/Exceptions/AbstractOmschrijvingException.cls.xml (revision 9) @@ -0,0 +1,47 @@ + + + + +1 +TECH.Exceptions.Exception + + +%String +1 + + + + +Omschrijving:%String +1 +1 +%Status + + + + + +Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. +%String + + + + + +Wordt door de error handler in het e-mailbericht bijgeschreven. +%String + + + + + + Index: TECH/Algo/Stapeling/Stapeling.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/Stapeling.cls.xml (revision 0) +++ TECH/Algo/Stapeling/Stapeling.cls.xml (revision 9) @@ -0,0 +1,77 @@ + + + + +1 +%RegisteredObject + + +TECH.Algo.Stapeling.INiveauSchikking +list +1 + + + +NiveauSchikking:TECH.Algo.Stapeling.INiveauSchikking +%Boolean + 0) && (NiveauSchikking.GeefMaxAantalObjecten() > ..NiveauSchikkingen.GetAt(k).GeefMaxAantalObjecten())) + { + Do ..NiveauSchikkingen.InsertAt(..NiveauSchikkingen.GetAt(k),k+1) + Set k = k - 1 + } + Do ..NiveauSchikkingen.InsertAt(NiveauSchikking,k+1) + Quit 1 +]]> + + + +I3DObjecten:%ListOfObjects +%Float + + + + + + Index: TECH/Error/impl/ErrorHandler.cls.xml =================================================================== diff -u --- TECH/Error/impl/ErrorHandler.cls.xml (revision 0) +++ TECH/Error/impl/ErrorHandler.cls.xml (revision 9) @@ -0,0 +1,212 @@ + + + + +Deze class doet de eigenlijke error afhandeling. +Bouwt het ErrorInfo dataobject, stuurt een email of logged de fout. +De erroinfo is toegankelijk na afhandeling van de de fout via %ErrorObject + +TECH.Error +1 +%RegisteredObject + + +1 +Label:%String,Options:%String + + + + +1 +Label:%String,Options:%String + + + + +1 +Label:%String +" { set Error.ErrorCode2=$ECODE } + Set Error.StackTrace = ##class(TECH.Process).GeefStackTrace(1) + Set Error.ErrorCode=$ZERROR + } + + Set Error.Device=$I + Set Error.Job=$J + Set Error.Server=##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam() + Set Error.NameSpace=$ZU(5) + + Do ..SetRemoteIP(Error) + Do ..UserText(Error) + Quit Error +]]> + + + + +[Previously private] +1 +Error:TECH.Error.dto.ErrorInfo + + + + +1 +Error:TECH.Error.dto.ErrorInfo + + + + +1 +Error:TECH.Error.dto.ErrorInfo + + + + +1 +Error:TECH.Error.dto.ErrorInfo + + + + +1 +Error:TECH.Error.dto.ErrorInfo +%String + + + + +1 +Boodschap:%String="" + + + + + + Index: TECH/Config/ConfigItem.cls.xml =================================================================== diff -u --- TECH/Config/ConfigItem.cls.xml (revision 0) +++ TECH/Config/ConfigItem.cls.xml (revision 9) @@ -0,0 +1,88 @@ + + + + +Een configuratie key-value item. +Naast een algemeen-geldende waarde, kunnen er applicatie-specifieke waarden +gedefinieerd zijn. Die laatste hebben voorrang op de algemeen-geldende. +persistent +1 +%Persistent + + +%String +1 + + + + +%String +1 + + + + + +%String + + + + + +%String +array +1 + + + + + +1 +Omgeving,Sleutel + + + + +Remark: Parameter "Applicatie" is optioneel. +%String + + + + +Waarde:%String,Applicatie:%String + + + + +%Library.CacheStorage +^TECH.Config.ConfigItemD +ConfigItemDefaultData +^TECH.Config.ConfigItemD +^TECH.Config.ConfigItemI +^TECH.Config.ConfigItemS + +AppSpecifiekeWaarden +subnode +"AppSpecifiekeWaarden" + + + +%%CLASSNAME + + +Waarde + + + + + + + Index: TECH/KeyListIterator.cls.xml =================================================================== diff -u --- TECH/KeyListIterator.cls.xml (revision 0) +++ TECH/KeyListIterator.cls.xml (revision 9) @@ -0,0 +1,22 @@ + + + + +Itereert over een array en geeft enkel sleutels terug +TECH.ListIterator + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + Index: TECH/FileReader.cls.xml =================================================================== diff -u --- TECH/FileReader.cls.xml (revision 0) +++ TECH/FileReader.cls.xml (revision 9) @@ -0,0 +1,519 @@ + + + + +Lezen van een TAB of CSV delimited file +De rijen worden in een Data multidimensional property gezet gelijkaardig aan dat van %ResultSet +De hoofding bepaald de labels in de Data maar deze kunnen dmv een vertaaltabel omgezet worde +Als hoofding niet beschikbaar is dan wordt columnnr gebruikt, instellen dmv Do Reader.SetHeaderRow(O)) + +Codesnippet: +Set reader=##class(TECH.FileReader).%New("c:\test.txt") +Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB +Do reader.SetHeaderRow(1) ; optioneel, default = 1 +Do reader.SetFirstDataRow(2) ; optioneel, default = 2 +Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0 +Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie +While reader.Next() +{ + Set x=reader.Data("HeaderName") + Set y=reader.Column(1) + } + +Voor debugging zijn er volgende 2 methods maar eerst min. eenmaal reader.Next() uitvoeren +Do reader.DumpHeader() +Do reader.DumpRow() + +1 +%RegisteredObject + + +%String +1 +1 + + + + +%String +2 +1 + + + + +%FileCharacterStream +1 + + + +%String +" " +1 + + + + +%Boolean +1 + + + +%String +0 +1 + + + + +%String +1 + + + + + +FileHeader to TranslateHeader +%String +1 +1 + + + + + +ColumnNr to FileHeader +%String +1 +1 + + + + +%String +1 + + + + +%String +1 + + + + +%Integer +1 + + + +%Boolean +1 + + + +%Boolean +1 +1 + + + + +D ##class(TECH.FileReader).%New().test() + + + + +FilePath,Delimiter +%Status + + + + + +controle of de end of file bereikt is +%Boolean + + + + + +ophalen van de volgende lijn en deze plaatsen in de cache +%Boolean + + + + + +aantal kolommen +%Integer + + + + + +ophalen van de kolomnaam via de kolomnr +ColumnNr:%Integer +%String + + + + +ColumnNr:%Integer +%String + + + + + +ophalen van de kolomnaam via de kolomnr +ColumnNr:%Integer +%String + + + + + +ophalen van een waarde via de kolomnr +ColumnNr:%Integer +%String + + + + + +ophalen van een waarde via de headername +HeaderName:%String +%String + + + + +1 + + + + +1 + + + + + +aantal reeds ingelezen rijen + + + + +1 +%Boolean + + + + +1 + + + + +1 + + + + + +Inlezen volgend delimited element rekening houden met CSVEscaping + +%String + + + + + +Debugging naar std output + + + + + +Debugging naar std output + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + +conversie van de gevonden kolomnamen in de header naar uppercase +default worden de gevonden kolomnamen onveranderd gebruikt + + + + + +Per default worden lege lijnen overgeslagen. + + + + + +Een reeds geopende stream gebruiken in de FileReader +Stream:%FileCharacterStream + + + + + +instellen van de delimiter (default = TAB) +Delimiter:%String + + + + + +Instellen van het CSV escape karakter, default is dit " double quote +CSV escaping wordt niet toegepast voor TAB-delimited bestanden +Char + + + + + +Als de header in het delimited tekstbestand incorrect is kan je deze veranderen. +Indien het delimeted tekstbestand geen header heeft dan kan je via de kolom volgnrs een TranslatedHeaderName toevoegen +Tevens kan je via het DataType getallen,datum en tijd automatisch converteren naar intern cache formaat +HeaderNameInFile,TranslatedHeaderName,DataType + + + + + +Instellen van het rijnr waarop de header terug te vinden is +RowNr + + + + + +Instellen van het rijnr waarop de eerste datarij terug te vinden is +RowNr +..FirstDataRowNr ..HeaderRowNr=..FirstDataRowNr-1 +]]> + + + + + Index: TECH/Comparator/IComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/IComparator.cls.xml (revision 0) +++ TECH/Comparator/IComparator.cls.xml (revision 9) @@ -0,0 +1,16 @@ + + + +1 + +1 + + +1 +Waarde1:%CacheString,Waarde2:%CacheString +%Boolean + + + + + Index: TECH/enu/LockType.cls.xml =================================================================== diff -u --- TECH/enu/LockType.cls.xml (revision 0) +++ TECH/enu/LockType.cls.xml (revision 9) @@ -0,0 +1,32 @@ + + + +datatype +1 +%String + + +,S,X + + + +;Shared;Exclusive + + + +1 +%String + + + + +1 +%String + + + + + + Index: TECH/Algo/SQL/QueryEngine/EnkelvoudigeConditie.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/EnkelvoudigeConditie.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/EnkelvoudigeConditie.cls.xml (revision 9) @@ -0,0 +1,52 @@ + + + + +1 +%RegisteredObject,TECH.Algo.SQL.QueryEngine.IWhereConditie +right + + +%String +1 + + + + +ConditieString:%String +1 +1 +%Status + + + + +%String + + + + +Kindknoop:TECH.Algo.Boom.Knoop + + + + +TECH.Iterator + + + + +%Boolean + 0 +]]> + + + + + Index: TECH/Print/Kolommen/Document.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/Document.cls.xml (revision 0) +++ TECH/Print/Kolommen/Document.cls.xml (revision 9) @@ -0,0 +1,200 @@ + + + + +Een document is de klasse die de werkelijke voorstelling levert voor een te printen document (al dan niet op scherm) +Het is mogelijk om volledige lijnen toe te voegen aan het document (met een delimiter) die verspreid zullen worden over de kolommen +Het is ook mogelijk om lijnen toe te voegen aan specifieke kolommen, niet alle kolommen hoeven even lang te zijn + +1 +%RegisteredObject + + +%String +1 + + + + +%String +1 + + + + +TECH.Print.Kolommen.Kolom +list +1 + + + +%String + + + + +%String + + + + +TECH.Print.Kolommen.DocumentType + + + + +Documentid is de id die werd gebruikt om het documenttype te definiëren. +De titel en subtitel (optioneel) komen bovenaan op de pagina te staan +De reskey is volledig optioneel en wordt enkel in de databank gebruikt voor het opslaan van de global +DocumentId:%String,Titel:%String,Subtitel:%String="",ResKey:%String="TECHDOCGEN" +%Status + + + + + +Wist alle ingevoerde gegevens in de kolommen +%Status + + + + +%Integer + + + + +KolomIndex:%Integer +TECH.Print.Kolommen.Kolom + + + + +1 + + + + +%Integer + + + + + +Sorteert het document op een welbepaalde kolom. +Optioneel: RegelVan, RegelTot. Indien opgegeven worden enkel de regels binnen het bereik gesorteerd +Comparator:TECH.Comparator.IComparator,Kolom:%Integer,RegelVan:%Integer=1,RegelTot:%Integer="" + + + + + +Print de inhoud van het document +PrintToScreen = True zorgt voor een print op het scherm +Bedrijf:%String,PrintToScreen:%Boolean=##CLASS(TECH.Config.ConfigMgr).Instance().GetString("PrintLijstenOpScherm") +%Status + + + + + +Voegt een lijn met delimiters toe aan de kolommen, waarbij elke piece in de opeenvolgende kolom wordt geplaatst +Lijn:%String,Delimiter:%String +%Status + + + + + + Index: TECH/Exceptions/StatusException.cls.xml =================================================================== diff -u --- TECH/Exceptions/StatusException.cls.xml (revision 0) +++ TECH/Exceptions/StatusException.cls.xml (revision 9) @@ -0,0 +1,39 @@ + + + + +1 +TECH.Exceptions.BaseException + + +%Status +1 + + + +ExceptionCode:TECH.enu.ExceptionCode,Omschrijving:%String,Status:%Status +1 +1 +%Status + + + + +%String + + + + +%String + + + + + + Index: TECH/Collections/impl/LinkedListKnoopIterator.cls.xml =================================================================== diff -u --- TECH/Collections/impl/LinkedListKnoopIterator.cls.xml (revision 0) +++ TECH/Collections/impl/LinkedListKnoopIterator.cls.xml (revision 9) @@ -0,0 +1,8 @@ + + + +%RegisteredObject,TECH.Iterator + + + + Index: TECH/ListIterator.cls.xml =================================================================== diff -u --- TECH/ListIterator.cls.xml (revision 0) +++ TECH/ListIterator.cls.xml (revision 9) @@ -0,0 +1,90 @@ + + + + +1 +Iterator,%RegisteredObject +right + + +%AbstractList +1 + + + +%String +1 + + + + +%String +1 + + + + +%CacheString +1 + + + + +Returns true if the iteration has more elements. +%Boolean + + + + +List:%AbstractList +1 +1 +%Status + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + + + +%String + + + + + + Index: TECH/XMLDataSet.cls.xml =================================================================== diff -u --- TECH/XMLDataSet.cls.xml (revision 0) +++ TECH/XMLDataSet.cls.xml (revision 9) @@ -0,0 +1,76 @@ + + + + +1 +%XML.DataSet + + + +GEWIJZIGD VOOR FLEX 2: +XMLDataSet + + + + +Deze method is overridden om het onderstaand stukje WSDL te verkrijgen. +N.B. De manier vanop Caché 5 (namelijk classmethod XMLSchema overriden) heeft geen effect in 2010; die classmethod lijkt niet meer in gebruik. +1 +1 +schemaInstance:%XML.Schema,node:%XML.Node,top:%String="",encoded:%Boolean,summary:%Boolean=0,input:%Boolean=0,refOnly:%Boolean=0 +%Status + + + + + + */ + + // N.B. De gegenereerde WSDL lijkt nog steeds incorrect, want de verwijzingen naar dit + // anyType zijn naar een anyType in een ANDERE namespace (met prefix s0 in de WSDL). + // Maar Flex 2 valt daar blijkbaar niet over. + If ('..IsCustomTypeReedsAanwezig(node)) { + Do node.AppendElement("complexType",$$$XSDns) + Do node.MoveToLastChild() + Do node.SetAttribute("name",$$$XSDns,..#CUSTOMXMLTYPE) + Do node.AppendElement("sequence",$$$XSDns) + Do node.MoveToLastChild() + Do node.AppendElement("any",$$$XSDns) + Do node.MoveToParent() ; sequence + Do node.MoveToParent() ; complexType + Do node.MoveToParent() ; schema + } + + Quit $$$OK +]]> + + + +1 +schemaNode:%XML.Node + + + + + + Index: TECH/Algo/SQL/QueryEngine/SelectieVeld.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/SelectieVeld.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/SelectieVeld.cls.xml (revision 9) @@ -0,0 +1,45 @@ + + + + +1 +%RegisteredObject + + +%String +1 + + + + +TECH.Algo.SQL.QueryEngine.Tabel +1 + + + +Veld:%String,Tabel:TECH.Algo.SQL.QueryEngine.Tabel +1 +1 +%Status + + + + +%String + + + + +TECH.Algo.SQL.QueryEngine.Tabel + + + + + + Index: TECH/Timing/Timer.cls.xml =================================================================== diff -u --- TECH/Timing/Timer.cls.xml (revision 0) +++ TECH/Timing/Timer.cls.xml (revision 9) @@ -0,0 +1,136 @@ + + + + +TODO: Rekening houden met de dag, in de timestamps. +persistent +TECH.Error +1 +%Persistent + + + +Hierin de class-name + method-name. +%String + + + + + + +Hierin bvb "Orgalux website". +%String + + + + +%String + + + + + +Eenheid: millisecond. +%Integer + + + +%String + + + + +%String + + + + +Label + + + +ParentLabel + + + +Label:%String,ParentLabel:%String="",Context:%String="" +%Status + + + + +%Integer + + + + +%Integer + + + + + + + + + +[Previously private] +1 +%String + + + + +%Library.CacheStorage +^TECH.Timing.TimerD +TimerDefaultData +^TECH.Timing.TimerD +^TECH.Timing.TimerI +^TECH.Timing.TimerS + +listnode + + +%%CLASSNAME + + +Context + + +Duurtijd + + +GUID + + +Label + + +ParentLabel + + +Starttijd + + + + + + + Index: TECH/Print/PrinterKenmerkUtils.cls.xml =================================================================== diff -u --- TECH/Print/PrinterKenmerkUtils.cls.xml (revision 0) +++ TECH/Print/PrinterKenmerkUtils.cls.xml (revision 9) @@ -0,0 +1,26 @@ + + + + +Voorlopige oplossing om losse functies van een printer op te vragen +Later zal een volledige Printer-implementatie oplossing gebouwd worden +(Created by WimV on 15/10/2010) + +vhLib.Macro +1 +%RegisteredObject + + + +Printer ondersteund geen Postscript-printing, kan alleen printen via PCL +[Previously private] +1 +PrinterName:%String +%Boolean + + + + + + Index: TECH/Error/dto/ErrorInfo.cls.xml =================================================================== diff -u --- TECH/Error/dto/ErrorInfo.cls.xml (revision 0) +++ TECH/Error/dto/ErrorInfo.cls.xml (revision 9) @@ -0,0 +1,89 @@ + + + + +Bevat na afhandeling van de fout de bijeengesprokelde gegevens + +1 +%RegisteredObject,%XML.Adaptor +right + + + +$ECODE +%String + + + + + + +$ZERROR +%String + + + + + +%String + + + + + +%String + + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + + +%String + + + + + +%String + + + + + + + Index: TECH/ClassInfo/QNameFinder.cls.xml =================================================================== diff -u --- TECH/ClassInfo/QNameFinder.cls.xml (revision 0) +++ TECH/ClassInfo/QNameFinder.cls.xml (revision 9) @@ -0,0 +1,39 @@ + + + + +1 +%RegisteredObject + + +Klasse:%String,ContextClassDefinition:TECH.ClassInfo.ClassDefinition +1 +%String + + + + + + Index: TECH/Persistent.cls.xml =================================================================== diff -u --- TECH/Persistent.cls.xml (revision 0) +++ TECH/Persistent.cls.xml (revision 9) @@ -0,0 +1,94 @@ + + + + +1 +%Persistent,TECH.IPersistent + + +1 +Id:%String +%ObjectHandle + + + + +%String + + + + + + + + + +Deze method kan beter overschreven worden dan de %OnDelete. +De OnDelete loopt sowieso in zijn geheel binnen een transactie. +Wanneer een exceptie optreedt binnen de method zal de delete actie volledig teruggedraaid worden. + + + + + + + +1 +Id:%String +%ObjectHandle + + + + + +[Previously private] +1 +oid:%ObjectIdentity +%Status + + + + +insert:%Boolean +1 +%Status + + + + + + Index: TECH/Exceptions/AuthenticationException.cls.xml =================================================================== diff -u --- TECH/Exceptions/AuthenticationException.cls.xml (revision 0) +++ TECH/Exceptions/AuthenticationException.cls.xml (revision 9) @@ -0,0 +1,16 @@ + + + + +1 +TECH.Exceptions.AbstractOmschrijvingException + + +TECH.enu.ExceptionCode + + + + + + Index: TECH/IException.cls.xml =================================================================== diff -u --- TECH/IException.cls.xml (revision 0) +++ TECH/IException.cls.xml (revision 9) @@ -0,0 +1,39 @@ + + + +1 + +1 + + + +Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. +1 +%String + + + +1 +TECH.enu.ExceptionCode + + + +1 +%String + + + +1 +%TimeStamp + + + + +Wordt door de error handler in het e-mailbericht bijgeschreven. +1 +%String + + + + + Index: TECH/Events/KenmerkCreatedEventData.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkCreatedEventData.cls.xml (revision 0) +++ TECH/Events/KenmerkCreatedEventData.cls.xml (revision 9) @@ -0,0 +1,69 @@ + + + +serial +1 +TECH.PubSub.EventData + + +%String + + + + +%String + + + + +%String + + + + +%String +list + + + + +UnID:%String,GroepID:%String,Kenmerk:%String,Waarden:%ListOfDataTypes +1 +1 +%Status + + + + +%Library.CacheSerialState +KenmerkCreatedEventDataState + +listnode +"TECH.Events.KenmerkCreatedEventData" + +GroepID + + +Kenmerk + + +UnID + + +Waarde + + +Waarden + + + + + + + Index: TECH/Algo/Stapeling/INiveauSchikking.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/INiveauSchikking.cls.xml (revision 0) +++ TECH/Algo/Stapeling/INiveauSchikking.cls.xml (revision 9) @@ -0,0 +1,25 @@ + + + +1 + +1 + + + +Geeft het maximaal aantal objecten dat deze schikking kan plaatsen +1 +%Integer + + + + +Krijgt een Stack van TECH.Algo.Stapeling.I3DObject binnen. Geeft het aantal 3D objecten terug die het zal gebruiken. +1 +I3DObjecten:TECH.Stack +%Integer + + + + + Index: TECH/System.cls.xml =================================================================== diff -u --- TECH/System.cls.xml (revision 0) +++ TECH/System.cls.xml (revision 9) @@ -0,0 +1,82 @@ + + + + +1 +%RegisteredObject + + +1 +%ArrayOfDataTypes + + + + +1 +%ArrayOfDataTypes + + + + +1 +Database:%String +%String + + + + +1 +Database:%String +%ListOfDataTypes + + + + + + Index: TECH/Print/Kolommen/KolomDefinitie.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/KolomDefinitie.cls.xml (revision 0) +++ TECH/Print/Kolommen/KolomDefinitie.cls.xml (revision 9) @@ -0,0 +1,46 @@ + + + + +1 +%RegisteredObject + + +%String + + + + +%Integer + + + +TECH.Print.Kolommen.TekstType + + + +TECH.Print.Kolommen.TekstUitlijning + + + +Titel:%String,Breedte:%Integer=-1,TekstType:TECH.Print.Kolommen.TekstType,TekstUitlijning:TECH.Print.Kolommen.TekstUitlijning +%Status + $length(Titel)+1) + { + Set Spaties = " " + Set ..Titel = Titel_$E(Spaties,1,Breedte-$length(Titel)) + Set ..Breedte = Breedte + } + else { Set ..Breedte = Breedte } + Set ..TekstType = TekstType + Set ..TekstUitlijning = TekstUitlijning + Quit $$$OK +]]> + + + + + Index: TECH/Print/Kolommen/PrintExample.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/PrintExample.cls.xml (revision 0) +++ TECH/Print/Kolommen/PrintExample.cls.xml (revision 9) @@ -0,0 +1,96 @@ + + + + +1 +%RegisteredObject + + + + + + +1 + + + + + + + + +1 + + + + + + + + +1 + + + + + + Index: TECH/PubSub/impl/PubSubLogger.cls.xml =================================================================== diff -u --- TECH/PubSub/impl/PubSubLogger.cls.xml (revision 0) +++ TECH/PubSub/impl/PubSubLogger.cls.xml (revision 9) @@ -0,0 +1,29 @@ + + + + +vhLib.Macro +1 +vhLib.Logger + + +Groep:%String +1 +1 +%Status + + + + + + + + + + + Index: TECH/Events/KenmerkenCreatedEvent.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkenCreatedEvent.cls.xml (revision 0) +++ TECH/Events/KenmerkenCreatedEvent.cls.xml (revision 9) @@ -0,0 +1,29 @@ + + + + +NIET GEÏMPLEMENTEERD +Dit is het bulk event voor KenmerkCreatedEvent. +Niet elk event gebeurt in bulk, er moet dus ook naar KenmerkCreatedEvent geluisterd worden. +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.KenmerkenCreatedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/MailUtils.cls.xml =================================================================== diff -u --- TECH/MailUtils.cls.xml (revision 0) +++ TECH/MailUtils.cls.xml (revision 9) @@ -0,0 +1,163 @@ + + + + +JBL + 2011-05-17 + +1 +%RegisteredObject + + + +Check een email adres adhv pattern-match, en afzonderlijke controles. +Tevens kan een nslookup van het domein gedaan worden, aan te geven via parameter. +Write ##class(TECH.MailUtils).Check("jbl@vanhoecke.be") +Write ##class(TECH.MailUtils).Check("jbl@nietbestaand.be",1) + +Return +1 = OK +0 = Foutieve syntax +-1 = NSLookup niet geslaagd. +[Previously private] +1 +Mail:%String,NsLookUp:%Boolean=0,CacheNsLookUp:%Boolean=0 +%Status + + + + + +Eerste en laatste teken van local part mogen geen punt zijn. +Er mogen geen twee of meer opeenvolgende punten achter elkaar staan. +[Previously private] +1 +MailPart + + + + +1 +MailDomainPart:%String +%Status + + + + + +[Previously private] +1 +MailDomainPart:%String +%Status + + + + + +[Previously private] +1 +MailDomainPart:%String +%Status + + + + + +[Previously private] +1 +NsLookUp:%String,MailDomainPart:%String,HandleMethod:%String +%Status + c:\"_FileName + s Ok=$ZF(-1,Exec) + Set %NsLookUp=0 + Set FileName=$$READ^vhDEV("c:\",FileName,"D`##class("_..%ClassName(1)_")."_HandleMethod_"","M") + Set Status = %NsLookUp + Set:'Status Status = $$$ERROR($$$GeneralError,"Niet bestaand domein.") + Do DELFILE^vhDEV("c:\",FileName) + Kill %NsLookUp + Set %NsLookUps(MailDomainPart) = Status + Quit Status +]]> + + + +1 +Rec + + + + +1 +Rec + + + + + + Index: TECH/Config/ConfiguredFactory.cls.xml =================================================================== diff -u --- TECH/Config/ConfiguredFactory.cls.xml (revision 0) +++ TECH/Config/ConfiguredFactory.cls.xml (revision 9) @@ -0,0 +1,29 @@ + + + + +TECH.Error +0 +%RegisteredObject + + +1 +ImplKlasseConfigSleutel:%String +%RegisteredObject + + + + + + Index: TECH/ClassInfo/PropertyDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/PropertyDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/PropertyDefinition.cls.xml (revision 9) @@ -0,0 +1,63 @@ + + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +right + + +%Dictionary.PropertyDefinition +1 + + + +TECH.ClassInfo.ClassDefinition +1 + + + +PropertyDefinition:%Dictionary.PropertyDefinition,ParentClass:TECH.ClassInfo.ClassDefinition +1 +1 +%Status + + + + +%String + + + + +%String + + + + +Type:%String + + + + +TECH.ClassInfo.ClassDefinition + + + + +%Status + + + + + + Index: TECH/Events/KenmerkenCreatedEventData.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkenCreatedEventData.cls.xml (revision 0) +++ TECH/Events/KenmerkenCreatedEventData.cls.xml (revision 9) @@ -0,0 +1,27 @@ + + + +serial +1 +TECH.PubSub.EventData + + +TECH.Events.KenmerkCreatedEventData +list + + + +%Library.CacheSerialState +KenmerkenCreatedEventDataState + +listnode +"TECH.Events.KenmerkenCreatedEventData" + +Creaties + + + + + + + Index: TECH/enu/ExceptionCode.cls.xml =================================================================== diff -u --- TECH/enu/ExceptionCode.cls.xml (revision 0) +++ TECH/enu/ExceptionCode.cls.xml (revision 9) @@ -0,0 +1,140 @@ + + + +datatype +1 +%String + + +;1000:GeneralError;1001:PropertyRequired;1002:ParameterRequired;1002:ParameterInvalid;1003:ObjectExpected;1004:Locked;1005:InvalidInput;1005:InvalidOutput;1007:InvalidID;1006:Create object;1008:InvalidEnumerationValue;1009:Unimplemented;1010:FilesystemFailed;3000:ObjectValidationFailed;3001:SaveFailed;5000:UserError;5804:Concurrency + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + +1 +TECH.enu.ExceptionCode + + + + + + Index: TECH/Algo/Graph/Node.cls.xml =================================================================== diff -u --- TECH/Algo/Graph/Node.cls.xml (revision 0) +++ TECH/Algo/Graph/Node.cls.xml (revision 9) @@ -0,0 +1,69 @@ + + + + +1 +%RegisteredObject + + +%String + + + + +%String + + + + +TECH.Algo.Graph.Node +array +1 + + + +%Integer +1 + + + +Name:%String,Data:%String="" +1 +1 +%Status + + + + +Node:TECH.Algo.Graph.Node + + + + + + + + +%Integer + + + + +Node:TECH.Algo.Graph.Node + + + + + + Index: TECH/Events/KenmerkModifiedEventData.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkModifiedEventData.cls.xml (revision 0) +++ TECH/Events/KenmerkModifiedEventData.cls.xml (revision 9) @@ -0,0 +1,76 @@ + + + + KopieerKenmerkenSets(BronUnID As %String) As DOM.PM.ProductKenmerkenSet +-> MaakNieuweKenmerkenSet() As DOM.PM.ProductKenmerkenSet +-> VerwijderKenmerkenSet(UnID As %String) +raisen GEEN events !]]> +serial +1 +TECH.PubSub.EventData + + +%String + + + + +%String + + + + +%String + + + + +%String +list + + + + +UnID:%String,GroepID:%String,Kenmerk:%String,Waarden:%ListOfDataTypes +1 +1 +%Status + + + + +%Library.CacheSerialState +KenmerkModifiedEventDataState + +listnode +"TECH.Events.KenmerkModifiedEventData" + +GroepID + + +Kenmerk + + +UnID + + +Waarde + + +Waarden + + + + + + + Index: TECH/Events/WijzigLeverancierEvent.cls.xml =================================================================== diff -u --- TECH/Events/WijzigLeverancierEvent.cls.xml (revision 0) +++ TECH/Events/WijzigLeverancierEvent.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + + +JBL + 2011-04-18 +serial +1 +TECH.PubSub.Event + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/IO.cls.xml =================================================================== diff -u --- TECH/IO.cls.xml (revision 0) +++ TECH/IO.cls.xml (revision 9) @@ -0,0 +1,57 @@ + + + + +1 +%RegisteredObject + + +%String +1 + + + + +%String +1 + + + + +%Stream + + + + + + + + +%FileCharacterStream + + + + + + Index: TECH/Concurrency/TxScope.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxScope.cls.xml (revision 0) +++ TECH/Concurrency/TxScope.cls.xml (revision 9) @@ -0,0 +1,273 @@ + + + + +Koppeling van Transactie aan locks en aan het huidige proces. +Let op: voorlopig is nesten van TxScope wel mogelijk, maar nesten van Transactie niet. +TODO: Slechts 1x start per Scope ondersteunen (idem voor rollback en commit). +TECH.ExcHandling +%RegisteredObject + + +TxScopeOptie +1 + + + +TxScope +1 + + + +Transactie +1 + + + +%Boolean +1 + + + +TxStatus +1 + + + + + + + +1 +TxScope + + + + +1 +Scope:TxScope +1 + + + + +1 +TxScope + + + + +1 +TxScopeOptie:TxScopeOptie="Required",TxIsolatieLevel:TxIsolatieLevel="" +TxScope + + + + +TxScopeOptie:TxScopeOptie="Required" +%Status + + + + +RuimereScope:TxScope + + + + + + + + + + + + +TxStatus + + + + +TxScopeOptie + + + + +TxScope + + + + +IsolatieLevel:TxIsolatieLevel="" + + + + + + + + + + + + + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + + +Opvragen of we momenteel in de context van een RepeatableRead transactie lopen. +%Boolean + + + + + +Opvragen of we momenteel in de context van een RepeatableRead transactie lopen. +%Boolean + + + + + +Opvragen of we momenteel in de context van een ReadCommitted transactie lopen. +%Boolean + + + + + + Index: TECH/Events/UGLYPickingRestartedEvent.cls.xml =================================================================== diff -u --- TECH/Events/UGLYPickingRestartedEvent.cls.xml (revision 0) +++ TECH/Events/UGLYPickingRestartedEvent.cls.xml (revision 9) @@ -0,0 +1,25 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.UGLYPickingEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Exceptions/InvalidInputException.cls.xml =================================================================== diff -u --- TECH/Exceptions/InvalidInputException.cls.xml (revision 0) +++ TECH/Exceptions/InvalidInputException.cls.xml (revision 9) @@ -0,0 +1,16 @@ + + + + +1 +TECH.Exceptions.AbstractOmschrijvingException + + +TECH.enu.ExceptionCode + + + + + + Index: TECH/Algo/Boom/Boom.cls.xml =================================================================== diff -u --- TECH/Algo/Boom/Boom.cls.xml (revision 0) +++ TECH/Algo/Boom/Boom.cls.xml (revision 9) @@ -0,0 +1,32 @@ + + + + +1 +%RegisteredObject + + +TECH.Algo.Boom.Knoop +1 + + + +Wortel:TECH.Algo.Boom.Knoop +1 +1 +%Status + + + + +TECH.Algo.Boom.Knoop + + + + + + Index: TECH/Concurrency/DbUtils.cls.xml =================================================================== diff -u --- TECH/Concurrency/DbUtils.cls.xml (revision 0) +++ TECH/Concurrency/DbUtils.cls.xml (revision 9) @@ -0,0 +1,124 @@ + + + + +Utility methods voor open en save van objecten. +Doel: Locking (db en optimistic locks), status-codes controleren, onbestaande objecten controleren. +TECH.ExcHandling +%RegisteredObject + + +1 +Object:%Persistent,insert:%Boolean +%Status + + + + +1 +Object:%Persistent,insert:%Boolean +%Status + + + + +1 +Object:%Persistent + + + + +1 +ID:%String,ClassName:%String +%Persistent + + + + +1 +ID:%String,ClassName:%String,InstanceVersion:%Integer="",ControleerVersionBijOpenen:%Boolean=1 +%Persistent + + + + +1 +Tabel:%String,ID:%String,GewensteInstanceVersion:%Integer + + + + + + Index: TECH/ArrayMultiDimIterator.cls.xml =================================================================== diff -u --- TECH/ArrayMultiDimIterator.cls.xml (revision 0) +++ TECH/ArrayMultiDimIterator.cls.xml (revision 9) @@ -0,0 +1,69 @@ + + + + +1 +Iterator,%RegisteredObject +right + + +%String +1 +1 + + + + +%String +1 + + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +1 +1 +%Status + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + + + +%String + + + + + + Index: TECH/enu/DatePart.cls.xml =================================================================== diff -u --- TECH/enu/DatePart.cls.xml (revision 0) +++ TECH/enu/DatePart.cls.xml (revision 9) @@ -0,0 +1,66 @@ + + + +datatype +1 +%String + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + +1 +TECH.enu.DatePart + + + + + + Index: TECH/IPersistent.cls.xml =================================================================== diff -u --- TECH/IPersistent.cls.xml (revision 0) +++ TECH/IPersistent.cls.xml (revision 9) @@ -0,0 +1,32 @@ + + + +1 + + +1 +1 +Id:%String +%ObjectHandle + + + +1 +%String + + + +1 + + + +1 + + + +1 + + + + + Index: TECH/CSP/CSPApplicatie.cls.xml =================================================================== diff -u --- TECH/CSP/CSPApplicatie.cls.xml (revision 0) +++ TECH/CSP/CSPApplicatie.cls.xml (revision 9) @@ -0,0 +1,212 @@ + + + + +0 +%RegisteredObject + + +1 + + + + +ApplicatieNaam:%String + + + + + + + + + + + + + + + + +CSPUrl:%String +%String + + + + +ApplicatieNaam:%String +%Boolean + + + + +CSPApplicatie:%String +%String + + + + +CSPApplicatie:%String="" +%String + + + + +Namespace:%String="" +%ListOfDataTypes + + + + +CSPApplicatie:%String="" +%ListOfDataTypes + + + + +1 +cspFile:%String +%String + + + + + +Geeft de volledige url terug : http://server/csp-dir/csp-naam?querystringparams +vertrekkende van de gegeven CspClassName. +De QueryStringParameterList is een list bvb. item1 : "key=value" , item2 : "key2=value2" , ... +1 +CspClassName:%String,QueryStringParameterList:%ListOfDataTypes="" +%String + + + + + + Index: TECH/Events/KenmerkDeletedEvent.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkDeletedEvent.cls.xml (revision 0) +++ TECH/Events/KenmerkDeletedEvent.cls.xml (revision 9) @@ -0,0 +1,29 @@ + + + + +NIET GEÏMPLEMENTEERD +Sommige KenmerkDeletedEvents worden in bulk gegenereerd. +Daarom moet in dit geval ook geluisterd worden naar KenmerkenDeletedEvent. +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.KenmerkDeletedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/CSP/Request.cls.xml =================================================================== diff -u --- TECH/CSP/Request.cls.xml (revision 0) +++ TECH/CSP/Request.cls.xml (revision 9) @@ -0,0 +1,63 @@ + + + +%RegisteredObject + + +%CSP.Request + + + +Request:%CSP.Request +1 +1 +%Status +1 + + + + +%String + 0 { + Set RemoteUser = $Piece(RemoteUser,"\",2) + } + } + + Quit RemoteUser +]]> + + + +%Boolean + + + + +%String + + + + + + Index: TECH/Events/KenmerkenModifiedEventData.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkenModifiedEventData.cls.xml (revision 0) +++ TECH/Events/KenmerkenModifiedEventData.cls.xml (revision 9) @@ -0,0 +1,27 @@ + + + +serial +1 +TECH.PubSub.EventData + + +TECH.Events.KenmerkModifiedEventData +list + + + +%Library.CacheSerialState +KenmerkenModifiedEventDataState + +listnode +"TECH.Events.KenmerkenModifiedEventData" + +Wijzigingen + + + + + + + Index: TECH/Icoon.cls.xml =================================================================== diff -u --- TECH/Icoon.cls.xml (revision 0) +++ TECH/Icoon.cls.xml (revision 9) @@ -0,0 +1,39 @@ + + + +persistent +1 +%Persistent + + +%String + + + + +RelatiefPad +1 + + + +%Library.CacheStorage +^TECH.IcoonD +IcoonDefaultData +^TECH.IcoonD +^TECH.IcoonI +^TECH.IcoonS + +listnode + + +%%CLASSNAME + + +RelatiefPad + + + + + + + Index: TECH/PubSub/WachtendEvent.cls.xml =================================================================== diff -u --- TECH/PubSub/WachtendEvent.cls.xml (revision 0) +++ TECH/PubSub/WachtendEvent.cls.xml (revision 9) @@ -0,0 +1,56 @@ + + + +persistent +1 +TECH.ChangeInfo +0 + + +TECH.PubSub.Event + + + + +Event:TECH.PubSub.Event +1 +1 +%Status + + + + +%Library.CacheStorage +^TECH.PubSub.WachtendEventD +WachtendEventDefaultData +^TECH.PubSub.WachtendEventD +^TECH.PubSub.WachtendEventI +^TECH.PubSub.WachtendEventS + +listnode + + +%%CLASSNAME + + +AangemaaktDoor + + +AangemaaktOp + + +Event + + +GewijzigdDoor + + +GewijzigdOp + + + + + Index: TECH/File.cls.xml =================================================================== diff -u --- TECH/File.cls.xml (revision 0) +++ TECH/File.cls.xml (revision 9) @@ -0,0 +1,71 @@ + + + + +1 +%Library.File + + +1 +BestandLocatie:%String + + + + +1 +directory:%String +%String + + + + +1 +Directory:%String +%Library.Integer + + + + +1 +%String + + + + + + Index: TECH/Print/Kolommen/Kolom.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/Kolom.cls.xml (revision 0) +++ TECH/Print/Kolommen/Kolom.cls.xml (revision 9) @@ -0,0 +1,10 @@ + + + + +1 +%ListOfDataTypes + + + + Index: TECH/Algo/SQL/QueryEngine/enu/CombinatieConditieOperator.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/enu/CombinatieConditieOperator.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/enu/CombinatieConditieOperator.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + +datatype +1 +%String + + +;AND;OR + + + +1 +TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator + + + + +1 +TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator + + + + + + Index: TECH/PubSub/EventSubscription.cls.xml =================================================================== diff -u --- TECH/PubSub/EventSubscription.cls.xml (revision 0) +++ TECH/PubSub/EventSubscription.cls.xml (revision 9) @@ -0,0 +1,73 @@ + + + +persistent +1 +%Persistent + + +%String + + + + +%String + + + + + +%String + + + + +EventType + + + +EventType,RespondingClass,RespondingMethod +1 + + + +EventType:%String,RespondingClass:%String,RespondingMethod:%String +1 +1 +%Status + + + + +%Library.CacheStorage +^TECH.PubSub.EventSubscriptionD +EventSubscriptionDefaultData +^TECH.PubSub.EventSubscriptionD +^TECH.PubSub.EventSubscriptionI +^TECH.PubSub.EventSubscriptionS + +listnode + + +%%CLASSNAME + + +EventType + + +RespondingClass + + +RespondingMethod + + + + + + + Index: TECH/Algo/Boom/TweeRichtingKnoop.cls.xml =================================================================== diff -u --- TECH/Algo/Boom/TweeRichtingKnoop.cls.xml (revision 0) +++ TECH/Algo/Boom/TweeRichtingKnoop.cls.xml (revision 9) @@ -0,0 +1,20 @@ + + + + +1 +TECH.Algo.Boom.Knoop + + +1 +TECH.Algo.Boom.Knoop + + + +1 +Ouderknoop:TECH.Algo.Boom.Knoop + + + + + Index: TECH/ClassUtils.cls.xml =================================================================== diff -u --- TECH/ClassUtils.cls.xml (revision 0) +++ TECH/ClassUtils.cls.xml (revision 9) @@ -0,0 +1,320 @@ + + + + +1 +%RegisteredObject + + + +Controleer van de webmethod zijn parameters adhv een deep-validation uit te voeren. +Oproepen via 'Do ..ControleerParameters()' +Smijt een Exception als validatie niet gelukt is. +1 +0) + If ('HeeftDefaultArg || (HeeftDefaultArg && HeeftParameterInhoud)){ + Do ##class(TECH.ClassUtils).ValidateValue(@ParameterName,Parameter.GeefType()) + } + Set CurrentParameter = CurrentParameter + 1 + } + } + } +]]> + + + +1 +%List + + + + +1 +%List + + + + + +[Previously private] +1 +LabelRoutine +%List + + + + +1 +ClassName,Method +%String + + + + +1 +ClassName,Method,Parameter +%String + + + + +1 + + + + + +1 + +%Boolean + + + + +1 + + + + + + +Throwt foutmelding indien niet geldig. +1 + + + + + +1 + +%Boolean + + + + + +Throwt foutmelding indien niet geldig. +1 + + + + + + +Deze oproep enkel gebruiken voor klassen die niet afleiden van %Registered, bijvoorbeeld de csp-klassen, die leiden af van %CSP.Page + +Voor klassen die afleiden van %Registered kan je rechtstreeks oproepen via volgende code : + w ##class(klassenaam).%GetParameter("ParameterNaam") + w $zobjclassmethod("klassenaam","%GetParameter","ParameterNaam") + +Added by WimV on 27/09/2011 +1 +ClassName:%String,ParamName:%String +%String + + + + +1 +Class,ClassFrom +0 +%Boolean + + + + + + Index: TECH/Events/LadeGeproduceerdEvent.cls.xml =================================================================== diff -u --- TECH/Events/LadeGeproduceerdEvent.cls.xml (revision 0) +++ TECH/Events/LadeGeproduceerdEvent.cls.xml (revision 9) @@ -0,0 +1,25 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.LadeGeproduceerdEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Print/impl/FilePrinter.cls.xml =================================================================== diff -u --- TECH/Print/impl/FilePrinter.cls.xml (revision 0) +++ TECH/Print/impl/FilePrinter.cls.xml (revision 9) @@ -0,0 +1,27 @@ + + + + +1 +TECH.Print.Printer + + + +TODO implementatie uitput naar bestand .. + + + +%Status + + + + + + +Item:TECH.Print.AbstractLabel +%Status + + + + + Index: TECH/Events/LadeGeproduceerdEventData.cls.xml =================================================================== diff -u --- TECH/Events/LadeGeproduceerdEventData.cls.xml (revision 0) +++ TECH/Events/LadeGeproduceerdEventData.cls.xml (revision 9) @@ -0,0 +1,79 @@ + + + +serial +1 +TECH.PubSub.EventData + + +%String + + + + +%String + + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer,SequenceNr:%Integer,OpnieuwUitgevoerd:%Boolean +1 +1 +%Status + + + + +%Library.CacheSerialState +LadeGeproduceerdEventDataState + +listnode +"TECH.Events.LadeGeproduceerdEventData" + +ProductNummer + + +Toelevering + + +ToeleveringsLijn + + +OpnieuwUitgevoerd + + +BatchID + + +SequenceNr + + + + + + + Index: TECH/ChangeInfo.cls.xml =================================================================== diff -u --- TECH/ChangeInfo.cls.xml (revision 0) +++ TECH/ChangeInfo.cls.xml (revision 9) @@ -0,0 +1,78 @@ + + + +1 + +1 +%Persistent + + +%String +1 + + + + +%TimeStamp +1 + + + +%String +1 + + + + +%TimeStamp +1 + + + +%String + + + + +%TimeStamp + + + + +%String + + + + +%TimeStamp + + + + +insert:%Boolean +1 +%Status + + + + + + Index: TECH/Print/impl/BartenderPrinter.cls.xml =================================================================== diff -u --- TECH/Print/impl/BartenderPrinter.cls.xml (revision 0) +++ TECH/Print/impl/BartenderPrinter.cls.xml (revision 9) @@ -0,0 +1,106 @@ + + + + +1 +TECH.Print.Printer + + +BL.Sys.LabelPrinter +1 + + + +%String + + + + +%String +1 + + + + +%Status + + + + +pxLabel:TECH.Print.AbstractLabel +%Status + + + + + + + + +pxLabel:TECH.Print.AbstractLabel +%Status + + + + +Toepassing:%String="",Settings +1 +1 +%Status + + + + +pxLabel +1 + + + + +pxLabel +1 + + + + + + Index: TECH/Exceptions/GeneralErrorException.cls.xml =================================================================== diff -u --- TECH/Exceptions/GeneralErrorException.cls.xml (revision 0) +++ TECH/Exceptions/GeneralErrorException.cls.xml (revision 9) @@ -0,0 +1,16 @@ + + + + +1 +TECH.Exceptions.AbstractOmschrijvingException + + +TECH.enu.ExceptionCode + + + + + + Index: TECH/Events/MaakLeverancierEvent.cls.xml =================================================================== diff -u --- TECH/Events/MaakLeverancierEvent.cls.xml (revision 0) +++ TECH/Events/MaakLeverancierEvent.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + + +JBL + 2011-04-18 +serial +1 +TECH.PubSub.Event + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Dialog/ModalPopup.cls.xml =================================================================== diff -u --- TECH/Dialog/ModalPopup.cls.xml (revision 0) +++ TECH/Dialog/ModalPopup.cls.xml (revision 9) @@ -0,0 +1,50 @@ + + + + +1 +%RegisteredObject + + +%String + + + + +%String + + + + +Titel:%String,Inhoud:%String +1 +1 +%Status + + + + + + + + +Titel:%String,Inhoud:%String + + + + + + + + + + Index: TECH/Error/ErrorAdaptor.cls.xml =================================================================== diff -u --- TECH/Error/ErrorAdaptor.cls.xml (revision 0) +++ TECH/Error/ErrorAdaptor.cls.xml (revision 9) @@ -0,0 +1,43 @@ + + + + +Deze classe definieert 1 method ErrorHandling. +Van deze klasse moet geerft worden door elke klasse die de standaard errorhandling wenst te gebruiken. + +Er bestaat een include file TECH.Error die de macros bevat om de errortrap(catch) te zetten en de error te throwen + +De $ECODE bestaat uit 4 delen en de eerste karakter is de delimiter. + Piece 2 : Errornummer + Piece 3 : Interne error omschrijving + Piece 4 : Vertaalde %Status + Piece 5 : Userfriendly omschrijving + +Bij het instellen van de trap kan je 2 parameters meegeven (opgelet dit moeten CONSTANTEN zijn) + Param 1 : Label waardoor de TRAP Catch een naam krijgt. Deze kan dan gebruikt worden door de errorhandler om specifieke controles uit te voegen + Param 2 : Opties : "NoMail" en "NoLog" dit wordt door de standaard errorhandler gebruikt om geen mails en of logs aan te maken + + +TECH.Error +1 +%RegisteredObject + + +Label,Options + + + + +1 +StackLevel:%Integer + + + + + + Index: TECH/PubSub/EventRaiser.cls.xml =================================================================== diff -u --- TECH/PubSub/EventRaiser.cls.xml (revision 0) +++ TECH/PubSub/EventRaiser.cls.xml (revision 9) @@ -0,0 +1,17 @@ + + + +1 + +1 +%RegisteredObject + + +1 +Event:TECH.PubSub.Event +%Status + + + + + Index: TECH/Config/dto/ConfigWaarde.cls.xml =================================================================== diff -u --- TECH/Config/dto/ConfigWaarde.cls.xml (revision 0) +++ TECH/Config/dto/ConfigWaarde.cls.xml (revision 9) @@ -0,0 +1,21 @@ + + + + +1 +%RegisteredObject,%XML.Adaptor +right + + +%String + + + + +%String + + + + + + Index: TECH/ClassInfo/MethodDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/MethodDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/MethodDefinition.cls.xml (revision 9) @@ -0,0 +1,126 @@ + + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +right + + +%Dictionary.MethodDefinition +1 + + + +TECH.ClassInfo.ClassDefinition +1 + + + +TECH.ClassInfo.ParameterDefinition +list +1 + + + +MethodDefinition:%Dictionary.MethodDefinition,ParentClass:TECH.ClassInfo.ClassDefinition +1 +1 +%Status + + + + +%String + + + + +TECH.Iterator + + + + +%String + + + + +Type:%String + + + + +%Stream + + + + +%String + + + + +TECH.ClassInfo.ClassDefinition + + + + +%String + + + + + + + + +%Status + + + + + + Index: TECH/Mail.cls.xml =================================================================== diff -u --- TECH/Mail.cls.xml (revision 0) +++ TECH/Mail.cls.xml (revision 9) @@ -0,0 +1,310 @@ + + + +vhLib.Macro +%RegisteredObject + + +%String +1 + + + +%String +1 + + + +%String +list +1 + + + +%String +list +1 + + + +%String +list +1 + + + +%String +1 + + + +%Boolean +1 + + + +%String +1 + + + +%String +list +1 + + + +%Net.SMTP +1 + + + +%Net.MailMessage +1 + + + +1 +1 +%Status +1 + + + + +Verzender:%String + + + + +AntwoordenNaar:%String + + + + +Gebruikersnaam:%String,Wachtwoord:%String + + + + + + + + +BijlageLocaties:%ListOfDataTypes + + + + +BijlageLocatie:%String + + + + +Stream:%Stream,Bestandsnaam:%String + + + + +Ontvanger:%String + + + + +Ontvanger:%String + + + + +Ontvanger:%String + + + + + + + + +Onderwerp:%String + + + + +String:%String + + + + +String:%String + + + + +Stream:%Stream + + + + + + + + +1 +%String + + + + +%Boolean + + + + + + + + + + + + +%String + + + + +%String + + + + +%ListOfDataTypes + + + + +%ListOfDataTypes + + + + +%ListOfDataTypes + + + + +%String +0) + #dim RecipientsInfo As %String = "Intended Recipients : (redirected by configitem vhLib.Mail_RedirectMailToDevelopment)"_$$$CRLF + Set:(..MailMessage.To.Count()>0) RecipientsInfo=RecipientsInfo_" To : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.To,", ")_$$$CRLF + Set:(..MailMessage.Cc.Count()>0) RecipientsInfo=RecipientsInfo_" Cc : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Cc,", ")_$$$CRLF + Set:(..MailMessage.Bcc.Count()>0) RecipientsInfo=RecipientsInfo_" Bcc : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Bcc,", ")_$$$CRLF + Quit RecipientsInfo +]]> + + + + + Index: TECH/RSS/Feed.cls.xml =================================================================== diff -u --- TECH/RSS/Feed.cls.xml (revision 0) +++ TECH/RSS/Feed.cls.xml (revision 9) @@ -0,0 +1,127 @@ + + + +%CSP.Page + + + + + +TITLE + + + +DESCRIPTION + + + +TIMESTAMP + + + +LINK + + + + + + + + + +1 +1 +%Status +1 + + + + +1 +str:%String +%String +" + } + Quit result +]]> + + + +1 +ts:%TimeStamp +%String + + + + +text/xml + + + + + Index: TECH/Exceptions/Exception.cls.xml =================================================================== diff -u --- TECH/Exceptions/Exception.cls.xml (revision 0) +++ TECH/Exceptions/Exception.cls.xml (revision 9) @@ -0,0 +1,101 @@ + + + + +1 +TECH.IException,%RegisteredObject +right + + +TECH.IException +1 + + + + +TO DO : Stack zou een %Stream moeten worden. +%String +1 + + + + +%TimeStamp +1 + + + +%List +1 + + + +1 +1 +%Status + + + + +Exception:TECH.IException + + + + +%String + + + + +TECH.IException + + + + +%String + + + + +%TimeStamp + + + + +%String + + + + + + Index: TECH/FileExportResultSet.cls.xml =================================================================== diff -u --- TECH/FileExportResultSet.cls.xml (revision 0) +++ TECH/FileExportResultSet.cls.xml (revision 9) @@ -0,0 +1,220 @@ + + + + +Export van ResultSet naar een bestand +Code snippet: +Set FileExport=##class(TECH.FileExportResultSet).%New(ResultSet) +Do FileExport.ExportToFile(Pad,Naam) + +Code snippet variant +Set FileExport=##class(TECH.FileExportResultSet).%New(ResultSet) +Do FileExport.ZetDevice(Dev) ; reeds geopend device +Do FileExport.Export() +vhLib.Macro +%RegisteredObject + + +%String + + + +%String + + + +%String + + + +%ResultSet + + + +%String +$C(9) + + + +%String +$C(13,10) + + + +ResultSet:%ResultSet="" +%Status + + + + +Pad:%String,BestandNaam:%String + + + + + + + + + +alleen te gebruiken in ADMIN +0 + + + + +Dev + + + + +Dev + + + + +ResultSet:%ResultSet + + + + +Pad:%String,BestandNaam:%String + + + + + + + + + + + + + + + + + + + + + + + + +Data,Type + + + + +ColumnCount + + + + + + Index: TECH/File/FileWriter.cls.xml =================================================================== diff -u --- TECH/File/FileWriter.cls.xml (revision 0) +++ TECH/File/FileWriter.cls.xml (revision 9) @@ -0,0 +1,188 @@ + + + + +1 +%RegisteredObject + + +%Library.FileCharacterStream +1 + + + +%String +1 + + + + +TECH.Lock +1 + + + +%Boolean +1 + + + + +FileHandler die ook locking en rechten beheerd voor de file +Bestand : Directory + bestand +WriteImmediate : Schrijft onmiddelijk op de definitieve locatie, (voor over netwerk te sturen deze op false zetten !) +Bestand:%String,WriteImmediate:%Boolean=1 +%Status + + + + +%Status + + + + +Inhoud:%String +%Status + + + + +XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent" +%Status + + + + +Stream:%Stream +%Status + + + + +%String + + + + +1 +%String + + + + +%Close method to +provide notification that the current object is being closed. +Wordt ook bij een Kill uitgevoerd]]> +1 +1 +%Status + + + + + + Index: TECH/Events/KlantEventData.cls.xml =================================================================== diff -u --- TECH/Events/KlantEventData.cls.xml (revision 0) +++ TECH/Events/KlantEventData.cls.xml (revision 9) @@ -0,0 +1,37 @@ + + + +serial +1 +TECH.PubSub.EventData + + +%Integer + + + +KlantNr:%Integer +1 +1 +%Status + + + + +%Library.CacheSerialState +KlantEventDataState + +listnode +"TECH.Events.KlantEventData" + +KlantNr + + + + + + + Index: TECH/PiecesIterator.cls.xml =================================================================== diff -u --- TECH/PiecesIterator.cls.xml (revision 0) +++ TECH/PiecesIterator.cls.xml (revision 9) @@ -0,0 +1,68 @@ + + + + +Een lege string wordt niet aanschouwd als een piece. De HasNext() zal dus false teruggeven als de string leeg is. + +1 +%RegisteredObject,TECH.Iterator +right + + +%Integer +1 + + + +%String +1 + + + + +%String +1 + + + + +%Integer +1 + + + +Pieces:%String,Delimiter:%String +1 +%Status + + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + + + Index: TECH/Events/KlantVerwijderEvent.cls.xml =================================================================== diff -u --- TECH/Events/KlantVerwijderEvent.cls.xml (revision 0) +++ TECH/Events/KlantVerwijderEvent.cls.xml (revision 9) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.PubSub.EventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/VhChangeInfo.cls.xml =================================================================== diff -u --- TECH/VhChangeInfo.cls.xml (revision 0) +++ TECH/VhChangeInfo.cls.xml (revision 9) @@ -0,0 +1,26 @@ + + + +1 + +1 +TECH.Concurrency.VhPersistent,TECH.ChangeInfo +left + + +insert:%Boolean +1 +%Status + + + + + + Index: TECH/Exceptions/RuntimeException.cls.xml =================================================================== diff -u --- TECH/Exceptions/RuntimeException.cls.xml (revision 0) +++ TECH/Exceptions/RuntimeException.cls.xml (revision 9) @@ -0,0 +1,68 @@ + + + + +1 +TECH.Exceptions.Exception + + +%String +1 + + + + +%String +1 + + + + +ECode:%String,ZError:%String +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + +%String + + + + +%String + + + + + + Index: TECH/PeriodeUtils.cls.xml =================================================================== diff -u --- TECH/PeriodeUtils.cls.xml (revision 0) +++ TECH/PeriodeUtils.cls.xml (revision 9) @@ -0,0 +1,46 @@ + + + + + +1 +%String + + + + +1 +Datum:%Date +%String + + + + +1 +Periode +%String + + + + +1 +Periode +%String + + + + + + Index: TECH/Algo/SQL/QueryEngine/IWhereConditie.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/IWhereConditie.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/IWhereConditie.cls.xml (revision 9) @@ -0,0 +1,21 @@ + + + +1 + +1 +TECH.Algo.Boom.Knoop + + +1 +%String + + + +1 +%Boolean + + + + + Index: TECH/Algo/Sort/InsertionSort.cls.xml =================================================================== diff -u --- TECH/Algo/Sort/InsertionSort.cls.xml (revision 0) +++ TECH/Algo/Sort/InsertionSort.cls.xml (revision 9) @@ -0,0 +1,30 @@ + + + + +1 +%RegisteredObject + + + +Sorteert de opgegeven lijst zelf. Maakt geen nieuwe lijst aan. +1 +TeSorteren:%ListOfDataTypes,Comparator:TECH.Comparator.IComparator + 0) && (Comparator.IsKleinerDan(Hulp,TeSorteren.GetAt(k)))) + { + Do TeSorteren.SetAt(TeSorteren.GetAt(k),k+1) + Set k = k - 1 + } + Do TeSorteren.SetAt(Hulp,k+1) + } +]]> + + + + + Index: TECH/Events/KenmerkenDeletedEventData.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkenDeletedEventData.cls.xml (revision 0) +++ TECH/Events/KenmerkenDeletedEventData.cls.xml (revision 9) @@ -0,0 +1,27 @@ + + + +serial +1 +TECH.PubSub.EventData + + +TECH.Events.KenmerkDeletedEventData +list + + + +%Library.CacheSerialState +KenmerkenDeletedEventDataState + +listnode +"TECH.Events.KenmerkenDeletedEventData" + +Verwijderingen + + + + + + + Index: TECH/CodeGebruik/RoutineLogger.cls.xml =================================================================== diff -u --- TECH/CodeGebruik/RoutineLogger.cls.xml (revision 0) +++ TECH/CodeGebruik/RoutineLogger.cls.xml (revision 9) @@ -0,0 +1,19 @@ + + + +%RegisteredObject + + +1 +Actie:%String + + + + + + Index: TECH/Events/KenmerkModifiedEvent.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkModifiedEvent.cls.xml (revision 0) +++ TECH/Events/KenmerkModifiedEvent.cls.xml (revision 9) @@ -0,0 +1,54 @@ + + + + +Sommige KenmerkModifiedEvents worden in bulk gegenereerd. +Daarom moet in dit geval ook geluisterd worden naar KenmerkenModifiedEvent. +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.KenmerkModifiedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState +KenmerkModifiedEventState + +listnode +"TECH.Events.KenmerkModifiedEvent" + +GroepID + + +Kenmerk + + +UnID + + +Waarde + + +Data + + +TijdCreatie + + +Type + + + + + + + Index: TECH/PubSub/OrchestrationContext.cls.xml =================================================================== diff -u --- TECH/PubSub/OrchestrationContext.cls.xml (revision 0) +++ TECH/PubSub/OrchestrationContext.cls.xml (revision 9) @@ -0,0 +1,17 @@ + + + + +1 +%RegisteredObject + + +1 +TECH.PubSub.EventRaiser + + + + + + Index: TECH/ListUtils.cls.xml =================================================================== diff -u --- TECH/ListUtils.cls.xml (revision 0) +++ TECH/ListUtils.cls.xml (revision 9) @@ -0,0 +1,308 @@ + + + + + Utility methods for %ListOfObjects. + + REMARK: Probably this functionality exists already somewhere.... + + +1 +%RegisteredObject + + +1 +Listbuild:%List +%ListOfDataTypes + + + + +1 +List:%ListOfDataTypes +%List + + + + +1 +List:%ListOfDataTypes,Delim:%String="\" + + + + + +OPGELET : Het resultaat van PiecesToList is een %ListOfDataTypes + Dit is anders dan in PiecesToList^vhLib() , want daar is het resultaat een ListBuild. Opgelet dus bij code-rewrite! +1 +PieceDelimitedList:%String="",Delim:%String +%ListOfDataTypes + + + + + + Copy the list-items from sourceList into targetList. + Returns the targetList. + +1 +sourceList:%ListOfObjects,targetList:%ListOfObjects="" +%ListOfObjects + + + + + +Maakt een diepe copy (2 diep) van een aray. De elementen van de array moeten %RegisteredObjects zijn. +1 +Source:%AbstractArray +%AbstractArray + + + + +1 +sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes="" +%ListOfDataTypes + + + + + +Werkt ook voor ListOfObjects en Item een object +1 +List:%ListOfDataTypes,Item:%String + + + + +1 +Value:%CacheString,List:%CacheString,AllOccurences:%Boolean=0 +%Boolean + + + + + +Oproepen via + set Lijst=##class(TECH.ListUtils).CreateListOfDataTypes("value1","value2","value3", ... +1 +ArgItems...:%String +%ListOfDataTypes + + + + + +Oproepen via + set Lijst=##class(TECH.ListUtils).CreateListOfObjects(obj1,obj2,obj3, ... +1 +ArgItems...:%String +%ListOfObjects + + + + + +[Previously private] +1 +list:%AbstractList,mdArgItems:%String + + + + +1 +List1:%ListOfDataTypes,List2:%ListOfDataTypes +%ListOfDataTypes + + + + +1 +Iterator1:TECH.Iterator,Iterator2:TECH.Iterator +%ListOfDataTypes + + + + +1 +Iterator1:TECH.Iterator,Iterator2:TECH.Iterator +%ListOfDataTypes + + + + +1 +List:%ListOfObjects,Property:%String,Value:%String="" +%Boolean + + + + +1 +Lijst:%ListOfObjects,Comparator:TECH.Comparator.IComparator +%CacheStream + 0 + { + Set Maximum = Lijst.GetAt(1) + + For i = 2:1:Lijst.Count() + { + #dim HulpWaarde As %CacheStream = Lijst.GetAt(i) + If ('Comparator.IsKleinerDan(HulpWaarde,Maximum)) + { + Set Maximum = HulpWaarde + } + } + } + Quit Maximum +]]> + + + + + Index: TECH/PubSub/WachtendeEventVerwerker.cls.xml =================================================================== diff -u --- TECH/PubSub/WachtendeEventVerwerker.cls.xml (revision 0) +++ TECH/PubSub/WachtendeEventVerwerker.cls.xml (revision 9) @@ -0,0 +1,23 @@ + + + +%RegisteredObject + + + + + + + + Index: TECH/Comparator/StringComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/StringComparator.cls.xml (revision 0) +++ TECH/Comparator/StringComparator.cls.xml (revision 9) @@ -0,0 +1,18 @@ + + + + +1 +%RegisteredObject,TECH.Comparator.IComparator +right + + +Waarde1:%String,Waarde2:%String +%Boolean + + + + + + Index: TECH/Collections/LinkedList.cls.xml =================================================================== diff -u --- TECH/Collections/LinkedList.cls.xml (revision 0) +++ TECH/Collections/LinkedList.cls.xml (revision 9) @@ -0,0 +1,86 @@ + + + +%RegisteredObject + + +TECH.Collections.impl.LinkedListKnoop +1 + + + +TECH.Collections.impl.LinkedListKnoop +1 + + + +1 +1 +%Status +1 + + + + +Element:%CacheString + + + + +Element:%CacheString + + + + +%Boolean + + + + +%CacheString + + + + +%Boolean + + + + +1 + + + + + + Index: TECH/Algo/Boom/Knoop.cls.xml =================================================================== diff -u --- TECH/Algo/Boom/Knoop.cls.xml (revision 0) +++ TECH/Algo/Boom/Knoop.cls.xml (revision 9) @@ -0,0 +1,20 @@ + + + +1 + +1 + + +1 +Kindknoop:TECH.Algo.Boom.Knoop + + + +1 +TECH.Iterator + + + + + Index: TECH/PubSub/EventData.cls.xml =================================================================== diff -u --- TECH/PubSub/EventData.cls.xml (revision 0) +++ TECH/PubSub/EventData.cls.xml (revision 9) @@ -0,0 +1,17 @@ + + + + + +serial +1 +%SerialObject + + +%Library.CacheSerialState +^TECH.PubSub.EventDataS + + + + + Index: TECH/Exceptions/enu/Niveau.cls.xml =================================================================== diff -u --- TECH/Exceptions/enu/Niveau.cls.xml (revision 0) +++ TECH/Exceptions/enu/Niveau.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + +datatype +1 +%String + + +;Error;Waarschuwing + + + +1 +TECH.Exceptions.enu.Niveau + + + + +1 +TECH.Exceptions.enu.Niveau + + + + + + Index: TECH/Comparator/DescendingIntegerComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/DescendingIntegerComparator.cls.xml (revision 0) +++ TECH/Comparator/DescendingIntegerComparator.cls.xml (revision 9) @@ -0,0 +1,18 @@ + + + + +1 +%RegisteredObject,TECH.Comparator.IComparator +right + + +Waarde1:%Integer,Waarde2:%Integer +%Boolean + Waarde2 +]]> + + + + + Index: TECH/Stack.cls.xml =================================================================== diff -u --- TECH/Stack.cls.xml (revision 0) +++ TECH/Stack.cls.xml (revision 9) @@ -0,0 +1,54 @@ + + + + +Stack van elementen. + +1 +%RegisteredObject + + +%ListOfDataTypes +1 + + + +Element:%String + + + + +%String + + + + +%String + + + + +%Boolean + + + + + + + + + + + + + + Index: TECH/Events/LadeGerecepteerdEventData.cls.xml =================================================================== diff -u --- TECH/Events/LadeGerecepteerdEventData.cls.xml (revision 0) +++ TECH/Events/LadeGerecepteerdEventData.cls.xml (revision 9) @@ -0,0 +1,71 @@ + + + +serial +1 +TECH.PubSub.EventData + + +%String + + + + +%String + + + + +%Integer + + + +%Integer + + + +%Integer + + + +Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer,SequenceNr:%Integer +1 +1 +%Status + + + + +%Library.CacheSerialState +LadeGerecepteerdEventDataState + +listnode +"TECH.Events.LadeGerecepteerdEventData" + +ProductNummer + + +Toelevering + + +ToeleveringsLijn + + +BatchID + + +SequenceNr + + + + + + + Index: TECH/Algo/Stapeling/I3DObject.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/I3DObject.cls.xml (revision 0) +++ TECH/Algo/Stapeling/I3DObject.cls.xml (revision 9) @@ -0,0 +1,25 @@ + + + +1 + +1 + + +1 +%Float + + + +1 +%Float + + + +1 +%Float + + + + + Index: TECH/Algo/Boom/DiepteEerstBoomBuilder.cls.xml =================================================================== diff -u --- TECH/Algo/Boom/DiepteEerstBoomBuilder.cls.xml (revision 0) +++ TECH/Algo/Boom/DiepteEerstBoomBuilder.cls.xml (revision 9) @@ -0,0 +1,67 @@ + + + + +1 +%RegisteredObject + + +TECH.Algo.Boom.Boom +1 + + + +TECH.Algo.Boom.Knoop +list +1 + + + +TECH.Algo.Boom.Knoop + + + +Boom:TECH.Algo.Boom.Boom +1 +1 +%Status + + + + +TECH.Algo.Boom.Boom + + + + +Kindknoop:TECH.Algo.Boom.Knoop + + + + +TECH.Algo.Boom.Knoop + + + + + + + + + + Index: TECH/Concurrency/TxIsolatieLevel.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxIsolatieLevel.cls.xml (revision 0) +++ TECH/Concurrency/TxIsolatieLevel.cls.xml (revision 9) @@ -0,0 +1,54 @@ + + + +datatype +1 +%String +62042,61186.730461 + + +,ReadUncommitted,ReadCommitted,RepeatableRead + + + + + + + +1 + + + + + + + + +1 + + + + + + + + +1 + + + + Index: TECH/Events/KenmerkDeletedEventData.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkDeletedEventData.cls.xml (revision 0) +++ TECH/Events/KenmerkDeletedEventData.cls.xml (revision 9) @@ -0,0 +1,56 @@ + + + +serial +1 +TECH.PubSub.EventData + + +%String + + + + +%String + + + + +%String + + + + +UnID:%String,GroepID:%String,Kenmerk:%String +1 +1 +%Status + + + + +%Library.CacheSerialState +KenmerkDeletedEventDataState + +listnode +"TECH.Events.KenmerkDeletedEventData" + +GroepID + + +Kenmerk + + +UnID + + + + + + + Index: TECH/Algo/Stapeling/StapelingException.cls.xml =================================================================== diff -u --- TECH/Algo/Stapeling/StapelingException.cls.xml (revision 0) +++ TECH/Algo/Stapeling/StapelingException.cls.xml (revision 9) @@ -0,0 +1,10 @@ + + + + +1 +TECH.Exceptions.BaseException + + + + Index: TECH/Exceptions/FileException.cls.xml =================================================================== diff -u --- TECH/Exceptions/FileException.cls.xml (revision 0) +++ TECH/Exceptions/FileException.cls.xml (revision 9) @@ -0,0 +1,39 @@ + + + + +1 +TECH.Exceptions.AbstractOmschrijvingException + + +%Status +1 + + + +Omschrijving:%String,Status:%Status +1 +1 +%Status + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + + Index: TECH/Concurrency/ObjectLock.cls.xml =================================================================== diff -u --- TECH/Concurrency/ObjectLock.cls.xml (revision 0) +++ TECH/Concurrency/ObjectLock.cls.xml (revision 9) @@ -0,0 +1,50 @@ + + + + +Informatie over een lock op een object. +%RegisteredObject +62005,59077.830876 + + +%String + + + +%String + + + + + + + +%Boolean + + + +ObjectId:%String,KlasseNaam:%String,Shared:%Boolean +%Status + + + + +%String + + + + +%String + + + + Index: TECH/Concurrency/Transactie.cls.xml =================================================================== diff -u --- TECH/Concurrency/Transactie.cls.xml (revision 0) +++ TECH/Concurrency/Transactie.cls.xml (revision 9) @@ -0,0 +1,205 @@ + + + + +Deze klasse combineert transacties (die een rollback toelaten) en locks. +N.B. Bij SQL statements is het starten van een transactie voldoende +om de nodige locking en unlocking te laten gebeuren. + +Let op: gedrag van SQL engine bij UPDATE: +1) De evaluatie van WHERE-clause gebeurt t.o.v. de eventueel nog + niet-gecommitte data (ook indien in read committed modus). +2) De records die een match zijn t.o.v. de WHERE clause worden ge-locked + indien nodig voor het isolation level. +3) De WHERE-clause wordt opnieuw geëvalueerd. +TECH.ExcHandling +%RegisteredObject + + + +TODO: Indien niet Gestart, dan geen locks uitvoeren. +TxStatus +1 + + + +ObjectLock +array +1 + + + +TxIsolatieLevel +1 + + + +IsolatieLevel:TxIsolatieLevel="" +%Status + + + + +TxIsolatieLevel + + + + +TxStatus + + + + +%ArrayOfObjects + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + +Object:%Persistent + + + + + + + + + + + + + + + + +1 + + + + +StatusCode:%Status,Message:%String +1 + + + + +Object:%Persistent,Shared:%Boolean +1 + + + + +ObjectLock:ObjectLock +1 + + + + +ObjectLock:ObjectLock +1 + + + + +ObjectLock:ObjectLock +1 + + + + +Object:%Persistent,Shared:%Boolean +1 +ObjectLock + + + + +Bericht +1 + + + + + + Index: TECH/Comparator/IntegerComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/IntegerComparator.cls.xml (revision 0) +++ TECH/Comparator/IntegerComparator.cls.xml (revision 9) @@ -0,0 +1,18 @@ + + + + +1 +%RegisteredObject,TECH.Comparator.IComparator +right + + +Waarde1:%Integer,Waarde2:%Integer +%Boolean + + + + + + Index: TECH/Timing/TimerUtils.cls.xml =================================================================== diff -u --- TECH/Timing/TimerUtils.cls.xml (revision 0) +++ TECH/Timing/TimerUtils.cls.xml (revision 9) @@ -0,0 +1,173 @@ + + + + +1 +%RegisteredObject + + +TECH.Stack +1 + + + +%Library.ListOfObjects +1 + + + +%String +1 + + + + +%Boolean +1 + + + + +Do ##class(TECH.Timing.TimerUtils).EnableTiming("") +1 +Context:%String="" + + + + +1 + + + + + +Start een timer en geef een unieke ID. +1 +Label:%String +%String + + + + + +Stop de timer met de gegeven ID. +1 +Timer:%String + + + + + +Do ##class(TECH.Timing.TimerUtils).Flush() +1 + + + + +1 +TECH.Timing.TimerUtils + + + + +%Status + + + + + +Start een timer en geef een unieke ID. +Label:%String +%String + + + + + +Stop de timer met de gegeven ID. +Timer:%String + + + + + + + + +Context:%String="" + + + + +Enabled:%Boolean + + + + +Timer:TECH.Timing.Timer +1 + + + + + + Index: TECH/DateTime.cls.xml =================================================================== diff -u --- TECH/DateTime.cls.xml (revision 0) +++ TECH/DateTime.cls.xml (revision 9) @@ -0,0 +1,346 @@ + + + + +1 +%RegisteredObject + + +1 +Horolog:%String +%Integer +1 + + + + +1 +Horolog:%String +%TimeStamp +1 + + + + +1 +Horolog:%String +%Boolean +1 + + + + +1 +Horolog:%String +%Date +1 + + + + +1 +Horolog:%String +%Time +1 + + + + +1 +Text:%String,Type:%String="",Taal:%String="" +%Date +1 + + + + +1 +Timestamp:%TimeStamp +%Integer +1 + + + + +1 +Timestamp:%TimeStamp +%Date +1 + + + + +1 +TimeStamp:%TimeStamp +%String +1 + + + + +1 +Date:%Date +%TimeStamp +1 + + + + +1 +Horolog1:%String,Horolog2:%String +%Boolean + ..HorologToSeconds(Horolog2) +]]> + + + +1 +%Date + + + + +1 +%Date + + + + +1 +%TimeStamp + + + + +1 +%Time + + + + +1 +%TimeStamp + + + + +1 +DatePart:TECH.enu.DatePart,Timestamp1:%TimeStamp,Timestamp2:%TimeStamp +%Integer + + + + +1 +TimeStamp:%TimeStamp,Verschil:%Integer,DatePart:TECH.enu.DatePart +%TimeStamp + + + + +1 +Datum:%Date,Verschil:%Integer,DatePart:TECH.enu.DatePart +%Date + + + + +1 +Datum1:%Date,Datum2:%Date + + + + + +Werkt ook met timestamp +1 +Dag:%Date +%String + + + + +1 +Dag:%Date +%Boolean + + + + +1 +Dag:%Date +%Boolean + + + + +1 +TijdExpressie:%TimeStamp +%Integer + + + + +1 +TijdExpressie:%TimeStamp +%Integer + + + + +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + + +Werkt ook met %Date +1 +TijdExpressie:%TimeStamp +%Integer + + + + +1 +Datum:%Date +%Date + + + + +1 +Datum:%Date +%Date + + + + +1 +Datum:%Date,Verschil:%Integer +%Date + + + + + +TimeStamp naar DD/MM uu:mm +1 +TimeStamp:%TimeStamp +%String + + + + +1 +Datum:%Date +%String + + + + + + Index: TECH/Events/KenmerkCreatedEvent.cls.xml =================================================================== diff -u --- TECH/Events/KenmerkCreatedEvent.cls.xml (revision 0) +++ TECH/Events/KenmerkCreatedEvent.cls.xml (revision 9) @@ -0,0 +1,29 @@ + + + + +NIET GEÏMPLEMENTEERD +Sommige KenmerkCreatedEvents worden in bulk gegenereerd. +Daarom moet in dit geval ook geluisterd worden naar KenmerkenCreatedEvent. +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.KenmerkCreatedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/ClassInfo/ParameterDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/ParameterDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/ParameterDefinition.cls.xml (revision 9) @@ -0,0 +1,65 @@ + + + + +1 +%RegisteredObject + + +%String +1 + + + + +%String +1 + + + + +%String +1 + + + + +Naam:%String,Type:%String,DefaultWaarde:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +Type:%String + + + + +%String + + + + + + Index: TECH/GlobalUtils.cls.xml =================================================================== diff -u --- TECH/GlobalUtils.cls.xml (revision 0) +++ TECH/GlobalUtils.cls.xml (revision 9) @@ -0,0 +1,129 @@ + + + + +vhLib.Macro +1 +%RegisteredObject + + +1 +Filename:%String,lbGlobals:%List +0 +%String + + + + +1 +Filename:%String,flagOverwrite:%Boolean=1 +0 +%String + database corruptie + new IO,IOPAR,IOT + set IO=Filename + set IOPAR="(::8192)" + set IOT="RMS" + quit $$entry^%GIF(flagOverwrite) + */ +]]> + + + +1 +Filename:%String,flagOverwrite:%Boolean=1 +0 +%String + + + + +1 +Filename:%String,lbGlobals:%List + + + + +1 +Filename:%String,flagOverwrite:%Boolean=1 + + + + +1 +lbGlobals + + + + +1 +NameSpace:%String +%ListOfDataTypes + + + + + + Index: TECH/Print/AbstractLabel.cls.xml =================================================================== diff -u --- TECH/Print/AbstractLabel.cls.xml (revision 0) +++ TECH/Print/AbstractLabel.cls.xml (revision 9) @@ -0,0 +1,17 @@ + + + +1 + +1 +%RegisteredObject + + +%Status + + + + + + Index: TECH/OperatieScope.cls.xml =================================================================== diff -u --- TECH/OperatieScope.cls.xml (revision 0) +++ TECH/OperatieScope.cls.xml (revision 9) @@ -0,0 +1,237 @@ + + + + +Stelt de scope van een APPS-level operatie voor. +Helpt bij uitvoeren van taken die bij start en einde van een operatie +moeten gebeuren. Bvb: loggen, start/stop timer, check authorizatie, audit trail... + +Dit ondersteunt geneste calls; en zorgt dat de nodige acties toch maar 1x gebeuren. +%RegisteredObject + + +OperatieScope +1 + + + +%Integer +1 + + + +TECH.Stack +1 + + + +1 +TxScopeOptie:TECH.Concurrency.TxScopeOptie="Required",TxIsolatieLevel:TECH.Concurrency.TxIsolatieLevel="" +OperatieScope + + + + +1 +OperatieScope + + + + +1 +1 +OperatieScope + + + + +1 +OperatieScope + + + + +%Status + + + + + + + + +TxScopeOptie:TECH.Concurrency.TxScopeOptie="Required",TxIsolatieLevel:TECH.Concurrency.TxIsolatieLevel="" +1 + + + + +1 + + + + + + + + +Resultaat="" + + + + + + + + +Exception + 0) + { + Set ..NestingNiveau = ..NestingNiveau - 1 + } + + If (0 = ..NestingNiveau) { + Do ..OperatieGefaald(.Exception) + } + + If $Data(Exception) + { + If ('$IsObject(Exception)) + { + Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),Exception) + } + Do ##class(TECH.ExceptionHandler).Throw(Exception) + } +]]> + + + +1 + + + + +1 + + + + + + + + +1 + + + + + + + + +Resultaat +1 + + + + + + + + +Exception +1 + + + + + + Index: TECH/DynamicSQL.cls.xml =================================================================== diff -u --- TECH/DynamicSQL.cls.xml (revision 0) +++ TECH/DynamicSQL.cls.xml (revision 9) @@ -0,0 +1,75 @@ + + + +%RegisteredObject + + +%ResultSet + + + +%String +1 + + + +%List +1 + + + +%Status +1 + + + +Query:%String,Params:%List="" +1 +1 +%Status +1 + + + + + + + + +%ResultSet + + + + + + Index: TECH/LogUtils.cls.xml =================================================================== diff -u --- TECH/LogUtils.cls.xml (revision 0) +++ TECH/LogUtils.cls.xml (revision 9) @@ -0,0 +1,108 @@ + + + + +1 +%RegisteredObject + + +%String +$ZU( 5);$ZU( 12);$ZU( 18);$ZU( 20);$ZU( 23,1);$ZU( 34);$ZU( 39);$ZU( 55);$ZU( 56,0);$ZU( 56,1);$ZU( 67,10,$J);$ZU( 67,11,$J);$ZU( 67,12,$J);$ZU( 67,13,$J);$ZU( 67,14,$J);$ZU( 67,15,$J);$ZU( 67,4,$J);$ZU( 67,5,$J);$ZU( 67,7,$J);$ZU( 67,8,$J);$ZU( 67,9,$J);$ZU( 68,1);$ZU( 68,21);$ZU( 68,25);$ZU( 68,27);$ZU( 68,32);$ZU( 68,34);$ZU( 68,36);$ZU( 68,38);$ZU( 68,40);$ZU( 68,41);$ZU( 68,43);$ZU( 68,5);$ZU( 68,6);$ZU( 68,7);$ZU(131,0);$ZV;Error;Lev;Routine + + + +%String +F;F0;F1;F2;F3;F4;F5;F6;F7;F8;F9;F11;F12;F55;F56;F57;F58;F60;F61;F62;F70;F71;F90;F91;F92;F93;F94;F95;FDL;FIN;FP;FG;F80;F81;F82;F83;F84;F85;F86;F87;F88;F89;F96;F97;F30;F31;F32;F33;F100;F101;F102;F103;F103;F110;F111;F120;F121;F122;F123;F124;F125;F;F0;F1;F11;F12;F2;F3;F4;F420;F5;F55;F56;F57;F58;F6;F60;F61;F62;F7;F70;F71;F8;F9;F90;F91;F92;F93;F94;F95;FCH;FCS;FDL;FE;FG;FIN;FLO;FMTB;FMTCL;FMTI;FMTK;FMTU;FMTb;FMTi;FMTk;FMTu;FR;FS;FS132;FS80;FSC;FUP + + + +%String +Geen extra info aanwezig. + + + +1 +%String + + + + +1 +ErrorID:%List +%String + + + + +1 +StackLevel:%Integer,InfoType:%String,Key:%String + + + + + + Index: TECH/Print/API.cls.xml =================================================================== diff -u --- TECH/Print/API.cls.xml (revision 0) +++ TECH/Print/API.cls.xml (revision 9) @@ -0,0 +1,34 @@ + + + + +1 +%RegisteredObject + + +1 +Toepassing:%String="",Printer:%String=0 +TECH.Print.Printer + is onbestaand") + Quit:'$D(^TECH("PRINT",Toepassing,0)) $$$ERROR($$$GeneralError,"Toepassing <"_Toepassing_"> default printer implementatie is onbestaand") + + If '$D(^TECH("PRINT",Toepassing,Printer)) Set Printer = 0 // indien geen specifieke implementatie voor printer default implementatie nemen + + Set PrinterClassname = $G(^TECH("PRINT",Toepassing,Printer)) + + Set FullPrinterClassname = "TECH.Print.impl."_PrinterClassname + Quit:'##class(%Library.CompiledClass).%ExistsId(FullPrinterClassname) $$$ERROR($$$GeneralError,"Klasse "_FullPrinterClassname_" is onbestaand") + + Merge Settings = ^TECH("PRINT",Toepassing,Printer,PrinterClassname) + + Set objPrinter = $zobjClassmethod(FullPrinterClassname,"%New",Toepassing , .Settings) + + Quit objPrinter +]]> + + + + + Index: TECH/Exceptions/SaveFailedException.cls.xml =================================================================== diff -u --- TECH/Exceptions/SaveFailedException.cls.xml (revision 0) +++ TECH/Exceptions/SaveFailedException.cls.xml (revision 9) @@ -0,0 +1,39 @@ + + + + +1 +TECH.Exceptions.AbstractOmschrijvingException + + +%Status +1 + + + +Omschrijving:%String,Status:%Status +1 +1 +%Status + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + + Index: TECH/Exceptions/LockedException.cls.xml =================================================================== diff -u --- TECH/Exceptions/LockedException.cls.xml (revision 0) +++ TECH/Exceptions/LockedException.cls.xml (revision 9) @@ -0,0 +1,16 @@ + + + + +1 +TECH.Exceptions.AbstractOmschrijvingException + + +TECH.enu.ExceptionCode + + + + + + Index: TECH/CodeGebruik/SubRoutineGebruik.cls.xml =================================================================== diff -u --- TECH/CodeGebruik/SubRoutineGebruik.cls.xml (revision 0) +++ TECH/CodeGebruik/SubRoutineGebruik.cls.xml (revision 9) @@ -0,0 +1,71 @@ + + + +persistent +TECH.Concurrency.VhPersistent + + +%String + + + +%String + + + +%Integer + + + +%Library.TimeStamp + + + +1 +RoutineNaam:%String,SubRoutineNaam:%String,AantalKeerGebruikt:%Integer,GebruikMetingDateTime:%Library.TimeStamp + + + + +%Library.CacheStorage +^TECH.CodeG55E7.SubRoutineGebAFD +SubRoutineGebruikDefaultData +^TECH.CodeG55E7.SubRoutineGebAFD +^TECH.CodeG55E7.SubRoutineGebAFI +^TECH.CodeG55E7.SubRoutineGebAFS + +listnode + + +%%CLASSNAME + + +InstanceVersion + + +SubRoutineNaam + + +AantalKeerGebruikt + + +GebruikMetingDateTime + + +RoutineNaam + + + + + + + Index: TECH/Algo/SQL/QueryEngine/CombinatieConditie.cls.xml =================================================================== diff -u --- TECH/Algo/SQL/QueryEngine/CombinatieConditie.cls.xml (revision 0) +++ TECH/Algo/SQL/QueryEngine/CombinatieConditie.cls.xml (revision 9) @@ -0,0 +1,71 @@ + + + + +1 +%RegisteredObject,TECH.Algo.SQL.QueryEngine.IWhereConditie +right + + +TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator +1 + + + +TECH.Algo.SQL.QueryEngine.IWhereConditie +list + + + +CombinatieConditieOperator:TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator +1 +1 +%Status + + + + +Subconditie:TECH.Algo.SQL.QueryEngine.IWhereConditie + + + + +%String + + + + +TECH.Iterator + + + + +Kindknoop:TECH.Algo.Boom.Knoop + + + + +%Boolean + 0 +]]> + + + + + Index: TECH/Events/UGLYPickingStartedEvent.cls.xml =================================================================== diff -u --- TECH/Events/UGLYPickingStartedEvent.cls.xml (revision 0) +++ TECH/Events/UGLYPickingStartedEvent.cls.xml (revision 9) @@ -0,0 +1,25 @@ + + + +serial +1 +TECH.PubSub.Event + + +Data:TECH.Events.UGLYPickingEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + + Index: TECH/Concurrency/TxScopeOptie.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxScopeOptie.cls.xml (revision 0) +++ TECH/Concurrency/TxScopeOptie.cls.xml (revision 9) @@ -0,0 +1,86 @@ + + + + +Opties voor het gebruiken en scopen van transacties. +Voor uitleg bij de mogelijkheden, zie http://java.sun.com/j2ee/tutorial/1_3-fcs/doc/Transaction3.html +datatype +1 +%String +62055,41881.104532 + + +,Required,RequiresNew,Supports,Mandatory,NotSupported + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + + + + + +1 +TxScopeOptie + + + + Index: TECH/RoutineUtils.cls.xml =================================================================== diff -u --- TECH/RoutineUtils.cls.xml (revision 0) +++ TECH/RoutineUtils.cls.xml (revision 9) @@ -0,0 +1,136 @@ + + + + +1 +%RegisteredObject + + +1 + +%Boolean + + + + +1 +Routine:%String +%Boolean + + + + +1 +Label:%String +%String + + + + +1 +LabelAndRoutine:%String +%String + + + + +1 +LabelAndRoutine:%String +%String + + + + +1 +RoutineNaam:%String,RoutineLijnNummer:%Integer,*SubRoutineNaam:%String,*SubRoutineStartLijnNummer:%Integer += 0)) { + #dim LijnSourceCode As %String = ^ROUTINE(RoutineNaam, 0, LijnNummer) + If (..IsSubroutineStartlijn(LijnSourceCode)) { + Set SubRoutineGevonden = 1 + Set SubRoutineStartLijnNummer = LijnNummer + Set SubRoutineNaam = ..BepaalSubroutineNaamUitRoutineLijn(LijnSourceCode) + } + Set LijnNummer = LijnNummer - 1 + } + + If ('SubRoutineGevonden) { + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen Subroutinestartlijn gevonden voor lijnnr '" _ RoutineLijnNummer _ "' in routine '" _ RoutineNaam _ "'.")) + } + + Quit +]]> + + + +1 +LijnSourceCode:%String +%Boolean + + + + + + + + +1 +LijnSourceCode:%String +%String + + + + + + Index: TECH/Context/RuntimeContext.cls.xml =================================================================== diff -u --- TECH/Context/RuntimeContext.cls.xml (revision 0) +++ TECH/Context/RuntimeContext.cls.xml (revision 9) @@ -0,0 +1,167 @@ + + + + +Verzameling van eigenschappen van de runtime context +waarin de uitvoerende code zich bevindt. +Deze context eigenschappen kunnen bvb bij start en einde van +een inkomende SOAP of Java call, of unit test ingesteld worden. + +vhLib.Macro +1 +%RegisteredObject + + +%String + + + + +%String + + + + +%String +1 + + + + +DOM.common.Gebruiker +1 + + + +1 +TECH.Context.RuntimeContext + + + + +1 + + + + +Gebruiker:DOM.common.Gebruiker + + + + +DOM.common.Gebruiker + + + + +%String + + + + + +Werkt wanneer oproep via webservice of telnet binnenkomt binnen het netwerk. +Oproepen van buiten het netwerk kunnen mogelijks problemen opleveren. +%String + c:\"_FileName // ping vervangen door nslookup + Set Ok=$ZF(-1,"NSLOOKUP "_IP_" > c:\"_FileName) + + Set Stream=##class(%FileCharacterStream).%New() + Set Stream.Filename="c:\"_FileName + + Do Stream.ReadLine() + Do Stream.ReadLine() + Do Stream.ReadLine() + Set ComputerNaamOutput = Stream.ReadLine() + + Set PiecesIterator = ##class(TECH.PiecesIterator).%New(ComputerNaamOutput," ") + While (PiecesIterator.HasNext()) + { + Set ..ComputerNaam = PiecesIterator.Next() + } + + Set Stream = "" + + Do ##class(%File).Delete("c:\"_FileName) + } + } + + if $zcvt(..ComputerNaam,"U")="LOCALHOST" set ..ComputerNaam=$$$Server_".vanhoecke.be" + Quit ..ComputerNaam +]]> + + + +%String + + + + +%String + + + + +1 +1 +%Status + + + + + + Index: TECH/Iterator.cls.xml =================================================================== diff -u --- TECH/Iterator.cls.xml (revision 0) +++ TECH/Iterator.cls.xml (revision 9) @@ -0,0 +1,41 @@ + + + + Eg: +
Set Iterator=##class(classname).%New() +
While Iterator.HasNext() +
{ +
Set object=Iterator.Next() +
} +]]>
+1 + +1 + + + +Returns true if the iteration has more elements. +1 +%Boolean + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +1 +%CacheString + +
+ + +
Index: TECH/Concurrency/TxStatus.cls.xml =================================================================== diff -u --- TECH/Concurrency/TxStatus.cls.xml (revision 0) +++ TECH/Concurrency/TxStatus.cls.xml (revision 9) @@ -0,0 +1,43 @@ + + + + +Status van een transactie of transactie scope. +datatype +1 +%String +62055,57444.980513 + + +,NietGestart,Gestart,Committed,RolledBack + + + +1 +TxStatus + + + + +1 +TxStatus + + + + +1 +TxStatus + + + + +1 +TxStatus + + + + Index: TECH/Lock.cls.xml =================================================================== diff -u --- TECH/Lock.cls.xml (revision 0) +++ TECH/Lock.cls.xml (revision 9) @@ -0,0 +1,125 @@ + + + + +1 +%RegisteredObject + + +%String + + + + +LockKey:%String +1 +1 +%Status + + + + + +Lock(TimeOut [Default: 10], LockType [Default: Exclusive]) +Indien reeds een exclusieve lock geplaatst is, dan wordt een fout gethrowed. + +TimeOut:%Integer=10,LockType:TECH.enu.LockType="X" + + + + + +Unlocken +Indien LockType leeg is wordt het type opgevraagd en de unlock uitgevoerd. +LockType:TECH.enu.LockType="" + + + + +1 +%String + + + + +%Boolean + + + + +%Boolean + + + + +%Boolean + + + + +%Boolean + + + + + + Index: TECH/Print/Kolommen/TekstType.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/TekstType.cls.xml (revision 0) +++ TECH/Print/Kolommen/TekstType.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + +datatype +1 +%String + + +,C,N + + + +1 +%String + + + + +1 +%String + + + + + + Index: TECH/SourceCodeUtils.cls.xml =================================================================== diff -u --- TECH/SourceCodeUtils.cls.xml (revision 0) +++ TECH/SourceCodeUtils.cls.xml (revision 9) @@ -0,0 +1,181 @@ + + + + +1 +%RegisteredObject + + +1 +InternalName +%Boolean +0 + } + quit Exists +]]> + + + +1 +InternalName:%String +%String + + + + +1 +InternalName:%String +%Boolean + + + + +1 + +%Boolean + + + + +1 +InternalName:%String +%Boolean + + + + +1 +InternalName:%String +%String + + + + +1 +InternalName:%String +%ListOfDataTypes + + + + +1 +InternalName:%String +%ListOfDataTypes + + + + +1 +InternalName:%String +%String + + + + + + Index: TECH/ClassInfo/FormalSpecParser.cls.xml =================================================================== diff -u --- TECH/ClassInfo/FormalSpecParser.cls.xml (revision 0) +++ TECH/ClassInfo/FormalSpecParser.cls.xml (revision 9) @@ -0,0 +1,86 @@ + + + + +1 +%RegisteredObject + + +%Integer +1 + + + +%String +1 + + + + +FormalSpec:%String +%ListOfObjects + + + + +1 +%String + 0) || (AantalQuotes#2 = 1) || ((Char '= "=") && (Char '= ",") && (Char '= ":"))) + { + Set Part = Part _ Char + Set ..Position = ..Position + 1 + + Set AantalOpenBrackets = AantalOpenBrackets + (Char = "(") - (Char = ")") + Set AantalQuotes = AantalQuotes + (Char = """") + Set Char = ..GeefChar() + } + Quit Part +]]> + + + +1 +%String + + + + + + Index: TECH/Concurrency/VhConcurrencyPart.cls.xml =================================================================== diff -u --- TECH/Concurrency/VhConcurrencyPart.cls.xml (revision 0) +++ TECH/Concurrency/VhConcurrencyPart.cls.xml (revision 9) @@ -0,0 +1,53 @@ + + + +1 + +1 +TECH.Persistent + + +%Boolean +0 +1 + + + + + + + + + + + +1 +Object:TECH.Concurrency.VhPersistent +1 + + + + +insert:%Boolean +1 +%Status + + + + + + Index: TECH/PubSub/impl/EventDispatcher.cls.xml =================================================================== diff -u --- TECH/PubSub/impl/EventDispatcher.cls.xml (revision 0) +++ TECH/PubSub/impl/EventDispatcher.cls.xml (revision 9) @@ -0,0 +1,54 @@ + + + + +1 +%RegisteredObject + + +Event:TECH.PubSub.Event +%Status + + + + +%SQLQuery +Event:TECH.PubSub.Event + SELECT ID FROM TECH_PubSub.EventSubscription WHERE EventType = :Event.Type + + + + + Index: TECH/Config/dto/ConfigItems.cls.xml =================================================================== diff -u --- TECH/Config/dto/ConfigItems.cls.xml (revision 0) +++ TECH/Config/dto/ConfigItems.cls.xml (revision 9) @@ -0,0 +1,16 @@ + + + + +1 +%RegisteredObject,%XML.Adaptor +right + + +TECH.Config.dto.ConfigItem +list + + + + + Index: TECH/Print/Kolommen/DocumentType.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/DocumentType.cls.xml (revision 0) +++ TECH/Print/Kolommen/DocumentType.cls.xml (revision 9) @@ -0,0 +1,135 @@ + + + + +Beschrijft de structuur van het af te printen document + +1 +%RegisteredObject + + +%String +1 + + + + +%String +1 + + + + +TECH.Print.Kolommen.KolomDefinitie +list +1 + + + + +Documentid moet uniek zijn, Reskey is optioneel en wordt enkel gebruikt in de global +DocumentId:%String,ResKey:%String="TECHDOCGEN" +1 +1 +%Status + + + + + +Verwijder de documentdefinitie uit de global +%Status + + + + +%Integer + + + + +Index:%Integer +TECH.Print.Kolommen.KolomDefinitie + + + + + +Laad alle kolommen die reeds aanwezig zijn onder de opgegeven keys +1 + + + + +KolomIndex:%Integer +%Status + + + + +Kolom:TECH.Print.Kolommen.KolomDefinitie +%Status + + + + + +Sla het documenttype op in de bijbehorende globals zodat er document met gemaakt kunnen worden + + + + + + Index: TECH/FrequentieTabel.cls.xml =================================================================== diff -u --- TECH/FrequentieTabel.cls.xml (revision 0) +++ TECH/FrequentieTabel.cls.xml (revision 9) @@ -0,0 +1,45 @@ + + + +%RegisteredObject + + +%Double +array +1 + + + +Item:%String + + + + +Item:%String,Aantal:%Double + + + + +Item:%String +%Double + + + + +TECH.ListIterator + + + + + + Index: TECH/ClassInfo/ClassDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/ClassDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/ClassDefinition.cls.xml (revision 9) @@ -0,0 +1,222 @@ + + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +right + + +%Dictionary.ClassDefinition +1 + + + +%String +1 + + + + +%String +1 + + + + +%Boolean + + + + +%Boolean + + + + +%Boolean + + + + +%String + + + + +%String + + + + +TECH.Iterator + + + + +MethodName:%String +TECH.ClassInfo.MethodDefinition + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +SuperKlassen:%String + + + + +ClassName:%String +1 +1 +%Status + + + + +%Status + + + + +1 +%String + + + + +%Library.CustomStorage + + + + + Index: TECH/File/FileReader.cls.xml =================================================================== diff -u --- TECH/File/FileReader.cls.xml (revision 0) +++ TECH/File/FileReader.cls.xml (revision 9) @@ -0,0 +1,93 @@ + + + + +1 +%RegisteredObject + + +%String +1 + + + + +%FileCharacterStream +1 + + + + +Bestand : Directory + bestand +Bestand:%String +%Status + + + + + + + + + +Leest een lijn uit. +Resultaat -1 = einde van bestand. +%String + + + + +%Boolean + + + + +%Boolean + + + + +%Close method to +provide notification that the current object is being closed.]]> +1 +1 +%Status + + + + + + Index: TECH/Integer.cls.xml =================================================================== diff -u --- TECH/Integer.cls.xml (revision 0) +++ TECH/Integer.cls.xml (revision 9) @@ -0,0 +1,27 @@ + + + +datatype +INTEGER +INTEGER +0 +INTEGER +%Library.Integer + + +1 +generator +%val:%CacheString +IsValidDT +%Status +0 + + + + + + Index: TECH/Exceptions/BaseException.cls.xml =================================================================== diff -u --- TECH/Exceptions/BaseException.cls.xml (revision 0) +++ TECH/Exceptions/BaseException.cls.xml (revision 9) @@ -0,0 +1,58 @@ + + + + +1 +TECH.Exceptions.Exception + + +TECH.enu.ExceptionCode +1 + + + +%String +1 + + + + + +Omschrijving kan gebruikt worden om in de $ECODE te plaatsen +ExceptionCode:TECH.enu.ExceptionCode,Omschrijving:%String +1 +1 +%Status + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + +%String + + + + + + Index: TECH/Logon.cls.xml =================================================================== diff -u --- TECH/Logon.cls.xml (revision 0) +++ TECH/Logon.cls.xml (revision 9) @@ -0,0 +1,29 @@ + + + + +vhLib.Macro +1 +%RegisteredObject + + +1 +0 + + + + +1 +Device:%String + + + + + + Index: TECH/Collections/impl/LinkedListKnoop.cls.xml =================================================================== diff -u --- TECH/Collections/impl/LinkedListKnoop.cls.xml (revision 0) +++ TECH/Collections/impl/LinkedListKnoop.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + +%RegisteredObject + + +%CacheString + + + +LinkedListKnoop + + + +Data:%CacheString +1 +1 +%Status +1 + + + + + + Index: TECH/Print/Kolommen/TekstUitlijning.cls.xml =================================================================== diff -u --- TECH/Print/Kolommen/TekstUitlijning.cls.xml (revision 0) +++ TECH/Print/Kolommen/TekstUitlijning.cls.xml (revision 9) @@ -0,0 +1,28 @@ + + + +datatype +1 +%String + + +,L,R + + + +1 +%String + + + + +1 +%String + + + + + + Index: TECH/SQLUtils.cls.xml =================================================================== diff -u --- TECH/SQLUtils.cls.xml (revision 0) +++ TECH/SQLUtils.cls.xml (revision 9) @@ -0,0 +1,135 @@ + + + + +1 +%RegisteredObject + + +1 +Username:%String +%String + + + + +1 +%ListOfDataTypes + + + + +1 +%ListOfDataTypes + + + + + +Get a List of all Basetables +%Query +1 + + + + +1 + +%Status + + + + +1 + +%Status +0 { + set Row=$lb($p(^mdd(1,%TableId,1),$c(1),17)_"."_$p($p(^mdd(1,%TableId,1),$c(1),1),$C(1,1))) + set AtEnd = $order(^mdd(1,%TableId))'>0 + } else { + set AtEnd = 1 + } + QUIT $$$OK +]]> + + + +1 + +%Status + + + + + +Get a List of all Views. +%Query +1 + + + + +1 + +%Status + + + + +1 + +%Status +0 { + set Row=$lb($p(^mdd(3,%ViewId,1),$c(1),12)_"."_$p($p(^mdd(3,%ViewId,1),$c(1),1),$C(1,1))) + set AtEnd = $order(^mdd(3,%ViewId))'>0 + } else { + set AtEnd = 1 + } + + QUIT $$$OK +]]> + + + +1 + +%Status + + + + + +