Index: zTryout/JCL/Mapping/WNode.cls.xml =================================================================== diff -u --- zTryout/JCL/Mapping/WNode.cls.xml (revision 0) +++ zTryout/JCL/Mapping/WNode.cls.xml (revision 995) @@ -0,0 +1,124 @@ + + + +persistent +1 +VHOpslag +%Persistent +62175,37395.616705 +0 + + +%String + + + +DOM.PM.Product +1 + + + +DOM.OV.Order +1 + + + +%String + + + +%Date + + + +%String + + + +%Integer +1 + + + +%Integer +1 + + + +%Date +1 + + + +%String + + + +1 +1 +ProductNr,WSubscript +1 + + + +1 +%Status + + + + +%Integer + + + + +%Date + + + + +%Date + + + + +%CacheSQLStorage +^zTryout.JCL.Mapping.WNodeS + +data +^KPR + +{ProductNr} +0.1 + + +{WSubscript} +"W 0.0R" +"W 0.0Rz" + + +"\" +1 + + +"\" +2 + + +"\" +3 + + + + + + Index: vhUnitTest/APPS/Halux/common/TestBatch.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/Halux/common/TestBatch.cls.xml (revision 0) +++ vhUnitTest/APPS/Halux/common/TestBatch.cls.xml (revision 995) @@ -0,0 +1,63 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.common.TestBatch") +1 +vhUnitTest.TestCase +62189,54784.93001 +0 + + +%Status + + + + +%Status + + + + + + + + + Index: vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml (.../TestBatchService.cls.xml) (revision 946) +++ vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml (.../TestBatchService.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.common.TestBatchService") 1 vhUnitTest.TestCase -62167,40965.716886 +62189,53939.421479 0 @@ -22,25 +22,48 @@ ]]> - + %Status + + + +0,"Er is een batch id verkregen") - Do $$$AssertEquals(Batch.GeefVroegsteDueOutTime(),$ZDT("62151,43200",3),"De due out time") - Do $$$AssertEquals(Batch.GeefProductieGroep(),##class(APPS.Halux.enu.ProductieGroep).Stuk(),"De productiegroep") + Do $$$AssertEquals(Batch.GeefProductieGroep(),##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),"De productiegroep") Set BatchID = Batch.GeefBatchID() Set Batch = "" + // Dezelfde toelevering nog eens in een batch proberen steken + + Set $ZTRAP = "Error" + Set Batch = BatchService.GeefNieuweBatch(Toeleveringen,##class(APPS.Halux.common.enu.ProductieLijn).Een()) + Goto Gelukt +Error + Set $ZTRAP = "" + Set Exceptie = ##class(TECH.ExceptionHandler).Catch() + Do $$$AssertTrue($IsObject(Exceptie),"Een exceptie werd aangemaakt") + Do $$$AssertEquals(Exceptie.%ClassName(),"MaakBatchException","De exceptie is van het type MaakBatchException") + Goto Verwijder +Gelukt + Do $$$AssertTrue(0,"De batch werd wel succesvol gemaakt, dit mag niet gebeuren") + + +Verwijder Do BatchService.VerwijderBatch(BatchID) Set Batch = BatchService.GeefBatch(BatchID) @@ -49,5 +72,5 @@ ]]> - + Index: zTryout/ARC/APPS/common/ServiceContext.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/common/ServiceContext.cls.xml (revision 0) +++ zTryout/ARC/APPS/common/ServiceContext.cls.xml (revision 995) @@ -0,0 +1,33 @@ + + + +1 +%RegisteredObject +62188,45201.286011 +0 + + +1 +ServiceContext + + + + +APPS.PM.ProductService + + + + +zTryout.ARC.APPS.VKP.OrderIngaveService + + + + + Index: WS/EC/UserServer.cls.xml =================================================================== diff -u -r734 -r995 --- WS/EC/UserServer.cls.xml (.../UserServer.cls.xml) (revision 734) +++ WS/EC/UserServer.cls.xml (.../UserServer.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + @@ -10,16 +10,10 @@ BL.EC.Common 1 WS.WebService -62105,51242.074223 +62180,48493.537285 60207,60267.626363 0 - - -URL for invoking the WebService. -http://cache02.vanhoecke.be/vhisie3 - - Name of the WebService. @@ -226,5 +220,5 @@ ]]> - + Index: vhUnitTest/WS/Web/OLParticulier/OrgaluxDotComLadeSelector.cls.xml =================================================================== diff -u -r915 -r995 --- vhUnitTest/WS/Web/OLParticulier/OrgaluxDotComLadeSelector.cls.xml (.../OrgaluxDotComLadeSelector.cls.xml) (revision 915) +++ vhUnitTest/WS/Web/OLParticulier/OrgaluxDotComLadeSelector.cls.xml (.../OrgaluxDotComLadeSelector.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + Commando om tests uit te voeren: Do ##class(vhUnitTest.Manager).RunTest(,"WS.Web.OLParticulier.OrgaluxDotComLadeSelector") 1 vhUnitTest.TestCase,TECH.Error.ErrorAdaptor -62158,51428.267336 +62179,28965.326056 0 @@ -245,14 +245,13 @@ @@ -274,13 +273,11 @@ Label,Options @@ -316,5 +313,5 @@ ]]> - + Index: vhUnitTest/DOM/PM/OL/Gamma/GetToepasssingen.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/PM/OL/Gamma/GetToepasssingen.cls.xml (.../GetToepasssingen.cls.xml) (revision 946) +++ vhUnitTest/DOM/PM/OL/Gamma/GetToepasssingen.cls.xml (.../GetToepasssingen.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + @@ -8,7 +8,7 @@ 1 vhUnitTest.TestCase -62069,42824.111028 +62181,39560.681887 0 @@ -203,7 +203,7 @@ Do $$$AssertEquals($LG($G(arKQW("LadeFamilie")),1),"TBX_plus_Reling_of_BXglas;Alle_TBX_geen_bevestigingen_nodig;NietBlumLade","KQW LadeFamilie") Do $$$AssertEquals($LG($G(arKQW("LadeType")),1),"D","KQW LadeTypes") ; "D;D/Z" Do $$$AssertEquals($LG($G(arKQW("KleurFilter")),1),"wit","KQW KleurFilter") - Do $$$AssertEquals($LG($G(arKQW("Diepte")),1),"50","KQW Diepte") + Do $$$AssertEquals($LG($G(arKQW("Diepte")),1),"500","KQW Diepte") Do $$$AssertEquals($LG($G(arKQW("ProductHoogte")),1),"188","KQW ProductHoogte") Do $$$AssertEquals($LI($G(arKQW("LadeFamilie")),2,99),$LB(0,""),"KQW LadeFamilie ...") @@ -301,5 +301,5 @@ ]]> - + Index: vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml (.../TestBuilders.cls.xml) (revision 946) +++ vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml (.../TestBuilders.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.OLM.TestBuilders") 1 vhUnitTest.TestCase -62173,31377.685969 +62179,54783.179807 0 @@ -85,5 +85,5 @@ ]]> - + Index: vhUnitTest/APPS/common/TestData.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/APPS/common/TestData.cls.xml (.../TestData.cls.xml) (revision 946) +++ vhUnitTest/APPS/common/TestData.cls.xml (.../TestData.cls.xml) (revision 995) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62172,31917.045843 +62180,28821.930546 0 @@ -20,6 +20,8 @@ set ^KOD(1000,"F",123491,102)="703000 \1000\10\\\10.00\0#\\100.00\100.00\703000 \L\\\110\100.00\KF0\\\\E1\EUR\\1\62196\\\\62178\\\\\\\\\\\\\\\\\1\\" set ^KOD(1000,"F",123491,103)="703000 \1002\20\\\10.00\0#\\200.00\200.00\703000 \L\\\120\200.00\KF0\\\\E1\EUR\\1\62178\\\\\\\\\\\\\\\\\\\\\1\\" + set ^KO1(123491,"F")=1000 + set ^KOD(1000,"F",123492,0)=104 set ^KOD(1000,"F",123492,1)="\21.03.11\testjcl\\\1000\DI1\3#1027#62171,48702\\\\\\\\\\EUR\\\60\\\DIV#62171,48702#123491\\\\\\\\\\\\\\\\\\\\\62171,48644" set ^KOD(1000,"F",123492,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" @@ -29,6 +31,8 @@ set ^KOD(1000,"F",123492,102)="703000 \1000\10\\\10.00\0#\\100.00\100.00\703000 \L\\\110\100.00\KF0\\\\E1\EUR\\1\62196\\\\62178\\\\\\\\\\\\\\\\\1\\" set ^KOD(1000,"F",123492,103)="703000 \1002\20\\\10.00\0#\\200.00\200.00\703000 \L\\\120\200.00\KF0\\\\E1\EUR\\1\62178\\\\\\\\\\\\\\\\\\\\\1\\" + set ^KO1(123492,"F")=1000 + set ^ORD("IP",1000,123491,100)=101 set ^ORD("IP",1000,123491,110)=102 set ^ORD("IP",1002,123491,120)=103 @@ -45,6 +49,8 @@ set ^KTO(5005,298217,101)="\1000\500\\\10\#0\\5000.00\5000.00\\L\1\\100\5000.00\KTRPL\\\\E\EUR\\\11/12\\\\\\\\\\\" set ^KTO(5005,298217,102)="\1000\250\\\10\#0\\2500.00\2500.00\\L\2\\200\2500.00\KTRPL\\\\E\EUR\\\11/15\\\\\\\\\\\" + set ^KTO1(298217)="5005\" + set ^TO("IP",1000,298217,100)=101 set ^TO("IP",1000,298217,200)=102 @@ -106,5 +112,5 @@ ]]> - + Index: vhUnitTest/APPS/PM/OL/TestKenmerkFormuleProcessor.cls.xml =================================================================== diff -u -r734 -r995 --- vhUnitTest/APPS/PM/OL/TestKenmerkFormuleProcessor.cls.xml (.../TestKenmerkFormuleProcessor.cls.xml) (revision 734) +++ vhUnitTest/APPS/PM/OL/TestKenmerkFormuleProcessor.cls.xml (.../TestKenmerkFormuleProcessor.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + Oproepen via @@ -8,7 +8,7 @@ APPS.PM.OL.Common 1 vhUnitTest.TestCase -61955,57519.117042 +62180,63815.446799 61947,62118.875095 0 @@ -121,12 +121,21 @@ Do ProdKM.Kenmerken.SetAt("", "ProductDiepte") Do ProdKM.Kenmerken.SetAt("", "ProductBreedte") Do ProdKM.Kenmerken.SetAt("", "ProductHoogte") + Do ProdKM.KenmerkFormules.SetAt("D-33" , "ProductDiepte") + Do ProdKM.KenmerkFormules.SetAt("B-(2*WD)-85" , "ProductBreedte") + ; Do ProdKM.KenmerkFormules.SetAt("" , "ProductHoogte") ; Niet invullen, want er wordt op leeg getest + Do ProdKM.Kenmerken.SetAt($LB("500"), "Diepte") + Do ProdKM.Kenmerken.SetAt( "700" , "LadeBreedteMin") + Do ProdKM.Kenmerken.SetAt($LB("16") , "WandDikte") + /* + // [WV OLKenm in mm] situation before mm : Do ProdKM.KenmerkFormules.SetAt("(D*10)-33" , "ProductDiepte") Do ProdKM.KenmerkFormules.SetAt("(B*10)-(2*WD)-85" , "ProductBreedte") - ; Do ProdKM.KenmerkFormules.SetAt("" , "ProductHoogte") ; Niet invullen, want op die manier te testen + ; Do ProdKM.KenmerkFormules.SetAt("" , "ProductHoogte") ; Niet invullen, want er wordt op leeg getest Do ProdKM.Kenmerken.SetAt($LB("50"), "Diepte") Do ProdKM.Kenmerken.SetAt( "70" , "LadeBreedteMin") Do ProdKM.Kenmerken.SetAt($LB("16"), "WandDikte") + */ Do KenmerkFormuleProcessor.EvalueerKenmerkFormules(ProdKM) @@ -166,5 +175,5 @@ ]]> - + Index: zTryout/JCL/Rel/Child.cls.xml =================================================================== diff -u --- zTryout/JCL/Rel/Child.cls.xml (revision 0) +++ zTryout/JCL/Rel/Child.cls.xml (revision 995) @@ -0,0 +1,41 @@ + + + +persistent +1 +%Persistent +62175,42924.117988 +0 + + +zTryout.JCL.Rel.Main +one +Child +1 + + + +Main + + + +%Library.CacheStorage +^zTryout.JCL.Rel.ChildD +ChildDefaultData +^zTryout.JCL.Rel.ChildD +^zTryout.JCL.Rel.ChildI +^zTryout.JCL.Rel.ChildS + +listnode + + +%%CLASSNAME + + +Main + + + + + + Index: zTryout/ARC/Client/TransportClient.cls.xml =================================================================== diff -u --- zTryout/ARC/Client/TransportClient.cls.xml (revision 0) +++ zTryout/ARC/Client/TransportClient.cls.xml (revision 995) @@ -0,0 +1,16 @@ + + + +1 +%RegisteredObject +62189,53234.403925 +0 + + +1 + + + + + Index: zTryout/JCL/Queries.cls.xml =================================================================== diff -u --- zTryout/JCL/Queries.cls.xml (revision 0) +++ zTryout/JCL/Queries.cls.xml (revision 995) @@ -0,0 +1,22 @@ + + + +1 +%RegisteredObject +62175,53393.694756 +0 + + +%SQLQuery +Kind:%Integer + + select count(1), sum(orderlijn.Aantal * AndereMoederKind.Aantal / KindVanGevraagdeMoeder.Aantal) + from DOM_PM_Bouwstenen.BouwsteenKind as KindVanGevraagdeMoeder + join zTryout_JCL_Mapping.BouwsteenKind as KindMetAndereMoeder on (KindMetAndereMoeder.KindProductNr = KindVanGevraagdeMoeder.KindProduct) + join zTryout_JCL_Mapping.WNode as orderLijn on (orderlijn.ProductNr = KindMetAndereMoeder.MoederProductNr) + join DOM_PM_Bouwstenen.Bouwsteen as AndereMoederKind on (KindMetAndereMoeder.MoederProductNr = AndereMoederKind.Moeder and KindMetAndereMoeder.KindBSKey = AndereMoederKind.BSKey) + where KindVanGevraagdeMoeder.Moeder = :Kind and KindVanGevraagdeMoeder.KindProduct is not null + + + + Index: Kenm/Basis/DataIndexWaardenIt.cls.xml =================================================================== diff -u --- Kenm/Basis/DataIndexWaardenIt.cls.xml (revision 0) +++ Kenm/Basis/DataIndexWaardenIt.cls.xml (revision 995) @@ -0,0 +1,66 @@ + + + +1 +TECH.Iterator,%RegisteredObject +62182,40353.773297 +0 + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +%String +1 + + + + +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 + + + + +Groep:%String,Kenmerk:%String +1 +1 +%Status + + + + + Index: zTryout/WV/PM/OL/ConvertKenmerkCMToMM.cls.xml =================================================================== diff -u --- zTryout/WV/PM/OL/ConvertKenmerkCMToMM.cls.xml (revision 0) +++ zTryout/WV/PM/OL/ConvertKenmerkCMToMM.cls.xml (revision 995) @@ -0,0 +1,53 @@ + + + +1 +%RegisteredObject +62181,66084.859917 +0 + + +1 +Listbuild:%List +%String + + + + +1 +pdlString:%String,Delim:%String +%String + + + + +Value:%String +1 + 200 { + // Zéér ruwe test om te vermijden dat reeds omgezette waarden nogmaals worden omgezet van cm naar mm. + // Redenering: Alles kleiner dan 200 staat voor OLKenmerken (breedtes, dieptes) in cm, alles groter dan 200 staat reeds in mm. + // Kenmerk Wanddikte niet converteren, want staat sowieso reeds in mm !!! + If $G(%ThrowError,1) { + Set $ECODE=",waarde is wellicht niet in CM "_Value + } + } + Else { + Set Value=$S(Value>0:Value*10,1:"") + } + Quit Value +]]> + + + + Index: WS/Web/OLParticulier/impl/Sessie2OLGammaContext.cls.xml =================================================================== diff -u -r913 -r995 --- WS/Web/OLParticulier/impl/Sessie2OLGammaContext.cls.xml (.../Sessie2OLGammaContext.cls.xml) (revision 913) +++ WS/Web/OLParticulier/impl/Sessie2OLGammaContext.cls.xml (.../Sessie2OLGammaContext.cls.xml) (revision 995) @@ -1,12 +1,12 @@ - + Conversie van Sesie gegevens naar Context voor OL.Gamma BL.Derde.KlantSpecifiek 1 DOM.PM.OL.Gamma.Context -62139,39785.553887 +62178,56491.158243 61944,51413.724252 0 @@ -15,7 +15,10 @@ Sessie:WS.Web.OLParticulier.dto.Sessie DOM.PM.OL.Gamma.Context - + Index: zTryout/ARC/DOM/MAG/enu/RotatieKlassificatie.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/MAG/enu/RotatieKlassificatie.cls.xml (revision 0) +++ zTryout/ARC/DOM/MAG/enu/RotatieKlassificatie.cls.xml (revision 995) @@ -0,0 +1,40 @@ + + + +datatype +1 +TECH.Enumeration +62189,59341.742942 +0 + + +,A,B,C + + + +1 +%String + + + + +1 +%String + + + + +1 +%String + + + + + Index: zTryout/ARC/DOM/PM/dto/GeschiktheidVoorLade.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/PM/dto/GeschiktheidVoorLade.cls.xml (revision 0) +++ zTryout/ARC/DOM/PM/dto/GeschiktheidVoorLade.cls.xml (revision 995) @@ -0,0 +1,28 @@ + + + +1 +%RegisteredObject +62178,48094.160203 +0 + + +DOM.PM.OL.Gamma.enu.Rughoogte +list + + + +%String +list + + + +%String + + + + + Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/DataSetTBXPlus.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/DataSetTBXPlus.cls.xml (.../DataSetTBXPlus.cls.xml) (revision 946) +++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/DataSetTBXPlus.cls.xml (.../DataSetTBXPlus.cls.xml) (revision 995) @@ -1,9 +1,9 @@ - + 1 vhUnitTest.DOM.PM.Maatwerk.HF.DataSet -62171,49097.775254 +62185,66074.791203 0 @@ -12,8 +12,6 @@ Gebruik de method VoegToeAanDataSet() om de IngegevenKenmerken toe te voegen aan de DataSet. 1 - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - - - - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - - - - -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken - - - - -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Key:%String="",Omschrijving:%String,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie="" -1 - - - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - - - - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - - - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer + +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer + + +Generieke methode om ingegevenkenmerken in te vullen met eender welke ladecode +LadeCode:%String,LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer + + +Temporary method. See in-line comments +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - - -LadeKleur:%String,HoutKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - - - + Index: zTryout/WV/PM/IK/TBXKenmerkenv01xxOLD.cls.xml =================================================================== diff -u --- zTryout/WV/PM/IK/TBXKenmerkenv01xxOLD.cls.xml (revision 0) +++ zTryout/WV/PM/IK/TBXKenmerkenv01xxOLD.cls.xml (revision 995) @@ -0,0 +1,121 @@ + + + +1 +%RegisteredObject +62185,65925.042578 +0 + + +%Integer + + + + +LadeKleur:%String="",BodemKleur:%String="",LadeDiepte:%Integer="",Draagkracht:%Integer="",InbouwBreedte:%Integer="" +1 +1 +%Status + + + + + + + + + + + + + + + + + Index: WS/Halux/Planning/Planningstool.cls.xml =================================================================== diff -u -r946 -r995 --- WS/Halux/Planning/Planningstool.cls.xml (.../Planningstool.cls.xml) (revision 946) +++ WS/Halux/Planning/Planningstool.cls.xml (.../Planningstool.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + TECH.Error 1 WS.WebService -62165,34452.075427 +62185,29623.478035 0 @@ -15,6 +15,14 @@ http://www.vanhoecke.be/ + +Van:%Date,Naar:APPS.Halux.Planning.dto.DataLijst,Toeleveringen:%ListOfDataTypes +APPS.Halux.Planning.dto.EvalueerVerplaatsingResultaat +1 + + + Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie TECH.XMLDataSet @@ -31,6 +39,14 @@ ]]> + +AantalWeken:%Integer,ToeleveringNummers:%ListOfDataTypes +APPS.Halux.Planning.dto.DueOutAlternatiefResultaat +1 + + + APPS.Halux.Planning.dto.ApplicatieInstellingen 1 @@ -54,10 +70,10 @@ -ToeleveringNummers:%ListOfDataTypes +Lijn:APPS.Halux.common.enu.ProductieLijn,ToeleveringNummers:%ListOfDataTypes APPS.Halux.Planning.dto.MaakBatchResultaat 1 - @@ -85,5 +101,5 @@ ]]> - + Index: TECH/Exceptions/RuntimeException.cls.xml =================================================================== diff -u --- TECH/Exceptions/RuntimeException.cls.xml (revision 0) +++ TECH/Exceptions/RuntimeException.cls.xml (revision 995) @@ -0,0 +1,50 @@ + + + +1 +%RegisteredObject,TECH.IException +62179,41714.798726 +0 + + +%String +1 + + + +%String +1 + + + +ECode:%String,ZError:%String +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + Index: vhUnitTest/APPS/HR/ProTime/TestFacade.cls.xml =================================================================== diff -u -r966 -r995 --- vhUnitTest/APPS/HR/ProTime/TestFacade.cls.xml (.../TestFacade.cls.xml) (revision 966) +++ vhUnitTest/APPS/HR/ProTime/TestFacade.cls.xml (.../TestFacade.cls.xml) (revision 995) @@ -1,18 +1,23 @@ - + do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.HR.ProTime.TestFacade") 1 vhUnitTest.TestCase -62174,60375.714519 +62185,38430.784833 0 %Integer 1 + +%ListOfDataTypes +1 + + Eerst volgend klantnummer bijhouden @@ -22,6 +27,8 @@ if scSuper { Set ..NieuwKlantNummer = $Get(^DIN("K","KL")) } + + Set ..GebruikteKlantNummers = ##class(%ListOfDataTypes).%New() quit scSuper ]]> @@ -47,6 +54,10 @@ Kill ^KK1(KlantNummer) } } + For i=1:1:..GebruikteKlantNummers.Count() { + Kill ^PERS("K",..GebruikteKlantNummers.GetAt(i)) + } + Set ^DIN("K","KL") = ..NieuwKlantNummer Quit ##super() ]]> @@ -58,37 +69,54 @@ Bij deze medewerkers is het de 'initiële' import zogezegd. @@ -99,10 +127,9 @@ - + Index: zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml =================================================================== diff -u --- zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml (revision 0) +++ zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml (revision 995) @@ -0,0 +1,98 @@ + + + + +Toegang tot een global node. + +Zal uitgebreid moeten worden met kunnen opvragen van de dirty pieces (en hun vorige waarde). +Dit opdat de gebruiker weet of en welke indexen te wijzigen. +zTryout.ARC.TECH.Persistentie.GlobalUtils +1 +%RegisteredObject +62188,62495.7692 +0 + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +%Boolean +1 + + + +%String +array +1 + + + +Index:%Integer +%String + + + + +Index:%Integer,Waarde:%String + + + + + + + + +GlobalNaam:%String,Subscripts:%ListOfDataTypes,Delimiter:%String +%Status + + + + + + + + + Index: vhUnitTest/DOM/PM/TestData.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/PM/TestData.cls.xml (.../TestData.cls.xml) (revision 946) +++ vhUnitTest/DOM/PM/TestData.cls.xml (.../TestData.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + vhLib.Macro,vhUnitTest.DOM.PM.OL.Gamma 1 %RegisteredObject -62171,50191.499508 +62181,37439.101997 0 @@ -158,9 +158,9 @@ Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(50,55),"Diepte") - Do $$$ProdKenmSetAt("40","LadeBreedteMin") - Do $$$ProdKenmSetAt("50","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(500,550),"Diepte") + Do $$$ProdKenmSetAt("400","LadeBreedteMin") + Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("wit","Kleur") @@ -184,9 +184,9 @@ Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(50,55),"Diepte") - Do $$$ProdKenmSetAt("40","LadeBreedteMin") - Do $$$ProdKenmSetAt("50","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(500,550),"Diepte") + Do $$$ProdKenmSetAt("400","LadeBreedteMin") + Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("inox","Kleur") @@ -208,9 +208,9 @@ Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("C","D"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60,65),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("120","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600,650),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("1200","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") } @@ -227,9 +227,9 @@ Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("50","ProductHoogte") } @@ -246,9 +246,9 @@ Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("70","ProductHoogte") } @@ -265,9 +265,9 @@ Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") } @@ -287,9 +287,9 @@ Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") } @@ -308,9 +308,9 @@ Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") } @@ -330,9 +330,9 @@ Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") @@ -352,9 +352,9 @@ Do $$$ProdKenmSetAt($LB("TBX_plus_Boxside_Ew_of_Dw"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("10","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") @@ -374,9 +374,9 @@ Do $$$ProdKenmSetAt($LB("TBX_antaro_Reling"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("10","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") @@ -399,9 +399,9 @@ Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(50,55),"Diepte") - Do $$$ProdKenmSetAt("40","LadeBreedteMin") - Do $$$ProdKenmSetAt("50","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(500,550),"Diepte") + Do $$$ProdKenmSetAt("400","LadeBreedteMin") + Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("wit","Kleur") @@ -425,9 +425,9 @@ Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(50,55),"Diepte") - Do $$$ProdKenmSetAt("40","LadeBreedteMin") - Do $$$ProdKenmSetAt("50","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(500,550),"Diepte") + Do $$$ProdKenmSetAt("400","LadeBreedteMin") + Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("inox","Kleur") @@ -451,9 +451,9 @@ Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("50","ProductHoogte") ; Do $$$ProdKenmSetAt("grijs","Kleur") @@ -491,9 +491,9 @@ Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("50","ProductHoogte") ; Do $$$ProdKenmSetAt("grijs","Kleur") @@ -516,9 +516,9 @@ Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(50,55),"Diepte") - Do $$$ProdKenmSetAt("40","LadeBreedteMin") - Do $$$ProdKenmSetAt("50","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(500,550),"Diepte") + Do $$$ProdKenmSetAt("400","LadeBreedteMin") + Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("wit","Kleur") @@ -542,9 +542,9 @@ Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; - Do $$$ProdKenmSetAt($LB(50,55),"Diepte") - Do $$$ProdKenmSetAt("40","LadeBreedteMin") - Do $$$ProdKenmSetAt("50","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(500,550),"Diepte") + Do $$$ProdKenmSetAt("400","LadeBreedteMin") + Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("inox","Kleur") @@ -569,9 +569,9 @@ Do $$$ProdKenmSetAt($LB("D","D/Z","M","M/Z"),"LadeType") Do $$$ProdKenmSetAt($LB("ASM_Rood"),"Kleur") - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") Set UnID = "1099.2" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) @@ -587,15 +587,14 @@ Do $$$ProdKenmSetAt($LB("D","D/Z","M","M/Z"),"LadeType") Do $$$ProdKenmSetAt($LB("ASM_Zwart"),"Kleur") ; - Do $$$ProdKenmSetAt($LB(60),"Diepte") - Do $$$ProdKenmSetAt("90","LadeBreedteMin") - Do $$$ProdKenmSetAt("90","LadeBreedteMax") - + Do $$$ProdKenmSetAt($LB(600),"Diepte") + Do $$$ProdKenmSetAt("900","LadeBreedteMin") + Do $$$ProdKenmSetAt("900","LadeBreedteMax") } Quit ]]> - + Index: WS/EC/DataServer.cls.xml =================================================================== diff -u -r734 -r995 --- WS/EC/DataServer.cls.xml (.../DataServer.cls.xml) (revision 734) +++ WS/EC/DataServer.cls.xml (.../DataServer.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + VHISIE - ECommerce @@ -22,16 +22,10 @@ BL.EC.Common 1 %SOAP.WebService -61016,33789.561278 +62180,48374.603777 60207,60267.573611 0 - - -URL for invoking the WebService. -http://cache02.vanhoecke.be/vhisie3 - - Name of the WebService. @@ -349,5 +343,5 @@ ]]> - + Index: zTryout/JCL/Mapping/BouwsteenKind.cls.xml =================================================================== diff -u --- zTryout/JCL/Mapping/BouwsteenKind.cls.xml (revision 0) +++ zTryout/JCL/Mapping/BouwsteenKind.cls.xml (revision 995) @@ -0,0 +1,124 @@ + + + +persistent +1 +VHOpslag +%Persistent +62178,53753.976483 +0 + + +13958 + + + +%String + + + +%String + + + +%Float + + + +%String + + + + +%Integer + + + +%String + + + +%String + + + +%String + + + +1 +1 +Moeder,BSKey +1 + + + +%CacheSQLStorage +^Prod.BouwstenenS + +16.6667% + + +8.3333% + + +49.9999% + + +0.0240% + + +99.9995% + + +99.9995% + + +99.9995% + + +20.0000% + + +data +^PRBS + +"BS" + + +{Moeder} + + +{BSKey} +"KIND" +"KINDz" + + +"\" +2 + + +"\" +11 + + +"\" +13 + + +"\" +10 + + +"\" +17 + + +"\" +3 + + + + + + Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 946) +++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 995) @@ -1,12 +1,12 @@ - + JBL + 2011-02-28 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.TestKenmerkenService") 1 vhUnitTest.TestCase,TECH.Error.ErrorAdaptor -62172,43580.458944 +62188,58810.943384 62159,61432.841501 0 @@ -103,12 +103,21 @@ Set KenmerkMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).Items - Do $$$AssertEquals(KenmerkMetadata.Count(),50,"Correct aantal kenmerken (#50)") + Do $$$AssertEquals(KenmerkMetadata.Count(),51,"Correct aantal kenmerken (#51)") Set EenKenmerkMetadata = KenmerkMetadata.GetAt(1) Do $$$AssertEquals(EenKenmerkMetadata.Naam,"ProductType","Kenmerknaam is correct ingevuld.") Do $$$AssertEquals(EenKenmerkMetadata.Multipliciteit.Minimum,0,"Multipliciteit minimum correct ingevuld.") Do $$$AssertEquals(EenKenmerkMetadata.Multipliciteit.Maximum,3,"Multipliciteit maximum correct ingevuld.") + + Set KenmerkMetadataIt = ##class(TECH.ListIterator).%New(KenmerkMetadata) + While(KenmerkMetadataIt.HasNext()){ + Set KenmerkMeta = KenmerkMetadataIt.Next() + If (KenmerkMeta.Naam = "BOWeten"){ + Do $$$AssertEquals(KenmerkMeta.Mogelijkheden.Count(),42,"Aantal mogelijkheden voor BOWeten is correct.") + Do $$$AssertTrue(KenmerkMeta.Mogelijkheden.Find("TIPS_Brooddoos_zonder_toebehoor") '= "","Tip 'TIPS_Brooddoos_zonder_toebehoor' is gevonden als mogelijkheid bij BOWeten") + } + } ]]> @@ -240,5 +249,5 @@ ]]> - + Index: zTryout/ARC/APPS/PM/dto/FysiekProduct.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/PM/dto/FysiekProduct.cls.xml (revision 0) +++ zTryout/ARC/APPS/PM/dto/FysiekProduct.cls.xml (revision 995) @@ -0,0 +1,18 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62188,44632.521947 +0 + + +%Float + + + +zTryout.ARC.APPS.common.dto.Afmeting3D + + + + Index: vhUnitTest/DOM/LEV/TestToelevering.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/LEV/TestToelevering.cls.xml (.../TestToelevering.cls.xml) (revision 946) +++ vhUnitTest/DOM/LEV/TestToelevering.cls.xml (.../TestToelevering.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.LEV.TestToelevering") 1 vhUnitTest.TestCase -62168,59334.126581 +62174,42649.807569 0 @@ -28,6 +28,9 @@ Set ^KTO(6332,298104,4)=3 Set ^KTO(6332,298104,101)="\614305\1\\\46.16\#\\46.16\46.16\\L\1\\100\46.16\KTRPL\\\\E\EUR\\\11/11\\123346\101\\\\\\\\" Set ^KTO(6332,298104,102)="\620939\1\\\37.42\#\\37.42\37.42\\L\2\\200\37.42\KTRPL\\\\E\EUR\\\11/11\\123346\102\\\\\\\\" + + Set ^HADPR("F","298104;100","K") = "33\62038,59594\\\\\\\\\\" + Set ^HADPR("F","298104;100","F") = "33\62094,58737\A\\\\\\\\\" Quit $$$OK ]]> @@ -87,7 +90,9 @@ Set ToeleveringLijn = Toelevering.GeefToeleveringLijn(101) Do $$$AssertTrue($IsObject(ToeleveringLijn),"De toeleveringlijn werd gevonden") - Do $$$AssertTrue($IsObject(ToeleveringLijn.GeefOrderlijn()),"De bijhorende orderlijn werd gevonden") + Do $$$AssertTrue($IsObject(ToeleveringLijn.GeefOrderLijn()),"De bijhorende orderlijn werd gevonden") + Do $$$AssertEquals(ToeleveringLijn.GeefUniekLijnNr(),100,"Het unieke lijn nummer") + Do $$$AssertFalse(ToeleveringLijn.HeeftFysiekStockProbleem(),"Het product heeft een fysiek stockprobleem") ]]> @@ -100,5 +105,5 @@ ]]> - + Index: vhUnitTest/TECH/Files.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/TECH/Files.cls.xml (.../Files.cls.xml) (revision 946) +++ vhUnitTest/TECH/Files.cls.xml (.../Files.cls.xml) (revision 995) @@ -1,9 +1,9 @@ - + 1 vhUnitTest.TestCase -62164,51205.100834 +62189,50549.371098 0 @@ -14,8 +14,12 @@ do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test","\test.txt"),"c:\test\test.txt","") do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test\","\test.txt"),"c:\test\test.txt","") do $$$AssertEquals(##class(TECH.Files).AppendFile("c:\test","test.txt"),"c:\test\test.txt","") + do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be","test.html"),"http://www.google.be/test.html") + do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be","/test.html"),"http://www.google.be/test.html") + do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be/","/test.html"),"http://www.google.be/test.html") + do $$$AssertEquals(##class(TECH.Files).AppendFile("http://www.google.be/","test.html"),"http://www.google.be/test.html") ]]> - + Index: TECH/Math.cls.xml =================================================================== diff -u -r924 -r995 --- TECH/Math.cls.xml (.../Math.cls.xml) (revision 924) +++ TECH/Math.cls.xml (.../Math.cls.xml) (revision 995) @@ -1,27 +1,32 @@ - + 1 %RegisteredObject -62152,34473.050744 +62182,43397.627968 0 + +1 +Getal:%Float +%Float + + + 1 Getal:%Float %Integer - 0)) Set Getal = $Piece(Getal,".") + 1 - Quit Getal + 1 Getal:%Float %Integer - @@ -44,5 +49,5 @@ ]]> - + Index: zTryout/ARC/DOM/PM/ProductAPI.cls.xml =================================================================== diff -u -r734 -r995 --- zTryout/ARC/DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 734) +++ zTryout/ARC/DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 995) @@ -1,10 +1,11 @@ - + 1 -zTryout.ARC.DOM.PM.impl.DataM +zTryout.ARC.DOM.PM.impl.DataM,zTryout.ARC.DOM.PM.dto 1 -61823,62758.260026 +62181,44193.965863 +0 Nr:%Integer @@ -15,6 +16,16 @@ Nr:%Integer ProductClassificatie + + +PRNr:%Integer +ProductGeschiktheid + + + +PRNr:%Integer +zTryout.ARC.DOM.PM.FysiekProduct + - + Index: vhUnitTest/DOM/OV/TestBon.cls.xml =================================================================== diff -u -r915 -r995 --- vhUnitTest/DOM/OV/TestBon.cls.xml (.../TestBon.cls.xml) (revision 915) +++ vhUnitTest/DOM/OV/TestBon.cls.xml (.../TestBon.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestBon") 1 vhUnitTest.TestCase -62154,28962.399797 +62173,56288.159448 0 @@ -18,7 +18,7 @@ Set Bon = OrderAPI.GeefBon(BonNr) Do $$$AssertTrue(Bon.%Extends("DOM.OV.Bon"),"Het object is een bon") - Set BonlijnIterator = Bon.GeefBonlijnIterator() + Set BonlijnIterator = Bon.GeefBonLijnIterator() Do $$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn") Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn") @@ -36,11 +36,11 @@ Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn") Do $$$AssertFalse(BonlijnIterator.HasNext(),"De bon bevat geen volgende lijn") - Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Tekst()) + Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonLijnType).Tekst()) Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertFalse(TypedBonIterator.HasNext(),"De bon bevat geen tekstlijnen") ]]> - + Index: TECH/DateTime.cls.xml =================================================================== diff -u -r946 -r995 --- TECH/DateTime.cls.xml (.../DateTime.cls.xml) (revision 946) +++ TECH/DateTime.cls.xml (.../DateTime.cls.xml) (revision 995) @@ -1,16 +1,16 @@ - + 1 %RegisteredObject -62168,52814.245941 +62185,59291.968705 0 1 -Horologe:%String +Horolog:%String %Integer - @@ -22,6 +22,22 @@ ]]> + +1 +Timestamp:%TimeStamp +%Date + + + + +1 +Horolog1:%String,Horolog2:%String +%Boolean + ..HorologToSeconds(Horolog2) +]]> + + 1 %Date @@ -42,6 +58,14 @@ + + +1 +DatePart:TECH.enu.DatePart,Timestamp1:%TimeStamp,Timestamp2:%TimeStamp +%Integer + + - + Index: TECH/enu/ExceptionCode.cls.xml =================================================================== diff -u --- TECH/enu/ExceptionCode.cls.xml (revision 0) +++ TECH/enu/ExceptionCode.cls.xml (revision 995) @@ -0,0 +1,119 @@ + + + +1 +%RegisteredObject +62178,53112.037842 +0 + + +;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;3000:ObjectValidationFailed;3001:SaveFailed;5000:UserError + + + +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: zTryout/WV/PM/IK/TBXKenmerkenv01.cls.xml =================================================================== diff -u -r946 -r995 --- zTryout/WV/PM/IK/TBXKenmerkenv01.cls.xml (.../TBXKenmerkenv01.cls.xml) (revision 946) +++ zTryout/WV/PM/IK/TBXKenmerkenv01.cls.xml (.../TBXKenmerkenv01.cls.xml) (revision 995) @@ -1,107 +1,17 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken -62167,53262.552669 +62185,66001.868341 0 %Integer - - -LadeKleur:%String="",BodemKleur:%String="",LadeDiepte:%Integer="",Draagkracht:%Integer="",InbouwBreedte:%Integer="" -1 -1 -%Status - - - - - - - - -LadeKleur:%String - - - - -BodemKleur:%String - - - - - - - - -%Library.CacheStorage - - + Index: zTryout/ARC/DOM/MAG/enu/Cyclecounttype.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/MAG/enu/Cyclecounttype.cls.xml (revision 0) +++ zTryout/ARC/DOM/MAG/enu/Cyclecounttype.cls.xml (revision 995) @@ -0,0 +1,55 @@ + + + +datatype +1 +TECH.Enumeration +62189,59663.192805 +0 + + +,0,1,2,3,4 + + + +1 +%String + + + + +1 +%String + + + + +1 +%String + + + + + + + + +1 +%String + + + + +1 +%String + + + + + Index: UI/PR/Kenm/MainForm.cls.xml =================================================================== diff -u -r937 -r995 --- UI/PR/Kenm/MainForm.cls.xml (.../MainForm.cls.xml) (revision 937) +++ UI/PR/Kenm/MainForm.cls.xml (.../MainForm.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + serial ProdCataloogCNTs,ReportErrorCNTs,KeyCodesCNTs,%VHMacro,APPS.PM.OL.Common Default %Library.TMFormClass -62161,35971.128647 +62174,38680.896207 62003,35122 0 @@ -1166,7 +1166,6 @@ //kiMultipleDispl: maximum aantal zichtbare waarden New MultipleDisplay Set MultipleDisplay=RS.Get("MultipleDisplay") - Do WLIP^vhDBG(127,RS) Set Local(RS.Get("Kenmerk"))=$LB(Multiple,MultipleMax,MultipleDisplay) Quit @@ -4558,5 +4557,5 @@ - + Index: Tools/MoveClass.cls.xml =================================================================== diff -u -r946 -r995 --- Tools/MoveClass.cls.xml (.../MoveClass.cls.xml) (revision 946) +++ Tools/MoveClass.cls.xml (.../MoveClass.cls.xml) (revision 995) @@ -1,9 +1,9 @@ - + 1 TECH.ClassInfo.QNameFinder -62168,50420.352489 +62173,52653.691863 62161,32256.917774 0 @@ -232,6 +232,8 @@ If (Result '= "") w $J(" ",6)_"Fout: "_ClassFrom_" bestaat niet!",! } } + + w !!,"GELIEVE EEN NIEUWE TERMINAL TE OPENEN VOOR DE VOLGENDE MOVE CLASS!" ]]> @@ -279,5 +281,5 @@ ]]> - + Index: TECH/Error/impl/ErrorHandler.cls.xml =================================================================== diff -u -r946 -r995 --- TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 946) +++ TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + Deze class doet de eigenlijke error afhandeling. @@ -8,7 +8,7 @@ TECH.Error 1 %RegisteredObject -62172,56692.637432 +62178,56193.223779 62025,48050.831801 0 @@ -43,12 +43,23 @@ Set Error=##class(TECH.Error.dto.ErrorInfo).%New() Set Error.Label=$G(Label) Set Error.ErrorCode=$ZERROR - Set:Error.ErrorCode["" 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) + + if ( Error.ErrorCode["TECH.ExceptionHandler") && ($data(%Exception)) && ($isObject(%Exception) ) { + Set Error.StackTrace=..StackTrace(5) + set Error.ErrorCode = $piece(Error.StackTrace," ",6) + Set Error.ErrorCode2="`"_%Exception.GeefExceptionCode()_"`"_%Exception.GeefOmschrijving()_"`" + } + else { + if Error.ErrorCode["" { set Error.ErrorCode2=$ECODE } + Set Error.StackTrace=..StackTrace(3) + Set Error.ErrorCode=$ZERROR + } + Set Error.Device=$I Set Error.Job=$J Set Error.Server=$ZU(110) @@ -95,17 +106,10 @@ @@ -128,11 +132,20 @@ do Body.WriteLine("TrapHandler: "_Error.TrapHandler) do Body.WriteLine("Stack: "_Error.StackTrace) do Body.WriteLine() + + if $data(%Exception) && $IsObject(%Exception) { + do Body.WriteLine("ErrorObjectInfo :") + do Body.WriteLine(%Exception.ToString()) + do Body.WriteLine() + } + do Body.WriteLine("RemoteIP: "_Error.RemoteIP) do Body.WriteLine() do Body.WriteLine("Device: "_Error.Device_" Job: "_Error.Job) do Body.WriteLine("Server: "_Error.Server_" NameSpace: "_Error.NameSpace) do Body.WriteLine() + + do Body.WriteLine("Variabelen : ") /** / @@ -201,5 +214,5 @@ ]]> - + Index: zTryout/WV/PM/IK/TBXKenmConstructor.cls.xml =================================================================== diff -u --- zTryout/WV/PM/IK/TBXKenmConstructor.cls.xml (revision 0) +++ zTryout/WV/PM/IK/TBXKenmConstructor.cls.xml (revision 995) @@ -0,0 +1,425 @@ + + + +1 +1 +62185,56493.843463 +0 + + + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + + + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + + Index: WS/Web/OLParticulier/impl/FoutieveSessieException.cls.xml =================================================================== diff -u --- WS/Web/OLParticulier/impl/FoutieveSessieException.cls.xml (revision 0) +++ WS/Web/OLParticulier/impl/FoutieveSessieException.cls.xml (revision 995) @@ -0,0 +1,50 @@ + + + +1 +%RegisteredObject,TECH.IException +62178,54170.745258 +0 + + +%String +1 + + + +WS.Web.OLParticulier.dto.Sessie +1 + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + +Omschrijving:%String,Sessie:WS.Web.OLParticulier.dto.Sessie +1 +1 +%Status + + + + + Index: vhUnitTest/APPS/PM/TestProductService.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/APPS/PM/TestProductService.cls.xml (.../TestProductService.cls.xml) (revision 946) +++ vhUnitTest/APPS/PM/TestProductService.cls.xml (.../TestProductService.cls.xml) (revision 995) @@ -1,16 +1,18 @@ - + + +Do ##class(vhUnitTest.Manager).RunTest("","APPS.PM.TestProductService") 1 vhUnitTest.TestCase -62165,38576.334646 +62188,43172.836947 62159,61432.98957 0 %Status - + Multiple @@ -61,13 +63,10 @@ + + 0,"Een leverancier heeft producten.") +]]> + + + + + + + + + + + + + + + + + + + + +Test die nagaat of opgegeven PRNrs bestaan voor de opgegeven leverancier. + + + + + +Testen of de productafbeeldingen meekomen bij een productzoek + + + + + +Testen of de productafbeeldingen meekomen bij een productzoek + + + + + +Testen of de productafbeeldingen meekomen bij een productzoek + + + + +HerkendeProducten:%ListOfObjects +1 + + + Classificatie:DOM.PM.Classificatie,Groep:%String 1 @@ -208,5 +425,5 @@ ]]> - + Index: zTryout/ARC/TECH/Persistentie/GlobalPersistenceMgr.cls.xml =================================================================== diff -u --- zTryout/ARC/TECH/Persistentie/GlobalPersistenceMgr.cls.xml (revision 0) +++ zTryout/ARC/TECH/Persistentie/GlobalPersistenceMgr.cls.xml (revision 995) @@ -0,0 +1,126 @@ + + + + +Toegang tot nodes. + +De OperatieScope klasse moet deze starten en stoppen, +zodat een operatie altijd dezelfde GlobalNode object krijgt, voor eenzelfde effectieve node. + +Indien buiten een OperatieScope, moet de gebruiker zelf zorgen dat die zijn eigen wijzigingen +niet overschrijft. + +Moet nog transactioneel gemaakt worden. +1 +%RegisteredObject +62188,61815.183898 +0 + + +GlobalNode +array +1 + + + +GlobalPersistenceMgr +1 + + + + + + + +1 +GlobalPersistenceMgr + + + + + + + + +1 + + + + + + + + +1 + + + + + + + + +GlobalNaam:%String,Delimiter:%String,Subscripts:%ListOfDataTypes +GlobalNode + + + + + + + + +GlobalNaam:%String,Delimiter:%String,Subscript1:%String,Subscript2:%String,Subscript3:%String,Subscript4:%String,Subscript5:%String,Subscript6:%String +GlobalNode + + + + + Index: WS/Derde/Agenda/AgendaServer.cls.xml =================================================================== diff -u -r913 -r995 --- WS/Derde/Agenda/AgendaServer.cls.xml (.../AgendaServer.cls.xml) (revision 913) +++ WS/Derde/Agenda/AgendaServer.cls.xml (.../AgendaServer.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + BL.EC.Common 1 %SOAP.WebService -62145,31480.447439 +62178,39976.158415 59771,30227.507488 0 @@ -202,6 +202,22 @@ ]]> + +1 +SessionKey,UserID:%Integer,Datum:%String,SubID:%String +BL.Derde.Agenda.pxAgenda +1 + + + 1 SessionKey,UserID:%Integer,Datum:%String,SubID:%String @@ -653,5 +669,5 @@ ]]> - + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmIntivo.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: zTryout/ARC/TECH/Persistentie/GlobalUtils.cls.xml =================================================================== diff -u --- zTryout/ARC/TECH/Persistentie/GlobalUtils.cls.xml (revision 0) +++ zTryout/ARC/TECH/Persistentie/GlobalUtils.cls.xml (revision 995) @@ -0,0 +1,46 @@ + + + +1 +%RegisteredObject +62188,59844.974667 +0 + + + + + + +1 +GlobalNaam:%String,Subscripts:%ListOfDataTypes + + + + +1 +String:%String +1 + + + + + Index: zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml (revision 0) +++ zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml (revision 995) @@ -0,0 +1,126 @@ + + + +zTryout.ARC.APPS.VKP.dto,zTryout.ARC.DOM.PM.impl.DataM,zTryout.ARC.APPS.common,zTryout.ARC.APP +1 +%RegisteredObject +62189,56471.737263 +0 + + +PRNr:%Integer,KlantNr:%Integer,Aantal:%Integer +ProductVerkoopInfo + + + + +OrderNr:%Integer,PRNr:%Integer,Aantal:%Integer + + + + +OrderNr:%Integer +OrderTransportData + + + + +Adres:DOM.common.Adres +1 +zTryout.ARC.APPS.common.dto.Adres + + + + +Order:DOM.OV.Order +1 +%Float + + + + +Order:DOM.OV.Order +1 +%Integer + + + + + Index: zTryout/ARC/DOM/common/fysiek/Gewicht.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/common/fysiek/Gewicht.cls.xml (revision 0) +++ zTryout/ARC/DOM/common/fysiek/Gewicht.cls.xml (revision 995) @@ -0,0 +1,65 @@ + + + +1 +%RegisteredObject +62189,55885.732432 +0 + + +%Float +1 + + + +1 +KgPerDuizend:%Float + + + + +GramPerStuk:%Float + + + + + + + + + + + + + + + + + + + + +Aantal:%Integer +%Float + + + + + + + + + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmAntaro.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 995 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/DataMProductOrderLijnIterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: Prod/Kenmerk/DataDefinitie.cls.xml =================================================================== diff -u -r946 -r995 --- Prod/Kenmerk/DataDefinitie.cls.xml (.../DataDefinitie.cls.xml) (revision 946) +++ Prod/Kenmerk/DataDefinitie.cls.xml (.../DataDefinitie.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + Vaste leggen van de kenmerken per product. @@ -11,7 +11,7 @@ %VHMacro 1 TECH.Concurrency.VhPersistent -62171,38491.789967 +62188,56950.044173 59232,54592 0 @@ -685,6 +685,18 @@ ]]> + + +JBL + 2011-04-07 +Method om alle ingevulde waarden van een Definitie op te halen +%Library.SQLQuery +Groep:%String,Kenmerk:%String + SELECT DISTINCT Waarden + FROM Prod_Kenmerk.DataDefinitie + where Kenmerk = :Groep||"||"||:Kenmerk + ORDER BY Waarden + + %Library.CacheStorage ^Prod.Ken.DataDefinitieD @@ -716,5 +728,5 @@ - + Index: zTryout/ARC/DOM/PM/impl/DataM/DataMProductAPI.cls.xml =================================================================== diff -u -r734 -r995 --- zTryout/ARC/DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 734) +++ zTryout/ARC/DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 995) @@ -1,10 +1,11 @@ - + -zTryout.ARC.DOM.PM +zTryout.ARC.DOM.PM.impl.DataM,zTryout.ARC.DOM.PM,zTryout.ARC.DOM.PM.dto,DOM.PM.OL.Gamma.enu 1 ProductAPI,%RegisteredObject -61828,52802.553095 +62181,44323.173018 +0 Nr:%Integer @@ -19,6 +20,27 @@ + + +PRNr:%Integer +ProductGeschiktheid + + + + +PRNr:%Integer +zTryout.ARC.DOM.PM.impl.DataM.FysiekProduct + + - + Index: Prod/Kenmerk/DataIndex.cls.xml =================================================================== diff -u -r910 -r995 --- Prod/Kenmerk/DataIndex.cls.xml (.../DataIndex.cls.xml) (revision 910) +++ Prod/Kenmerk/DataIndex.cls.xml (.../DataIndex.cls.xml) (revision 995) @@ -1,12 +1,12 @@ - + Opbouw van de index van de DataDefinitie, om deze index ook door SQL toegankelijk te maken is dit in een apart object opgeslagen. Bij de DataDefinitie opbject zitten de waarden van een kenmerk een product in een lijst. In dit index object zit alle waarden separaat. persistent %Library.Persistent -62136,67187.19289 +62182,35267.903665 59612,49806.369104 0 @@ -45,6 +45,7 @@ %Library.String 0 + @@ -381,5 +382,5 @@ - + Index: zTryout/ARC/DOM/PM/FysiekProduct.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/PM/FysiekProduct.cls.xml (revision 0) +++ zTryout/ARC/DOM/PM/FysiekProduct.cls.xml (revision 995) @@ -0,0 +1,19 @@ + + + +1 +zTryout.ARC.DOM.common.fysiek +1 +62188,43898.784073 +0 + + +Gewicht + + + +Afmeting3D + + + + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmSpoelbakLade.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: zTryout/ARC/APPS/common/dto/Adres.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/common/dto/Adres.cls.xml (revision 0) +++ zTryout/ARC/APPS/common/dto/Adres.cls.xml (revision 995) @@ -0,0 +1,38 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62189,53578.364894 +0 + + +%String + + + +%String + + + +%String + + + +%String + + + +%String + + + +%String + + + +%String + + + + Index: zTryout/ARC/APPS/VKP/dto/ProductVerkoopInfo.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/VKP/dto/ProductVerkoopInfo.cls.xml (revision 0) +++ zTryout/ARC/APPS/VKP/dto/ProductVerkoopInfo.cls.xml (revision 995) @@ -0,0 +1,43 @@ + + + +1 +%RegisteredObject +62178,47855.779792 +0 + + +%Integer + + + +%TimeStamp +list + + + +%Float + + + +%Integer + + + +zTryout.ARC.DOM.PM.dto.ProductGeschiktheid + + + + + + + +%String +list + + + + Index: zTryout/ARC/APPS/common/LeverTermijnService.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/common/LeverTermijnService.cls.xml (revision 0) +++ zTryout/ARC/APPS/common/LeverTermijnService.cls.xml (revision 995) @@ -0,0 +1,47 @@ + + + + +LeverTermijn berekening zit voor een grootste stuk in de crossdomain laag. +DOM.VKP +1 +%RegisteredObject +62178,53546.08491 +0 + + + +Geeft de normale levertermijn +@Return het aantal arbeidsdagen. +PRNr:%Integer,KlantNr:%Integer +%Integer + + + + + +Geeft de eerstvolgende mogelijke leverdagen. +@Return list of $H-formaat. +PRNr:%Integer,KlantNr:%Integer +%ListOfDataTypes + + + + + Index: zTryout/ARC/APPS/common/ProductService.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/common/ProductService.cls.xml (revision 0) +++ zTryout/ARC/APPS/common/ProductService.cls.xml (revision 995) @@ -0,0 +1,37 @@ + + + +DOM.PM.Maatwerk.Calc.Common,DOM.VKP.info +1 +%RegisteredObject +62175,61979.943394 +0 + + +PRNr:%Integer,KlantNr:%Integer,Aantal:%Integer +%Float + + + + + Index: zTryout/ARC/DOM/MAG/MagazijnAPI.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/MAG/MagazijnAPI.cls.xml (revision 0) +++ zTryout/ARC/DOM/MAG/MagazijnAPI.cls.xml (revision 995) @@ -0,0 +1,17 @@ + + + +1 +%RegisteredObject +62189,60736.043869 +0 + + +PRNr:%String +zTryout.ARC.DOM.MAG.StockeerbaarProduct + + + + + Index: TECH/Exceptions/BaseException.cls.xml =================================================================== diff -u --- TECH/Exceptions/BaseException.cls.xml (revision 0) +++ TECH/Exceptions/BaseException.cls.xml (revision 995) @@ -0,0 +1,52 @@ + + + +1 +%RegisteredObject,TECH.IException +62178,53672.68286 +0 + + +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: vhUnitTest/DOM/PM/OLProduct/TestOLProduct.cls.xml =================================================================== diff -u --- vhUnitTest/DOM/PM/OLProduct/TestOLProduct.cls.xml (revision 0) +++ vhUnitTest/DOM/PM/OLProduct/TestOLProduct.cls.xml (revision 995) @@ -0,0 +1,72 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.OLProduct.TestOLProduct") +1 +vhUnitTest.TestCase +62180,55190.338097 +0 + + +%Status + + + + + + + + + Index: zTryout/CSC/Try.cls.xml =================================================================== diff -u -r946 -r995 --- zTryout/CSC/Try.cls.xml (.../Try.cls.xml) (revision 946) +++ zTryout/CSC/Try.cls.xml (.../Try.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + persistent %VHMacro 1 %Persistent -62131,28320.485504 +62189,49138.503153 0 @@ -55,6 +55,93 @@ ]]> + + +Do ##class(zTryout.CSC.Try).Try3() +1 + + + + + +Do ##class(zTryout.CSC.Try).Try4() +1 + 9998) + d ##class(APPS.Halux.common.impl.BatchImpl).%KillExtent() + Set ^PPS.BatchD=9998 + Set ^APPS.Halux.common7FB.BatchImplD=8861 + + + For BatchNr=8862:1:9998 + { + Set Batch = ##class(DS.PPS.TBX.Batch).%OpenId(BatchNr) + Set BatchNieuw = ##class(APPS.Halux.common.BatchService).%New().GeefNieuweBatch(##class(%ListOfObjects).%New()) + If ($IsObject(Batch)) + { + Set ToeleveringIterator = ##class(TECH.ListIterator).%New(Batch.Toeleveringen) + Set ToeleveringLijst = ##class(%ListOfObjects).%New() + While (ToeleveringIterator.HasNext()) + { + Set ToeleveringOld = ToeleveringIterator.Next().Toelevering + w ToeleveringOld,! + Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering($Piece(ToeleveringOld,"||",2)) + If ($IsObject(Toelevering)) + { + Do ToeleveringLijst.Insert(Toelevering) + } + } + Set BatchNieuw = ##class(APPS.Halux.common.BatchService).%New().GeefNieuweBatch(ToeleveringLijst,Batch.Line) + } + + Do BatchNieuw.%Save() + } +]]> + + + + +Do ##class(zTryout.CSC.Try).Try5() +1 + + + %Library.CacheStorage ^zTryout.CSC.TryD @@ -71,5 +158,5 @@ - + Index: vhUnitTest/APPS/PM/OL/TestExcelImport.cls.xml =================================================================== diff -u -r734 -r995 --- vhUnitTest/APPS/PM/OL/TestExcelImport.cls.xml (.../TestExcelImport.cls.xml) (revision 734) +++ vhUnitTest/APPS/PM/OL/TestExcelImport.cls.xml (.../TestExcelImport.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + Oproepen via @@ -8,7 +8,7 @@ APPS.PM.OL.Common 1 vhUnitTest.TestCase -61989,38531.344566 +62180,65134.465878 61947,62118.855904 0 @@ -47,20 +47,22 @@ - -Sleutel bevat waarde (via KortTekstPatroon) Waarde zonder KenmerkWaardeMapping + in de nieuwe situatie bevat ook kenmerk Diepte een KenmerkWaardeMapping, dus is er geen kenmerk meer zonder mapping. +Deze test is dus DEPRECATED !!! ]]> " - Set WaardeVanMaster="50" + Set WaardeVanMaster="500" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) - Do $$$AssertEquals(Result, 1, "Sleutel (50) bevat waarde 50") + Do $$$AssertEquals(Result, 1, "Sleutel (50) bevat waarde 500") ; - Set WaardeVanMaster="60" + Set WaardeVanMaster="600" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) - Do $$$AssertEquals(Result, 0, "Sleutel (50) bevat waarde 60") + Do $$$AssertEquals(Result, 0, "Sleutel (50) bevat waarde 600 niet") ; Set WaardeVanMaster="0" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) @@ -82,9 +84,13 @@ Set VarKenmerk=$$$varkmBreedte Set Sleutel="" + Set WaardeVanMaster="1200" + Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) + Do $$$AssertEquals(Result, 1, "Sleutel (12) bevat waarde met mapping voor breedte 1200 ") + ; Set WaardeVanMaster="120" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) - Do $$$AssertEquals(Result, 1, "Sleutel (12) bevat waarde met mapping voor breedte 120 ") + Do $$$AssertEquals(Result, 0, "Sleutel (12) bevat waarde met mapping voor breedte 120") ; Set WaardeVanMaster="12" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) @@ -116,17 +122,17 @@ Set VarKenmerk=$$$varkmDiepte Set Sleutel="" - Set WaardeVanMaster="50" + Set WaardeVanMaster="500" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) - Do $$$AssertEquals(Result, 0, "Afwijkende sleutel (zz) bevat waarde 50") + Do $$$AssertEquals(Result, 0, "Afwijkende sleutel (zz) bevat waarde 500") Set Sleutel="BN5060S6" - Set WaardeVanMaster="50" + Set WaardeVanMaster="500" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) - Do $$$AssertEquals(Result, 1, "Afwijkende sleutel (zonder <>) bevat waarde 50") + Do $$$AssertEquals(Result, 1, "Afwijkende sleutel (zonder <>) bevat waarde 500") Set Sleutel="" - Set WaardeVanMaster="50" + Set WaardeVanMaster="500" Set Result=KortTekstPatroon.SleutelBevatKenmerkWaarde(Sleutel, VarKenmerk, WaardeVanMaster) Do $$$AssertEquals(Result, 0, "Afwijkende sleutel (leeg) bevat waarde (50)") @@ -148,7 +154,7 @@ Do KenmerkenArray.SetAt("dummyTekstSV" ,"SleutelVarTekstB" ) Do KenmerkenArray.SetAt("dummyFotoSV" ,"SleutelVarFotoB" ) Set VariabelKenmerk=##class(APPS.PM.OL.VariabelKenmerkList).%New(VarKenmerk, KenmerkenArray.GetAt("MasterVoorBreedte")) - Set VariabelKenmerk.WaardeVanMaster="60" + Set VariabelKenmerk.WaardeVanMaster="600" Do VariabelKenmerk.SleutelVariatiesViaKenmerken(KenmerkenArray, KortTekstPatroon) @@ -174,7 +180,7 @@ Do KenmerkenArray.SetAt("dummyTekstSV" ,"SleutelVarTekstB" ) Do KenmerkenArray.SetAt("dummyFotoSV" ,"SleutelVarFotoB" ) Set VariabelKenmerk=##class(APPS.PM.OL.VariabelKenmerkList).%New(VarKenmerk, KenmerkenArray.GetAt("MasterVoorBreedte")) - Set VariabelKenmerk.WaardeVanMaster="88" + Set VariabelKenmerk.WaardeVanMaster="880" Do VariabelKenmerk.SleutelVariatiesViaKenmerken(KenmerkenArray, KortTekstPatroon) @@ -205,10 +211,10 @@ Do $$$AssertTrue($IsObject(PatroonMatch.KenmerkWaarde), "PatroonMatch.KenmerkWaarde bestaat") Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.Count(), 4, "Aantal items in KenmerkWaarde") - Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmDiepte) , 65, "KenmerkWaarde Diepte van Variant") - Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmBreedte) , 100, "KenmerkWaarde Breedte van Variant") ; Waarde 10 wordt omgezet via KenmerkWaardeMap - Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmKleur) , "Y", "KenmerkWaarde Kleur van Variant") ; "Y" is geen echte kleur. Afspraak met AM om kleuren van antislipmatten niet als master te genereren. - Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmWandDikte), 18, "KenmerkWaarde WandDikte van Variant") + Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmDiepte) , 650, "KenmerkWaarde Diepte van Variant") + Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmBreedte) , 1000, "KenmerkWaarde Breedte van Variant") ; Waarde 10 wordt omgezet via KenmerkWaardeMap + Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmKleur) , "Y", "KenmerkWaarde Kleur van Variant") ; "Y" is geen echte kleur. Afspraak met AM om kleuren van antislipmatten niet als master te genereren. + Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmWandDikte), 18, "KenmerkWaarde WandDikte van Variant") Quit ]]> @@ -229,9 +235,9 @@ Do $$$AssertTrue($IsObject(PatroonMatch.KenmerkWaarde), "PatroonMatch.KenmerkWaarde bestaat") Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.Count(), 3, "Aantal items in KenmerkWaarde") - Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmDiepte) , 50, "KenmerkWaarde Diepte van Variant") - Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmBreedte) , 100, "KenmerkWaarde Breedte van Variant") ; Waarde 10 wordt omgezet via KenmerkWaardeMap - Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmKleur), "Noot", "KenmerkWaarde Kleur van Variant") + Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmDiepte) , 500, "KenmerkWaarde Diepte van Variant") + Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmBreedte) , 1000, "KenmerkWaarde Breedte van Variant") ; Waarde 10 wordt omgezet via KenmerkWaardeMap + Do $$$AssertEquals(PatroonMatch.KenmerkWaarde.GetAt($$$varkmKleur), "Noot", "KenmerkWaarde Kleur van Variant") Quit ]]> @@ -259,12 +265,12 @@ Test Potentiele variant is Variant Test Potentiele variant is geen Variant of KenmerkWaarde is leeg " - Set MasterVoorBreedte="30;40;50;60;90;100;110;120" - Set SleutelVarTekstB ="40;40;40;90;90;90;110;110" + Set MasterVoorBreedte="300;400;500;600;900;1000;1100;1200" + Set SleutelVarTekstB ="400;400;400;900;900;900;1100;1100" Set VariabelKenmerk=##class(APPS.PM.OL.VariabelKenmerkList).%New($$$varkmBreedte, MasterVoorBreedte) Set VariabelKenmerk.TekstSleutelVariatie=##class(APPS.PM.OL.SleutelVariatie).%New("dummy") Set VariabelKenmerk.TekstSleutelVariatie.SleutelBevatWaarde=1 Set VariabelKenmerk.TekstSleutelVariatie.KMWaardenList=SleutelVarTekstB Set VariabelKenmerk.AantalCharInKortTekst=2 - Set VariabelKenmerk.WaardeVanMaster="60" + Set VariabelKenmerk.WaardeVanMaster="600" - Set WaardeVanVariant="40" + Set WaardeVanVariant="400" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 40") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 400") - Set WaardeVanVariant="50" + Set WaardeVanVariant="500" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 50") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 500") - Set WaardeVanVariant="60" + Set WaardeVanVariant="600" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 60") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 600") /* - Set WaardeVanVariant="83" + Set WaardeVanVariant="830" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) ; Code will crash upon a $ECode - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 83") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 803") */ - Set WaardeVanVariant="90" + Set WaardeVanVariant="900" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 90") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 900") - Set WaardeVanVariant="100" + Set WaardeVanVariant="1000" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 100") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 1000") - Set WaardeVanVariant="110" + Set WaardeVanVariant="1100" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 110") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 1100") - Set WaardeVanVariant="120" + Set WaardeVanVariant="1200" Set Sleutel=TekstSleutel Do VariabelKenmerk.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 120") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen: WaardeVanVariant = 1200") // Met TekstSleutelVariatie="", i.e. steeds waarde vervangen door de waarde van de Variant Set VariabelKenmerk2=VariabelKenmerk.%ConstructClone(1) Set VariabelKenmerk2.TekstSleutelVariatie.KMWaardenList="" - Set WaardeVanVariant="50" + Set WaardeVanVariant="500" Set Sleutel=TekstSleutel Do VariabelKenmerk2.TekstSleutelAanpassen(.Sleutel, WaardeVanVariant, KortTekstPatroon) - Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen, TekstSleutelVariatie=(leeg) : WaardeVanVariant = 50") + Do $$$AssertEquals(Sleutel,"","TekstSleutel aanpassen, TekstSleutelVariatie=(leeg) : WaardeVanVariant = 500") Quit ]]> @@ -392,26 +398,26 @@ ","") ; TekstSleutel, FotoSleutel - Do KenmerkenArray.SetAt("60;100;120" ,"MasterVoorBreedte") - Do KenmerkenArray.SetAt("60;100;100" ,"SleutelVarTekstB" ) - Do KenmerkenArray.SetAt("60" ,"SleutelVarFotoB" ) - Do KenmerkenArray.SetAt("Noot" ,"SleutelVarFotoKlr") + Do KenmerkenArray.SetAt("600;1000;1200" ,"MasterVoorBreedte") + Do KenmerkenArray.SetAt("600;1000;1000" ,"SleutelVarTekstB" ) + Do KenmerkenArray.SetAt("600" ,"SleutelVarFotoB" ) + Do KenmerkenArray.SetAt("Noot" ,"SleutelVarFotoKlr") - Set VariabeleKenmerken=..CreateVariabeleKenmerkenArray($LB( $LB($$$varkmDiepte,"50;55"), $LB($$$varkmBreedte,"60;100;120"), $LB($$$varkmKleur,"Noot;Beuk") )) + Set VariabeleKenmerken=..CreateVariabeleKenmerkenArray($LB( $LB($$$varkmDiepte,"500;550"), $LB($$$varkmBreedte,"600;1000;1200"), $LB($$$varkmKleur,"Noot;Beuk") )) Set iKenmerk="" For { Set VariabelKenmerk=VariabeleKenmerken.GetNext(.iKenmerk) Quit:(iKenmerk="") ; Exit FOR - Set VariabelKenmerk.WaardeVanMaster=$Case(iKenmerk, $$$varkmDiepte:"50", $$$varkmBreedte:"60", $$$varkmKleur:"Noot", :"") + Set VariabelKenmerk.WaardeVanMaster=$Case(iKenmerk, $$$varkmDiepte:"500", $$$varkmBreedte:"600", $$$varkmKleur:"Noot", :"") Do VariabelKenmerk.SleutelVariatiesViaKenmerken(KenmerkenArray, KortTekstPatroon) } Set Variant=##class(APPS.PM.OL.PatroonMatch).%New() Set Variant.PRNr="dummy" Set Variant.KortTekst="dummy" - Do Variant.KenmerkWaarde.SetAt(55,$$$varkmDiepte) - Do Variant.KenmerkWaarde.SetAt(120,$$$varkmBreedte) + Do Variant.KenmerkWaarde.SetAt(550,$$$varkmDiepte) + Do Variant.KenmerkWaarde.SetAt(1200,$$$varkmBreedte) Do Variant.KenmerkWaarde.SetAt("Beuk",$$$varkmKleur) Set TekstSleutel=KenmerkenArray.GetAt("Sleutel") @@ -432,52 +438,52 @@ // ========= ===== // lbLadeFamilies $LB("NietBlumLade","Alle_TBX_geen_bevestigingen_nodig","TBX_plus_Reling_of_BXglas","TBX_plus_Boxside_Ew_of_Dw","TBX_intivo","TBX_antaro_Reling") // lbKleurFilter $LB("grijs","inox","wit","zijdewit","terrazwart") - // Diepte 50 - // Breedte 90 + // Diepte 500 + // Breedte 900 Set lbLadeFamilies=$LB("TBX_plus_Reling_of_BXglas") Set lbKleurFilter=$LB("grijs","wit") - ;Set Diepte=50 - ;Set Breedte=90 + ;Set Diepte=500 + ;Set Breedte=900 - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(50), 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(500), 900) Do $$$AssertEquals(IsKellerProduct, 1,"IsKellerProduct - Test 01") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(65), 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(650), 900) Do $$$AssertEquals(IsKellerProduct, 0,"IsKellerProduct - Test 02") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(50), 70) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(500), 700) Do $$$AssertEquals(IsKellerProduct, 0,"IsKellerProduct - Test 03") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(50), 90, $LB(18,19)) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(500), 900, $LB(18,19)) Do $$$AssertEquals(IsKellerProduct, 1,"IsKellerProduct - Test 04") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(50), 90, $LB(16)) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(500), 900, $LB(16)) Do $$$AssertEquals(IsKellerProduct, 0,"IsKellerProduct - Test 05") Set lbKleurFilterTMP=$LB("zijdewit","terrazwart") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilterTMP, $LB(50), 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilterTMP, $LB(500), 900) Do $$$AssertEquals(IsKellerProduct, 0,"IsKellerProduct - Test 06") Set lbLadeFamiliesTMP=$LB("TBX_intivo","TBX_antaro_Reling") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamiliesTMP, lbKleurFilter, $LB(50), 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamiliesTMP, lbKleurFilter, $LB(500), 900) Do $$$AssertEquals(IsKellerProduct, 0,"IsKellerProduct - Test 07") Set lbLadeFamiliesTMP=$LB("NietBlumLade") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamiliesTMP, lbKleurFilter, $LB(50), 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamiliesTMP, lbKleurFilter, $LB(500), 900) Do $$$AssertEquals(IsKellerProduct, 1,"IsKellerProduct - Test 08") // TESTCASES met lege waarde - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(50), "") + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, $LB(500), "") Do $$$AssertEquals(IsKellerProduct, 1,"IsKellerProduct - Test 11") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, "", 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, lbKleurFilter, "", 900) Do $$$AssertEquals(IsKellerProduct, 1,"IsKellerProduct - Test 12") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, "", $LB(50), 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", lbLadeFamilies, "", $LB(500), 900) Do $$$AssertEquals(IsKellerProduct, 1,"IsKellerProduct - Test 13") - Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", "", lbKleurFilter, $LB(50), 90) + Set IsKellerProduct=##class(APPS.PM.OL.ProductRepository).IsKellerProduct("", "", lbKleurFilter, $LB(500), 900) Do $$$AssertEquals(IsKellerProduct, 0,"IsKellerProduct - Test 14") Quit @@ -494,17 +500,17 @@ Do ProdKM.Kenmerken.SetAt($LB("TBX_plus_Reling_of_BXglas"), "LadeFamilie") // Test B=90 cm --> is WEL Kellerproduct - Do ProdKM.Kenmerken.SetAt(90, "LadeBreedteMin") + Do ProdKM.Kenmerken.SetAt(900, "LadeBreedteMin") Do ProdKM.PubBepaalVariantBeschikbaarOp(.lbVariantBeschikbaarOp, Variant) Do $$$AssertEquals(lbVariantBeschikbaarOp,"","lbVariantBeschikbaarOp met Keller") ; leeg, want zelfde als master : $LB("Orgalux.com","Keller","SFS") // Test B=70 cm --> is geen Kellerproduct - Do ProdKM.Kenmerken.SetAt(70, "LadeBreedteMin") + Do ProdKM.Kenmerken.SetAt(700, "LadeBreedteMin") Do ProdKM.PubBepaalVariantBeschikbaarOp(.lbVariantBeschikbaarOp, Variant) Do $$$AssertEquals(lbVariantBeschikbaarOp,$LB("Orgalux.com","SFS"),"lbVariantBeschikbaarOp zonder Keller") // Test: geen Kellerproduct en WebSites is alleen "Keller" --> valt weg, en blijft dus $LB() over - Do ProdKM.Kenmerken.SetAt(70, "LadeBreedteMin") + Do ProdKM.Kenmerken.SetAt(700, "LadeBreedteMin") Do ProdKM.Kenmerken.SetAt($LB("Keller"), "WebSites") Do ProdKM.PubBepaalVariantBeschikbaarOp(.lbVariantBeschikbaarOp, Variant) Do $$$AssertEquals(lbVariantBeschikbaarOp,$LB(),"lbVariantBeschikbaarOp zonder Keller, Websites is leeg") @@ -576,5 +582,5 @@ ]]> - + Index: vhUnitTest/DOM/OV/TestProforma.cls.xml =================================================================== diff -u -r915 -r995 --- vhUnitTest/DOM/OV/TestProforma.cls.xml (.../TestProforma.cls.xml) (revision 915) +++ vhUnitTest/DOM/OV/TestProforma.cls.xml (.../TestProforma.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestProforma") 1 vhUnitTest.TestCase -62154,29839.280096 +62173,56305.225498 0 @@ -27,7 +27,7 @@ Set BonIterator = Proforma.GeefBonIterator() Set Bon = BonIterator.Next() - Set BonlijnIterator = Bon.GeefBonlijnIterator() + Set BonlijnIterator = Bon.GeefBonLijnIterator() Do $$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn") Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een orderverwijzing lijn") @@ -41,7 +41,7 @@ Set BonIterator = Proforma.GeefBonIterator() Set Bon = BonIterator.Next() - Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Product()) + Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonLijnType).Product()) Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertTrue(TypedBonIterator.HasNext(),"De bon bevat een volgende product type lijn") Do $$$AssertTrue(TypedBonIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn") @@ -51,5 +51,5 @@ ]]> - + Index: zTryout/CSC/Relingen/RelingTools.cls.xml =================================================================== diff -u -r734 -r995 --- zTryout/CSC/Relingen/RelingTools.cls.xml (.../RelingTools.cls.xml) (revision 734) +++ zTryout/CSC/Relingen/RelingTools.cls.xml (.../RelingTools.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + 1 %RegisteredObject @@ -28,7 +28,7 @@ if (##class(DOM.PM.Maatwerk.TBX.HalffabrikaatUtils).BevatInTeKortenReling(PRNr)) { Set oQ = ##class(DS.PPS.TBX.Queue).%OpenId(rs.Data("ID")) - Set RelingBouwsteen = ##class(DOM.PR.BouwStenen.BouwSteen).%OpenId(PRNr_"||"_"PRRL.001") + Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(PRNr_"||"_"PRRL.001") Set RelingProduct = RelingBouwsteen.KindProduct Set RelingProductnummer = RelingProduct.ProductNr Set Verpakking = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",RelingProductnummer,"Verpakking")) @@ -59,7 +59,7 @@ 1 PRNr:%Integer - + Index: TECH/Files.cls.xml =================================================================== diff -u -r946 -r995 --- TECH/Files.cls.xml (.../Files.cls.xml) (revision 946) +++ TECH/Files.cls.xml (.../Files.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + vhLib.Macro 1 %RegisteredObject -62164,51244.217362 +62189,33408.566039 62118,40201.271394 0 @@ -16,8 +16,11 @@ 1 Directory:%String,Filename:%String @@ -137,5 +140,5 @@ ]]> - + Index: TECH/Exceptions/StatusException.cls.xml =================================================================== diff -u --- TECH/Exceptions/StatusException.cls.xml (revision 0) +++ TECH/Exceptions/StatusException.cls.xml (revision 995) @@ -0,0 +1,32 @@ + + + +1 +TECH.Exceptions.BaseException +62178,53631.94144 +0 + + +%Status +1 + + + +ExceptionCode:TECH.enu.ExceptionCode,Omschrijving:%String,Status:%Status +1 +1 +%Status + + + + +%String + + + + + Index: zTryout/ARC/APPS/common/dto/Afmeting3D.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/common/dto/Afmeting3D.cls.xml (revision 0) +++ zTryout/ARC/APPS/common/dto/Afmeting3D.cls.xml (revision 995) @@ -0,0 +1,22 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62188,44612.124885 +0 + + +%Float + + + +%Float + + + +%Float + + + + Index: WS/Prod/OptiBox/OptimizerServer.cls.xml =================================================================== diff -u -r734 -r995 --- WS/Prod/OptiBox/OptimizerServer.cls.xml (.../OptimizerServer.cls.xml) (revision 734) +++ WS/Prod/OptiBox/OptimizerServer.cls.xml (.../OptimizerServer.cls.xml) (revision 995) @@ -1,13 +1,13 @@ - + OptiBox : Box cutting optimization
The methods gets called from the Optimizer (server) to the Caché clients]]> BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy 1 %SOAP.WebService -61042,41969.141128 +62186,45607.676235 60207,60267.626363 0 @@ -18,7 +18,7 @@ URL for invoking the WebService. -http://cache01.vanhoecke.be/vhintra +http://cache02.vanhoecke.be/vhintra @@ -31,6 +31,16 @@ http://vhintra.vanhoecke.be + + +IP-address van Optibox die MachineEvents mag versturen +192.168.1.170 + + + +192.168.1.38 + + 1 @@ -56,6 +67,7 @@ $$$WebServiceTrap $$$DebugIP ;D WL^vhDBG("webmethod : CardboardsLoaded SINGLE","B-Green") + ;Do WX^vhDBG(CardboardLoaded,1) $$$LastLogCreate("I","M",,,"CardboardLoaded",,CardboardLoaded) Do ##class(BL.Prod.OptiBox.Diverse).%New().ModifyCardboardLoaded(CardboardLoaded) @@ -73,9 +85,9 @@ $$$WebServiceTrap ; $$$DebugIP - D WL^vhDBG("webmethod : Optimization result","B-Blue") - Do WX^vhDBG(OptiRes,1) - $$$LastLogCreate("I","O",,,"OptimizationResult",,OptiRes) + ;D WL^vhDBG("webmethod : Optimization result","B-Blue") + ;Do WX^vhDBG(OptiRes,1) + $$$LastLogCreate("I","C",,,"OptimizationResult",,OptiRes) Do ##class(BL.Prod.OptiBox.Optimize).Instantiate() Do %blProdOptiBoxOptimize.ProcessOptiResult(OptiRes) Quit @@ -95,8 +107,10 @@ + + +BL.Prod.OptiBox.enu.OptiServer + + - + Index: zTryout/ARC/DOM/PM/impl/DataM/FysiekProduct.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/PM/impl/DataM/FysiekProduct.cls.xml (revision 0) +++ zTryout/ARC/DOM/PM/impl/DataM/FysiekProduct.cls.xml (revision 995) @@ -0,0 +1,69 @@ + + + +zTryout.ARC.TECH.Persistentie +1 +zTryout.ARC.DOM.PM.FysiekProduct,%RegisteredObject +62188,62508.935747 +0 + + +%Integer +1 + + + +GlobalNode +1 + + + +1 +PRNr:%Integer +zTryout.ARC.DOM.PM.impl.DataM.FysiekProduct + + + + +PRNr:%Integer + + + + +Gewicht + + + + +Afmeting3D + + + + +1 +%String + + + + + Index: zTryout/ARC/APPS/VKP/dto/OrderTransportData.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/VKP/dto/OrderTransportData.cls.xml (revision 0) +++ zTryout/ARC/APPS/VKP/dto/OrderTransportData.cls.xml (revision 995) @@ -0,0 +1,22 @@ + + + +1 +%RegisteredObject +62189,53622.508008 +0 + + +%Integer + + + +%Float + + + +zTryout.ARC.APPS.common.dto.Adres + + + + Index: vhUnitTest/DOM/CRM/TestPersoon.cls.xml =================================================================== diff -u --- vhUnitTest/DOM/CRM/TestPersoon.cls.xml (revision 0) +++ vhUnitTest/DOM/CRM/TestPersoon.cls.xml (revision 995) @@ -0,0 +1,152 @@ + + + + +JBL + 2011-03-29 + + do ##class(vhUnitTest.Manager).RunTest("/Display=all","DOM.CRM.TestPersoon") + +1 +vhUnitTest.TestCase +62179,61592.308809 +0 + + +%Integer +1 + + + +%Integer +1 + + + + +Eerst volgend klantnummer bijhouden +%Status + + + + +%Status + + + + + + + + + + + + + Index: zTryout/ARC/APPS/PM/ProductService.cls.xml =================================================================== diff -u --- zTryout/ARC/APPS/PM/ProductService.cls.xml (revision 0) +++ zTryout/ARC/APPS/PM/ProductService.cls.xml (revision 995) @@ -0,0 +1,28 @@ + + + +1 +APPS.PM.ProductService,%RegisteredObject +62188,47664.214967 +0 + + +PRNr:%Integer +zTryout.ARC.APPS.PM.dto.FysiekProduct + + + + + Index: vhUnitTest/APPS/PM/OL/TestExcelImportChecker.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/PM/OL/TestExcelImportChecker.cls.xml (revision 0) +++ vhUnitTest/APPS/PM/OL/TestExcelImportChecker.cls.xml (revision 995) @@ -0,0 +1,332 @@ + + + + +Oproepen via + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.OL.TestExcelImportChecker") + +APPS.PM.OL.Common +1 +vhUnitTest.TestCase +62174,55253.209426 +61947,62118.855904 +0 + + + +Test dat de method AddToLocalDataDef() werkt + + + + + +Test dat de method DeleteFromLocalDataDef() werkt +0,0,"LocalDataDef(PRNr,""1099.1"") is leeg") + Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub",".1 "))>0,0,"LocalDataDef(PRNr,""sub"","".1 "") is leeg") + Do $$$AssertEquals($D(LocalDataDef(PRNr,"1099"))>0,1,"LocalDataDef(PRNr,""1099.2"") is niet leeg") + Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub"," "))>0,1,"LocalDataDef(PRNr,""sub"","" "") is niet leeg") + Do $$$AssertEquals($D(LocalDataDef(PRNr,"1099"))>0,1,"LocalDataDef(PRNr,""1099"") is niet leeg") + Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub",".2 "))>0,1,"LocalDataDef(PRNr,""sub"","".2 "") is niet leeg") + + Quit +]]> + + + + +Test dat de method AddToLocalDataDef() werkt +0,1,"LocalDataDef(PRNr,""1001"") is niet leeg") + Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub"," "))>0,1,"LocalDataDef(PRNr,""sub"","" "") is niet leeg") + + Set PRNr=1002 + Do ImportChecker.GeefLocalDataDefArray(PRNr,.LocalDataDef) + Do $$$AssertEquals($D(LocalDataDef(PRNr))>0,1,"LocalDataDef(1002) is niet leeg") + + Set PRNr=1003 + Do ImportChecker.GeefLocalDataDefArray(PRNr,.LocalDataDef) + Do $$$AssertEquals($D(LocalDataDef(PRNr,"1003.1"))>0,1,"LocalDataDef(PRNr,""1003.1"") is niet leeg") + Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub",".1 "))>0,1,"LocalDataDef(PRNr,""sub"","".1 "") is niet leeg") + + Set PRNr=1099 + Do ImportChecker.GeefLocalDataDefArray(PRNr,.LocalDataDef) + Do $$$AssertEquals($D(LocalDataDef(PRNr))>0,1,"LocalDataDef(1099) is niet leeg") + + Quit +]]> + + + + +Test dat de method GeefUnIDsFromLocalDataDef() werkt + + + + + +Test dat de method StatusLocalDataDefIsConsistent() werkt + + + + + +Test dat de method IsLocalDataDefConsistent() werkt +0,"De array arConsistency bevat items") + + // Add multiple to the previous 1002 + Set PRNr=1002 + Set UnID="1002.1" + Set MultiNr=".1" + Do ImportChecker.AddToLocalDataDef(PRNr,UnID,MultiNr,"") + + Set IsConsistent=ImportChecker.IsLocalDataDefConsistent(.arConsistency) + Do $$$AssertTrue(IsConsistent=0,"LocalDataDef is NIET consistent (globaal)") + Do $$$AssertTrue($D(arConsistency)>0,"De array arConsistency bevat items") + If 'IsConsistent { + ;Write !,$$ArrayToText^vhLib("arConsistency",.arConsistency),! + } + + // Make LocalDataDef consistent again + Do ImportChecker.DeleteFromLocalDataDef(1003,1003,"") ; Delete the non-multiple from the previous 1003 --> reset to original situation + Do ImportChecker.DeleteFromLocalDataDef(1002,1002,"") ; Delete the non-multiple from the previous 1002 --> changes the original situation + + Set IsConsistent=ImportChecker.IsLocalDataDefConsistent(.arConsistency) + Do $$$AssertTrue(IsConsistent,"LocalDataDef is terug consistent (globaal)") + Do $$$AssertTrue($D(arConsistency)=0,"De array arConsistency is leeg") + + Quit +]]> + + + + + + + +APPS.PM.OL.ImportChecker + + + + +%Status + + + + +%Status + + + + + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmSifonBinnenlade.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: vhUnitTest/DOM/OV/TestFactuur.cls.xml =================================================================== diff -u -r915 -r995 --- vhUnitTest/DOM/OV/TestFactuur.cls.xml (.../TestFactuur.cls.xml) (revision 915) +++ vhUnitTest/DOM/OV/TestFactuur.cls.xml (.../TestFactuur.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestFactuur") 1 vhUnitTest.TestCase -62158,39192.28006 +62173,56297.418525 0 @@ -25,7 +25,7 @@ Set BonIterator = Factuur.GeefBonIterator() Set Bon = BonIterator.Next() - Set BonLijnIterator = Bon.GeefBonlijnIterator() + Set BonLijnIterator = Bon.GeefBonLijnIterator() Do $$$AssertTrue(BonLijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn") Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn") @@ -37,7 +37,7 @@ Set BonIterator = Factuur.GeefBonIterator() Set Bon = BonIterator.Next() - Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Product()) + Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonLijnType).Product()) Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven") Do $$$AssertTrue(TypedBonIterator.HasNext(),"De bon bevat een volgende product type lijn") Do $$$AssertTrue(TypedBonIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn") @@ -47,5 +47,5 @@ ]]> - + Index: vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml (.../ITestDataSetIngegevenKenmerken.cls.xml) (revision 946) +++ vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml (.../ITestDataSetIngegevenKenmerken.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + 1 1 vhUnitTest.TestCase,TECH.Error.ErrorAdaptor -62167,62162.118 +62185,66120.276685 0 @@ -117,5 +117,5 @@ ]]> - + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmPlusLade.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: zTryout/WV/PM/OL/ConvertBreedteCMToMM.cls.xml =================================================================== diff -u --- zTryout/WV/PM/OL/ConvertBreedteCMToMM.cls.xml (revision 0) +++ zTryout/WV/PM/OL/ConvertBreedteCMToMM.cls.xml (revision 995) @@ -0,0 +1,21 @@ + + + +1 +zTryout.WV.PM.OL.ConvertKenmerkCMToMM +62181,63803.213988 +0 + + +Value:%String +1 + + + + + Index: zTryout/ARC/DOM/common/fysiek/Afmeting3D.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/common/fysiek/Afmeting3D.cls.xml (revision 0) +++ zTryout/ARC/DOM/common/fysiek/Afmeting3D.cls.xml (revision 995) @@ -0,0 +1,67 @@ + + + +zTryout.ARC.DOM.common.fysiek +1 +%RegisteredObject +62181,44258.611809 +0 + + +zTryout.ARC.DOM.common.fysiek.Afstand +1 + + + +zTryout.ARC.DOM.common.fysiek.Afstand +1 + + + +zTryout.ARC.DOM.common.fysiek.Afstand +1 + + + +Lengte:Afstand,Breedte:Afstand,Diepte:Afstand +%Status + + + + +Afstand + + + + +zTryout.ARC.DOM.common.fysiek.Afstand + + + + +zTryout.ARC.DOM.common.fysiek.Afstand + + + + +Volume + + + + +%Float + + + + + Index: zTryout/ARC/DOM/PM/dto/ProductGeschiktheid.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/PM/dto/ProductGeschiktheid.cls.xml (revision 0) +++ zTryout/ARC/DOM/PM/dto/ProductGeschiktheid.cls.xml (revision 995) @@ -0,0 +1,14 @@ + + + +1 +1 +62178,40357.167007 +0 + + +%String + + + + Index: vhUnitTest/APPS/PM/ProductOpOrderLijnIt.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/PM/ProductOpOrderLijnIt.cls.xml (revision 0) +++ vhUnitTest/APPS/PM/ProductOpOrderLijnIt.cls.xml (revision 995) @@ -0,0 +1,68 @@ + + + +1 +vhUnitTest.TestCase +62173,56688.569734 +0 + + + +d ##class(vhUnitTest.Manager).RunTest(,"APPS.PM.DataMProduct") +%Status + + + + +%Status + + + + + + + + + + + + + Index: vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml =================================================================== diff -u -r867 -r995 --- vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml (.../TestFlowObjectInhoudService.cls.xml) (revision 867) +++ vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml (.../TestFlowObjectInhoudService.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OV.impl.TestFlowObjectInhoudService") 1 vhUnitTest.TestCase -62131,53568.47021 +62182,30582.101335 0 @@ -33,6 +33,78 @@ Set ^KO1(113220,"F") = "14308\" + Set ^KFAP("F",95234,0,0) = "7587\C\05.09.09\1\EUR\05.06.09\28.26\28.26\5.93\0\0\34.19\0\34\\\8#0\\\\\\\\\\" + Set ^KFAP("F",95234,0,1) = "8#28.26#\8#28.26#\8#5.93#\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,0,3) = "\\\\\\\\\\\\\\\\\\\\##\1.81319\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",0) = "\" + Set ^KFAP("F",95234,"U323725",1) = "\29.05.09\\\\7587\INT #Intern\\\\\\0.00##1.81319\\\\\EUR\\\00\1\\###\P\\\F\F\\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",4) = "3" + Set ^KFAP("F",95234,"U323725",101) = "\\\58#1031#61510,35028\122545 - 29.05.09 - Retour Halux 29/5\\\\\\\\\\100\\KF5\\DIV#61510,35028#122545\\\\\\\" + Set ^KFAP("F",95234,"U323725",102) = "707000 \11651\-1\\\28.26\0#\8\-28.26\-28.26\707000 \L\\F\200\-28.26\KF6\\\\E1\EUR\\\09/22\\\\\\\\\\\\\\\\1\1\\\\1" + + Set ^KFAP("F",95348,0,0) = "7878\F\08.07.09\1\EUR\08.06.09\0\0\0\0\0\0\0\0\\\8#0.00\\\\\\\\\\" + Set ^KFAP("F",95348,0,1) = "\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,0,3) = "\\\\\\\\\\\\\\\\\\\\##\3.26808\\\\\\\\\" + Set ^KFAP("F",95348,"U325226",0) = "\" + Set ^KFAP("F",95348,"U325226",1) = "\05.06.09\\\\7878\DI1 #Distributeur 1 - GLS\4361;325226;5036\#\\\\0.00##3.26808\\\\\EUR\\\00\1\\###\M\\\F\F\CO\\\\1042#61517,29237\\\\TP4361\\\\OD1;61517;130410;25253" + Set ^KFAP("F",95348,"U325226",2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,"U325226",3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,"U325226",4) = "4" + Set ^KFAP("F",95348,"U325226",101) = "\\\1043#1172#61514,60564\123332 - 02.06.09 - 02.06.09 U/TEL JME/G\\\\\\\\\\100\\KF5\\1043#61514,60571#123332\VERVANGING\\#\\\\" + Set ^KFAP("F",95348,"U325226",102) = "703000 \165827\1\\\13.57\20#\8\13.57\13.57\703000 \L\\F\200\13.57\KF6\\\\E1\EUR\\\09/23\\\\\\\\7.1218\\\\\\\\1\1\\\\0" + Set ^KFAP("F",95348,"U325226",103) = "703000 \165830\1\\\16.28\20#\8\16.28\16.28\703000 \L\\F\300\16.28\KF6\\\\E1\EUR\\\09/23\\\\\\\\8.5452\\\\\\\\1\1\\\\0" + + Set ^KFA("F",652567,0,0) = "3446\F\09.05.06\1\EUR\10.03.06\808.20\792.04\166.33\0.00\0.00\974.53\16.16\974.53\\\8#0.00\\\\\\\\\\" + Set ^KFA("F",652567,0,1) = "8#808.20#\8#792.04#\8#166.33#\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,0,3) = "\\\\\\\\\\\\\\\\\\\\0#0#0\87.0562\\\\\\\\\" + Set ^KFA("F",652567,"U324846",0) = "\" + Set ^KFA("F",652567,"U324846",1) = "\09.03.06\\\\3446\SP #ABX logistics\1291;324846;5036\#\\\\0.00##87.0562\\\\\EUR\005003\\00\1\\###\\\\F\\SP\\\\\\\\TP1291\" + Set ^KFA("F",652567,"U324846",2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,"U324846",3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,"U324846",4) = "7" + Set ^KFA("F",652567,"U324846",101) = "\\\1048#1053#60333,38618\199402 - 09.03.06 - 09.03.06 U/TEL PBU/KS\\\\\\\\\\100\\KF5\\1048#60333,38626#199402\\\\\\\" + Set ^KFA("F",652567,"U324846",102) = "703000 \19134\20\\\4.67\20#\8\93.40\93.40\703000 \L\\\200\93.40\KF6\\\\E1\EUR\\\06/10\\\\\\\116.8\56.036\93.4\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",103) = "703000 \19135\20\\\4.67\20#\8\93.40\93.40\703000 \L\\\300\93.40\KF6\\\\E1\EUR\\\06/10\\\\\\\116.8\56.036\93.4\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",104) = "703000 \141634\20\\\5.41\20#\8\108.20\108.20\703000 \L\\\400\108.20\KF6\\\\E1\EUR\\\06/10\\\\\\\135.2\64.894\108.2\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",105) = "703000 \141647\20\\\5.41\20#\8\108.20\108.20\703000 \L\\\500\108.20\KF6\\\\E1\EUR\\\06/10\\\\\\\135.2\64.894\108.2\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",106) = "703000 \89761\20\A\\20.25\20#\8\405.00\405.00\703000 \L\\\600\405.00\KF6\\\\E1\EUR\\\06/10\\\\\\\506.4\243\405\\\\\\\1\1" + + Set ^KFA("F",652568,0,0)="3498\F\10.04.06\1\EUR\10.03.06\18.25\17.89\3.76\0.00\0.00\22.01\.36\22.01\\\8#0.00\\\\\\\\\\" + Set ^KFA("F",652568,0,1)="8#18.25#\8#17.89#\8#3.76#\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,0,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,0,3)="\\\\\\\\\\\\\\\\\\\\0#0#0\1.8524\\\\\\\\\" + Set ^KFA("F",652568,"U324761",0)="\" + Set ^KFA("F",652568,"U324761",1)="\09.03.06\\\\3498\SP #ABX logistics\1291;324761;5036\#\\\\0.00##1.8524\\\\\EUR\005003\\00\1\\###\\\\F\\SP\\\\\\\\TP1291\" + Set ^KFA("F",652568,"U324761",2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,"U324761",3)="1\CORLUY ROBERT\MEUBELMAKERIJ\DHR.\KWIKAARD 128\2980\ZOERSEL\1019\N\\\\03-385 37 62\\\\\\.\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,"U324761",4)="5" + Set ^KFA("F",652568,"U324761",101)="\\\1023#1043#60333,29860\199294 - 09.03.06 - 09.03.06 U/FAX AB/RC\\\\\\\\\\100\\KF5\\1023#60333,29869#199294\\\\\\\" + Set ^KFA("F",652568,"U324761",102)="703000 \10479\1\\\0.54\10#\8\0.54\0.54\703000 \L\\\200\0.54\KF6\\\\E1\EUR\\\06/10\\\\\\\.6\.2846\.54\\\\\\\1\1" + Set ^KFA("F",652568,"U324761",103)="703000 \10480\1\\\0.54\10#\8\0.54\0.54\703000 \L\\\300\0.54\KF6\\\\E1\EUR\\\06/10\\\\\\\.6\.2846\.54\\\\\\\1\1" + Set ^KFA("F",652568,"U324761",104)="703000 \154595\1\\\17.17\20#0\8\17.17\17.17\703000 \L\\\400\17.17\KF6\\\\E1\EUR\\\06/10\\\\\\\21.46\10.2982\17.17\\\\\\\1\1" + + Set ^KU1(323725,"F") = "7587\95234\P\" + Set ^KU1(323725,"F",95234) = "P" + Set ^KU1(325226,"F") = "7878\" + Set ^KU1(324846,"F") = "9275\953552\" + Set ^KU1(324846,"F",953552) = "" + Set ^KU1(324761,"F") = "8168\953597\" + Set ^KU1(324761,"F",953597) = "" + + Set ^KUL(7878,"F",325226,0) = "104" + Set ^KUL(7878,"F",325226,1) = "\05.06.09\\\\7878\DI1 #Distributeur 1 - GLS\4361;325226;5036\#\\\\9.09##3.26808\\\\\EUR\\\00\1\\###\M\\\M\F\CO\\\\1042#61517,29237\\\\\\\\OD1;61517;130410;25253" + Set ^KUL(7878,"F",325226,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KUL(7878,"F",325226,3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KUL(7878,"F",325226,4) = "4" + Set ^KUL(7878,"F",325226,101) = "\\\1043#1172#61514,60564\123332 - 02.06.09 - 02.06.09 U/TEL JME/G\\\\\\\\\\100\\KF5\\1043#61514,60571#123332\VERVANGING\\#\\\\" + Set ^KUL(7878,"F",325226,102) = "703000 \165827\1\\\13.57\20#\8\13.57\13.57\703000 \L\\F\200\13.57\KF6\\\\E1\EUR\\\61514\\\\\\\\\\\\\\\\1\1\\\\0" + Set ^KUL(7878,"F",325226,103) = "703000 \165830\1\\\16.28\20#\8\16.28\16.28\703000 \L\\F\300\16.28\KF6\\\\E1\EUR\\\61514\\\\\\\\\\\\\\\\1\1\\\\0" + Quit $$$OK ]]> @@ -61,27 +133,27 @@ Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).OrderBevatLangGoed(Order) Do $$$AssertTrue(BevatLangGoed,"Het order bevat langgoed") - Set ProformaNr = 30000 + Set ProformaNr = 95348 Set Proforma = OrderAPI.GeefProforma(ProformaNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).ProformaBevatLangGoed(Proforma) Do $$$AssertFalse(BevatLangGoed,"Het proforma bevat geen langgoed") - Set ProformaNr = 64901 + Set ProformaNr = 95234 Set Proforma = OrderAPI.GeefProforma(ProformaNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).ProformaBevatLangGoed(Proforma) Do $$$AssertTrue(BevatLangGoed,"Het proforma bevat langgoed") - Set FactuurNr = 320000 + Set FactuurNr = 652568 Set Factuur = OrderAPI.GeefFactuur(FactuurNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).FactuurBevatLangGoed(Factuur) Do $$$AssertFalse(BevatLangGoed,"De factuur bevat geen langgoed") - Set FactuurNr = 932444 + Set FactuurNr = 652567 Set Factuur = OrderAPI.GeefFactuur(FactuurNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).FactuurBevatLangGoed(Factuur) Do $$$AssertTrue(BevatLangGoed,"De factuur bevat langgoed") ]]> - + Index: vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml (.../StockOverKinderenMock.cls.xml) (revision 946) +++ vhUnitTest/APPS/common/StockOverKinderenMock.cls.xml (.../StockOverKinderenMock.cls.xml) (revision 995) @@ -1,9 +1,9 @@ - + 1 APPS.common.impl.StockOverKinderen -62172,57153.293491 +62179,29867.998605 0 @@ -15,8 +15,9 @@ ]]> - + PRNr +1 %String PRNr +1 %String @@ -48,5 +50,5 @@ ]]> - + Index: vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml =================================================================== diff -u -r956 -r995 --- vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml (.../TestEventCatcher.cls.xml) (revision 956) +++ vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml (.../TestEventCatcher.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestEventCatcher") 1 vhUnitTest.TestCase -62174,59087.103062 +62179,47455.541304 0 @@ -37,7 +37,7 @@ Set Bestaat = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringsNummer) Set Gepland = 62137 - &SQL(UPDATE APPS_Halux_Planning_impl.ToeleveringInfo SET Dag = :Gepland WHERE ToeleveringNummer = :ToeleveringsNummer) + &SQL(UPDATE APPS_Halux_Planning_impl.ToeleveringInfo SET Gepland = :Gepland WHERE ToeleveringNummer = :ToeleveringsNummer) Do $$$AssertTrue(Bestaat,"Het data item voor de planning werd bewaard") @@ -50,21 +50,24 @@ Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent) - &SQL(SELECT DueOut,Dag INTO :GevondenTijd,:GevondenGepland FROM APPS_Halux_Planning_impl.ToeleveringInfo WHERE ToeleveringNummer = :ToeleveringsNummer) + &SQL(SELECT DueOut,Gepland INTO :GevondenTijd,:GevondenGepland FROM APPS_Halux_Planning_impl.ToeleveringInfo WHERE ToeleveringNummer = :ToeleveringsNummer) Do $$$AssertEquals($zdt(NieuweDueOut,3),GevondenTijd,"De tijd werd niet overschreven bij het herberekenen") - Do $$$AssertEquals(Gepland,GevondenGepland,"De geplande tijd is niet gewijzigd") + Do $$$AssertEquals($zdt(Gepland,3)_" 00:00:00",GevondenGepland,"De geplande tijd is niet gewijzigd") Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer) Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData) Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent) Set Bestaat = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringsNummer) - - Do $$$AssertFalse(Bestaat,"Het data item voor de planning werd verwijderd") + Do $$$AssertFalse(Bestaat,"Het toelevering info object voor de planning werd verwijderd") + + &SQL(SELECT ID INTO :ProductInfoID FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringsNummer) + Set Bestaat = $Get(ID) > 0 + Do $$$AssertFalse(Bestaat,"De product info objecten voor de planning werden verwijderd") ]]> - + Index: zTryout/ARC/DOM/MAG/enu/TelweegschaalTelwijze.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/MAG/enu/TelweegschaalTelwijze.cls.xml (revision 0) +++ zTryout/ARC/DOM/MAG/enu/TelweegschaalTelwijze.cls.xml (revision 995) @@ -0,0 +1,40 @@ + + + +datatype +1 +TECH.Enumeration +62189,59837.406038 +0 + + +,Z,B,L + + + +1 +%String + + + + +1 +%String + + + + +1 +%String + + + + + Index: WS/PPS/TBX/ZaagServer/GetZaagLijst.cls.xml =================================================================== diff -u --- WS/PPS/TBX/ZaagServer/GetZaagLijst.cls.xml (revision 0) +++ WS/PPS/TBX/ZaagServer/GetZaagLijst.cls.xml (revision 995) @@ -0,0 +1,72 @@ + + + +WS.PPS.TBX +%occInclude,%soap +%SOAP.MsgDescriptor +62181,53400.697051 +62130,26329 +0 +WS.PPS.TBX.ZaagServer + + +http://vhintra.vanhoecke.be + + + +http://vhintra.vanhoecke.be + + + +document + + + +literal + + + +http://vhintra.vanhoecke.be + + + +complete + + + +%Result + + + +%Library.AbstractList + + + + + +%Library.String + + + + +APPS.Halux.TBX.enu.Werkpost + + + + +%Library.String + + + + +%Library.String + + + + +%String + + + + + Index: WS/PPS/TBX/ZaagServer.cls.xml =================================================================== diff -u -r913 -r995 --- WS/PPS/TBX/ZaagServer.cls.xml (.../ZaagServer.cls.xml) (revision 913) +++ WS/PPS/TBX/ZaagServer.cls.xml (.../ZaagServer.cls.xml) (revision 995) @@ -1,13 +1,13 @@ - + OptiBox : Box cutting optimization
The methods gets called from the Optimizer (server) to the Caché clients]]> BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.Resources,TECH.Error 1 WS.WebService -62150,33251.725693 +62181,46742.72714 62123,54831.812352 0 @@ -182,7 +182,7 @@ @@ -306,5 +306,5 @@ ]]> - + Index: zTryout/ARC/DOM/MAG/StockeerbaarProduct.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/MAG/StockeerbaarProduct.cls.xml (revision 0) +++ zTryout/ARC/DOM/MAG/StockeerbaarProduct.cls.xml (revision 995) @@ -0,0 +1,39 @@ + + + + +De interface (naar een product) die slaat op het behandelen van een product in ons magazijn. +1 +zTryout.ARC.DOM.MAG.enu +1 +%RegisteredObject +62189,60678.893289 +0 + + +1 +%Boolean + + + +1 +%Integer + + + +1 +RotatieKlassificatie + + + +1 +Cyclecounttype + + + +1 +TelweegschaalTelwijze + + + + Index: TECH/enu/DatePart.cls.xml =================================================================== diff -u --- TECH/enu/DatePart.cls.xml (revision 0) +++ TECH/enu/DatePart.cls.xml (revision 995) @@ -0,0 +1,67 @@ + + + +datatype +1 +%String +62185,59125.108601 +0 + + +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: zTryout/ARC/DOM/common/fysiek/Afstand.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/common/fysiek/Afstand.cls.xml (revision 0) +++ zTryout/ARC/DOM/common/fysiek/Afstand.cls.xml (revision 995) @@ -0,0 +1,37 @@ + + + +1 +%RegisteredObject +62188,47165.089488 +0 + + +%Float +1 + + + +1 +AfstandInMeter:%Float + + + + +%Float + + + + +AantalMeter:%Float + + + + + Index: WS/EC/WebShopServer.cls.xml =================================================================== diff -u -r734 -r995 --- WS/EC/WebShopServer.cls.xml (.../WebShopServer.cls.xml) (revision 734) +++ WS/EC/WebShopServer.cls.xml (.../WebShopServer.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + BL.EC.Common,BL.Derde.KlantSpecifiek 1 %SOAP.WebService -62105,51152.238678 +62180,48509.66665 60207,60267.662493 0 @@ -45,20 +45,6 @@ http://vhisie.vanhoecke.be - - -URL for invoking the WebService. -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache01.vanhoecke.be/vhisie3 - - GetOfferteInfo @@ -645,5 +631,5 @@ ]]> - + Index: zTryout/ARC/DOM/PM/dto/OrgaluxProductGeschiktheid.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/PM/dto/OrgaluxProductGeschiktheid.cls.xml (revision 0) +++ zTryout/ARC/DOM/PM/dto/OrgaluxProductGeschiktheid.cls.xml (revision 995) @@ -0,0 +1,20 @@ + + + +1 +%RegisteredObject +62178,48083.083428 +0 + + +GeschiktheidVoorLade + + + +%String + + + + + Index: TECH/IException.cls.xml =================================================================== diff -u --- TECH/IException.cls.xml (revision 0) +++ TECH/IException.cls.xml (revision 995) @@ -0,0 +1,29 @@ + + + +1 +1 +62180,30964.247679 +0 + + + +Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. +1 +%String + + + +1 +TECH.enu.ExceptionCode + + + + +Wordt door de error handler in het e-mailbericht bijgeschreven. +1 +%String + + + + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmBinnenlade.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: WS/HR/BrandLijst/BrandLijstService.cls.xml =================================================================== diff -u -r734 -r995 --- WS/HR/BrandLijst/BrandLijstService.cls.xml (.../BrandLijstService.cls.xml) (revision 734) +++ WS/HR/BrandLijst/BrandLijstService.cls.xml (.../BrandLijstService.cls.xml) (revision 995) @@ -1,38 +1,21 @@ - + WS.HR.BrandLijst.BrandLijstService 1 WS.WebService -62007,40922.445933 +62185,37838.6841 +62010,39912.925272 0 - - -URL for invoking the WebService. -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache01.vanhoecke.be/vhisie3 - - - -http://cache02.vanhoecke.be/vhisie3 - - - -http://cache02.vanhoecke.be/csp/tst-admin1 - - http://vhisie.vanhoecke.be/V3 -Name of the WebService. +Name of the WebService. BrandLijstService @@ -43,5 +26,5 @@ ]]> - + Index: zTryout/JCL/Mapping/BouwsteenKindIndex.cls.xml =================================================================== diff -u --- zTryout/JCL/Mapping/BouwsteenKindIndex.cls.xml (revision 0) +++ zTryout/JCL/Mapping/BouwsteenKindIndex.cls.xml (revision 995) @@ -0,0 +1,78 @@ + + + +persistent +1 +VHOpslag +%Persistent +62178,49608.162418 +0 + + +13868 + + + +%Integer + + + +%Integer + + + +%String + + + +DOM.PM.enu.BouwsteenType + + + +1 +1 +KindProductNr,MoederProductNr,KindBSKey +1 + + + +%CacheSQLStorage +^zTryout.JCL712.BouwsteenKin73AS + +20.0000% + + +7.6923% + + +0.5986% + + +0.0257% + + +data +^PRBS + +"IP" + + +{KindProductNr} + + +{MoederProductNr} + + +{KindBSKey} +"KIND" +"KINDz" + + +"\" +1 + + + + + + Index: zTryout/ARC/DOM/MAG/impl/DataM/StockeerbaarProduct.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/MAG/impl/DataM/StockeerbaarProduct.cls.xml (revision 0) +++ zTryout/ARC/DOM/MAG/impl/DataM/StockeerbaarProduct.cls.xml (revision 995) @@ -0,0 +1,111 @@ + + + +zTryout.ARC.TECH.Persistentie,zTryout.ARC.DOM.MAG.enu +1 +%RegisteredObject +62189,60877.427401 +0 + + +%Integer +1 + + + +zTryout.ARC.TECH.Persistentie.GlobalNode +1 + + + +zTryout.ARC.TECH.Persistentie.GlobalNode +1 + + + +zTryout.ARC.TECH.Persistentie.GlobalNode +1 + + + +1 +PRNr:%Integer +zTryout.ARC.DOM.PM.impl.DataM.FysiekProduct + + + + +PRNr:%Integer + + + + +%Boolean + + + + +%Integer + + + + +RotatieKlassificatie + + + + +Cyclecounttype + + + + +TelweegschaalTelwijze + + + + +1 +%String + + + + +1 +%String + + + + +1 +%String + + + + + Index: WS/Web/OLParticulier/impl/Sessie2APPSContext.cls.xml =================================================================== diff -u -r913 -r995 --- WS/Web/OLParticulier/impl/Sessie2APPSContext.cls.xml (.../Sessie2APPSContext.cls.xml) (revision 913) +++ WS/Web/OLParticulier/impl/Sessie2APPSContext.cls.xml (.../Sessie2APPSContext.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + Conversie van Sesiie gegevens naar APPSContext. @@ -8,7 +8,7 @@ TECH.Error 1 APPS.Web.OLParticulier.APPSContext,Sessie2OLGammaContext -62139,39643.741038 +62178,56526.766153 61944,51413.724252 0 @@ -18,13 +18,18 @@ APPS.Web.OLParticulier.APPSContext - + Index: Prod/Kenmerk/MetaDefinitie.cls.xml =================================================================== diff -u -r937 -r995 --- Prod/Kenmerk/MetaDefinitie.cls.xml (.../MetaDefinitie.cls.xml) (revision 937) +++ Prod/Kenmerk/MetaDefinitie.cls.xml (.../MetaDefinitie.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + persistent %VHMacro 1 %Library.Persistent -62160,61914.031661 +62188,56568.315014 59275,52589.182 0 @@ -35,11 +35,12 @@ -P=Popup is een beperkte lijst op voorhand vastgelegd +NIET GEBRUIKEN : P=Popup is een beperkte lijst op voorhand vastgelegd +Popup door JBL weggehaald op 2011-04-07 voor story https://www.pivotaltracker.com/story/show/11119799 L=Lijst is een onbeperkte lijst, bepaald on runtime en kan door de gebruiker aangevuld worden. %Library.String - - + + @@ -176,6 +177,11 @@ %Boolean + +%Boolean +0 + + 0 %List @@ -470,12 +476,12 @@ SELECT ID,Groep,Decimalen,DisableWhen,Eenheid,Format, Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr, Lengte,MaxValue,MinValue,Multiple,MultipleDisplay, - Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType + Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,WaardenSortering2,WaardenSortering3 FROM Prod_Kenmerk.MetaDefinitie WHERE (Groep=:paGroep) ORDER BY VolgNr - + @@ -576,8 +582,11 @@ WaardenSortering4 + +NieuweWaardeToegelaten + - + Index: vhUnitTest/DOM/CRM/TestMaakPersoon.cls.xml =================================================================== diff -u --- vhUnitTest/DOM/CRM/TestMaakPersoon.cls.xml (revision 0) +++ vhUnitTest/DOM/CRM/TestMaakPersoon.cls.xml (revision 995) @@ -0,0 +1,22 @@ + + + + +JBL + 2011-03-29 +1 +vhUnitTest.TestCase +62179,47644.235015 +0 + + +%Integer +1 + + + + + do ##class(vhUnitTest.Manager).RunTest("/Display=all","DOM.CRM.TestMaakPersoon") + + + + Index: TECH/Error.inc.rou =================================================================== diff -u -r948 -r995 --- TECH/Error.inc.rou (.../Error.inc.rou) (revision 948) +++ TECH/Error.inc.rou (.../Error.inc.rou) (revision 995) @@ -29,6 +29,7 @@ #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 @@ -40,6 +41,8 @@ #define chkValidateObject(%obj) Set sc=%obj.%ValidateObject() If $$$ISERR(sc) $$$ThrowErrorStatus($$$errObjectValidationFailed,"%obj",sc) #define chkValidateDataType(%dt,%p) if '##class(%dt).IsValidDT(%p) $$$ThrowError($$$errInvalidInput,%p) +#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" Index: WS/PM/ProductService.cls.xml =================================================================== diff -u -r946 -r995 --- WS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 946) +++ WS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + JBL + 2011-03-03 1 %SOAP.WebService -62164,35796.6281 +62187,58583.822838 62159,61728.499051 0 @@ -21,7 +21,7 @@ Geef gegeven de criteria een lijst terug met producten (Prod.Product) Criteria:APPS.PM.dto.ZoekCriteria -APPS.PM.dto.ProductZoekResultaatList +APPS.PM.dto.ProductIDsControleResult 1 @@ -35,6 +35,38 @@ + + +PRNrs:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult +1 + + + + +Kortteksten:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult +1 + + + + +Dossiernrs:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult +1 + + + + +Identnrs:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult +1 + + - + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmPlusSifonLade.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml =================================================================== diff -u -r956 -r995 --- vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml (.../TestResourceGebruikCalculator.cls.xml) (revision 956) +++ vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml (.../TestResourceGebruikCalculator.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestResourceGebruikCalculator") 1 vhUnitTest.TestCase -62174,58183.243782 +62178,30805.546235 0 @@ -37,7 +37,7 @@ ]]> - + 0,"Het resourcegebruik van de ALUFrees is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUZaag > 0,"Het resourcegebruik van de ALUZaag is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUOperator > 0,"Het resourcegebruik van de ALUOperator is groter dan 0") - Set ResourceGebruik = ToeleveringInfo.ProductInfoLijst.GetAt(2).ActiviteitInfoLijst.GetAt(1).ResourceGebruik + Do ResultSet.Next() + Set ProductInfoID = ResultSet.Data("ID") + &SQL(SELECT ID INTO :ActiviteitInfoID FROM APPS_Halux_Planning_impl.ActiviteitInfo WHERE ProductInfoID = :ProductInfoID) + + Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%OpenId(ActiviteitInfoID).ResourceGebruik + Do $$$AssertTrue(ResourceGebruik.ALUFrees > 0,"Het resourcegebruik van de ALUFrees is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUZaag > 0,"Het resourcegebruik van de ALUZaag is groter dan 0") Do $$$AssertTrue(ResourceGebruik.ALUOperator > 0,"Het resourcegebruik van de ALUOperator is groter dan 0") ]]> - + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmLade.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: zTryout/CSC/KenmerkConversie.cls.xml =================================================================== diff -u -r946 -r995 --- zTryout/CSC/KenmerkConversie.cls.xml (.../KenmerkConversie.cls.xml) (revision 946) +++ zTryout/CSC/KenmerkConversie.cls.xml (.../KenmerkConversie.cls.xml) (revision 995) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62137,39236.215885 +62188,61575.019485 0 @@ -119,11 +119,70 @@ ]]> + + +Converteert het gegeven Product met de gegeven Convertor naar IngegevenKenmerken. +Deze en de bijhorende ProductSpecificatie zullen bewaard worden. + +Convertor en Product moeten nog polymorph gemaakt worden. +Wanneer Product afgeleid wordt van DOM.PM.Product, dan kan die zelf zijn Familie, Variant en PRNr bepalen. Dan kunnen die parameters logischerwijs weggelaten worden. + +Deze method moet in een Helper-klasse geplaatst worden. +1 +Convertor:%RegisteredObject,Product:%RegisteredObject,Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,PRNr:%String + 0) { + Set Iterator = ##class(TECH.ListIterator).%New(ErrorLijst) + While (Iterator.HasNext()) + { + Do ##class(vhLib.Logger).%New("Kenmerken conversie").Info("Probleem bij product "_PRNr,Iterator.Next()) + } + } + + Set ProductSpecificatie = "" + Set ProductSpecificatieID = $Piece($G(^KPR(PRNr,15)),"\",13) + + If $Length(ProductSpecificatieID) { + Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%OpenId(ProductSpecificatieID) + } + + If ($IsObject(ProductSpecificatie)) { + Do ProductSpecificatie.ZetIngegevenKenmerken(Kenmerken) + } + Else { + Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, Kenmerken) + Do ProductSpecificatie.Annotaties.SetAt("De ingegeven kenmerken werden gegenereerd door conversie van het oude product","Gegenereerd door") + } + + Set Status = ProductSpecificatie.%Save() + + If ($$$ISOK(Status)) { + Set $Piece(^KPR(PRNr,15),"\",13) = ProductSpecificatie.%Id() + } + Else { + Set ParsedStatus = $$ParseStatus^vhLib(Status) + Do ##class(vhLib.Logger).%New("Kenmerken conversie").Info("Probleem bij product "_PRNr,"Save gefaald voor "_PRNr_": "_ParsedStatus) + } + Quit +]]> + + %SQLQuery SELECT ID FROM Prod_GADef.KaderDeur where templateroutine is null - + Index: zTryout/ARC/DOM/common/fysiek/Volume.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/common/fysiek/Volume.cls.xml (revision 0) +++ zTryout/ARC/DOM/common/fysiek/Volume.cls.xml (revision 995) @@ -0,0 +1,15 @@ + + + +1 +%RegisteredObject +62179,62978.944813 +0 + + + + + + + Index: zTryout/ARC/DOM/MAG/impl/DataM/MagazijnAPI.cls.xml =================================================================== diff -u --- zTryout/ARC/DOM/MAG/impl/DataM/MagazijnAPI.cls.xml (revision 0) +++ zTryout/ARC/DOM/MAG/impl/DataM/MagazijnAPI.cls.xml (revision 995) @@ -0,0 +1,17 @@ + + + +1 +%RegisteredObject +62189,60742.198386 +0 + + +PRNr:%String +zTryout.ARC.DOM.MAG.StockeerbaarProduct + + + + + Index: Prod/GADef/KaderDeur.cls.xml =================================================================== diff -u -r734 -r995 --- Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 734) +++ Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + Afspraken i.v.m. Posities van Beslag en Boringen: @@ -17,8 +17,9 @@ ]]> persistent +vhLib.Macro Prod.GADef.AfgeleidDef,%VHSys.Library -61865,43354.142524 +62188,60468.776989 59275,54270.198 0 @@ -1025,6 +1026,9 @@ . Set sc=..%Save() . Kill %WijzigTSFixed ;d WL^vhDBG("End KPRCreate "_$S(..%IsModified():"IsMod=1",1:"")_".") + + Do ..BewaarIngegevenKenmerken() + Quit kpcHALFFAB @@ -1322,6 +1326,38 @@ ]]> + + +Bewaren van de nieuwe IngegevenKenmerken (via KenmerkConvertor) +1 +0) + + Set $ZTRAP = "bikFout" + + Set Kaderdeur = ##this + If (Kaderdeur.Toepassing.ItemID '= "KLC") + { + Set Convertor = ##class(APPS.PM.Maatwerk.KAD.Conversie.KenmerkConvertor).%New() + + Set PRNr = Kaderdeur.ProductGetObjectId() + Set Familie = ##class(DOM.PM.enu.Familie).AluKader() + Set Variant = ##class(DOM.PM.enu.AluKaderVariant).Basis() + + Do ##class(zTryout.CSC.KenmerkConversie).ConverteerProductToIK(Convertor,Kaderdeur,Familie,Variant,PRNr) + } + Set $ZTRAP = "" + Quit + +bikFout + Set $ZTRAP = "" + Set Exception = ##class(TECH.ExceptionHandler).Catch() + Set Body="PRNr = "_..ProductGetObjectId()_$$$CRLF_Exception.ToString()_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib(1,"") + Do SendMiniMail^vhLib($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in Kaderdeur KenmerkConversie",Body) + Quit +]]> + + Lopendemeter van een kaderdeur in m @@ -2784,5 +2820,5 @@ - + Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml =================================================================== diff -u -r956 -r995 --- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 956) +++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService") 1 vhUnitTest.TestCase -62174,60759.541411 +62186,33133.173324 0 @@ -44,6 +44,64 @@ ]]> + +0,"Er zijn nieuwe dueouts voorgesteld") + + Set Alternatief2 = Alternatieven.Lijst.GetAt(2) + Do $$$AssertEquals(Alternatief2.ToeleveringNummer,298209,"Alternatief voor toelevering 298209") + Do $$$AssertTrue(Alternatief2.Data.Count()>0,"Er zijn nieuwe dueouts voorgesteld") +]]> + + + + + + @@ -92,7 +152,7 @@ Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195) Do $$$AssertEquals(ToeleveringInfo.ExplicietePlanningen.Count(),1, "De data voor de expliciete planning is bewaard") - Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum") Set Bestaat = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(133333) Do $$$AssertFalse(Bestaat, "De data voor de expliciete planning is niet bewaard") @@ -120,19 +180,19 @@ Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195) Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt") - Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum") Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers) Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt") - Do $$$AssertEquals(ToeleveringInfo.Dag,62133,"Het item is gepland op de nieuwe datum") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62133,3),"Het item is gepland op de nieuwe datum") Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer) Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt") - Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is terug geplaatst op de vorige verplaatsing") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is terug geplaatst op de vorige verplaatsing") Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer) Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt") - Do $$$AssertEquals(ToeleveringInfo.Dag,62137,"Het item is terug geplaatst op de vorige verplaatsing") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62137,3),"Het item is terug geplaatst op de vorige verplaatsing") Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer) Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData) @@ -157,15 +217,15 @@ Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers) Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt") - Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62135,3),"Het item is gepland op de nieuwe datum") Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers) Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt") - Do $$$AssertEquals(ToeleveringInfo.Dag,62133,"Het item is gepland op de nieuwe datum") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62133,3),"Het item is gepland op de nieuwe datum") Set Resultaat = Service.VerwijderAlleVerplaatsingen(ToeleveringsNummer) Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt") - Do $$$AssertEquals(ToeleveringInfo.Dag,62137,"Het item is terug geplaatst op de dueout time") + Do $$$AssertEquals($Piece(ToeleveringInfo.Gepland," "),$zd(62137,3),"Het item is terug geplaatst op de dueout time") Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer) Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData) @@ -179,7 +239,7 @@ Do ToeleveringNummers.Insert(298209) Set Service = ##class(APPS.Halux.Planning.PlanningService).%New() - Set Resultaat = Service.MaakBatch(ToeleveringNummers) + Set Resultaat = Service.MaakBatch(1,ToeleveringNummers) Do $$$AssertTrue($IsObject(Resultaat),"Het resultaat is een object") Do $$$AssertTrue(Resultaat.BatchID > 0,"Een batch werd aangemaakt") @@ -196,7 +256,7 @@ Do ToeleveringNummers.Insert(296195) Set Service = ##class(APPS.Halux.Planning.PlanningService).%New() - Set Resultaat = Service.MaakBatch(ToeleveringNummers) + Set Resultaat = Service.MaakBatch(1,ToeleveringNummers) // Maakbatch zal falen omdat de toelevering enkel kaderdeuren bevat @@ -207,5 +267,5 @@ ]]> - + Index: Res/ImageLink.cls.xml =================================================================== diff -u -r734 -r995 --- Res/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 734) +++ Res/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 995) @@ -1,12 +1,12 @@ - + Resource.Image persistent 1 %Persistent -61800,38592.129149 +62188,34827.099991 60599,31536.811803 0 @@ -146,6 +146,8 @@ + +JBL extra uitleg : VisueelType (W = Web, T = Tumbnail, P = Print) %SQLQuery ID:%String,FunctieType:%String,lbVisueelType:%List,lbExtensie:%List,Taal - + Index: WS/EC/ProductServer.cls.xml =================================================================== diff -u -r913 -r995 --- WS/EC/ProductServer.cls.xml (.../ProductServer.cls.xml) (revision 913) +++ WS/EC/ProductServer.cls.xml (.../ProductServer.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + @@ -11,16 +11,10 @@ BL.EC.Common 1 %SOAP.WebService -62157,51721.021869 +62180,48484.136529 60207,60267.582459 0 - - -URL for invoking the WebService. -http://cache02.vanhoecke.be/vhisie3 - - Name of the WebService. @@ -161,5 +155,5 @@ ]]> - + Index: Prod/Kenmerk/Orgalux.cls.xml =================================================================== diff -u -r946 -r995 --- Prod/Kenmerk/Orgalux.cls.xml (.../Orgalux.cls.xml) (revision 946) +++ Prod/Kenmerk/Orgalux.cls.xml (.../Orgalux.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + DOM.PM.OL 1 Prod.Kenmerk.Product -62166,35546.494999 +62181,67549.584337 62081,42253.24661 0 @@ -53,6 +53,13 @@ ]]> + +KenmerkNaam:%String +%List + + + %String - -%List - - - Listbuild %String @@ -248,7 +249,7 @@ %String @@ -280,7 +281,7 @@ %String @@ -294,7 +295,7 @@ %String @@ -426,7 +427,9 @@ If $L(TipPastInBinnenLade)&&($$$Not($LF(lbTips,TipPastInBinnenLade)>0)) Set lbTips=lbTips_$LB(TipPastInBinnenLade) } - If ($lf(..GetLadeFamilies(),"TBX_plus_Boxside_Ew_of_Dw")) + /// Tip toevoegen als ladefamilie gevonden wordt + /// Maar niet automatisch toevoegen als de tip reeds manueel is toegevoegd. + If ($LF(..GetLadeFamilies(),"TBX_plus_Boxside_Ew_of_Dw") && '$LF(lbTips,"TIPS_Dubbelw_Boxside_AanTeRaden_SepBestellen")) { //TIPS_Dubbelw_Boxside_separaat_bestellen Set lbTips=lbTips_$LB("TIPS_Dubbelw_Boxside_separaat_bestellen") @@ -886,8 +889,8 @@ Set:(WandDikte="") WandDikte=17 ; midden tussen 16 en 18 :-P - Quit:(LadeBreedteMin)&&(BeperkBreedteInMM+FoutMargeOpMeting<((LadeBreedteMin*10)-(2*WandDikte))) 0 - Quit:(LadeBreedteMax)&&(BeperkBreedteInMM-FoutMargeOpMeting>((LadeBreedteMax*10)-(2*WandDikte))) 0 + Quit:(LadeBreedteMin)&&(BeperkBreedteInMM+FoutMargeOpMeting<((LadeBreedteMin)-(2*WandDikte))) 0 + Quit:(LadeBreedteMax)&&(BeperkBreedteInMM-FoutMargeOpMeting>((LadeBreedteMax)-(2*WandDikte))) 0 Quit 1 ]]> @@ -1156,5 +1159,5 @@ ]]> - + Index: TECH/ExceptionHandler.cls.xml =================================================================== diff -u --- TECH/ExceptionHandler.cls.xml (revision 0) +++ TECH/ExceptionHandler.cls.xml (revision 995) @@ -0,0 +1,58 @@ + + + +1 +%RegisteredObject +62180,35636.985269 +0 + + +1 +Exception:TECH.IException + + + + +1 +ExceptionTypes...:%String +TECH.IException + + + + + Index: vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml (.../TestTBXLade.cls.xml) (revision 946) +++ vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml (.../TestTBXLade.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.TBXProduct.TestTBXLade") 1 vhUnitTest.TestCase -62172,60117.682003 +62179,52983.108818 0 @@ -19,6 +19,7 @@ Do $$$AssertTrue(Product.GeefPRNr() > 0,"De productnummer is ingevuld") Do $$$AssertEquals(Product.GeefIdentNr(),"9.952.265.5","Het ident nummer") Do $$$AssertTrue('Product.IsLangGoed(),"Het product is geen langgoed") + Do $$$AssertTrue(Product.GeefPrijs()>0,"De prijs van het product is groter dan 0") ]]> @@ -149,5 +150,5 @@ ]]> - + Index: zTryout/JCL/Rel/Main.cls.xml =================================================================== diff -u --- zTryout/JCL/Rel/Main.cls.xml (revision 0) +++ zTryout/JCL/Rel/Main.cls.xml (revision 995) @@ -0,0 +1,41 @@ + + + +persistent +1 +%Persistent +62175,42932.990116 +0 + + +%String + + + +zTryout.JCL.Rel.Child +many +Main +1 + + + +%Library.CacheStorage +^zTryout.JCL.Rel.MainD +MainDefaultData +^zTryout.JCL.Rel.MainD +^zTryout.JCL.Rel.MainI +^zTryout.JCL.Rel.MainS + +listnode + + +%%CLASSNAME + + +A + + + + + + Index: vhUnitTest/DOM/OV/TestOrder.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/OV/TestOrder.cls.xml (.../TestOrder.cls.xml) (revision 946) +++ vhUnitTest/DOM/OV/TestOrder.cls.xml (.../TestOrder.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestOrder") 1 vhUnitTest.TestCase -62168,59557.240422 +62178,39084.037561 0 @@ -29,7 +29,9 @@ Do $$$AssertEquals(Order.GeefKlantNr(),1000,"Order voor testklant VH") Do $$$AssertTrue('Order.BevatLangGoed(),"Het order bevat geen langgoed") Do $$$AssertFalse(Order.IsASAP(),"Het order is ASAP") - Do $$$AssertEquals(Order.GeefIngegevenDoor(),"Christiaan Willems","Order ingegeven door") + Do $$$AssertEquals(Order.GeefIngegevenDoor(),"CW","Order ingegeven door") + Do $$$AssertEquals(Order.GeefVerzendingWijze(),"EX;1`EX;3`EX;5","De verzendwijze") + Do $$$AssertTrue($IsObject(Order.GeefVerzendWijze()),"DOM.VKP.VerzendWijze object") Set Adres = Order.GeefAfleveradres() Do $$$AssertEquals(Adres.GeefNaam(),"TESTKLANT VAN HOECKE nv","Testklant VH") @@ -40,17 +42,17 @@ Do $$$AssertEquals(Adres.GeefGemeente(),"Sint-Niklaas","Gemeente") Do $$$AssertEquals(Adres.GeefLandNr(),"1019","Land") - Set Orderlijn = Order.GeefOrderlijn(103) + Set Orderlijn = Order.GeefOrderLijn(103) Do $$$AssertTrue($IsObject(Orderlijn),"De orderlijn is een object") Do $$$AssertEquals(Orderlijn.GeefLijnNr(),103,"Het lijnnr is correct") - Set Orderlijn = Order.GeefOrderlijn(104) + Set Orderlijn = Order.GeefOrderLijn(104) Do $$$AssertFalse($IsObject(Orderlijn),"Orderlijn 104 bestaat niet") - Set OrderIterator = Order.GeefOrderlijnIterator() + Set OrderIterator = Order.GeefOrderLijnIterator() Do $$$AssertTrue($IsObject(OrderIterator),"De iterator is ingesteld") - Set OrderIterator = Order.GeefTypeOrderlijnIterator(##class(DOM.OV.enu.OrderlijnType).Manueel()) + Set OrderIterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderLijnType).Manueel()) Do $$$AssertTrue($IsObject(OrderIterator),"De iterator is ingesteld") ]]> @@ -63,7 +65,7 @@ Set OrderNr = 123346 Set Order = OrderAPI.GeefOrder(OrderNr) - Set Orderlijn = Order.GeefOrderlijn(101) + Set Orderlijn = Order.GeefOrderLijn(101) Do $$$AssertEquals(Orderlijn.GeefLeverdag(),62171,"Voorziene leverdag van het order") @@ -87,5 +89,5 @@ ]]> - + Index: zTryout/ARC/Client/OVClient.cls.xml =================================================================== diff -u --- zTryout/ARC/Client/OVClient.cls.xml (revision 0) +++ zTryout/ARC/Client/OVClient.cls.xml (revision 995) @@ -0,0 +1,124 @@ + + + +zTryout.ARC.APPS.common +1 +%RegisteredObject +62189,58466.483966 +0 + + +123552 + + + +OLVLIV60GR + + + +1000 + + + +10 + + + + +Do ##class(zTryout.ARC.Client.OVClient).ZoekProductEnVoegToeAanOrder() +Deze simuleert de calls die vanop de client zouden komen. +1 + + + + +1 +Korttekst:%String +%Integer + + + + +1 +PRNr:%Integer,Aantal:%Integer + + + + + +Do ##class(zTryout.ARC.Client.OVClient).BekijkFysiekProductInfo(64879) +1 +PRNr:%Integer + + + + +1 +OrderNr:%Integer,PRNr:%Integer,Aantal:%Integer + + + + + +Do ##class(zTryout.ARC.Client.OVClient).BekijkOrderTransportInfo(123552) +1 +OrderNr:%Integer=123552 + + + + + FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmPlus.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 995 refers to a dead (removed) revision in file `zTryout/WV/PM/IK/TBXKenmSifonLade.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: vhUnitTest/DOM/PM/Maatwerk/HF/DataSet.cls.xml =================================================================== diff -u -r946 -r995 --- vhUnitTest/DOM/PM/Maatwerk/HF/DataSet.cls.xml (.../DataSet.cls.xml) (revision 946) +++ vhUnitTest/DOM/PM/Maatwerk/HF/DataSet.cls.xml (.../DataSet.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + 1 1 %RegisteredObject -62167,50218.955079 +62179,59727.340508 0 @@ -51,6 +51,23 @@ ]]> + +%String + + + De DataSet opvullen met alle mogelijke test cases (voor deze variant) @@ -100,5 +117,5 @@ ]]> - + Index: Prod/GAData/Product.cls.xml =================================================================== diff -u -r734 -r995 --- Prod/GAData/Product.cls.xml (.../Product.cls.xml) (revision 734) +++ Prod/GAData/Product.cls.xml (.../Product.cls.xml) (revision 995) @@ -1,5 +1,5 @@ - + 0 0 @@ -9,7 +9,7 @@ 0 %Library.Persistent,%XML.Adaptor 0 -61909,31999.034357 +62188,60497.001038 60124,43245.68975 0 @@ -748,6 +748,8 @@ 0 @@ -841,6 +843,46 @@ ]]> + + +Bewaren van de nieuwe IngegevenKenmerken (via KenmerkConvertor) +1 +0) + + Set $ZTRAP = "bikFout" + + Set GADataProduct=##this + Set GenType=GADataProduct.MetaStruct.Code + If GenType="TBX" + { + Set Convertor = ##class(APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor).%New() + + Set PRNr=GADataProduct.ProductGetObjectId() + Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + Set Product = ProductAPI.GeefProduct(PRNr) + Set Familie = Product.GeefFamilie() + Set Variant = Product.GeefVariant() + + Do ##class(zTryout.CSC.KenmerkConversie).ConverteerProductToIK(Convertor,Product,Familie,Variant,PRNr) + } + ElseIf GenType="KAD" + { + // wordt opgeroepen vanuit de Prod.GADef.KaderDeur klasse zelf + } + + Set $ZTRAP = "" + Quit + +bikFout + Set $ZTRAP = "" + Set Exception = ##class(TECH.ExceptionHandler).Catch() + Set Body="PRNr = "_..ProductGetObjectId()_$$$CRLF_Exception.ToString()_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib(1,"") + Do SendMiniMail^vhLib($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in TandemBox KenmerkConversie",Body) + Quit +]]> + + Deze method kan slechts opgeroepen worden (TBX) als het Product berekend is @@ -1297,5 +1339,5 @@ - + Index: vhUnitTest/APPS/PM/OL/OrgaluxGammaExporter.cls.xml =================================================================== diff -u -r860 -r995 --- vhUnitTest/APPS/PM/OL/OrgaluxGammaExporter.cls.xml (.../OrgaluxGammaExporter.cls.xml) (revision 860) +++ vhUnitTest/APPS/PM/OL/OrgaluxGammaExporter.cls.xml (.../OrgaluxGammaExporter.cls.xml) (revision 995) @@ -1,10 +1,10 @@ - + DOM.PM.OL 1 vhUnitTest.TestCase -62129,32060.741349 +62181,41344.918754 0 @@ -128,10 +128,10 @@ - + Index: zTryout/WV/PM/OL/KenmerkWaardeToMM.cls.xml =================================================================== diff -u --- zTryout/WV/PM/OL/KenmerkWaardeToMM.cls.xml (revision 0) +++ zTryout/WV/PM/OL/KenmerkWaardeToMM.cls.xml (revision 995) @@ -0,0 +1,99 @@ + + + +APPS.PM.OL.Common,%Prod.Product,BL.Derde.KlantSpecifiek +1 +APPS.PM.OL.KenmerkBuilderOL +62181,67707.813268 +0 + + + +Hoofdgroep van de Kenmerken (=MetaGroep) = "OL" +%String +1 + + + + +BL-object voor het behandelen van de Multiples (= meerdere kenmerken-sets per product) +BL.Kenm.ProdMulti +1 + + + + +Houdt info van de huidige export bij. +%String +1 + + + + +s sc=##class(zTryout.WV.PM.OL.KenmerkWaardeToMM).Generate(FlagReadOnly) w sc,! +flagReadOnly:%Boolean +1 +%Status + + + + +1 +%Status + + + + +KenmerkNaam:%String,ConverterObj:zTryout.WV.PM.OL.ConvertKenmerkCMToMM +1 + + + + +KenmerkNaam:%String,Delim:%String,ConverterObj:zTryout.WV.PM.OL.ConvertKenmerkCMToMM +1 + + + + + Index: Test/CW.cls.xml =================================================================== diff -u -r734 -r995 --- Test/CW.cls.xml (.../CW.cls.xml) (revision 734) +++ Test/CW.cls.xml (.../CW.cls.xml) (revision 995) @@ -1,12 +1,55 @@ - + -persistent +datatype 1 -%Persistent -62109,50108.604786 +%String +62180,46850.761645 0 + +,NGI,TVV,INK,EXP + + + +,Niet geïmpacteerd,Te vervangen,Inkortbaar,Extra product + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + %Library.CacheStorage ^Test.CWD @@ -23,5 +66,6 @@ - + + FishEye: Tag 995 refers to a dead (removed) revision in file `vhUnitTest/DOM/HR/ProtimeHDP.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 995 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/BuilderUTIntivoHFv000.cls.xml'. FishEye: No comparison available. Pass `N' to diff?