Index: TECH/Events/UGLYPickingRestartedEvent.cls.xml =================================================================== diff -u --- TECH/Events/UGLYPickingRestartedEvent.cls.xml (revision 0) +++ TECH/Events/UGLYPickingRestartedEvent.cls.xml (revision 924) @@ -0,0 +1,22 @@ + + + +serial +1 +TECH.PubSub.Event +62140,60242.466261 +0 + + +Data:TECH.Events.UGLYPickingEventData +1 +1 +%Status + + + + + Index: TECH/Events/ToeleveringDeletedEvent.cls.xml =================================================================== diff -u --- TECH/Events/ToeleveringDeletedEvent.cls.xml (revision 0) +++ TECH/Events/ToeleveringDeletedEvent.cls.xml (revision 924) @@ -0,0 +1,22 @@ + + + +serial +1 +TECH.PubSub.Event +62131,59129.643919 +0 + + +Data:TECH.Events.ToeleveringDeletedEventData +1 +1 +%Status + + + + + Index: TECH/Events/ToeleveringModifiedEventData.cls.xml =================================================================== diff -u --- TECH/Events/ToeleveringModifiedEventData.cls.xml (revision 0) +++ TECH/Events/ToeleveringModifiedEventData.cls.xml (revision 924) @@ -0,0 +1,38 @@ + + + +serial +1 +TECH.PubSub.EventData +62139,46816.989217 +0 + + +DOM.LEV.Toelevering + + + +Toelevering:DOM.LEV.Toelevering +1 +1 +%Status + + + + +%Library.CacheSerialState +ToeleveringModifiedEventDataState + +listnode +"TECH.Events.ToeleveringModifiedEventData" + +Toelevering + + + + + + Index: TECH/Events/OrderModifiedEvent.cls.xml =================================================================== diff -u --- TECH/Events/OrderModifiedEvent.cls.xml (revision 0) +++ TECH/Events/OrderModifiedEvent.cls.xml (revision 924) @@ -0,0 +1,22 @@ + + + +serial +1 +TECH.PubSub.Event +62138,48974.426443 +0 + + +Data:TECH.Events.OrderModifiedEventData +1 +1 +%Status + + + + + Index: TECH/ClassInfo/QNameFinder.cls.xml =================================================================== diff -u --- TECH/ClassInfo/QNameFinder.cls.xml (revision 0) +++ TECH/ClassInfo/QNameFinder.cls.xml (revision 924) @@ -0,0 +1,68 @@ + + + +1 +%RegisteredObject +62157,54689.221767 +0 + + +Klasse:%String,ContextClassDefinition:TECH.ClassInfo.ClassDefinition +1 +%String + 0) && (QualifiedName = "")) + { + Set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId($Piece(ContextClassDefinition.GeefPackage(),".",1,Piece)_"."_Klasse) + If (ClassDefinition '= "") + { + Set QualifiedName = $Piece(ContextClassDefinition.GeefPackage(),".",1,Piece)_"."_Klasse + } + Set Piece = Piece - 1 + } + + // Probeer de package van de bovenklassen, hier is het niet nodig om alle lager liggende packages te controleren + // + /*Set SuperIterator = ##class(TECH.PiecesIterator).%New(..CurrentClassDefinition.Super,",") + While (SuperIterator.HasNext() && (QualifiedName = "")) { + Set Name = SuperIterator.Next() + + }*/ + + /// Kijk naar de imports + If (QualifiedName = "") + { + Set ImportsIterator = ContextClassDefinition.GeefImports() + + While (ImportsIterator.HasNext() && (QualifiedName = "")) + { + Set Import = ImportsIterator.Next() + Set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(Import_"."_Klasse) + + If (ClassDefinition '= "") + { + Set QualifiedName = Import_"."_Klasse + } + } + } + } + Else + { + Set QualifiedName = Klasse + } + Quit QualifiedName +]]> + + + + Index: TECH/Vector.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/Vector.cls.xml (.../Vector.cls.xml) (revision 734) +++ TECH/Vector.cls.xml (.../Vector.cls.xml) (revision 924) @@ -1,11 +1,12 @@ - + serial 1 %SerialObject -61970,40793.91379 +62136,35280.653791 61956,32726.77683 +0 %Float @@ -20,7 +21,7 @@ -X,Y,Z +X:%Float,Y:%Float,Z:%Float 1 1 %Status @@ -211,5 +212,5 @@ - + Index: TECH/Events/LadeGeproduceerdEventData.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/Events/LadeGeproduceerdEventData.cls.xml (.../LadeGeproduceerdEventData.cls.xml) (revision 734) +++ TECH/Events/LadeGeproduceerdEventData.cls.xml (.../LadeGeproduceerdEventData.cls.xml) (revision 924) @@ -1,10 +1,10 @@ - + serial 1 TECH.PubSub.EventData -62117,34053.233988 +62125,40864.77737 0 @@ -27,8 +27,12 @@ %Integer + +%Integer + + -Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer,OpnieuwUitgevoerd:%Boolean +Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer,SequenceNr:%Integer,OpnieuwUitgevoerd:%Boolean 1 1 %Status @@ -37,6 +41,7 @@ Set ..ToeleveringsLijn = ToeleveringsLijn Set ..ProductNummer = ProductNummer Set ..BatchID = BatchID + Set ..SequenceNr = SequenceNr Set ..OpnieuwUitgevoerd = OpnieuwUitgevoerd Quit $$$OK ]]> @@ -66,5 +71,5 @@ - + Index: TECH/Events/LadeFinishedGezetEventData.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/Events/LadeFinishedGezetEventData.cls.xml (.../LadeFinishedGezetEventData.cls.xml) (revision 734) +++ TECH/Events/LadeFinishedGezetEventData.cls.xml (.../LadeFinishedGezetEventData.cls.xml) (revision 924) @@ -1,10 +1,10 @@ - + serial 1 TECH.PubSub.EventData -62117,34014.144856 +62125,40803.885664 0 @@ -23,8 +23,12 @@ %Integer + +%Integer + + -Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer +Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer,SequenceNr:%Integer 1 1 %Status @@ -33,6 +37,7 @@ Set ..ToeleveringsLijn = ToeleveringsLijn Set ..ProductNummer = ProductNummer Set ..BatchID = BatchID + Set ..SequenceNr = SequenceNr Quit $$$OK ]]> @@ -58,5 +63,5 @@ - + Index: TECH/Events/OrderModifiedEventData.cls.xml =================================================================== diff -u --- TECH/Events/OrderModifiedEventData.cls.xml (revision 0) +++ TECH/Events/OrderModifiedEventData.cls.xml (revision 924) @@ -0,0 +1,30 @@ + + + +serial +1 +TECH.PubSub.EventData +62138,48886.073972 +0 + + +DOM.OV.Order + + + +Order:DOM.OV.Order +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + Index: TECH/StringUtils.cls.xml =================================================================== diff -u -r788 -r924 --- TECH/StringUtils.cls.xml (.../StringUtils.cls.xml) (revision 788) +++ TECH/StringUtils.cls.xml (.../StringUtils.cls.xml) (revision 924) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62122,53431.034896 +62158,56342.61432 62118,40201.439469 0 @@ -32,6 +32,34 @@ + + + +Vervangt alle "Search" items door de "Replace" items die zich bevinden tussen de prefix en de suffix +Bv: +ReplaceBetween("...[Iets]....[Iets]....Iets...","[","]","Iets","Niets") +wordt "...[Niets]....[Niets]....Iets..." +1 +String:%String,Prefix:%String,Suffix:%String,Search:%String,Replace:%String +%String + + - + Index: TECH/Error/impl/ErrorHandler.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 734) +++ TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 924) @@ -1,5 +1,5 @@ - + Deze class doet de eigenlijke error afhandeling. @@ -8,7 +8,7 @@ TECH.Error 1 %RegisteredObject -62073,53619.239901 +62154,39102.635211 62025,48050.831801 0 @@ -30,9 +30,9 @@ 1 Label:%String,Options:%String @@ -42,8 +42,10 @@ " Error.ErrorCode2=$ECODE + ;Set $ECODE = "" // $ECODE op leeg zetten anders gaat hij verder den boom in :) + Set Error.TrapHandler=$ETrap Set:$G(%objlasterror)'="" Error.ObjectLastError=$$ParseStatus^vhLib(%objlasterror) Set Error.StackTrace=..StackTrace(3) @@ -92,8 +94,19 @@ Error:TECH.Error.dto.ErrorInfo @@ -102,30 +115,51 @@ 1 Error:TECH.Error.dto.ErrorInfo @@ -171,5 +205,5 @@ ]]> - + Index: TECH/Events/ToeleveringModifiedEvent.cls.xml =================================================================== diff -u --- TECH/Events/ToeleveringModifiedEvent.cls.xml (revision 0) +++ TECH/Events/ToeleveringModifiedEvent.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.Event +62138,59527.774145 +0 + + +Data:TECH.Events.ToeleveringModifiedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + Index: TECH/Concurrency/DbUtils.cls.xml =================================================================== diff -u -r868 -r924 --- TECH/Concurrency/DbUtils.cls.xml (.../DbUtils.cls.xml) (revision 868) +++ TECH/Concurrency/DbUtils.cls.xml (.../DbUtils.cls.xml) (revision 924) @@ -1,5 +1,5 @@ - + Utility methods voor open en save van objecten. @@ -8,7 +8,7 @@ TECH.Error 1 %RegisteredObject -62131,34098.844013 +62140,41880.692646 62007,44253.966022 0 @@ -45,13 +45,15 @@ { // Release de zelf geplaatste lock voor de error Do Object.%UnlockId(Object.%Id(),0) + Do ResultSet.Close() $$$ThrowError($$$errGeneralError,"De InstanceVersion van het te saven object met %Id='" _ Object.%Id() _ "' van klasse '" _ Object.%ClassName() _ "' werd niet gevonden in de databank!") } // Het object in memory is verouderd ten opzichte van deze in de databank If (Object.InstanceVersion < InstanceVersionDB) { // Release de zelf geplaatste lock voor de error Do Object.%UnlockId(Object.%Id(),0) + Do ResultSet.Close() $$$ThrowError($$$errGeneralError,"Error: #5800 Object met ID '" _ Object.%Id() _ "' opslaan is mislukt: de huidige database versie is '" _ InstanceVersionDB _ "', maar de gebruikte bron-versie is '" _ Object.InstanceVersion _ "'.") } Do ResultSet.Close() @@ -143,6 +145,7 @@ If (ResultSet.%Next()) { Set DbInstanceVersion = ResultSet.Data("DbInstanceVersion") } + Do ResultSet.Close() If ("" = $Get(DbInstanceVersion, "")) { $$$ThrowError($$$errGeneralError,"Update is mislukt, aangezien het Object met ID '" _ ID _ "' in tabel '" _ Tabel _ "' niet bestaat.") @@ -154,5 +157,5 @@ ]]> - + Index: TECH/Events/OrderDeletedEvent.cls.xml =================================================================== diff -u --- TECH/Events/OrderDeletedEvent.cls.xml (revision 0) +++ TECH/Events/OrderDeletedEvent.cls.xml (revision 924) @@ -0,0 +1,22 @@ + + + +serial +1 +TECH.PubSub.Event +62138,48953.268667 +0 + + +Data:TECH.Events.OrderDeletedEventData +1 +1 +%Status + + + + + Index: TECH/XMLDataSet.cls.xml =================================================================== diff -u --- TECH/XMLDataSet.cls.xml (revision 0) +++ TECH/XMLDataSet.cls.xml (revision 924) @@ -0,0 +1,39 @@ + + + +1 +%XML.DataSet +62154,41663.450879 +0 + + + +Generate hard coded schema that is used for DataSet +1 + +%Status +1 +",! + Write " ",! + If ..#NAMESPACE'="" { + Write " ",! + } Else { + ;Write " ",! // Staat in commentaar voor flex, mocht de #NAMESPACE ingevuld geweest zijn dat had dit wél goed gewerkt. + Write " ",! + } + Write " ",! + Write "",! + Set schema(class)="" + Quit $$$OK +]]> + + + + Index: TECH/Error.inc.rou =================================================================== diff -u -r760 -r924 --- TECH/Error.inc.rou (.../Error.inc.rou) (revision 760) +++ TECH/Error.inc.rou (.../Error.inc.rou) (revision 924) @@ -17,7 +17,7 @@ #define LocalErrorTrapOn $$$InitLocalErrorTrap Set $ETRAP="Do %TECHErrorLocalTrap("_$stack_").TrapHandler()" #define LocalErrorTrapOnLabeled(%Label,%Opts) $$$InitLocalErrorTrap Set $ETRAP="Do %TECHErrorLocalTrap("_$stack_").TrapHandler("%Label","%Opts")" -#define LocalErrorTrapOff Kill %TECHErrorLocalTrap($stack) +#define LocalErrorTrapOff Kill %TECHErrorLocalTrap($stack) $$$TECHErrorTrapOff #define InitLocalErrorTrap Set %TECHErrorLocalTrap($stack)=%this @@ -31,6 +31,7 @@ #define ThrowErrorStatusAndUser(%s,%v,%r,%u) Set $ECODE="`"_%s_"`"_%v_"``"_%u #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 Index: TECH/Events/OrderDeletedEventData.cls.xml =================================================================== diff -u --- TECH/Events/OrderDeletedEventData.cls.xml (revision 0) +++ TECH/Events/OrderDeletedEventData.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.EventData +62138,48903.410741 +0 + + +DOM.OV.Order + + + +Order:DOM.OV.Order +1 +1 +%Status + + + + + Index: TECH/Events/ToeleveringCreatedEventData.cls.xml =================================================================== diff -u --- TECH/Events/ToeleveringCreatedEventData.cls.xml (revision 0) +++ TECH/Events/ToeleveringCreatedEventData.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.EventData +62131,32421.042275 +0 + + +DOM.LEV.Toelevering + + + +Toelevering:DOM.LEV.Toelevering +1 +1 +%Status + + + + + Index: TECH/ClassInfo/PropertyDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/PropertyDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/PropertyDefinition.cls.xml (revision 924) @@ -0,0 +1,62 @@ + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +62158,55585.24047 +0 + + +%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/UGLYPickingStartedEvent.cls.xml =================================================================== diff -u --- TECH/Events/UGLYPickingStartedEvent.cls.xml (revision 0) +++ TECH/Events/UGLYPickingStartedEvent.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.Event +62140,58519.172304 +0 + + +Data:TECH.Events.UGLYPickingEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + Index: TECH/Concurrency/Transactie.cls.xml =================================================================== diff -u -r868 -r924 --- TECH/Concurrency/Transactie.cls.xml (.../Transactie.cls.xml) (revision 868) +++ TECH/Concurrency/Transactie.cls.xml (.../Transactie.cls.xml) (revision 924) @@ -1,5 +1,5 @@ - + Deze klasse combineert transacties (die een rollback toelaten) en locks. @@ -16,7 +16,7 @@ TECH.Error 1 %RegisteredObject -62131,34122.503509 +62144,42209.748046 62005,45656.8048 0 @@ -105,23 +105,14 @@ @@ -130,7 +121,6 @@ @@ -214,5 +204,5 @@ ]]> - + Index: TECH/ClassInfo/ClassDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/ClassDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/ClassDefinition.cls.xml (revision 924) @@ -0,0 +1,148 @@ + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +62158,53774.693322 +0 + + +%Dictionary.ClassDefinition +1 + + + +%String +1 + + + +%String +1 + + + +%String + + + + +%String + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +SuperKlassen:%String + + + + +%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.]]> +ClassName:%String +1 +1 +%Status + + + + +%Status + + + + +1 +%String + + + + +%Library.CustomStorage + + + + Index: TECH/Iterator.cls.xml =================================================================== diff -u -r748 -r924 --- TECH/Iterator.cls.xml (.../Iterator.cls.xml) (revision 748) +++ TECH/Iterator.cls.xml (.../Iterator.cls.xml) (revision 924) @@ -1,19 +1,31 @@ - + - + +the right methods. + +De HasNext method moet zo licht mogelijk geimplementeerd worden. +Daarvoor moet de iterator steeds op het volgende element staan. + +
Eg: +
Set Iterator=##class(classname).%New() +
While Iterator.HasNext() +
{ +
Set object=Iterator.Next() +
} +]]> 1 1 -62116,55945.653543 +62157,29937.602794 62118,40201.36017 0 Returns true if the iteration has more elements. +1 %Boolean @@ -22,8 +34,9 @@ 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/Events/ToeleveringCreatedEvent.cls.xml =================================================================== diff -u --- TECH/Events/ToeleveringCreatedEvent.cls.xml (revision 0) +++ TECH/Events/ToeleveringCreatedEvent.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.Event +62131,42573.321459 +0 + + +Data:TECH.Events.ToeleveringCreatedEventData +1 +1 +%Status + + + + +%Library.CacheSerialState + + + + Index: TECH/PiecesIterator.cls.xml =================================================================== diff -u --- TECH/PiecesIterator.cls.xml (revision 0) +++ TECH/PiecesIterator.cls.xml (revision 924) @@ -0,0 +1,57 @@ + + + +1 +%RegisteredObject,TECH.Iterator +62157,30897.162303 +0 + + +%Integer +1 + + + +%String +1 + + + +%String +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/LadeGerecepteerdEventData.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/Events/LadeGerecepteerdEventData.cls.xml (.../LadeGerecepteerdEventData.cls.xml) (revision 734) +++ TECH/Events/LadeGerecepteerdEventData.cls.xml (.../LadeGerecepteerdEventData.cls.xml) (revision 924) @@ -1,10 +1,10 @@ - + serial 1 TECH.PubSub.EventData -62117,34077.218106 +62125,40902.342247 0 @@ -23,8 +23,12 @@ %Integer + +%Integer + + -Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer +Toelevering:%String,ToeleveringsLijn:%String,ProductNummer:%Integer,BatchID:%Integer,SequenceNr:%Integer 1 1 %Status @@ -33,6 +37,7 @@ Set ..ToeleveringsLijn = ToeleveringsLijn Set ..ProductNummer = ProductNummer Set ..BatchID = BatchID + Set ..SequenceNr = SequenceNr Quit $$$OK ]]> @@ -58,5 +63,5 @@ - + Index: TECH/Enumeration.cls.xml =================================================================== diff -u -r748 -r924 --- TECH/Enumeration.cls.xml (.../Enumeration.cls.xml) (revision 748) +++ TECH/Enumeration.cls.xml (.../Enumeration.cls.xml) (revision 924) @@ -1,16 +1,17 @@ - + datatype 1 %String -62119,58805.855303 -62122,46984.625893 +62154,61041.40758 +62136,66136.624778 0 1 %ListOfDataTypes +1 + +1 +%List +1 + + + 1 TECH.ListIterator +1 - + Index: TECH/ClassInfo/FormalSpecParser.cls.xml =================================================================== diff -u --- TECH/ClassInfo/FormalSpecParser.cls.xml (revision 0) +++ TECH/ClassInfo/FormalSpecParser.cls.xml (revision 924) @@ -0,0 +1,84 @@ + + + +1 +%RegisteredObject +62158,55955.164293 +0 + + +%Integer +1 + + + +%String +1 + + + +FormalSpec:%String +%ListOfObjects + + + + +1 +%String + 0) || (AantalQuotes#2 = 1) || ((..GeefChar() '= "=") && (..GeefChar() '= ",") && (..GeefChar() '= ":"))) + { + Set Char = ..GeefChar() + Set Part = Part _ ..GeefChar() + Set ..Position = ..Position + 1 + + Set AantalOpenBrackets = AantalOpenBrackets + (Char = "(") - (Char = ")") + Set AantalQuotes = AantalQuotes + (Char = """") + } + Quit Part +]]> + + + +1 +%String + + + + + Index: TECH/Comparator/IComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/IComparator.cls.xml (revision 0) +++ TECH/Comparator/IComparator.cls.xml (revision 924) @@ -0,0 +1,16 @@ + + + +1 +1 +62138,31567.655655 +0 + + +1 +Waarde1:%String,Waarde2:%String +%Boolean + + + + Index: TECH/ClassInfo/ParameterDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/ParameterDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/ParameterDefinition.cls.xml (revision 924) @@ -0,0 +1,62 @@ + + + +1 +%RegisteredObject +62158,57810.387658 +0 + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +Naam:%String,Type:%String,DefaultWaarde:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +Type:%String + + + + +%String + + + + + Index: TECH/Events/OrderCreatedEvent.cls.xml =================================================================== diff -u --- TECH/Events/OrderCreatedEvent.cls.xml (revision 0) +++ TECH/Events/OrderCreatedEvent.cls.xml (revision 924) @@ -0,0 +1,22 @@ + + + +serial +1 +TECH.PubSub.Event +62138,48989.657333 +0 + + +Data:TECH.Events.OrderCreatedEventData +1 +1 +%Status + + + + + Index: TECH/Comparator/StringComparator.cls.xml =================================================================== diff -u --- TECH/Comparator/StringComparator.cls.xml (revision 0) +++ TECH/Comparator/StringComparator.cls.xml (revision 924) @@ -0,0 +1,17 @@ + + + +1 +%RegisteredObject,TECH.Comparator.IComparator +62138,35389.404781 +0 + + +Waarde1:%String,Waarde2:%String +%Boolean + + + + + Index: TECH/ListIterator.cls.xml =================================================================== diff -u -r748 -r924 --- TECH/ListIterator.cls.xml (.../ListIterator.cls.xml) (revision 748) +++ TECH/ListIterator.cls.xml (.../ListIterator.cls.xml) (revision 924) @@ -1,9 +1,9 @@ - + 1 Iterator,%RegisteredObject -62116,55990.083887 +62150,62596.598852 62118,40201.383138 0 @@ -78,5 +78,5 @@ ]]> - + Index: TECH/Events/ToeleveringDeletedEventData.cls.xml =================================================================== diff -u --- TECH/Events/ToeleveringDeletedEventData.cls.xml (revision 0) +++ TECH/Events/ToeleveringDeletedEventData.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.EventData +62131,59065.82537 +0 + + +%Integer + + + +ToeleveringNummer:%Integer +1 +1 +%Status + + + + + Index: TECH/Math.cls.xml =================================================================== diff -u --- TECH/Math.cls.xml (revision 0) +++ TECH/Math.cls.xml (revision 924) @@ -0,0 +1,48 @@ + + + +1 +%RegisteredObject +62152,34473.050744 +0 + + +1 +Getal:%Float +%Integer + 0)) Set Getal = $Piece(Getal,".") + 1 + Quit Getal +]]> + + + +1 +Getal:%Float +%Integer + + + + +1 +Getal1:%Float,Getal2:%Float +%Float + Getal2) Set Min = Getal2 + Quit Min +]]> + + + +1 +Getal:%Float,CijfersNaKomma:%Integer +%Float + + + + + Index: TECH/Events/UGLYPickingStartedEventData.cls.xml =================================================================== diff -u --- TECH/Events/UGLYPickingStartedEventData.cls.xml (revision 0) +++ TECH/Events/UGLYPickingStartedEventData.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.EventData +62140,53656.052136 +0 + + +DOM.OV.Order + + + +Order:DOM.OV.Order +1 +1 +%Status + + + + + Index: TECH/ClassInfo/MethodDefinition.cls.xml =================================================================== diff -u --- TECH/ClassInfo/MethodDefinition.cls.xml (revision 0) +++ TECH/ClassInfo/MethodDefinition.cls.xml (revision 924) @@ -0,0 +1,111 @@ + + + +1 +%RegisteredObject,TECH.ClassInfo.QNameFinder +62158,58253.29557 +0 + + +%Dictionary.MethodDefinition +1 + + + +TECH.ClassInfo.ClassDefinition +1 + + + +TECH.ClassInfo.ParameterDefinition +list +1 + + + +MethodDefinition:%Dictionary.MethodDefinition,ParentClass:TECH.ClassInfo.ClassDefinition +1 +1 +%Status + + + + +TECH.Iterator + + + + +%String + + + + +Type:%String + + + + +%Stream + + + + +%String + + + + +TECH.ClassInfo.ClassDefinition + + + + +%String + + + + +%Status + + + + + Index: TECH/Config/ConfiguredFactory.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/Config/ConfiguredFactory.cls.xml (.../ConfiguredFactory.cls.xml) (revision 734) +++ TECH/Config/ConfiguredFactory.cls.xml (.../ConfiguredFactory.cls.xml) (revision 924) @@ -1,9 +1,9 @@ - + TECH.Error %RegisteredObject -62027,55617.452936 +62153,52137.95962 0 @@ -24,5 +24,5 @@ ]]> - + Index: TECH/Events/OrderCreatedEventData.cls.xml =================================================================== diff -u --- TECH/Events/OrderCreatedEventData.cls.xml (revision 0) +++ TECH/Events/OrderCreatedEventData.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.EventData +62138,48910.102067 +0 + + +DOM.OV.Order + + + +Order:DOM.OV.Order +1 +1 +%Status + + + + + Index: TECH/Print/Kolommen/Document.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/Print/Kolommen/Document.cls.xml (.../Document.cls.xml) (revision 734) +++ TECH/Print/Kolommen/Document.cls.xml (.../Document.cls.xml) (revision 924) @@ -1,13 +1,13 @@ - + 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 -61992,54374.007772 +62138,35936.84881 0 @@ -93,23 +93,65 @@ ]]> + +%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="" + RegelVan) && (Comparator.IsKleinerDan(HulpLijst.GetAt(Kolom),..GeefKolom(Kolom).GetAt(k)))) + { + For j = 1:1:AantKol + { + Do ..GeefKolom(j).SetAt(..GeefKolom(j).GetAt(k),k+1) + } + Set k = k - 1 + } + + For j = 1:1:AantKol + { + Do ..GeefKolom(j).SetAt(HulpLijst.GetAt(j),k+1) + } + } +]]> + + Print de inhoud van het document PrintToScreen = True zorgt voor een print op het scherm -Bedrijf:%String,PrintToScreen:%Boolean=0 +Bedrijf:%String,PrintToScreen:%Boolean=##CLASS(TECH.Config.ConfigMgr).Instance().GetString("PrintLijstenOpScherm") %Status - + Index: TECH/OperatieScope.cls.xml =================================================================== diff -u -r734 -r924 --- TECH/OperatieScope.cls.xml (.../OperatieScope.cls.xml) (revision 734) +++ TECH/OperatieScope.cls.xml (.../OperatieScope.cls.xml) (revision 924) @@ -1,5 +1,5 @@ - + Stelt de scope van een APPS-level operatie voor. @@ -8,8 +8,9 @@ Dit ondersteunt geneste calls; en zorgt dat de nodige acties toch maar 1x gebeuren. TECH.Error +1 %RegisteredObject -62116,37194.220183 +62136,28696.563694 62076,35776.81158 0 @@ -212,5 +213,5 @@ 1 - + Index: TECH/Events/UGLYPickingEventData.cls.xml =================================================================== diff -u --- TECH/Events/UGLYPickingEventData.cls.xml (revision 0) +++ TECH/Events/UGLYPickingEventData.cls.xml (revision 924) @@ -0,0 +1,26 @@ + + + +serial +1 +TECH.PubSub.EventData +62140,58488.091038 +0 + + +%String + + + +ConsNr:%String +1 +1 +%Status + + + + +