Index: APPS/PM/OL/ImportLog.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/PM/OL/ImportLog.cls.xml (.../ImportLog.cls.xml) (revision 1073) +++ APPS/PM/OL/ImportLog.cls.xml (.../ImportLog.cls.xml) (revision 1133) @@ -128,20 +128,13 @@ - - - - - - - - - Log AUTO-product als "aangeduid in de Data" @@ -186,6 +179,27 @@ ]]> + + +Geeft een ObjectList van de verwerkte UnIDs terug . +Dit is enkel interessant wanneer GenereerVariantenVoorMaster (dus voor één Master) is opgeroepen. +%ListOfDataTypes + + + Log AUTO-product als "gegenereerd vanuit de MASTER" Index: TECH/Print/Kolommen/DocumentType.cls.xml =================================================================== diff -u -r1074 -r1133 --- TECH/Print/Kolommen/DocumentType.cls.xml (.../DocumentType.cls.xml) (revision 1074) +++ TECH/Print/Kolommen/DocumentType.cls.xml (.../DocumentType.cls.xml) (revision 1133) @@ -103,6 +103,9 @@ Sla het documenttype op in de bijbehorende globals zodat er document met gemaakt kunnen worden Open via s sc=##class(APPS.PM.OL.LadeBreedteAangeradenBuilder).Generate(flagReadOnly) w sc,! -flagReadOnly:%Boolean +flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status Index: WV GAProduct.prj.xml =================================================================== diff -u -r1053 -r1133 --- WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 1053) +++ WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 1133) @@ -1,6 +1,6 @@ - - + + @@ -9,6 +9,7 @@ + @@ -140,5 +141,4 @@ - Index: DOM/CRM/KlantAPI.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 1075) +++ DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 1133) @@ -35,5 +35,10 @@ + + +1 +DOM.CRM.Klant + Index: zTryout/CSC/BatchConversie.cls.xml =================================================================== diff -u --- zTryout/CSC/BatchConversie.cls.xml (revision 0) +++ zTryout/CSC/BatchConversie.cls.xml (revision 1133) @@ -0,0 +1,35 @@ + + + +1 +%RegisteredObject +0 + + + +Do ##class(zTryout.CSC.BatchConversie).Try6() +1 + + + + Index: _vhisie/TBX/WizPData.csp =================================================================== diff -u -r757 -r1133 --- _vhisie/TBX/WizPData.csp (.../WizPData.csp) (revision 757) +++ _vhisie/TBX/WizPData.csp (.../WizPData.csp) (revision 1133) @@ -42,6 +42,8 @@ . Set:($E(tmpMail,1)="~") tmpMail="" . Set:($E(tmpMail,1)="#") $E(tmpMail,1)="" . Set arPDT("EMAIL")=tmpMail + . If arPDT("TEL")_arPDT("FAX")_arPDT("EMAIL")="" Do ; Added by WimV on 02/05/2011 : klant zonder tel/fax/mail kon niet naar stap 2 van de wizard. + . . Set arPDT("TEL")=" " . ;Set arPDT("PKLASSE")=KLMini.PrijsKlasse ; In HTML/JavaScript genaamd: AfdrukCode . Set KLMini="" Else If (blnLMC||blnSFS||blnMBHO)&&(wsID>0) Do Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostSpecInfo.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/Maatwerk/Calc/Kost/impl/KostSpecInfo.cls.xml (.../KostSpecInfo.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KostSpecInfo.cls.xml (.../KostSpecInfo.cls.xml) (revision 1133) @@ -22,6 +22,8 @@ + +De klassenaam van de KostSpec %String 1 Index: APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml (.../ActiviteitInfoALU.cls.xml) (revision 1073) +++ APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml (.../ActiviteitInfoALU.cls.xml) (revision 1133) @@ -32,7 +32,7 @@ &SQL(SELECT SchaduwVersion INTO :SchaduwVersie FROM Prod_GAData.Template WHERE Code = "KADBasis") If (..Product.GeefSchaduwVersie() '= SchaduwVersie) { - //Do ##class(Prod.GADef.KaderDeur).KPRCreateSchaduwViaPRNr(..Product.GeefPRNr()) + Do ##class(Prod.GADef.KaderDeur).KPRCreateSchaduwViaPRNr(..Product.GeefPRNr()) } Set KostBouwstenenIterator = ..Product.GeefKostSchaduwBouwstenenIt() @@ -54,33 +54,33 @@ Index: CSC Halux lijsten.prj.xml =================================================================== diff -u --- CSC Halux lijsten.prj.xml (revision 0) +++ CSC Halux lijsten.prj.xml (revision 1133) @@ -0,0 +1,18 @@ + + + + + + + + + + + + + + + + + + Index: vhUnitTest/DOM/PM/ASMProduct/TestASMProduct.cls.xml =================================================================== diff -u --- vhUnitTest/DOM/PM/ASMProduct/TestASMProduct.cls.xml (revision 0) +++ vhUnitTest/DOM/PM/ASMProduct/TestASMProduct.cls.xml (revision 1133) @@ -0,0 +1,41 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.ASMProduct.TestASMProduct") +1 +vhUnitTest.TestCase +0 + + + + + + + + + + Index: vhUnitTest/Manager.cls.xml =================================================================== diff -u -r1070 -r1133 --- vhUnitTest/Manager.cls.xml (.../Manager.cls.xml) (revision 1070) +++ vhUnitTest/Manager.cls.xml (.../Manager.cls.xml) (revision 1133) @@ -1,5 +1,5 @@ - + Adopted from InterSystems's %UnitTest.Manager by logist (Dimas ltd., Russia) @@ -12,8 +12,6 @@ vhLib.Macro 1 %RegisteredObject -62209,52056.366104 -59429,65352.216564 0 @@ -156,13 +154,13 @@ Do ..LogStateBegin(suite,class) Do Do ..LogStateEnd(suite,class) . Set testcase=$zobjclassmethod(class,"%New",##this) . Set testcase.Debug=..Debug - . Set $zt= "MethErrorOnBeforeAllTests" + . Set:'..Debug $zt= "MethErrorOnBeforeAllTests" . Set sc=testcase.OnBeforeAllTests() If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnBeforeAllTests") Quit . Set method="" For Set method=$$$comMemberNext(class,$$$cCLASSmethod,method) q:method="" If $e(method,1,4)="Test" Do . . Do ..LogStateBegin(suite,class,method) Do Do ..LogStateEnd(suite,class,method) . . . Set success=0 - . . . Set $zt="MethError" + . . . Set:'..Debug $zt="MethError" . . . Set sc=testcase.OnBeforeOneTest(method) If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnBeforeOneTest") Quit . . . Set zhbeg=$zh Do $zobjmethod(testcase,method) Set zhend=$zh . . . Set ..TestCount=..TestCount+1 @@ -173,7 +171,7 @@ . . . Quit . Goto AfterAllTests MethErrorOnBeforeAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnBeforeAllTests") -AfterAllTests . Set $zt= "MethErrorOnAfterAllTests" +AfterAllTests . Set:'..Debug $zt= "MethErrorOnAfterAllTests" . Set sc=testcase.OnAfterAllTests() If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnAfterAllTests") Quit . Goto Einde MethErrorOnAfterAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnAfterAllTests") Goto Einde @@ -389,5 +387,4 @@ ]]> - Index: DS/PPS/TBX/Queue.cls.xml =================================================================== diff -u -r1074 -r1133 --- DS/PPS/TBX/Queue.cls.xml (.../Queue.cls.xml) (revision 1074) +++ DS/PPS/TBX/Queue.cls.xml (.../Queue.cls.xml) (revision 1133) @@ -148,6 +148,23 @@ ]]> + +1 +BatchRemovedEvent:DOM.PM.Maatwerk.TBX.BatchRemovedEvent + + + + +1 + + + %Library.CacheStorage ^PPS.QueueD Index: BL/Sys/LabelPrinter.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/Sys/LabelPrinter.cls.xml (.../LabelPrinter.cls.xml) (revision 1074) +++ BL/Sys/LabelPrinter.cls.xml (.../LabelPrinter.cls.xml) (revision 1133) @@ -25,17 +25,11 @@ %RegisteredObject 0 - -\\BARTENDER\DROPFOLDER - + +##class(TECH.Config.ConfigMgr).Instance().GetString("PrintFileDropFolder") + - -\\BARTENDER\DROPFOLDER\ - - - -Parameter BartenderPathOL = "\\TR_XP\DROPFOLDER\HALPPROD01\"; OrgaluxColor2 @@ -297,13 +291,14 @@ Set File=0 Set FileName = $TR(BartDevice,"\ ","")_"_"_$I(^Sys.LabelPrinterD)_"_"_$TR(BartLayout,". ","")_".TXT" ; indien dropfolder toegekend altijd die gebruiken - if $L(..Dropfolder) Set File=$$OPEN^vhDEV(..Dropfolder,FileName,"W","M") - Else Set File=$$OPEN^vhDEV($S(..Debug:..#BartenderDebugPath,BartDevice=..#BartenderDeviceOL:..#BartenderPathOL,1:..#BartenderPath),FileName,"W","M") - If ^Sys.LabelPrinterD>9999999 Lock +^Sys.LabelPrinterD Set ^Bartender=0 Lock -^Sys.LabelPrinterD + + set AllwaysRedirectBartenderFiles = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("AllwaysRedirectBartenderFiles") + if ($L(..Dropfolder))&&('AllwaysRedirectBartenderFiles) Set File=$$OPEN^vhDEV(..Dropfolder,FileName,"W","M") + Else Set File=$$OPEN^vhDEV(..BartenderPath,FileName,"W","M") + If ^Sys.LabelPrinterD>9999999 Lock +^Sys.LabelPrinterD Set ^Sys.LabelPrinterD=0 Lock -^Sys.LabelPrinterD Use File Write "%BTW% /AF="""_..#BartenderLayoutPath_BartLayout_".btw"" /PRN="""_BartDevice_""" /R=3 /P /D= /CLOSE",$C(13,10) Write "%END%",$C(13,10) - ;d WLIP^vhDBG(15,"BART2:"_BartDevice_" "_$S($G(..Debug):..#BartenderDebugPath,BartDevice=..#BartenderDeviceOL:..#BartenderPathOL,1:..#BartenderPath)) Quit File ]]> Index: zTryout/CSC/TestKlas2.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/CSC/TestKlas2.cls.xml (.../TestKlas2.cls.xml) (revision 1074) +++ zTryout/CSC/TestKlas2.cls.xml (.../TestKlas2.cls.xml) (revision 1133) @@ -1,20 +1,31 @@ +persistent 1 -%RegisteredObject +%Persistent +0 -i:%Integer=1 %Integer - + + +%Library.CacheStorage +^zTryout.CSC.TestKlas2D +TestKlas2DefaultData +^zTryout.CSC.TestKlas2D +^zTryout.CSC.TestKlas2I +^zTryout.CSC.TestKlas2S + +listnode + + +%%CLASSNAME + + + Index: zTryout/CSC/ChangePackage/PersKlasse.cls.xml =================================================================== diff -u --- zTryout/CSC/ChangePackage/PersKlasse.cls.xml (revision 0) +++ zTryout/CSC/ChangePackage/PersKlasse.cls.xml (revision 1133) @@ -0,0 +1,36 @@ + + + +persistent +1 +%Persistent,zTryout.CSC.ChangePackage.Change2,zTryout.CSC.ChangePackage.ChangeInfo +0 + + +%String + + + +%Library.CacheStorage +^zTryout.CSC.Chan938.PersKlasseD +PersKlasseDefaultData +^zTryout.CSC.Chan938.PersKlasseD +^zTryout.CSC.Chan938.PersKlasseI +^zTryout.CSC.Chan938.PersKlasseS + + +%%CLASSNAME + + +Aangemaakt + + +TestProp + + +NogEenProp + + + + + Index: zTryout/CSC/ChangePackage/Change2.cls.xml =================================================================== diff -u --- zTryout/CSC/ChangePackage/Change2.cls.xml (revision 0) +++ zTryout/CSC/ChangePackage/Change2.cls.xml (revision 1133) @@ -0,0 +1,23 @@ + + + +1 +1 +%Persistent +0 + + +%String + + + +insert:%Boolean +1 +%Status + + + + Index: vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml =================================================================== diff -u -r1074 -r1133 --- vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml (.../TestResourceGebruikCalculator.cls.xml) (revision 1074) +++ vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml (.../TestResourceGebruikCalculator.cls.xml) (revision 1133) @@ -58,8 +58,8 @@ Set ResourceGebruik = ActiviteitInfoALU.GeefActiviteitInfoIterator().Next().ResourceGebruik Do $$$AssertTrue(ResourceGebruik.ALUFrees.Hoeveelheid > 0,"Het resourcegebruik van de ALUFrees is groter dan 0") - Do $$$AssertTrue(ResourceGebruik.ALUZaag.Hoeveelheid > 0,"Het resourcegebruik van de ALUZaag is groter dan 0") - Do $$$AssertTrue(ResourceGebruik.ALUOperator.Hoeveelheid > 0,"Het resourcegebruik van de ALUOperator is groter dan 0") + Do $$$AssertTrue(ResourceGebruik.ALUTeam.Hoeveelheid > 0,"Het resourcegebruik van ALUTeam is groter dan 0") + Do $$$AssertTrue(ResourceGebruik.ALUMontage.Hoeveelheid > 0,"Het resourcegebruik van ALUMontage is groter dan 0") // De producten die berekend moeten worden zitten niet in deze toelevering. // Dit is niet echt noodzakelijk omdat voor de berekening enkel een klantnummer nodig is. @@ -109,9 +109,9 @@ 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") + Do $$$AssertTrue(ResourceGebruik.ALUFrees.Hoeveelheid > 0,"Het resourcegebruik van de ALUFrees is groter dan 0") + Do $$$AssertTrue(ResourceGebruik.ALUTeam.Hoeveelheid > 0,"Het resourcegebruik van ALUTeam is groter dan 0") + Do $$$AssertTrue(ResourceGebruik.ALUMontage.Hoeveelheid > 0,"Het resourcegebruik van ALUMontage is groter dan 0") Do ResultSet.Next() Set ProductInfoID = ResultSet.Data("ID") @@ -120,9 +120,9 @@ 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") + Do $$$AssertTrue(ResourceGebruik.ALUFrees.Hoeveelheid > 0,"Het resourcegebruik van de ALUFrees is groter dan 0") + Do $$$AssertTrue(ResourceGebruik.ALUTeam.Hoeveelheid > 0,"Het resourcegebruik van ALUTeam is groter dan 0") + Do $$$AssertTrue(ResourceGebruik.ALUMontage.Hoeveelheid > 0,"Het resourcegebruik van ALUMontage is groter dan 0") ]]> Index: BL/PPS/TBX/LijstDefinities/DwarsverdelingLijstDefinitie.cls.xml =================================================================== diff -u --- BL/PPS/TBX/LijstDefinities/DwarsverdelingLijstDefinitie.cls.xml (revision 0) +++ BL/PPS/TBX/LijstDefinities/DwarsverdelingLijstDefinitie.cls.xml (revision 1133) @@ -0,0 +1,42 @@ + + + +1 +%RegisteredObject +0 + + + +d ##class(BL.PPS.TBX.LijstDefinities.DwarsverdelingLijstDefinitie).MaakDocument() +1 + + + + Index: BL/PPS/TBX/LijstDefinities/GlasSnijlijstDefinitie.cls.xml =================================================================== diff -u --- BL/PPS/TBX/LijstDefinities/GlasSnijlijstDefinitie.cls.xml (revision 0) +++ BL/PPS/TBX/LijstDefinities/GlasSnijlijstDefinitie.cls.xml (revision 1133) @@ -0,0 +1,44 @@ + + + +1 +%RegisteredObject +0 + + + +d ##class(BL.PPS.TBX.LijstDefinities.GlasSnijlijstDefinitie).MaakDocument() +1 + + + + Index: APPS/PM/Maatwerk/Framework/dto/HalffabrikaatSpecificatie.cls.xml =================================================================== diff -u -r1100 -r1133 --- APPS/PM/Maatwerk/Framework/dto/HalffabrikaatSpecificatie.cls.xml (.../HalffabrikaatSpecificatie.cls.xml) (revision 1100) +++ APPS/PM/Maatwerk/Framework/dto/HalffabrikaatSpecificatie.cls.xml (.../HalffabrikaatSpecificatie.cls.xml) (revision 1133) @@ -6,7 +6,10 @@ 0 + +De klassenaam van de HalffabSpec %String +1 Index: APPS/PM/OL/AfgeleideKenmerkenGenerator.cls.xml =================================================================== diff -u --- APPS/PM/OL/AfgeleideKenmerkenGenerator.cls.xml (revision 0) +++ APPS/PM/OL/AfgeleideKenmerkenGenerator.cls.xml (revision 1133) @@ -0,0 +1,236 @@ + + + +APPS.PM.OL.Common +1 +%RegisteredObject +0 + + + + + + + bevestigen voor UpdateFotoSleutelVertalingen en voor ImageLink.ImportOrgaluxViaKenmerken + +Oproepen via + s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).VerwerkAlleProducten(flagReadOnly) w sc,! ]]> +1 +flagReadOnly:%Boolean +%Status + + + + + +Zelfde verwerking als er gebeurt na de import vanuit excel, maar dan slechts voor een lijst van UnID's. + +Deze method is public en kan je dus ook rechtstreeks +oproepen via + s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).VerwerkProducten(ListOfUnIDs,flagReadOnly) w sc,! +1 +ListOfUnIDs:%ListOfDataTypes,flagReadOnly:%Boolean,BLProdMulti:BL.Kenm.ProdMulti +%Status + + + + + +Oproepen via + s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).UpdateFotoSleutelVertalingenALL() w sc,! +1 +%Status + + + + +1 +CheckFotoSleutelsOnly:%Boolean=1 +%ListOfDataTypes +"0.2" ")&&(Key'?1"0) + } + + If FotoSleutelExists { + Do FotoSleutelLijst.Insert(Key) + } + } + } + + Quit FotoSleutelLijst +]]> + + + +1 +ListOfUnIDs:%ListOfDataTypes +%ListOfDataTypes + + + + +" --> "ViaSleutelK/BX5060GR.jpg" + +FotoSleutelLijst moet van het type %ListOfDataTypes zijn ("" is ongeldig) + +Oproepen via + s sc=##class(APPS.PM.OL.AfgeleideKenmerkenGenerator).UpdateFotoSleutelVertaling(FotoSleutelLijst) w sc,! ]]> +1 +FotoSleutelLijst:%ListOfDataTypes +%Status +" + Merge arTemplateVTL=^Res.VertalingAbstractD("PK",FotoSleutelVoorTemplate,"LB","N") + Set arTemplateVTL=$G(arTemplateVTL,$LB("","")) + + Set FotoSleutelIterator=##class(TECH.ListIterator).%New(FotoSleutelLijst) + While FotoSleutelIterator.HasNext() { + Set Key=FotoSleutelIterator.Next() + + ;continue:($$$Trim(Key)'?1(1"",1"")) ; temp test Alleen deze specifieke intivo-producten + + ; Extract ImageName from Key + Set ImgName=$TR($$$Trim(Key),"<>","") + Set:(ImgName?1(1"AO",1"AR",1"AY").E) ImgName=$E(ImgName,1,2) ; Antislipmatten + Set:(ImgName?.E1"xx") $E(ImgName,$L(ImgName)-1,99)="" + Set:(ImgName?.E1"xx.ED") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65" ; voor extra diepte + Set:(ImgName?.E1"xx.65") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65" ; voor extra diepte + Set:(ImgName?.E1".EDGB") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65_G" ; voor extra diepte met glazen boxside + Set:(ImgName?.E1".ED") ImgName=$E(ImgName,1,$L(ImgName)-3)_"_65" ; voor extra diepte + Set:(ImgName?.E1".GB") ImgName=$E(ImgName,1,$L(ImgName)-3)_"_G" ; voor glazen boxside + + If (Key?1" "ViaSleutelK/BX5060GR.jpg" + Do CreeerVertalingData(Key, "LB", "ViaSleutelK/"_ImgName_".jpg", .arTemplateVTL) + Do CreeerVertalingData(Key, "LI", "ViaSleutelG/"_ImgName_".jpg", .arTemplateVTL) + } + Quit $$$OK + + +CreeerVertalingData(Key,LBLI,FotoLocation,arTemplateVTL) ; arTemplateVTL als .local doorgeven + Set lbVTL=arTemplateVTL ; Alleen data op de hoofdnode is een $LB() + Set $LI(lbVTL,2)=FotoLocation + For Taal="N","F","D","E" Do:($LG($G(^Res.VertalingAbstractD("PK",Key,LBLI,Taal)),2)="") Quit:(Taal="STOP") + . If $$$Not(##class(%File).Exists($$$OLPath_$$$Replace(FotoLocation,"/","\"))) Do Quit + . . Set Taal="STOP" + . . Set msg=Key_" File not exist "_($$$OLPath_$$$Replace(FotoLocation,"/","\")) + . . d WL^vhDBG(msg) + . . Write msg,! + . ; Else + . Merge ^Res.VertalingAbstractD("PK",Key,LBLI,Taal)=arTemplateVTL + . Set ^Res.VertalingAbstractD("PK",Key,LBLI,Taal)=lbVTL + . d:(Taal="N") WL^vhDBG($$$LCVT($Na(^Res.VertalingAbstractD("PK",Key,LBLI,Taal))_"="_^Res.VertalingAbstractD("PK",Key,LBLI,Taal))) + . d:(Taal'="N") WL^vhDBG(Taal) + Quit +]]> + + + Index: BL/Derde/Kennis/MailDoelstelling.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/Derde/Kennis/MailDoelstelling.cls.xml (.../MailDoelstelling.cls.xml) (revision 1074) +++ BL/Derde/Kennis/MailDoelstelling.cls.xml (.../MailDoelstelling.cls.xml) (revision 1133) @@ -47,7 +47,7 @@ Do ..MailKS(.Cache,"BE") Do ..MailKS(.Cache,"NL") ;Do ..MailAll(.Cache) ; MailKS ipv MailAll - Do:$$EXTDATE^vhDTyp($H,"DWN")#4=0 ..MailExtern(.Cache) ; om de vier weken ook aan de externe vtw's + Do:$$EXTDATE^vhDTyp($H,"W")#4=0 ..MailExtern(.Cache) ; om de vier weken ook aan de externe vtw's ]]> @@ -60,7 +60,7 @@ + + +Geef de creatiedatum van een kennisAnker (Van het oorspronkelijk aangemaakte via boolean) +KennisID,boolFirst + + + Controleert of een kennisAnker al gelezen is door een bepaalde user @@ -180,11 +195,12 @@ . . Set KennisAnkerGelezen=Cache(KLID,KennisID) . . Set Datum=+oKennis.CreationDateAndTime . . Set Tekst=oKennis.Msg + . . Set OorspronkelijkeDatum=..GetCreationDateAndTime(KennisID,1) . . ;groeperen op periode: nieuwe berichten, minder dan 3 maanden, minder dan 6 maanden en ouder dan 6 maanden . . Set VNR=$S('KennisAnkerGelezen:1,Datum' Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 1073) +++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 1133) @@ -104,6 +104,7 @@ Set BerekeningsSpecificatie = ..Product.GeefBerekeningsSpecificatie() Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(BerekeningsSpecificatie.GeefHoeveelheid(),BerekeningsSpecificatie.GeefKlantID(),BerekeningsSpecificatie.GeefPersonality(),"Planning") + d:..Product.GeefVariant()="" WLIP^vhDBG(191,"PRNr: "_..Product.GeefPRNr()) Set KostItem = BerekeningService.BerekenKostItemsBoom(HalffabItemsBoom,BerekeningsSpecificatie) Do KostItem.Accept(##this) @@ -147,11 +148,14 @@ If (IsToeTeVoegen) { - Set ActiviteitInfo = ..ActiviteitenMap.GetAt(ActiviteitNummer) - Do ..GebruikteActiviteiten.SetAt(ActiviteitInfo, ActiviteitNummer) - Set ResourcGebruikDataMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik) - Set ResourceGebruikData = ResourcGebruikDataMap.GetAt(ActiviteitNummer) - Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + Item.GeefTijd() + If (..ActiviteitenMap.IsDefined(ActiviteitNummer)) + { + Set ActiviteitInfo = ..ActiviteitenMap.GetAt(ActiviteitNummer) + Do ..GebruikteActiviteiten.SetAt(ActiviteitInfo, ActiviteitNummer) + Set ResourcGebruikDataMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik) + Set ResourceGebruikData = ResourcGebruikDataMap.GetAt(ActiviteitNummer) + Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + Item.GeefTijd() + } } ]]> @@ -166,13 +170,11 @@ Do ResourceGebruikMap.SetAt(ResourceGebruik.Houtzaag ,1) Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 5) Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 6) - Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers3, 7) + Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 7) Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers1, 8) Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers2, 9) Do ResourceGebruikMap.SetAt(ResourceGebruik.KartonMachine, 11) Do ResourceGebruikMap.SetAt(ResourceGebruik.KartonMachine, 12) - Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPicking, 13) - Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPicking, 14) Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 15) Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 16) Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 17) @@ -194,8 +196,8 @@ Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 9) // lijn 2 Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX verpakking V1",0), 11) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 12) - Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX zijkanten",-2), 13) - Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 14) + //Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX zijkanten",-2), 13) + //Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 14) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten relingen",-2), 15) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten relingen",-2), 16) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten fronten",-2), 17) Index: WS/CRM/Interacties.cls.xml =================================================================== diff -u -r1074 -r1133 --- WS/CRM/Interacties.cls.xml (.../Interacties.cls.xml) (revision 1074) +++ WS/CRM/Interacties.cls.xml (.../Interacties.cls.xml) (revision 1133) @@ -75,12 +75,17 @@ $$$AddToLog($$$logGrpDoelen,"CRM.Interacties","GetMetadata","") - Set KlantDivisie = ##class(Derde.Klant.Klant).%OpenId(Klant).Divisie - - set Metadata = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).GetMetadata(Toepassing,KlantDivisie) - - $$$LogOutgoing(WS.CRM.impl.Interacties.Logger,GetMetadata,Metadata) - + if $length($get(Klant)) { + Set KlantDivisie = ##class(Derde.Klant.Klant).%OpenId(Klant).Divisie + set Metadata = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).GetMetadata(Toepassing,KlantDivisie) + + $$$LogOutgoing(WS.CRM.impl.Interacties.Logger,GetMetadata,Metadata) + } + else { + set Metadata = ##class(BL.Derde.Agenda.pxStatus).%New() + set Metadata.Status=0 + set Metadata.Data = "Klant is vereist" + } Quit Metadata ]]> Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml =================================================================== diff -u -r1125 -r1133 --- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 1125) +++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 1133) @@ -37,6 +37,12 @@ ]]> + +DOM.CRM.Klant + + + dtoKlant:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant DOM.CRM.Klant Index: WV GAProduct WWW.prj.xml =================================================================== diff -u --- WV GAProduct WWW.prj.xml (revision 0) +++ WV GAProduct WWW.prj.xml (revision 1133) @@ -0,0 +1,171 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: vhUnitTest/APPS/Halux/Planning/TestProductPlanningUtils.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/Halux/Planning/TestProductPlanningUtils.cls.xml (revision 0) +++ vhUnitTest/APPS/Halux/Planning/TestProductPlanningUtils.cls.xml (revision 1133) @@ -0,0 +1,80 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestProductPlanningUtils") +1 +vhUnitTest.TestCase +0 + + + + + + FishEye: Tag 1133 refers to a dead (removed) revision in file `APPS/PM/Maatwerk/Framework/dto/StandaardFlowCalculator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: zTryout/JCL/Trap.cls.xml =================================================================== diff -u --- zTryout/JCL/Trap.cls.xml (revision 0) +++ zTryout/JCL/Trap.cls.xml (revision 1133) @@ -0,0 +1,23 @@ + + + +1 +%RegisteredObject +0 + + +1 + + + + Index: _vhisie/TBX/TestRequest.csp =================================================================== diff -u -r757 -r1133 --- _vhisie/TBX/TestRequest.csp (.../TestRequest.csp) (revision 757) +++ _vhisie/TBX/TestRequest.csp (.../TestRequest.csp) (revision 1133) @@ -22,7 +22,7 @@ Set wsID="" Set sMode="HYPER" Set Taal="N" - Set lbExtras=$LB("WebBrowser="_%request.UserAgent) + Set lbExtras=$LB("UseXMLHTTP="_##class(%CSP.UserAgent).XMLHttpRequest(%request.UserAgent))_$LB("WebBrowser="_%request.UserAgent) Do ##class(cspBasis.GAProdTBox).AddToLog("TESTPAGE",sDomain,KLNr,sMode,wsID,VERW,Taal,"",lbExtras) Quit 1 FishEye: Tag 1133 refers to a dead (removed) revision in file `DOM/CRM/Oorsprong/ToonzaalBezoek.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: TECH/Error/impl/ErrorHandler.cls.xml =================================================================== diff -u -r1129 -r1133 --- TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 1129) +++ TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 1133) @@ -15,7 +15,7 @@ Label:%String,Options:%String 1 Error:TECH.Error.dto.ErrorInfo 3 + + +We hebben 4,5u tussen order ingave en klaarstaan voor picking. Afgestemd met DGU. +16200 + + 61800 sec]]> @@ -321,6 +327,8 @@ If StockNietStock=1 Do ;Stock . Set lbTermijn=..BeschikbaarStock(PRNr) + Else If ..IsOrgaluxOpMaat(PRNr) Do + . Set lbTermijn=..BeschikbaarOrgaluxOpMaat(PRNr) Else If ($P(^KPR(PRNr,0),"\",3)?4.7N)||(..IsHalux(PRNr)) Do ;Generisch afgeleid of Halux product -> productie . Set lbTermijn=..BeschikbaarProductie(PRNr) Else Do ;Niet stock @@ -329,6 +337,26 @@ ]]> + +PRNr + KantelTime) + + If NaKantelTime { + Set Termijn = ..MaakTermijnInArbeidsdagen(1) + } Else { + Set Termijn = ..MaakTermijnInArbeidsdagen(0) + } + } Else { // Niet specifiek voor vandaag, dus dit zal een offerte zijn. + Set Termijn = ..MaakTermijnInArbeidsdagen(0) + } + + Quit Termijn +]]> + + Niet stockproduct @@ -367,6 +395,17 @@ ]]> + +PRNr +%Boolean + + + PRNr 1 @@ -501,5 +540,29 @@ Quit $LB(Termijn,"A") ; aantal arbeidsdagen ]]> + + +expression +1 +%Integer + + + + +expression +1 +%Boolean + + + + +expression +AantalArbeidsdagen:%Integer +1 + + Index: DOM/PM/Maatwerk/TBX/Batch.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/Maatwerk/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 1133) @@ -9,7 +9,7 @@ All active batches %SQLQuery - SELECT * FROM APPS_Halux_common_impl.BatchImpl Where IsActief = 1 + SELECT ID FROM APPS_Halux_common_impl.BatchImpl Where IsActief = 1 ORDER BY ID Index: APPS/Halux/Planning/dto/GesplitsteToelevering.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/GesplitsteToelevering.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/GesplitsteToelevering.cls.xml (revision 1133) @@ -0,0 +1,22 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +0 + + +%Integer +list + + + +%Integer +list + + + +%String + + + Index: TECH/Install.cls.xml =================================================================== diff -u -r1074 -r1133 --- TECH/Install.cls.xml (.../Install.cls.xml) (revision 1074) +++ TECH/Install.cls.xml (.../Install.cls.xml) (revision 1133) @@ -23,6 +23,8 @@ for { set device = $order(^cLOG($$$Server,"QQM",device)) quit:device="" set ^cLOG($$$Server,"QQM",device,$$$NSpace)="K\1\" } + + set ^cLOG(0,"LOGON","MC")="do ##class(TECH.Logon).AlternateUserNamespace()" ]]> Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 1133) @@ -1,62 +1,23 @@ -zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM +zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM,zTryout.ARC.TECH.Persistentie zTryout.FM.Util.Orders,%VHMacro 1 DataMOrderBase 0 - - - - - -%Boolean -"0" + +GlobalNode 1 - -%Boolean -1 - - - -%Boolean -1 - - - -%Boolean -"0" -1 - - - -%Boolean -"0" -1 - - - -%Integer -1 - - Nr:%Integer %Status @@ -68,15 +29,8 @@ // kunnen we de Open laten falen Set ..KlantNr=$P($G(^KO1(..Nr,"F")),"\") Quit:(..KlantNr = "") 0 - Set ..LeegOLijn = $G(^KOD(..KlantNr, "F", ..Nr, 0)) - Set ..OLU = $G(^KOD(..KlantNr, "F", ..Nr, 4)) - Quit:(..LeegOLijn = "") 0 Set Success = (..KlantNr '= "") - If (Success) { - Set ..Persisted = 1 - Set ..HoofdingDirty = 0 - Set ..AfleveradresDirty = 0 - } + Quit Success ]]> @@ -86,8 +40,8 @@ @@ -129,24 +84,10 @@ ]]> - - - - - - - - ProductOrderlijn @@ -156,7 +97,7 @@ Tekst:%String TextOrderlijn ManueleOrderlijn @@ -181,26 +122,58 @@ 1 Adres - + 1 -%String +GlobalNode + + +1 +GlobalNode + + + + +1 +GlobalNode + + + + +Lijn:DataMOrderlijn + + Index: zTryout/ARC/DOM/OV/impl/DataM/DataMTypedOrderlineIterator.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMTypedOrderlineIterator.cls.xml (.../DataMTypedOrderlineIterator.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMTypedOrderlineIterator.cls.xml (.../DataMTypedOrderlineIterator.cls.xml) (revision 1133) @@ -26,11 +26,11 @@ Override this method in derived classes to specify the types of entries to iterate over -line:%String +line:%String,LijnNode:GlobalNode %Boolean Index: DOM/PM/ASMProduct/impl/ASMAntislipmatImpl.cls.xml =================================================================== diff -u --- DOM/PM/ASMProduct/impl/ASMAntislipmatImpl.cls.xml (revision 0) +++ DOM/PM/ASMProduct/impl/ASMAntislipmatImpl.cls.xml (revision 1133) @@ -0,0 +1,38 @@ + + + +1 +DOM.PM.impl.MaatwerkProductImpl,DOM.PM.ASMProduct.ASMAntislipmat +0 + + +DOM.PM.ASMProduct.enu.Kleur + + + + +%Integer + + + + +%Integer + + + + +%Integer + + + + +%Integer + + + + Index: _vhisie/TBX/WizKleur.csp =================================================================== diff -u -r994 -r1133 --- _vhisie/TBX/WizKleur.csp (.../WizKleur.csp) (revision 994) +++ _vhisie/TBX/WizKleur.csp (.../WizKleur.csp) (revision 1133) @@ -171,8 +171,8 @@
#(arVTL("KLR","DS_GS"))#
#(arVTL("KLR","DS_IS"))#
+--> @@ -197,8 +197,11 @@ + + @@ -289,8 +292,11 @@
#(arVTL("KLR","KB_LG"))#
#(arVTL("KLR","KB_DG"))#
#(arVTL("KLR","KB_BZ"))#
+ + Index: APPS/PM/Maatwerk/Framework/dto/HalffabSpecificatieLijst.cls.xml =================================================================== diff -u -r1100 -r1133 --- APPS/PM/Maatwerk/Framework/dto/HalffabSpecificatieLijst.cls.xml (.../HalffabSpecificatieLijst.cls.xml) (revision 1100) +++ APPS/PM/Maatwerk/Framework/dto/HalffabSpecificatieLijst.cls.xml (.../HalffabSpecificatieLijst.cls.xml) (revision 1133) @@ -5,7 +5,7 @@ %RegisteredObject,%XML.Adaptor 0 - + APPS.PM.Maatwerk.Framework.dto.HalffabrikaatSpecificatie list Index: CSC ChangeInfo.prj.xml =================================================================== diff -u --- CSC ChangeInfo.prj.xml (revision 0) +++ CSC ChangeInfo.prj.xml (revision 1133) @@ -0,0 +1,12 @@ + + + + + + + + + + + + Index: TECH/Logon.cls.xml =================================================================== diff -u --- TECH/Logon.cls.xml (revision 0) +++ TECH/Logon.cls.xml (revision 1133) @@ -0,0 +1,27 @@ + + + +vhLib.Macro +1 +%RegisteredObject +0 + + +1 +0 + + + + +1 +Device:%String + + + + Index: DOM/PM/ASMProduct/enu/Kleur.cls.xml =================================================================== diff -u --- DOM/PM/ASMProduct/enu/Kleur.cls.xml (revision 0) +++ DOM/PM/ASMProduct/enu/Kleur.cls.xml (revision 1133) @@ -0,0 +1,34 @@ + + + +datatype +1 +%String +0 + + +;G;Z;R + + + +1 +DOM.PM.ASMProduct.enu.Kleur + + + + +1 +DOM.PM.ASMProduct.enu.Kleur + + + + +1 +DOM.PM.ASMProduct.enu.Kleur + + + + Index: CHUI/Orgalux/PrintSelect.cls.xml =================================================================== diff -u -r1079 -r1133 --- CHUI/Orgalux/PrintSelect.cls.xml (.../PrintSelect.cls.xml) (revision 1079) +++ CHUI/Orgalux/PrintSelect.cls.xml (.../PrintSelect.cls.xml) (revision 1133) @@ -387,7 +387,11 @@ else { set Klant = $$$CRMGeefKlant(..ExportFilter.KlantNr) set LandKlant = Klant.GeefAdres().GeefLandNr() - if (LandKlant'=1019)&&(LandKlant'=1147) //&&(LandKlant'=1120) + if (LandKlant'=1019)&&(LandKlant'=1147) { //&&(LandKlant'=1120) + if (..pmTaal.Value'="K")&&(..pmBTW.Value'="K") // Taal en BTW hebben een geldige waarde + else set errMessage=errMessage_"De ORGALUX prijslijst voor klanten buiten Belgie of"_$$$CRLF_"Nederland is enkel mogelijk indien men een taal en"_$$$CRLF_"BTW-tarief heeft gekozen"_$$$CRLF + } + if 0&&(LandKlant'=1019)&&(LandKlant'=1147) //&&(LandKlant'=1120) { set errMessage=errMessage_"Klant is niet afkomstig van Belgie of Nederland"_$$$CRLF } if ..pmTaal.Value = "K" { set TaalKlant = Klant.GeefTaal() Index: CSC CNFGMGR2.prj.xml =================================================================== diff -u --- CSC CNFGMGR2.prj.xml (revision 0) +++ CSC CNFGMGR2.prj.xml (revision 1133) @@ -0,0 +1,16 @@ + + + + + + + + + + + + + + + + Index: APPS/PM/Maatwerk/Framework/impl/HalffabSpecificatieHelper.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/Framework/impl/HalffabSpecificatieHelper.cls.xml (revision 0) +++ APPS/PM/Maatwerk/Framework/impl/HalffabSpecificatieHelper.cls.xml (revision 1133) @@ -0,0 +1,96 @@ + + + +1 +APPS.PM.Maatwerk.Framework.impl.SpecificatieHelper +0 + + +HalffabrikaatSpecificatie:APPS.PM.Maatwerk.Framework.dto.HalffabrikaatSpecificatie +APPS.PM.Maatwerk.Framework.dto.BewaarResultaat + + + + +APPS.PM.Maatwerk.Framework.dto.KostSpecificatieLijst + + + + +%ListOfDataTypes + + + + +%SQLQuery + SELECT Familie, Variant, GeldigVan, GeldigTot, HalffabSpec, Tag, Variant + FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo + ORDER BY Familie, Variant, Tag, GeldigVan + + + Index: APPS/Halux/common/impl/BatchImpl.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/common/impl/BatchImpl.cls.xml (.../BatchImpl.cls.xml) (revision 1073) +++ APPS/Halux/common/impl/BatchImpl.cls.xml (.../BatchImpl.cls.xml) (revision 1133) @@ -3,7 +3,7 @@ persistent 1 -%Persistent,APPS.Halux.common.Batch +APPS.Halux.common.Batch 0 @@ -240,31 +240,6 @@ ]]> - -1 -oid:%ObjectIdentity -1 -%Status - - - - -1 -BatchID:%Integer - - - Do ..RaiseBatchRemovedEvent({ID}) DELETE @@ -274,27 +249,19 @@ %Library.CacheStorage -^APPS.Halux.common7FB.BatchImplD BatchImplDefaultData -^APPS.Halux.common7FB.BatchImplD -^APPS.Halux.common7FB.BatchImplI -^APPS.Halux.common7FB.BatchImplS -listnode - +"BatchImpl" -%%CLASSNAME - - AanmaakTijdstip - + Lijn - + ProductieGroep - + Toeleveringen Index: vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml =================================================================== diff -u --- vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml (revision 0) +++ vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml (revision 1133) @@ -0,0 +1,93 @@ + + + + +Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.PPS.TBX.TestDocs") +1 +vhUnitTest.TestCase +0 + + + + + + + + + + Index: DOM/PM/ProductAPI.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 1075) +++ DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 1133) @@ -28,6 +28,12 @@ TECH.Iterator + +1 +Product:DOM.PM.Product +DOM.PM.Product + + 1 ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem @@ -38,5 +44,10 @@ 1 TECH.Iterator + + +1 +DOM.PM.Classificatie + Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 1074) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 1133) @@ -711,7 +711,7 @@ 1 %String - - + + @@ -48,15 +48,17 @@ + + + - Index: TECH/ExceptionHandler.cls.xml =================================================================== diff -u -r1074 -r1133 --- TECH/ExceptionHandler.cls.xml (.../ExceptionHandler.cls.xml) (revision 1074) +++ TECH/ExceptionHandler.cls.xml (.../ExceptionHandler.cls.xml) (revision 1133) @@ -20,12 +20,18 @@ TECH.IException Index: APPS/common/impl/StockOverKinderen.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/common/impl/StockOverKinderen.cls.xml (.../StockOverKinderen.cls.xml) (revision 1073) +++ APPS/common/impl/StockOverKinderen.cls.xml (.../StockOverKinderen.cls.xml) (revision 1133) @@ -235,13 +235,20 @@ @@ -254,6 +261,7 @@ set AantalKinderenNodigVoorMoeder = ..Kinderen.GetAt(KindPRNr) continue:AantalKinderenNodigVoorMoeder=0 set AantalMogelijk = ##class(TECH.Math).Floor(..KinderenBeschikbaar.GetAt(KindPRNr)/AantalKinderenNodigVoorMoeder) + do WLIP^vhDBG(195,KindPRNr_" "_AantalMogelijk) if '$length(AantalMoedersMogelijk) { set AantalMoedersMogelijk = AantalMogelijk } Index: vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml (revision 0) +++ vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml (revision 1133) @@ -0,0 +1,99 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.OLM.TestOpMaatFactory") +1 +vhUnitTest.TestCase +0 + + + + + + + + + + + + + + Index: Default_JoC.prj.xml =================================================================== diff -u -r1053 -r1133 --- Default_JoC.prj.xml (.../Default_JoC.prj.xml) (revision 1053) +++ Default_JoC.prj.xml (.../Default_JoC.prj.xml) (revision 1133) @@ -1,6 +1,11 @@ - - + + + + + + + + - Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml (.../HalffabSpecInfo.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml (.../HalffabSpecInfo.cls.xml) (revision 1133) @@ -22,6 +22,8 @@ + +De klassenaam van de HalffabSpec %String 1 @@ -79,8 +81,6 @@ ^DOM.PM.Maat952.HalffabSpecI5BBI ^DOM.PM.Maat952.HalffabSpecI5BBS -listnode - %%CLASSNAME Index: BL/Derde/Agenda/pxToonzaalBezoek.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/Derde/Agenda/pxToonzaalBezoek.cls.xml (.../pxToonzaalBezoek.cls.xml) (revision 1074) +++ BL/Derde/Agenda/pxToonzaalBezoek.cls.xml (.../pxToonzaalBezoek.cls.xml) (revision 1133) @@ -32,5 +32,15 @@ %String + + +1 +1 +%Status + + Index: zTryout/ARC/DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 1133) @@ -7,13 +7,13 @@ 0 -Nr:%Integer,lineinfo:%String,Order:Order +Nr:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode 1 1 %Status + + +APPS.PM.OL.Common,%Prod.Product,BL.Derde.KlantSpecifiek +1 +%RegisteredObject +0 + + + + + + +%String +1 + + + +APPS.PM.OL.ProductKenmerken +1 + + + + +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 + + + + +Beheert en bepaalt de KortTekstPatroon-objecten nodig voor het zoeken van varianten van een Master +KortTekstPatroonFactory +1 + + + + +Houdt de KenmerkWaardeMap-objecten in het geheugen, zodat ze niet telkens opnieuw moeten geopend worden +KenmerkWaardeMap +list +1 + + + + +Beheert de verwerkingslog van de huidige import, voor iedere lijn (uit de excel) +ImportLog +1 + + + + + + + + +Oproepen via + s sc=##class(APPS.PM.OL.MasterAutoGenerator).GenereerVariantenVoorMaster(UnID) w sc,! +1 +UnID:%String +%Status +0) { + ;Do msgbox($$$LCVT(ListOfUnIDs)_"is verwerkt") + write "ListOfUnIDs : "_$$$LCVT($$ObjectListToLB^vhLib(ListOfUnIDs))_" is verwerkt",! + } + + Quit sc +]]> + + + + + + + +BLProdMulti:BL.Kenm.ProdMulti,ImportLog:ImportLog,KTPatroonFactory:KortTekstPatroonFactory +1 +1 +%Status + decreases performance) + } + If '$IsObject(..ImportLog) { + Set ..ImportLog=##class(APPS.PM.OL.ImportLog).%New(..BLProdMulti) + } + If '$IsObject(..KTPatroonFactory) { + Set ..KTPatroonFactory=##class(KortTekstPatroonFactory).%New() + } + + Do ..PrefetchKenmerkWaardeMappings() + + Quit $$$OK +]]> + + + + +Prefetch all KenmerkWaardeMappings (for better performance) +1 + + + + +ProdKM:APPS.PM.OL.ProductKenmerken +%Status + + + + +UnID:%String +%Status + + + + +UnID:%String +1 +APPS.PM.OL.ProductKenmerken +0) { + Set KenmerkenIt=##class(TECH.ListIterator).%New(ProductKenmerken.Kenmerken) + While (KenmerkenIt.HasNext()) { + Set ProductKenmerk=KenmerkenIt.Next() + Set KenmerkNaam=ProductKenmerk.KenmerkNaam + Set KenmerkWaarden=OLKenmerken.GetKenmerkenPublic(KenmerkNaam) ; Waarden is een $LB() + If ($LL(KenmerkWaarden)=1)&&(KenmerkNaam'?1(1"Diepte",1"WandDikte",1"Websites",1"LadeFamilie",1"KleurFilter")) { + // Voor alle kenmerken, behalve bovenvernoemde in pattern-match, worden de single-value waarden omgezet van $LB() naar string. + Set KenmerkWaarden=$LG(KenmerkWaarden,1) + } + Do ProdKM.Kenmerken.SetAt(KenmerkWaarden,KenmerkNaam) + } + } + + // Vervolledigen van de Kenmerken + Set ProdKM.GeneratieType=ProdKM.Kenmerken.GetAt("GeneratieType") + Set sc=ProdKM.VervolledigKenmerken() + + Quit ProdKM +]]> + + + +1 +%Status + + + + + +Geeft lijst van UnIDs terug van de gegenereerde varianten (AUTOs from MASTER) +%ListOfDataTypes + + + + + +Geeft een overzicht van de gegenereerde varianten (AUTOs from MASTER) +AantalKolommen:%Integer=4 +%String +1 { + Set Body=Body_KolomSeparator + } + Set UnID=MatrixOfUnIDs.Rijen.GetAt(RijIndex).GetAt(KolomIndex) + If $L(UnID) { + Set KortTekst=##class(Prod.Kenmerk.Orgalux).%New(UnID).GetKortTekst() ; $$$ProductGet(ProdKM.PRNr,$$$KortTekst) + Set Body=Body_UnID_" : "_KortTekst + } + Else { + // Getransponeerde lijst kan lege waarden bevatten, meer bepaald de laatste kolom. + Set Body=Body_"" + } + } + Set Body=Body_$$$CRLF + } + Quit Body +]]> + + + +List:%ListOfDataTypes,AantalKolommen:%Integer,LaatsteRijAanvullen:%Boolean=0 +%ListOfDataTypes +AantalItems) NewList.Insert(List.GetAt(ListIndex)) + ;Do NewList.Insert(List.GetAt(ListIndex)) + } + } + Quit NewList +]]> + + + Index: APPS/Halux/Planning/dto/ApplicatieInstellingen.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/dto/ApplicatieInstellingen.cls.xml (.../ApplicatieInstellingen.cls.xml) (revision 1073) +++ APPS/Halux/Planning/dto/ApplicatieInstellingen.cls.xml (.../ApplicatieInstellingen.cls.xml) (revision 1133) @@ -19,6 +19,7 @@ APPS.Halux.Planning.dto.ResourceDrempels +list Index: Default_pra.prj.xml =================================================================== diff -u -r1023 -r1133 --- Default_pra.prj.xml (.../Default_pra.prj.xml) (revision 1023) +++ Default_pra.prj.xml (.../Default_pra.prj.xml) (revision 1133) @@ -1,11 +1,11 @@ - - + + + - Index: DOM/PM/impl/DataM/Bouwstenen/BouwsteenKind.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/impl/DataM/Bouwstenen/BouwsteenKind.cls.xml (.../BouwsteenKind.cls.xml) (revision 1075) +++ DOM/PM/impl/DataM/Bouwstenen/BouwsteenKind.cls.xml (.../BouwsteenKind.cls.xml) (revision 1133) @@ -89,8 +89,6 @@ {BSKey} -"KIND" -"KINDz" "\" Index: BL/PR/GA/AntislipmatBuilder.cls.xml =================================================================== diff -u --- BL/PR/GA/AntislipmatBuilder.cls.xml (revision 0) +++ BL/PR/GA/AntislipmatBuilder.cls.xml (revision 1133) @@ -0,0 +1,113 @@ + + + +vhLib.Macro,%Prod.Product +1 +%RegisteredObject +0 + + +Prod.GAData.Product + + + +BL.PR.GA.Antislipmat + + + +1 +Kleur:DOM.PM.ASMProduct.enu.Kleur,LadeDiepte:%String,Breedte:%String,WandDikte:%String="B",Aantal:%Integer=1 +%String + + + + + +Oproepen via + do ##class(BL.PR.GA.AntislipmatBuilder).Test() +1 + + + + + + + + +Kleur:DOM.PM.ASMProduct.enu.Kleur,LadeDiepte:%String,Breedte:%String,WandDikte:%String="B",Aantal:%Integer=1 + + + + + + + + + + + + Index: zTryout/PRA/StockEnBouwstenen.cls.xml =================================================================== diff -u --- zTryout/PRA/StockEnBouwstenen.cls.xml (revision 0) +++ zTryout/PRA/StockEnBouwstenen.cls.xml (revision 1133) @@ -0,0 +1,52 @@ + + + +1 +%RegisteredObject +0 + + +1 +MPRNr:%Integer + + + + +1 +AantalInToelevering,PRNrUitToelevering,PRNrUitOrder + + + + Index: DOM/PM/enu/TBXDwarsverdeling.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/enu/TBXDwarsverdeling.cls.xml (.../TBXDwarsverdeling.cls.xml) (revision 1075) +++ DOM/PM/enu/TBXDwarsverdeling.cls.xml (.../TBXDwarsverdeling.cls.xml) (revision 1133) @@ -46,6 +46,8 @@ + +Voor spoelbakken 1 DOM.PM.enu.TBXDwarsverdeling + + +1 +%RegisteredObject +0 + + + +do ##class(zTryout.JCL.FOPTest).Go() +1 +Aantal:%String=100 +Aantal + do listProducten.Insert(idx) + set Teller=$i(Teller) + } + do impl.ExportProducten(listProducten,.Bestandsnaam) + + w !,Bestandsnaam +]]> + + + Index: BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml =================================================================== diff -u --- BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml (revision 0) +++ BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml (revision 1133) @@ -0,0 +1,100 @@ + + + +1 +%RegisteredObject +0 + + +APPS.Halux.common.Batch +1 + + + +DOM.PM.ProductAPI +1 + + + +Batch:APPS.Halux.common.Batch +1 +1 +%Status + + + + +TECH.Print.Kolommen.Document + 0) + { + Set SorteerVan = 1 + Set SorteerTot = Document.GeefKolom(1).Count() + + Do Document.VoegLijnToe("\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\LEGENDE","\") + Do Document.VoegLijnToe("\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\ M = Montage ","\") + Do Document.VoegLijnToe("\\\\\\ P = Picking onderdelen","\") + + Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),6,SorteerVan,SorteerTot) + } + + Quit Document +]]> + + + +Document:TECH.Print.Kolommen.Document,QueueItem:DS.PPS.TBX.Queue,TandemBox:DOM.PM.TBXProduct.TBXLade,DwarsverdelingBouwsteen:DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim + + + + + Index: APPS/Halux/Planning/dto/ResourceDrempels.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/dto/ResourceDrempels.cls.xml (.../ResourceDrempels.cls.xml) (revision 1073) +++ APPS/Halux/Planning/dto/ResourceDrempels.cls.xml (.../ResourceDrempels.cls.xml) (revision 1133) @@ -9,30 +9,22 @@ APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - -APPS.Halux.Planning.dto.ResourceDrempel - - - -APPS.Halux.Planning.dto.ResourceDrempel - - APPS.Halux.Planning.dto.ResourceDrempel @@ -49,14 +41,6 @@ APPS.Halux.Planning.dto.ResourceDrempel - -APPS.Halux.Planning.dto.ResourceDrempel - - - -APPS.Halux.Planning.dto.ResourceDrempel - - APPS.Halux.Planning.dto.ResourceDrempel Index: PRA LeveringsTermijn.prj.xml =================================================================== diff -u -r1028 -r1133 --- PRA LeveringsTermijn.prj.xml (.../PRA LeveringsTermijn.prj.xml) (revision 1028) +++ PRA LeveringsTermijn.prj.xml (.../PRA LeveringsTermijn.prj.xml) (revision 1133) @@ -1,11 +1,21 @@ - - + + + + + + + + + + + + + - Index: Default__system.prj.xml =================================================================== diff -u -r1037 -r1133 --- Default__system.prj.xml (.../Default__system.prj.xml) (revision 1037) +++ Default__system.prj.xml (.../Default__system.prj.xml) (revision 1133) @@ -1,6 +1,6 @@ - - + + @@ -135,7 +135,6 @@ - @@ -296,5 +295,4 @@ - Index: APPS/PM/Maatwerk/Framework/ConfiguratieService.cls.xml =================================================================== diff -u -r1100 -r1133 --- APPS/PM/Maatwerk/Framework/ConfiguratieService.cls.xml (.../ConfiguratieService.cls.xml) (revision 1100) +++ APPS/PM/Maatwerk/Framework/ConfiguratieService.cls.xml (.../ConfiguratieService.cls.xml) (revision 1133) @@ -8,28 +8,97 @@ BewerkingsInfo:APPS.PM.Maatwerk.Framework.dto.BewerkingsInfo APPS.PM.Maatwerk.Framework.dto.BewaarResultaat + HalffabrikaatSpecificatie:APPS.PM.Maatwerk.Framework.dto.HalffabrikaatSpecificatie APPS.PM.Maatwerk.Framework.dto.BewaarResultaat + KostSpecificatie:APPS.PM.Maatwerk.Framework.dto.KostSpecificatie APPS.PM.Maatwerk.Framework.dto.BewaarResultaat + - + APPS.PM.Maatwerk.Framework.dto.BewerkingsInfoLijst + -APPS.PM.Maatwerk.Framework.dto.HalffabrikaatSpecificatie +APPS.PM.Maatwerk.Framework.dto.HalffabSpecificatieLijst + -APPS.PM.Maatwerk.Framework.dto.KostSpecificatie +APPS.PM.Maatwerk.Framework.dto.KostSpecificatieLijst + + + +%ListOfDataTypes + + + + +%ListOfDataTypes + + Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijn.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijn.cls.xml (.../DataMOrderlijn.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijn.cls.xml (.../DataMOrderlijn.cls.xml) (revision 1133) @@ -12,13 +12,13 @@ -Nr:%Integer,Info:%String,Order:Order +Nr:%Integer,Info:%String,Order:Order,LijnNode:GlobalNode 1 1 %Status Index: PRA tryout ARC.prj.xml =================================================================== diff -u --- PRA tryout ARC.prj.xml (revision 0) +++ PRA tryout ARC.prj.xml (revision 1133) @@ -0,0 +1,106 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: Prod/Kenmerk/Product.cls.xml =================================================================== diff -u -r1074 -r1133 --- Prod/Kenmerk/Product.cls.xml (.../Product.cls.xml) (revision 1074) +++ Prod/Kenmerk/Product.cls.xml (.../Product.cls.xml) (revision 1133) @@ -1,6 +1,7 @@ +TECH.Error,%Prod.Product 1 %RegisteredObject 0 @@ -67,10 +68,28 @@ %Boolean - + + winst in performatie: 50% per product ]]> +1 +KenmerkUnID:%String +%Boolean + + + %Boolean 0 + +De klassenaam van de KostSpec %String +1 Index: APPS/Halux/Planning/impl/ResourceGebruik.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/impl/ResourceGebruik.cls.xml (.../ResourceGebruik.cls.xml) (revision 1073) +++ APPS/Halux/Planning/impl/ResourceGebruik.cls.xml (.../ResourceGebruik.cls.xml) (revision 1133) @@ -10,11 +10,11 @@ APPS.Halux.Planning.impl.ResourceGebruikData - + APPS.Halux.Planning.impl.ResourceGebruikData - + APPS.Halux.Planning.impl.ResourceGebruikData @@ -38,10 +38,6 @@ APPS.Halux.Planning.impl.ResourceGebruikData - -APPS.Halux.Planning.impl.ResourceGebruikData - - APPS.Halux.Planning.impl.ResourceGebruikData @@ -50,18 +46,10 @@ APPS.Halux.Planning.impl.ResourceGebruikData - + APPS.Halux.Planning.impl.ResourceGebruikData - -APPS.Halux.Planning.impl.ResourceGebruikData - - - -APPS.Halux.Planning.impl.ResourceGebruikData - - APPS.Halux.Planning.enu.Categorie @@ -76,139 +64,19 @@ %Status - - -%Library.CacheStorage -^APPS.Halux8A9.ResourceGebr611D -ResourceGebruikDefaultData -^APPS.Halux8A9.ResourceGebr611D -^APPS.Halux8A9.ResourceGebr611I -ResourceGebruikState -^APPS.Halux8A9.ResourceGebr611S - -listnode - - -%%CLASSNAME - - -ALUFrees - - -ALUOperator - - -ALUZaag - - -Activiteit - - -Bewerkingscenter - - -Categorie - - -HoekkastInpak - - -HoekkastMontage - - -HoekkastZaag - - -Houtzaag - - -KartonMachine - - -TBXPers1 - - -TBXPers2 - - -TBXPers3 - - -TBXPicking - - -Voormontage - - - -listnode -"APPS.Halux.Planning.impl.ResourceGebruik" - -ALUFrees - - -ALUOperator - - -ALUZaag - - -Activiteit - - -Bewerkingscenter - - -Categorie - - -HoekkastInpak - - -HoekkastMontage - - -HoekkastZaag - - -Houtzaag - - -KartonMachine - - -TBXPers1 - - -TBXPers2 - - -TBXPers3 - - -TBXPicking - - -Voormontage - - - Index: WS/TAPI/SMSService.cls.xml =================================================================== diff -u -r1074 -r1133 --- WS/TAPI/SMSService.cls.xml (.../SMSService.cls.xml) (revision 1074) +++ WS/TAPI/SMSService.cls.xml (.../SMSService.cls.xml) (revision 1133) @@ -12,6 +12,10 @@ WS.TAPI.SMSService + +http://www.vanhoecke.be + + SMS verzenden Index: vhUnitTest/APPS/PM/Maatwerk/Framework/TestConfiguratieService.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/PM/Maatwerk/Framework/TestConfiguratieService.cls.xml (revision 0) +++ vhUnitTest/APPS/PM/Maatwerk/Framework/TestConfiguratieService.cls.xml (revision 1133) @@ -0,0 +1,242 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.Framework.TestConfiguratieService") +1 +vhUnitTest.TestCase +0 + + +0,"Er zijn hf specs gevonden") + + Set MogelijkeKostSpecs = Service.GeefMogelijkeKostSpecs() + + Do $$$AssertTrue(MogelijkeKostSpecs.Count()>0,"Er zijn kost specs gevonden") +]]> + + + +0,"Er zijn bewerkingsinfo objecten terug gegeven") + Do $$$AssertTrue(BewerkingsInfos.Lijst.GetAt(1).%Extends("APPS.PM.Maatwerk.Framework.dto.BewerkingsInfo"),"Van het juiste type") + + Set HalffabrikaatSpecificaties = Service.GeefHalffabrikaatSpecificaties() + + Do $$$AssertTrue(HalffabrikaatSpecificaties.Lijst.Count()>0,"Er zijn halffabrikaatspecificatie objecten terug gegeven") + Do $$$AssertTrue(HalffabrikaatSpecificaties.Lijst.GetAt(1).%Extends("APPS.PM.Maatwerk.Framework.dto.HalffabrikaatSpecificatie"),"Van het juiste type") + + Set KostSpecificaties = Service.GeefKostSpecificaties() + + Do $$$AssertTrue(KostSpecificaties.Lijst.Count()>0,"Er zijn kostspecificatie objecten terug gegeven") + Do $$$AssertTrue(KostSpecificaties.Lijst.GetAt(1).%Extends("APPS.PM.Maatwerk.Framework.dto.KostSpecificatie"),"Van het juiste type") +]]> + + + + makkelijker te deleten achteraf + + Set BewerkingsInfo = ##class(APPS.PM.Maatwerk.Framework.dto.BewerkingsInfo).%New() + Set BewerkingsInfo.Familie = Familie + Set BewerkingsInfo.Variant = Variant + Set BewerkingsInfo.ProductID = 13 + Set BewerkingsInfo.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpTag).%New() + Set BewerkingsInfo.Geldigheid.Tag = "UTTag" + Set BewerkingsInfo.BewerkingsCalculator = ##class(APPS.PM.Maatwerk.Framework.dto.StandaardContinuFlowCalculator).%New() + Set BewerkingsInfo.BewerkingsCalculator.BrutoPercentage = 1 + Set BewerkingsInfo.BewerkingsCalculator.BrutoVast = 1 + Set BewerkingsInfo.BewerkingsCalculator.UitvalPercentage = 1 + Set BewerkingsInfo.BewerkingsCalculator.UitvalVast = 1 + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Tag = "UTTag") + + Set BewaarResultaat = Service.BewaarBewerkingsInfo(BewerkingsInfo) + + Do $$$AssertTrue(BewaarResultaat.IsGeslaagd,"De bewerkingsinfo werd bewaard") + + Set BewaarResultaat = Service.BewaarBewerkingsInfo(BewerkingsInfo) + + Do $$$AssertFalse(BewaarResultaat.IsGeslaagd,"De bewerkingsinfo werd reeds opgeslagen en kan niet opnieuw worden opgeslagen met deze tag") + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Tag = "UTTag") + + + // === Timeline: < 2000 > + + + Set BewerkingsInfo.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpDatum).%New() + Set BewerkingsInfo.Geldigheid.GeldigVan = 2000 // %Date + + Set BewaarResultaat = Service.BewaarBewerkingsInfo(BewerkingsInfo) + + Do $$$AssertTrue(BewaarResultaat.IsGeslaagd,"De bewerkingsinfo werd bewaard") + + Set GeldigTot = "" + &SQL(SELECT GeldigVan, GeldigTot, BewerkingsCalculator INTO :GeldigVan,:GeldigTot,:BewerkingsCalculator FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = :Familie AND Variant = :Variant) + + Do $$$AssertEquals(%ROWCOUNT,1,"Het opgeslagen item werd terug gevonden") + Do $$$AssertEquals(GeldigTot,2980013,"Geldig tot the end of days") + Do $$$AssertTrue(BewerkingsCalculator>0,"De bewerkingscalculator werd gesaved") + + + // === Timeline: < 2000 3000 > + + + Set BewerkingsInfo.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpDatum).%New() + Set BewerkingsInfo.Geldigheid.GeldigVan = 3000 // %Date + + Set BewaarResultaat = Service.BewaarBewerkingsInfo(BewerkingsInfo) + + Do $$$AssertTrue(BewaarResultaat.IsGeslaagd,"De bewerkingsinfo werd bewaard") + + Set GeldigVan = "" + Set GeldigTot = "" + &SQL(SELECT GeldigVan, GeldigTot INTO :GeldigVan,:GeldigTot FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = :Familie AND Variant = :Variant AND GeldigVan = 3000) + + Do $$$AssertEquals(%ROWCOUNT,1,"Het opgeslagen item werd terug gevonden") + Do $$$AssertEquals(GeldigVan,3000,"Geldig van") + Do $$$AssertEquals(GeldigTot,2980013,"Geldig tot the end of days") + + // De geldig tot tijd van de vorige moet nu dus verlegd zijn naar de geldig van tijd van de nieuwe (om geen overlap te hebben) + Set GeldigVan = "" + Set GeldigTot = "" + &SQL(SELECT GeldigVan, GeldigTot INTO :GeldigVan,:GeldigTot FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = :Familie AND Variant = :Variant AND GeldigVan = 2000) + + Do $$$AssertEquals(%ROWCOUNT,1,"Het opgeslagen item werd terug gevonden") + Do $$$AssertEquals(GeldigVan,2000,"Geldig van") + Do $$$AssertEquals(GeldigTot,3000,"Geldig tot het begin van het nieuwe object") + + + // === Timeline: < 2000 2500 3000 > + + + // Een nieuwe saven die geldig is tussen 2 bestaande objecten + Set BewerkingsInfo.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpDatum).%New() + Set BewerkingsInfo.Geldigheid.GeldigVan = 2500 // %Date + + Set BewaarResultaat = Service.BewaarBewerkingsInfo(BewerkingsInfo) + + // De geldig tot tijd van het voorgaande object moet aangepast zijn + Set GeldigVan = "" + Set GeldigTot = "" + &SQL(SELECT GeldigVan, GeldigTot INTO :GeldigVan,:GeldigTot FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = :Familie AND Variant = :Variant AND GeldigVan = 2000) + + Do $$$AssertEquals(%ROWCOUNT,1,"Het opgeslagen item werd terug gevonden") + Do $$$AssertEquals(GeldigVan,2000,"Geldig van") + Do $$$AssertEquals(GeldigTot,2500,"Geldig tot het begin van het nieuwe object") + + // De geldig tot tijd van het nieuwe object is correct gezet + Set GeldigVan = "" + Set GeldigTot = "" + &SQL(SELECT GeldigVan, GeldigTot INTO :GeldigVan,:GeldigTot FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = :Familie AND Variant = :Variant AND GeldigVan = 2500) + + Do $$$AssertEquals(%ROWCOUNT,1,"Het opgeslagen item werd terug gevonden") + Do $$$AssertEquals(GeldigVan,2500,"Geldig van") + Do $$$AssertEquals(GeldigTot,3000,"Geldig tot het begin van het andere object dat aanwezig was") + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = :Familie AND Variant = :Variant) +]]> + + + + makkelijker te deleten achteraf + + Set HalffabrikaatSpecificatie = ##class(APPS.PM.Maatwerk.Framework.dto.HalffabrikaatSpecificatie).%New() + Set HalffabrikaatSpecificatie.Familie = Familie + Set HalffabrikaatSpecificatie.Variant = Variant + Set HalffabrikaatSpecificatie.HalffabrikaatSpecificatie = "vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpec" + Set HalffabrikaatSpecificatie.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpTag).%New() + Set HalffabrikaatSpecificatie.Geldigheid.Tag = "UTTag" + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Tag = "UTTag") + + Set BewaarResultaat = Service.BewaarHalffabrikaatSpecificatie(HalffabrikaatSpecificatie) + + Do $$$AssertTrue(BewaarResultaat.IsGeslaagd,"De halffabrikaatspecificatie werd bewaard") + + Set BewaarResultaat = Service.BewaarHalffabrikaatSpecificatie(HalffabrikaatSpecificatie) + + Do $$$AssertFalse(BewaarResultaat.IsGeslaagd,"De halffabrikaatspecificatie werd reeds opgeslagen en kan niet opnieuw worden opgeslagen met deze tag") + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Tag = "UTTag") + + + // === Timeline: < 2000 > + + + Set HalffabrikaatSpecificatie.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpDatum).%New() + Set HalffabrikaatSpecificatie.Geldigheid.GeldigVan = 2000 // %Date + + Set BewaarResultaat = Service.BewaarHalffabrikaatSpecificatie(HalffabrikaatSpecificatie) + + Do $$$AssertTrue(BewaarResultaat.IsGeslaagd,"De halffabrikaatspecificatie werd bewaard") + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Familie = :Familie AND Variant = :Variant) + + // Het testen of de GeldigVan en GeldigTot property correct wordt gewijzigd bij meerdere inserts van specs werd getest bij TestBewaarBewerkingsInfo(), + // vermits deze wordt uitgevoerd door common code is dit hier nog eens testen overbodig. +]]> + + + + makkelijker te deleten achteraf + + Set KostSpecificatie = ##class(APPS.PM.Maatwerk.Framework.dto.KostSpecificatie).%New() + Set KostSpecificatie.Familie = Familie + Set KostSpecificatie.Variant = Variant + Set KostSpecificatie.KostSpecificatie = "vhUnitTest.DOM.PM.Maatwerk.Kost.UTKostSpec" + Set KostSpecificatie.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpTag).%New() + Set KostSpecificatie.Geldigheid.Tag = "UTTag" + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Tag = "UTTag") + + Set BewaarResultaat = Service.BewaarKostSpecificatie(KostSpecificatie) + + Do $$$AssertTrue(BewaarResultaat.IsGeslaagd,"De Kostspecificatie werd bewaard") + + Set BewaarResultaat = Service.BewaarKostSpecificatie(KostSpecificatie) + + Do $$$AssertFalse(BewaarResultaat.IsGeslaagd,"De Kostspecificatie werd reeds opgeslagen en kan niet opnieuw worden opgeslagen met deze tag") + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_Kost_impl.KostSpecInfo WHERE Tag = "UTTag") + + + // === Timeline: < 2000 > + + + Set KostSpecificatie.Geldigheid = ##class(APPS.PM.Maatwerk.Framework.dto.GeldigheidOpDatum).%New() + Set KostSpecificatie.Geldigheid.GeldigVan = 2000 // %Date + + Set BewaarResultaat = Service.BewaarKostSpecificatie(KostSpecificatie) + + Do $$$AssertTrue(BewaarResultaat.IsGeslaagd,"De Kostspecificatie werd bewaard") + + &SQL(DELETE FROM DOM_PM_Maatwerk_Calc_Kost_impl.KostSpecInfo WHERE Familie = :Familie AND Variant = :Variant) + + // Het testen of de GeldigVan en GeldigTot property correct wordt gewijzigd bij meerdere inserts van specs werd getest bij TestBewaarBewerkingsInfo(), + // vermits deze wordt uitgevoerd door common code is dit hier nog eens testen overbodig. +]]> + + + Index: APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml (.../ToeleveringInfo.cls.xml) (revision 1073) +++ APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml (.../ToeleveringInfo.cls.xml) (revision 1133) @@ -130,18 +130,8 @@ Set Toelevering = ToeleveringAPI.GeefToelevering(..%Id()) If ($IsObject(Toelevering)) { - Set VerzendWijze = "" - Set Order = Toelevering.GeefOrder() - If ($IsObject(Order)) - { - Set VerzendWijze = Order.GeefVerzendWijze() - Set LeveringsTermijn = ##class(DOM.VKP.LeveringsTermijn).%New(,VerzendWijze) - Set LeverDag = LeveringsTermijn.GetVroegsteLeverDag($zdth(..Gepland,3)) - Set DueOutNaPlanning = LeveringsTermijn.GetLaatsteProductieTijdstip(LeverDag) - Set LeverImpact = DueOutNaPlanning - $zdth(..DueOut,3) - } + Set LeverImpact = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefLeverImpact(Toelevering,..Gepland) } - } If (LeverImpact > 0) { Set LeverImpact = "+"_LeverImpact } Index: TECH/ChangeInfo.cls.xml =================================================================== diff -u --- TECH/ChangeInfo.cls.xml (revision 0) +++ TECH/ChangeInfo.cls.xml (revision 1133) @@ -0,0 +1,47 @@ + + + +1 +1 +%Persistent +0 + + +%String +1 + + + +%TimeStamp +1 + + + +%String +1 + + + +%TimeStamp +1 + + + +insert:%Boolean +1 +%Status + + + + Index: APPS/PM/Maatwerk/Framework/impl/KostSpecificatieHelper.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/Framework/impl/KostSpecificatieHelper.cls.xml (revision 0) +++ APPS/PM/Maatwerk/Framework/impl/KostSpecificatieHelper.cls.xml (revision 1133) @@ -0,0 +1,96 @@ + + + +1 +APPS.PM.Maatwerk.Framework.impl.SpecificatieHelper +0 + + +KostSpecificatie:APPS.PM.Maatwerk.Framework.dto.KostSpecificatie +%Boolean + + + + +APPS.PM.Maatwerk.Framework.dto.KostSpecificatieLijst + + + + +%ListOfDataTypes + + + + +%SQLQuery + SELECT Familie, Variant, GeldigVan, GeldigTot, KostSpec, Tag, Variant + FROM DOM_PM_Maatwerk_Calc_Kost_impl.KostSpecInfo + ORDER BY Familie, Variant, Tag, GeldigVan + + + Index: zTryout/WV/PM/OL/BouwsteenConversie.cls.xml =================================================================== diff -u --- zTryout/WV/PM/OL/BouwsteenConversie.cls.xml (revision 0) +++ zTryout/WV/PM/OL/BouwsteenConversie.cls.xml (revision 1133) @@ -0,0 +1,86 @@ + + + +vhLib.Macro +1 +%RegisteredObject +0 + + + +Do ##class(zTryout.WV.PM.OL.BouwsteenConversie).WijzigKindProductINKEXP() +1 + + + + +1 +BSNode:%String,PRNr:%String,BSKey:%String +%String + + + + Index: zTryout/ARC/DOM/OV/impl/DataM/OrderlineFactory.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/OrderlineFactory.cls.xml (.../OrderlineFactory.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/OrderlineFactory.cls.xml (.../OrderlineFactory.cls.xml) (revision 1133) @@ -1,21 +1,21 @@ -zTryout.ARC.DOM.OV +zTryout.ARC.DOM.OV,zTryout.ARC.TECH.Persistentie zTryout.FM.Util.Orders,%VHMacro 1 %RegisteredObject 0 1 -olijn:%Integer,lineinfo:%String,Order:Order +olijn:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode Orderlijn Index: APPS/PM/Maatwerk/Framework/impl/HelperUtils.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/Framework/impl/HelperUtils.cls.xml (revision 0) +++ APPS/PM/Maatwerk/Framework/impl/HelperUtils.cls.xml (revision 1133) @@ -0,0 +1,30 @@ + + + +1 +%RegisteredObject +0 + + +1 +Klasse:%String,AfgeleideKlassen:%ListOfDataTypes + + + + Index: APPS/PM/OL/FotoSortKeyBuilder.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/PM/OL/FotoSortKeyBuilder.cls.xml (.../FotoSortKeyBuilder.cls.xml) (revision 1073) +++ APPS/PM/OL/FotoSortKeyBuilder.cls.xml (.../FotoSortKeyBuilder.cls.xml) (revision 1133) @@ -40,12 +40,12 @@ Oproepen via s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).Generate(flagReadOnly) w sc,! -flagReadOnly:%Boolean +flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status Index: APPS/Halux/TBX/impl/Test.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/TBX/impl/Test.cls.xml (.../Test.cls.xml) (revision 1073) +++ APPS/Halux/TBX/impl/Test.cls.xml (.../Test.cls.xml) (revision 1133) @@ -36,6 +36,27 @@ ]]> + + +Do ##class(APPS.Halux.TBX.impl.Test).SyncBatch() +1 + + + Do ##class(APPS.Halux.TBX.impl.Test).PlaatMat() Index: TECH/Print/Kolommen/Document.cls.xml =================================================================== diff -u -r1074 -r1133 --- TECH/Print/Kolommen/Document.cls.xml (.../Document.cls.xml) (revision 1074) +++ TECH/Print/Kolommen/Document.cls.xml (.../Document.cls.xml) (revision 1133) @@ -123,7 +123,7 @@ } Set k = i - 1 - While ((k > RegelVan) && (Comparator.IsKleinerDan(HulpLijst.GetAt(Kolom),..GeefKolom(Kolom).GetAt(k)))) + While ((k '< RegelVan) && (Comparator.IsKleinerDan(HulpLijst.GetAt(Kolom),..GeefKolom(Kolom).GetAt(k)))) { For j = 1:1:AantKol { @@ -158,7 +158,8 @@ Set It = ##class(TECH.ListIterator).%New(..Kolommen) while (It.HasNext()) { - Set Lijn = Lijn_It.Next().GetAt(i)_"\" + Set Lijn = Lijn_It.Next().GetAt(i) + If (It.HasNext()) Set Lijn = Lijn_"\" } Set ^HULP(PrintKey,i) = Lijn } Index: APPS/PM/Maatwerk/Framework/dto/KostSpecificatieLijst.cls.xml =================================================================== diff -u -r1100 -r1133 --- APPS/PM/Maatwerk/Framework/dto/KostSpecificatieLijst.cls.xml (.../KostSpecificatieLijst.cls.xml) (revision 1100) +++ APPS/PM/Maatwerk/Framework/dto/KostSpecificatieLijst.cls.xml (.../KostSpecificatieLijst.cls.xml) (revision 1133) @@ -5,7 +5,7 @@ %RegisteredObject,%XML.Adaptor 0 - + APPS.PM.Maatwerk.Framework.dto.KostSpecificatie list Index: APPS/PM/Maatwerk/Framework/dto/BewerkingsCalculator.cls.xml =================================================================== diff -u -r1100 -r1133 --- APPS/PM/Maatwerk/Framework/dto/BewerkingsCalculator.cls.xml (.../BewerkingsCalculator.cls.xml) (revision 1100) +++ APPS/PM/Maatwerk/Framework/dto/BewerkingsCalculator.cls.xml (.../BewerkingsCalculator.cls.xml) (revision 1133) @@ -8,10 +8,12 @@ %Float +1 %Float +1 Index: Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r1074 -r1133 --- Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 1074) +++ Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 1133) @@ -231,7 +231,9 @@ 1 %Status @@ -372,6 +374,7 @@ . Set pxGesprokenMet.Gesproken=GesprokenMet.Gesproken . Do pxAgenda.GesprokenMet.Insert(pxGesprokenMet) . Set:GesprokenMet.PersoonID'="" MemIDs=MemIDs_$LB(GesprokenMet.PersoonID) + If pxAgenda.DerdeType="K",pxAgenda.DerdeRef'="" Do . Set rs=##class(%ResultSet).%New("BL.Derde.Agenda.Agenda:GetPersonenKlant") . Do rs.Execute(pxAgenda.DerdeRef) Index: BL/MB/UGLYPicking/ReceptieOpkuis.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/MB/UGLYPicking/ReceptieOpkuis.cls.xml (.../ReceptieOpkuis.cls.xml) (revision 1074) +++ BL/MB/UGLYPicking/ReceptieOpkuis.cls.xml (.../ReceptieOpkuis.cls.xml) (revision 1133) @@ -69,11 +69,7 @@ %Status %String 1 %String + +APPS.Halux.common.Batch + + %String - -%Boolean - - %String @@ -83,27 +83,6 @@ %Integer - -1 -BatchID - - - - -1 -Debug -BL.PPS.TBX.DocsProPlus - - - BatchID,ProdGrp,LabelDevice,FOPDevice @@ -129,7 +103,6 @@ + +1 + + + + +1 + + + 1 BatchID:%Integer @@ -241,9 +232,10 @@ Set PLD(1)=$NA(^HULP(..%J,Label2)) Set PLD(5)=80 Set PLD(10)="Class("_..%ClassName(1)_").LadeZijkantBakCB" - Set PLD(11)="TBX ZIJKANTEN\Lijn:"_..Line_" Batch:"_..BatchID + Set PLD(11)="TBX ZIJKANTEN\Lijn:"_..Batch.GeefLijn()_" Batch:"_..BatchID Set (%MemVerpak,%MemDossier,%MemTOENr)="" - Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Kill %MemVerpak,%MemDossier,%MemTOENr Quit @@ -452,9 +444,10 @@ Set PLD(1)=$NA(^HULP(..%J,Label2)) Set PLD(5)=77 Set PLD(10)="Class("_..%ClassName(1)_").StaalRugCB" - Set PLD(11)="TBX STALENRUG\Lijn:"_..Line_" Batch:"_..BatchID + Set PLD(11)="TBX STALENRUG\Lijn:"_..Batch.GeefLijn()_" Batch:"_..BatchID Set (%MemTOENr,%MemDossier)="" - Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Kill %MemDossier,%MemTOENr Quit ]]> @@ -572,9 +565,10 @@ Set PLD(1)=$NA(^HULP(..%J,Label3)) Set PLD(5)=77 Set PLD(10)="Class("_..%ClassName(1)_").StaalRugOverzichtCB" - Set PLD(11)="Overzicht TBX STALENRUG\Lijn:"_..Line_" Batch:"_..BatchID + Set PLD(11)="Overzicht TBX STALENRUG\Lijn:"_..Batch.GeefLijn()_" Batch:"_..BatchID Set (%MemTOENr,%MemDossier)="" - Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Kill %MemDossier,%MemTOENr Quit ]]> @@ -733,7 +727,7 @@ proc:LabelProcessor,StartNr:%Numeric,EndNr:%Numeric 1 EndNr . . Do blLabelPrinter.Add(pxLabel) - Do:proc.PostProcess(blLabelPrinter) blLabelPrinter.Print2Bartender(..Debug) + Do:proc.PostProcess(blLabelPrinter) blLabelPrinter.Print2Bartender() ]]> @@ -926,9 +920,10 @@ Set PLD(1)=$NA(^HULP(..%J,Label)) Set PLD(5)=76 Set PLD(10)="Class("_..%ClassName(1)_").ZaagCB" - Set PLD(11)="TBX ZAAG\Lijn:"_..Line_" Batch:"_..BatchID + Set PLD(11)="TBX ZAAG\Lijn:"_..Batch.GeefLijn()_" Batch:"_..BatchID Set %MemTOENr="" - Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Kill %MemTOENr Quit Count ]]> @@ -1051,10 +1046,11 @@ Set PLD(1)=$NA(^HULP(..%J,Label)) Set PLD(5)=70 Set PLD(10)="Class("_..%ClassName(1)_").OnderdelenCB" - Set PLD(11)="TBX ONDERDELEN\Lijn:"_..Line_" Batch:"_..BatchID + Set PLD(11)="TBX ONDERDELEN\Lijn:"_..Batch.GeefLijn()_" Batch:"_..BatchID ;zw PLD Set (%MemTOENr,%MemDossier)="" - Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Kill %MemTOENr,%MemDossier Quit ]]> @@ -1122,10 +1118,11 @@ Set PLD(5)=70 Set PLD(1)=$NA(^HULP(..%J,Label)) Set PLD(10)="Class("_..%ClassName(1)_").FrontCB" - Set PLD(11)="TBX FRONT\Lijn:"_..Line_" Batch:"_..BatchID + Set PLD(11)="TBX FRONT\Lijn:"_..Batch.GeefLijn()_" Batch:"_..BatchID Set PLD("HALUX")="" Set (%MemTOENr,%MemDossier)="" - Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Kill %MemDossier,%MemTOENr Quit FrontCnt ]]> @@ -1200,9 +1197,10 @@ Set PLD(5)=70 Set PLD(1)=$NA(^HULP(..%J,Label)) Set PLD(10)="Class("_..%ClassName(1)_").MatCB" - Set PLD(11)="TBX MAT\Lijn:"_..Line_" Batch:"_..BatchID + Set PLD(11)="TBX MAT\Lijn:"_..Batch.GeefLijn()_" Batch:"_..BatchID Set (%MemTOENr,%MemDossier)="" - Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Kill %MemDossier,%MemTOENr Quit MatCnt ]]> @@ -1296,7 +1294,7 @@ StartNr,EndNr @@ -1442,7 +1440,7 @@ @@ -1492,7 +1490,7 @@ Afdrukken van etiketten die niet voor SFS zijn 'PB') group by TOENr") Do rs.Execute() @@ -1506,7 +1504,7 @@ . . Set pxLabel=..PalletEtiketOne("TBX") . . Quit:'$isObject(pxLabel) . . Do blLabelPrinter.Add(pxLabel) - Do blLabelPrinter.Print2Bartender(..Debug) + Do blLabelPrinter.Print2Bartender() ]]> @@ -1532,7 +1530,7 @@ 'PB') group by TOENr, TLUNr, Product") Do rs.Execute() @@ -1555,7 +1553,7 @@ . Set Aantal=$S(AantOnderdelen(TOENr)#$$$GrpAantalOnderdeel=0:AantOnderdelen(TOENr)\$$$GrpAantalOnderdeel,1:AantOnderdelen(TOENr)\$$$GrpAantalOnderdeel+1) . Set pxLabel=..EtikettenCommissieOne(TOENr,Aantal,"ONDERDELEN") . Do blLabelPrinter.Add(pxLabel) - Do blLabelPrinter.Print2Bartender(..Debug) ; eigenlijke afdruk + Do blLabelPrinter.Print2Bartender() ; eigenlijke afdruk ]]> @@ -1593,145 +1591,6 @@ ]]> - - - - - -0 - - - - -Basis,Aantal - aangepast door CSC --> uitgebreid door WV - // Datum laatste wijziging : 19/01/2011 - // - // Een deel van de code maakt reeds gebruik van de enclapsulatie (TBX) - // Verdere encapsulatie (GeefRugHoogte(), ... ) kan nog doorgevoerd worden. - // - // INFO: - // Aantal snijdingen = Aantal "stukken" glas te snijden en door te geven om in tandembox te plaatsen - // Aantal pickingen = Aantal "stroken" glas te picken uit magazijn die nog bewerkt moeten worden - - Set Resultaat="" - Set PRNr=$P(Basis,"\",1) - Set API = ##class(DOM.DomeinContext).Instance().GeefProductAPI() - Set TandemBox = API.GeefProduct(PRNr) - - // Front glas snijden (Meer algemeen uitgedrukt : Front inschijfelement inkorten) - Set MoetFrontGlasInkorten=TandemBox.BevatInTeKortenFrontGlas() ; ($D(^PRBS("BS",PRNr,"PRFRGLAS.001")))||($D(^PRBS("BS",PRNr,"PRFRGLASSTRK.001"))) - If (MoetFrontGlasInkorten) - { - If ($D(^PRBS("BS",PRNr,"PRFRGLASSTRK.001"))) { - Set GlasSnij1=$P($G(^PRBS("BS",PRNr,"PRFRGLASSTRK.001","D")),"\",1) ; D-subnode : Dimensie-gegevens - Set xGlas1=^PRBS("BS",PRNr,"PRFRGLASSTRK.001") - Set SnijdenUitStrook=1 - } - Else { - Set GlasSnij1=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB"))-118 - Set xGlas1=^PRBS("BS",PRNr,"PRFRGLAS.001") - Set SnijdenUitStrook=0 - } - - Set KPRNr1=$P(xGlas1,"\") - Set AantalSnijdingen1=$Piece(Basis,"\",2)*$Piece(xGlas1,"\",2) - If (SnijdenUitStrook) { - Set GlasDimBrut1=$P($G(^PRBS("BS",PRNr,"PRFRGLASSTRK.001","D")),"\",2) ; D-subnode : Dimensie-gegevens - Set AantalPickingen1=..TelMagazijnStuks(KPRNr1,AantalSnijdingen1,1,GlasDimBrut1) - } - Else { - Set AantalPickingen1=AantalSnijdingen1 - } - $$$DoLeftPad2(AantalSnijdingen1) - $$$DoLeftPad2(AantalPickingen1) - Set KortTekst1=$Piece(^KPR(KPRNr1,0),"\") - Set PType="Front" - Set RugHoogte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) - Set Kleur=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr1,"Kleur")) - ;b "s+" - Set Rec1=AantalPickingen1_":"_AantalSnijdingen1_"\"_GlasSnij1_"\"_RugHoogte_"\"_PType_"\"_KortTekst1_"\"_Kleur - Set $Piece(Basis,"\",10)=Rec1 - Set Resultaat=$LB(Basis) - } - - - // Zijwand glas snijden, tenzij exact (BOXCOVER) (Meer algemeen uitgedrukt : Zijwand inschuifelement inkorten) - Set MoetZijwandGlasInkorten=TandemBox.BevatInTeKortenZijkantGlas() ; $D(^PRBS("BS",PRNr,"PRBXKGSTRK.001")) || ($D(^PRBS("BS",PRNr,"PRBXKG.001")) en (LadeDiepte HF verschillend)) - If (MoetZijwandGlasInkorten) - { - If ($D(^PRBS("BS",PRNr,"PRBXKGSTRK.001"))) { - Set GlasSnij2=$P($G(^PRBS("BS",PRNr,"PRBXKGSTRK.001","D")),"\",1) ; D-subnode : Dimensie-gegevens - Set xGlas2=^PRBS("BS",PRNr,"PRBXKGSTRK.001") - Set SnijdenUitStrook=1 - } - Else { - Set GlasSnij2=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))-60 - Set xGlas2=^PRBS("BS",PRNr,"PRBXKG.001") - Set KPRNr2=$P(xGlas2,"\",1) - Set SnijdenUitStrook=0 - } - - Set KPRNr2=$P(xGlas2,"\",1) - Set AantalSnijdingen2=$Piece(Basis,"\",2)*2 ;$Piece(xGlas2,"\",2) - If (SnijdenUitStrook) { - Set GlasDimBrut2=$P($G(^PRBS("BS",PRNr,"PRBXKGSTRK.001","D")),"\",2) ; D-subnode : Dimensie-gegevens - Set AantalPickingen2=..TelMagazijnStuks(KPRNr2,AantalSnijdingen2,1,GlasDimBrut2) - } - Else { - Set AantalPickingen2=$Piece(Basis,"\",2)*$Piece(xGlas2,"\",2) - } - $$$DoLeftPad2(AantalSnijdingen2) - $$$DoLeftPad2(AantalPickingen2) - Set KortTekst2=$Piece(^KPR(KPRNr2,0),"\") - Set PType="Zijkant" - Set RugHoogte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr2,"RugHoogte")) - Set Kleur=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr2,"Kleur")) - ;b "s+" - Set Rec2=AantalPickingen2_":"_AantalSnijdingen2_"\"_GlasSnij2_"\"_RugHoogte_"\"_PType_"\"_KortTekst2_"\"_Kleur - Set $Piece(Basis,"\",10)=Rec2 - Set Resultaat=Resultaat_$LB(Basis) - } - - Quit Resultaat -]]> - - Geeft TELMAGST^MRP(...) @@ -1747,34 +1606,6 @@ ]]> - -oQ -1 0 ; - Set PRNr=oQ.ProductGetObjectId() - Set API = ##class(DOM.DomeinContext).Instance().GeefProductAPI() - Set TandemBox = API.GeefProduct(PRNr) - Quit TandemBox.BevatInTeKortenGlas() -]]> - - - -1 -Ref -0 - - - Index: zTryout/CSC/TestKlas.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/CSC/TestKlas.cls.xml (.../TestKlas.cls.xml) (revision 1074) +++ zTryout/CSC/TestKlas.cls.xml (.../TestKlas.cls.xml) (revision 1133) @@ -1,9 +1,11 @@ +persistent DOM.OV,DOM.PM 1 zTryout.CSC.TestKlas2 +0 zTryout.CSC.TestKlas2 @@ -23,10 +25,24 @@ Do ##class(zTryout.CSC.TestKlas).%New().DoeIets() -e:%Integer %Integer - + + +%Library.CacheStorage +TestKlasDefaultData + +listnode +"TestKlas" + +Test2 + + +Test3 + + + Index: TECH/Matrix.cls.xml =================================================================== diff -u --- TECH/Matrix.cls.xml (revision 0) +++ TECH/Matrix.cls.xml (revision 1133) @@ -0,0 +1,81 @@ + + + +1 +%RegisteredObject +0 + + +%ListOfDataTypes +list + + + +1 +Lijst:%ListOfDataTypes,AantalRijen:%Integer="",AantalKolommen:%Integer="" +TECH.Matrix + + + + +TECH.Matrix + + + + +%String + + + + Index: APPS/PM/Maatwerk/Framework/impl/BewerkingsInfoHelper.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/Framework/impl/BewerkingsInfoHelper.cls.xml (revision 0) +++ APPS/PM/Maatwerk/Framework/impl/BewerkingsInfoHelper.cls.xml (revision 1133) @@ -0,0 +1,116 @@ + + + +1 +APPS.PM.Maatwerk.Framework.impl.SpecificatieHelper +0 + + +BewerkingsInfo:APPS.PM.Maatwerk.Framework.dto.BewerkingsInfo +APPS.PM.Maatwerk.Framework.dto.BewaarResultaat + + + + +BewerkingsInfo:APPS.PM.Maatwerk.Framework.dto.BewerkingsInfo +DOM.PM.Maatwerk.Calc.HF.IBewerkingsCalculator + + + + +APPS.PM.Maatwerk.Framework.dto.KostSpecificatieLijst + + + + +%SQLQuery + SELECT Familie, Variant, GeldigVan, GeldigTot, BewerkingsCalculator, Tag, Variant, ProductID, BrutoPercentage, BrutoVast + FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo BI + JOIN DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsCalculator BC ON BI.BewerkingsCalculator = BC.ID + ORDER BY Familie, Variant, Tag, GeldigVan + + + Index: zJBL/Java/ClassA.cls.xml =================================================================== diff -u -r1074 -r1133 --- zJBL/Java/ClassA.cls.xml (.../ClassA.cls.xml) (revision 1074) +++ zJBL/Java/ClassA.cls.xml (.../ClassA.cls.xml) (revision 1133) @@ -1,6 +1,7 @@ +TECH.Error 1 ClassSuper 0 @@ -42,7 +43,11 @@ 1 Number:%Integer %String - Index: TECH/VhChangeInfo.cls.xml =================================================================== diff -u --- TECH/VhChangeInfo.cls.xml (revision 0) +++ TECH/VhChangeInfo.cls.xml (revision 1133) @@ -0,0 +1,23 @@ + + + +1 +1 +TECH.Concurrency.VhPersistent,TECH.ChangeInfo +0 + + +insert:%Boolean +1 +%Status + + + + Index: APPS/LEV/LeverancierService.cls.xml =================================================================== diff -u -r1126 -r1133 --- APPS/LEV/LeverancierService.cls.xml (.../LeverancierService.cls.xml) (revision 1126) +++ APPS/LEV/LeverancierService.cls.xml (.../LeverancierService.cls.xml) (revision 1133) @@ -90,7 +90,7 @@ /// Want daarin kan reeds een verouderd adres staat. /// Dit voorkomt ook duplicate data in het xml bestand. /// - For i = 1 : 1 : dtoLeverancierBestand.Leveranciers.Count() { + For i = dtoLeverancierBestand.Leveranciers.Count() : -1 : 1 { If (dtoLeverancierBestand.Leveranciers.GetAt(i).Nummer = LeverancierNr){ Do dtoLeverancierBestand.Leveranciers.RemoveAt(i) } Index: DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 1075) +++ DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 1133) @@ -341,7 +341,7 @@ Kill ..arKenmerkUnIDs $$$chkRequiredParameter(ProductGroepCode) - + do ..ZoekProductGroepenZoek(.ProductCriteria,.Zoekterm,.LadeSpec,.FilterKeuzes,ZoektermCategorie) // bouwt ..KenmerkUnIDs [ list ] op do:..Debug WL^vhDBG("# Kenmerken : "_..KenmerkUnIDs.Count()) @@ -640,22 +640,13 @@ for set KenmerkUnID = $order(..arKenmerkUnIDs(KenmerkUnID)) Quit:KenmerkUnID="" if ..KenmerkUnIDsViaZoekterm.IsDefined(KenmerkUnID) do ..KenmerkUnIDs.Insert(KenmerkUnID) } elseif blnKenmerkenGevondenViaCriteriaOfLadeSpec { - for set KenmerkUnID = $order(..arKenmerkUnIDs(KenmerkUnID)) Quit:KenmerkUnID="" do ..KenmerkUnIDs.Insert(KenmerkUnID) - } + for set KenmerkUnID = $order(..arKenmerkUnIDs(KenmerkUnID)) Quit:KenmerkUnID="" do ..KenmerkUnIDs.Insert(KenmerkUnID) + } elseif $length(Zoekterm) { - for set KenmerkUnID = ..KenmerkUnIDsViaZoekterm.Next(KenmerkUnID) Quit:KenmerkUnID="" do ..KenmerkUnIDs.Insert(KenmerkUnID) - } - - Do ..FilterActieveProducten() - - /** / - set itKenmerken = ##class(TECH.ReversedListIterator).%New(..KenmerkUnIDs) - while itKenmerken.HasNext() { - set KenmerkUnID = itKenmerken.Next() - if '##class(Prod.Kenmerk.Orgalux).%New(KenmerkUnID).IsActief() do ..KenmerkUnIDs.RemoveAt(itKenmerken.Key()) - } + for set KenmerkUnID = ..KenmerkUnIDsViaZoekterm.Next(KenmerkUnID) Quit:KenmerkUnID="" do ..KenmerkUnIDs.Insert(KenmerkUnID) } - /**/ + + Do ..FilterActieveProducten() ; Added by WimV on 28/04/2011 /*} else { // indien ZoektermCategorie niet opgegeven alle gevonden waarden teruggeven @@ -680,10 +671,11 @@ LadeSpec:DOM.PM.OL.Gamma.dto.LadeSpecificatie @@ -702,7 +694,6 @@ dtoProductGroepInhoud:DOM.PM.OL.Gamma.dto.ProductGroepInhoud,ProductCriteria:DOM.PM.OL.Gamma.dto.ProductCriteria 1 Enkel maar zones die zijn opgegeven teruggeven. set lbLadeFamilies = "" @@ -1480,8 +1471,14 @@ ;do:..Debug WL^vhDBG($$ArrayToText^vhLib("arUnIDs 2",.arUnIDs)) } - do:..Debug WL^vhDBG("") - do:..Debug WL^vhDBG("") + if ..Debug { + set idx="" + set dbgAantal=0 + for set idx=$o(arUnIDs(idx)) quit:idx="" set dbgAantal=$i(dbgAantal) + do WL^vhDBG("# UnIDs : "_dbgAantal) + do WL^vhDBG("") + } + Kill ..arKenmerkUnIDs Merge ..arKenmerkUnIDs = arUnIDs Index: APPS/PM/OL/ExcelImport.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/PM/OL/ExcelImport.cls.xml (.../ExcelImport.cls.xml) (revision 1073) +++ APPS/PM/OL/ExcelImport.cls.xml (.../ExcelImport.cls.xml) (revision 1133) @@ -72,6 +72,11 @@ 1 + +APPS.PM.OL.MasterAutoGenerator +1 + + Houdt de KenmerkWaardeMap-objecten in het geheugen, zodat ze niet telkens opnieuw moeten geopend worden @@ -111,31 +116,16 @@ - -Repository bevat de informatie voor het aflopen van de producten, i.e. voor het zoeken van varianten van een Master -Property ProductRepo As ProductRepository; initvalue:%CacheString 1 %Status @@ -169,37 +159,7 @@ 1 flagReadOnly:%Boolean %Status - @@ -455,7 +415,7 @@ // Propageer de MASTER-kenmerken naar de varianten (AUTOs-kenmerken) If ProdKM.GeneratieType=$$$gtMaster { Quit:(ProdKM.TeVerwijderen) - Set sc=..GenereerVarianten(ProdKM) + Set sc=..MasterAutoGenerator.GenereerVariantenVoorProdKM(ProdKM) Quit:($$$ISERR(sc)) sc } @@ -578,31 +538,6 @@ ]]> - -ProdKM:ProductKenmerken -1 -%Status - - - Vervolledigen van de kenmerken en ProdKM properties (na het inlezen van de lbData) Index: zTryout/ARC/DOM/OV/impl/DataM/DataMTextOrderlijn.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMTextOrderlijn.cls.xml (.../DataMTextOrderlijn.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMTextOrderlijn.cls.xml (.../DataMTextOrderlijn.cls.xml) (revision 1133) @@ -8,13 +8,13 @@ 0 -olijn:%Integer,lineinfo:%String,Order:Order +olijn:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode 1 1 %Status - - + + + @@ -23,6 +24,7 @@ + @@ -33,6 +35,7 @@ + @@ -231,6 +234,7 @@ + @@ -252,10 +256,10 @@ + - Index: APPS/Halux/Planning/impl/ResourceDrempels.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/impl/ResourceDrempels.cls.xml (revision 0) +++ APPS/Halux/Planning/impl/ResourceDrempels.cls.xml (revision 1133) @@ -0,0 +1,102 @@ + + + +persistent +1 +%Persistent +0 + + +%String + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +APPS.Halux.Planning.impl.ResourceDrempel + + + +%Library.CacheStorage +^APPS.Halux8A9.ResourceDrem684D +ResourceDrempelsDefaultData +^APPS.Halux8A9.ResourceDrem684D +^APPS.Halux8A9.ResourceDrem684I +^APPS.Halux8A9.ResourceDrem684S + +listnode + + +%%CLASSNAME + + +ALUFrees + + +ALUMontage + + +ALUTeam + + +Bewerkingscenter + + +HoekkastTeam + + +Houtzaag + + +KartonMachine + + +TBXPers1 + + +TBXPers2 + + +Voormontage + + +WeekDag + + + + + Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrderBase.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMOrderBase.cls.xml (.../DataMOrderBase.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrderBase.cls.xml (.../DataMOrderBase.cls.xml) (revision 1133) @@ -6,7 +6,7 @@ niet afhankelijk zijn van de storage technologie, en dit laatste elders te implementeren. Vermits het nog niet duidelij is of dit 100% zal lukken staat de basisklasse ook in het DataM package. -zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM +zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM,zTryout.ARC.TECH.Persistentie %VHMacro 1 Order,%RegisteredObject @@ -23,14 +23,15 @@ 1 - - +zTryout.ARC.TECH.Persistentie.GlobalNode +1 + -]]> - - + +Public for easy access from iterators. +Array of DataMOrderlijn. %ArrayOfObjects @@ -44,15 +45,19 @@ 1 + +GlobalNode +1 + + Nr:%Integer %Status @@ -77,17 +82,13 @@ %String - Datum:%String - @@ -110,8 +111,9 @@ Voegt de orderlijn toe als een nieuwe orderlijn. De bedoeling van deze operatie is om lijnen die nog niet in een order zitten toe te voegen aan dit order. De lijn mag nog geen nummer hebben, anders wordt een fout gegeven. -Lijn:Orderlijn +Lijn:DataMOrderlijn @@ -153,45 +155,37 @@ + +TBC: Deze is enkel public voor de iterator. %Integer - - - - - - - - - - + +1 +%Integer + - - - - +1 + + +1 +Lijn:DataMOrderlijn + Index: APPS/Halux/Planning/PlanningService.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 1073) +++ APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 1133) @@ -3,7 +3,7 @@ Service voor de Halux planningstool. -Ondersteunt het visulaliseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn. +Ondersteunt het visualiseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn. 1 %RegisteredObject 0 @@ -12,6 +12,61 @@ Halux_Planning_PlanningService + +ToeleveringNummer:%Integer,AantalToeleveringen:%Integer,DrempelAantalProducten:%Integer +APPS.Halux.Planning.dto.SplitsToeleveringEvaluatie + DrempelAantalProducten) + { + Set Aantal = ProductToeleveringLijn.GeefAantal() + Set AantalPerToelevering = ##class(TECH.Math).Floor(Aantal / AantalToeleveringen) + Set Rest = Aantal - (AantalToeleveringen*AantalPerToelevering) + For i=1:1:AantalToeleveringen + { + Set Aantal = AantalPerToelevering + If (Rest > 0) + { + Set Aantal = Aantal + 1 + Set Rest = Rest - 1 + } + Set SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(i).Beschrijving = "Toelevering "_i + Do SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(i).Aantallen.Insert(Aantal) + } + } + Else + { + Do SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(1).Aantallen.Insert(ProductToeleveringLijn.GeefAantal()) + For i=2:1:AantalToeleveringen + { + Do SplitsToeleveringEvaluatie.GesplitsteToeleveringen.GetAt(i).Aantallen.Insert(0) + } + } + } + } + + Quit SplitsToeleveringEvaluatie +]]> + + Van:%Date,Naar:APPS.Halux.Planning.dto.DataLijst,ToeleveringNummers:%ListOfDataTypes APPS.Halux.Planning.dto.EvalueerVerplaatsingResultaat @@ -71,7 +126,12 @@ } If (Datum > DueOutDag) { - Do VerplaatsingEvaluatie.Evaluaties.Insert("Toelevering "_Toelevering.GeefToeNr()_" wordt naar achter verplaatst en krijgt een leverimpact.") + Set LeverImpact = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefLeverImpact(Toelevering, ##class(TECH.DateTime).DateToTimestamp(Datum)) + If (LeverImpact '= 0) + { + Set LeverImpactVan = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefLeverImpact(Toelevering, ##class(TECH.DateTime).DateToTimestamp(Datum), ##class(TECH.DateTime).DateToTimestamp(Van)) + Do VerplaatsingEvaluatie.Evaluaties.Insert("Toelevering "_Toelevering.GeefToeNr()_" wordt naar achter verplaatst en krijgt een leverimpact. Leverimpact ten opzichte van due out: "_LeverImpact_" dagen. Leverimpact ten opzichte van de planning: "_LeverImpactVan_" dagen.") + } } } If (VerplaatsingEvaluatie.Evaluaties.Count() > 0) @@ -389,37 +449,39 @@ Set Instellingen.WekenVoorHuidige = 0 Set Instellingen.WekenNaHuidige = 3 - Set ResourceDrempels = ##class(APPS.Halux.Planning.dto.ResourceDrempels).%New() - Set ResourceDrempels.ALUFrees = ..GeefResourceDrempel("ALUFrees") - Set ResourceDrempels.ALUOperator = ..GeefResourceDrempel("ALUOperator") - Set ResourceDrempels.ALUZaag = ..GeefResourceDrempel("ALUZaag") - Set ResourceDrempels.BewerkingsCenter = ..GeefResourceDrempel("BewerkingsCenter") - Set ResourceDrempels.HoekkastInpak = ..GeefResourceDrempel("HoekkastInpak") - Set ResourceDrempels.HoekkastMontage = ..GeefResourceDrempel("HoekkastMontage") - Set ResourceDrempels.HoekkastZaag = ..GeefResourceDrempel("HoekkastZaag") - Set ResourceDrempels.Houtzaag = ..GeefResourceDrempel("Houtzaag") - Set ResourceDrempels.KartonMachine = ..GeefResourceDrempel("KartonMachine") - Set ResourceDrempels.TBXPers1 = ..GeefResourceDrempel("TBXPers1") - Set ResourceDrempels.TBXPers2 = ..GeefResourceDrempel("TBXPers2") - Set ResourceDrempels.TBXPers3 = ..GeefResourceDrempel("TBXPers3") - Set ResourceDrempels.TBXPicking = ..GeefResourceDrempel("TBXPicking") - Set ResourceDrempels.Voormontage = ..GeefResourceDrempel("Voormontage") + Set ResultSet = ##class(%ResultSet).%New("APPS.Halux.Planning.impl.ResourceDrempels:Extent") + Do ResultSet.Execute() - Set Instellingen.ResourceDrempels = ResourceDrempels + While (ResultSet.Next()) + { + Set ResourceDrempels = ##class(APPS.Halux.Planning.impl.ResourceDrempels).%OpenId(ResultSet.Data("ID")) + + Set ResourceDrempelsDto = ##class(APPS.Halux.Planning.dto.ResourceDrempels).%New() + Set ResourceDrempelsDto.ALUFrees = ..GeefResourceDrempelDto(ResourceDrempels.ALUFrees) + Set ResourceDrempelsDto.ALUMontage = ..GeefResourceDrempelDto(ResourceDrempels.ALUMontage) + Set ResourceDrempelsDto.ALUTeam = ..GeefResourceDrempelDto(ResourceDrempels.ALUTeam) + Set ResourceDrempelsDto.Bewerkingscenter = ..GeefResourceDrempelDto(ResourceDrempels.Bewerkingscenter) + Set ResourceDrempelsDto.HoekkastTeam = ..GeefResourceDrempelDto(ResourceDrempels.HoekkastTeam) + Set ResourceDrempelsDto.Houtzaag = ..GeefResourceDrempelDto(ResourceDrempels.Houtzaag) + Set ResourceDrempelsDto.KartonMachine = ..GeefResourceDrempelDto(ResourceDrempels.KartonMachine) + Set ResourceDrempelsDto.TBXPers1 = ..GeefResourceDrempelDto(ResourceDrempels.TBXPers1) + Set ResourceDrempelsDto.TBXPers2 = ..GeefResourceDrempelDto(ResourceDrempels.TBXPers2) + Set ResourceDrempelsDto.Voormontage = ..GeefResourceDrempelDto(ResourceDrempels.Voormontage) + + Do Instellingen.ResourceDrempels.Insert(ResourceDrempelsDto) + } Quit Instellingen ]]> - -ID:%String + +ResourceDrempelData:APPS.Halux.Planning.impl.ResourceDrempel 1 APPS.Halux.Planning.dto.ResourceDrempel DrempelAantalProducten) - { - Set Aantal = ProductToeleveringLijn.GeefAantal() - Set AantalPerToelevering = ##class(TECH.Math).Floor(Aantal / AantalToeleveringen) - If ((Aantal/AantalToeleveringen) '= AantalPerToelevering) { Set AantalPerToelevering = AantalPerToelevering + 1 } - Set NieuweLijnNummers = ##class(%ListOfDataTypes).%New() - While (Aantal > AantalPerToelevering) - { - Set Aantal = Aantal - AantalPerToelevering - Set $ZTRAP="SplitsFout" - Set NieuwLijnNummer = $$SplitsLijn^FLOWTOE6(ToeleveringNummer,ProductToeleveringLijn.GeefUniekLijnNr(),Aantal) - Set $ZTRAP = "" - If (ProductToeleveringLijnIterator.HasNext()) { Do ProductToeleveringLijnIterator.Next() } // Skip de aangemaakte lijn - Do NieuweLijnNummers.Insert(NieuwLijnNummer) - } - - If (NieuweLijnNummers.Count() > 0) { Do NieuweLijnenPerLijn.Insert(NieuweLijnNummers) } - } + Do UniekeLijnNummers.Insert(ProductToeleveringLijn.GeefUniekLijnNr()) } Set GewijzigdeToeleveringen = ##class(%ListOfObjects).%New() - For i = 1:1:AantalToeleveringen-1 + For i = 2:1:AantalToeleveringen { Set AfTeSplitsenLijnen = ##class(%ListOfDataTypes).%New() - For j = 1:1:NieuweLijnenPerLijn.Count() + Set GesplitsteToelevering = SplitsEvaluatieResultaat.GesplitsteToeleveringen.GetAt(i) + For j = 1:1:GesplitsteToelevering.Aantallen.Count() { - If (NieuweLijnenPerLijn.GetAt(j).Count() '< i) + If (GesplitsteToelevering.Aantallen.GetAt(j) > 0) { - Do AfTeSplitsenLijnen.Insert(NieuweLijnenPerLijn.GetAt(j).GetAt(i)) + Set $ZTRAP="SplitsFout" + Set NieuwUniekLijnNr = $$SplitsLijn^FLOWTOE6(ToeleveringNummer,UniekeLijnNummers.GetAt(j),GesplitsteToelevering.Aantallen.GetAt(j)) + Set $ZTRAP="" + Do AfTeSplitsenLijnen.Insert(NieuwUniekLijnNr) } } + Set $ZTRAP="SplitsFout" Set NieuweToeleveringNummer = $$SplitsToelevering^FLOWTOE6(ToeleveringNummer,AfTeSplitsenLijnen) Set $ZTRAP="" Index: zTryout/CSC/ChangePackage/ChangeInfo.cls.xml =================================================================== diff -u --- zTryout/CSC/ChangePackage/ChangeInfo.cls.xml (revision 0) +++ zTryout/CSC/ChangePackage/ChangeInfo.cls.xml (revision 1133) @@ -0,0 +1,23 @@ + + + +1 +1 +%Persistent +0 + + +%String + + + +insert:%Boolean +1 +%Status + + + + Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml (.../ResourceGebruikCalculator.cls.xml) (revision 1073) +++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml (.../ResourceGebruikCalculator.cls.xml) (revision 1133) @@ -51,6 +51,10 @@ { Set ..ToeleveringInfo.ProductieStatus = "Batch "_Batch.GeefBatchID() } + Else + { + Set ..ToeleveringInfo.ProductieStatus = "" + } If (..Toelevering.GeefDueOutTime() '= "") { @@ -103,7 +107,9 @@ { Set ProductLijnen = ProductIterator.Next() Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen) - Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(ProductLijn.GeefProduct()) + Set Product = Producten.GetAt(ProductIterator.Key()).GetAt(1).GeefProduct() + Set Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(Product) + Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(Product) While (ProductLijnIterator.HasNext()) { Set ProductLijn = ProductLijnIterator.Next() @@ -117,9 +123,9 @@ { Set ProductInfo.StockProbleem = "!" } - Set ProductInfo.Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(ProductLijn.GeefProduct()) + Set ProductInfo.Categorie = Categorie - If (ProductInfo.Categorie '= ##class(APPS.Halux.Planning.enu.Categorie).Onbepaald()) + If (ProductInfo.Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Tandembox()) || (ProductInfo.Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Kaderdeur()) { Set ProductInfo.VerpakkingType = ProductLijn.GeefProduct().GeefVerpakking() } @@ -146,16 +152,32 @@ 1 %ListOfObjects 1 + +%Boolean +1 + + %Boolean 1 @@ -53,10 +58,28 @@ Index:%Integer,Waarde:%String - + + +TODO: Hoort deze method hier thuis? +Index:%Integer +%Boolean + + + + + +Geef de node-string. +N.B. Deze is inclusief de openstaande wijzigingen. +%String + + + -GlobalNaam:%String,Subscripts:%ListOfDataTypes,Delimiter:%String +Delimiter:%String %Status + + + +%Boolean + + + + + +Deze method mag alleen opgeroepen worden door de GlobalPersistenceMgr. +Omdat die deze node moet registreren in zijn lijst van "open" nodes. +GlobalNaam:%String,Subscripts:%ListOfDataTypes +%Status + + +%String + + + -BatchKey +BatchKey:%String,ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn %Status Index: vhUnitTest/APPS/CRM/Interacties.cls.xml =================================================================== diff -u -r1074 -r1133 --- vhUnitTest/APPS/CRM/Interacties.cls.xml (.../Interacties.cls.xml) (revision 1074) +++ vhUnitTest/APPS/CRM/Interacties.cls.xml (.../Interacties.cls.xml) (revision 1133) @@ -54,7 +54,7 @@ - + TestAddRegistratie_GeenKlantOfLeverancier - + TestAddRegistratie_Onbestaande oorsprong ID + + +datatype +1 +TECH.Enumeration +0 + + +;MASTER;SINGLE;AUTO + + + +1 +APPS.PM.OL.enu.GeneratieType + + + + +1 +APPS.PM.OL.enu.GeneratieType + + + + +1 +APPS.PM.OL.enu.GeneratieType + + + + Index: vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml =================================================================== diff -u -r1074 -r1133 --- vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml (.../ToonzaalBezoek.cls.xml) (revision 1074) +++ vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml (.../ToonzaalBezoek.cls.xml) (revision 1133) @@ -51,7 +51,6 @@ do $$$AssertEquals(..AantalEindGebruikerNaam(),2,"Aantal gevonden records naam = "_..Data("Naam")) do $$$AssertEquals(..AantalEindGebruikerEmailAdres(),1,"Aantal gevonden records EmailAdres = "_..Data("EmailAdres")) - quit ]]> @@ -118,10 +117,10 @@ s sc=##class(zTryout.WV.PM.OL.KenmerkWaardeToMM).Generate(FlagReadOnly) w sc,! -flagReadOnly:%Boolean +flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status Index: APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml (.../WerkpostZaagHelper.cls.xml) (revision 1073) +++ APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml (.../WerkpostZaagHelper.cls.xml) (revision 1133) @@ -27,13 +27,13 @@ %Status 1 ZaagOpdracht:APPS.Halux.TBX.ZaagOpdrachten,Device:APPS.Halux.TBX.enu.PrintDevice +1 ProdLijnen:%ArrayOfObjects +1 ProdLijnen:%ArrayOfObjects Index: vhConsistency/ConsistencyCheck.cls.xml =================================================================== diff -u -r1121 -r1133 --- vhConsistency/ConsistencyCheck.cls.xml (.../ConsistencyCheck.cls.xml) (revision 1121) +++ vhConsistency/ConsistencyCheck.cls.xml (.../ConsistencyCheck.cls.xml) (revision 1133) @@ -48,10 +48,14 @@ If ToonAlles w Boodschap,! If CheckGefaald { Set From = $$$SystemMail($$$Server_" - Consistency check") - Set MailNaar = $LB($$GetMailAddressFromTerminal^vhLib()) - Set Mails = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhConsistencyCheck.MailNaar") - For i = 0 : 1 : $Length(Mails,";") { - Set MailNaar = MailNaar_$ListBuild($Piece(Mails,";",i)) + Set MailNaar = "" + Set Mail = $$GetMailAddressFromTerminal^vhLib() + Set:(Mail'="") MailNaar = $LB($$GetMailAddressFromTerminal^vhLib()) + If (MailNaar = ""){ + Set Mails = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhConsistencyCheck.MailNaar") + For i = 0 : 1 : $Length(Mails,";") { + Set MailNaar = MailNaar_$ListBuild($Piece(Mails,";",i)) + } } Do SendMiniMail^vhLib(From,MailNaar,"Consistency check failed on ["_$$$Server_"]",Boodschap,0) } Index: APPS/PM/OL/ProductSortKeyBuilder.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/PM/OL/ProductSortKeyBuilder.cls.xml (.../ProductSortKeyBuilder.cls.xml) (revision 1073) +++ APPS/PM/OL/ProductSortKeyBuilder.cls.xml (.../ProductSortKeyBuilder.cls.xml) (revision 1133) @@ -16,12 +16,12 @@ -flagReadOnly:%Boolean +flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status Index: APPS/PM/Maatwerk/Framework/dto/BewerkingsInfoLijst.cls.xml =================================================================== diff -u -r1100 -r1133 --- APPS/PM/Maatwerk/Framework/dto/BewerkingsInfoLijst.cls.xml (.../BewerkingsInfoLijst.cls.xml) (revision 1100) +++ APPS/PM/Maatwerk/Framework/dto/BewerkingsInfoLijst.cls.xml (.../BewerkingsInfoLijst.cls.xml) (revision 1133) @@ -5,7 +5,7 @@ %RegisteredObject,%XML.Adaptor 0 - + APPS.PM.Maatwerk.Framework.dto.BewerkingsInfo list Index: APPS/PM/Maatwerk/Framework/dto/BewerkingsInfo.cls.xml =================================================================== diff -u -r1100 -r1133 --- APPS/PM/Maatwerk/Framework/dto/BewerkingsInfo.cls.xml (.../BewerkingsInfo.cls.xml) (revision 1100) +++ APPS/PM/Maatwerk/Framework/dto/BewerkingsInfo.cls.xml (.../BewerkingsInfo.cls.xml) (revision 1133) @@ -7,6 +7,12 @@ %String +1 + + +APPS.PM.Maatwerk.Framework.dto.BewerkingsCalculator +1 + Index: APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml (.../DocumentCommon.cls.xml) (revision 1073) +++ APPS/Web/OLParticulier/impl/DocumentCommon.cls.xml (.../DocumentCommon.cls.xml) (revision 1133) @@ -106,7 +106,7 @@ DocumentID:%String,KenmerkUnID:%String,ProductCriteria:DOM.PM.OL.Gamma.dto.ProductCriteria,LadeSpec:DOM.PM.OL.Gamma.dto.LadeSpecificatie,Zoekterm:%String="" %Integer + + +1 +%RegisteredObject +0 + + +Product:DOM.PM.Product + + + + Index: BL/Prod/sub/pxVoorraadIdentificatie.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/Prod/sub/pxVoorraadIdentificatie.cls.xml (.../pxVoorraadIdentificatie.cls.xml) (revision 1074) +++ BL/Prod/sub/pxVoorraadIdentificatie.cls.xml (.../pxVoorraadIdentificatie.cls.xml) (revision 1133) @@ -104,6 +104,9 @@ If BasisType="HOEKKAST" { Do ..HoekKastLade(BasisType) } + ElseIf BasisType="" { + Do ..ProductZonderKenmerken() + } Else { Set ..BasisType=$S(BasisType?1"BODEM".E:"BODEM", BasisType?1"RUG".E:"RUG", 1:BasisType) Set ..BasisTypeOms=$S(..BasisType=BasisType:"", 1:BasisType) @@ -125,6 +128,26 @@ ]]> + + + + BasisType:%String + +%Boolean + + + VERW:%String="",Taal:%String="" %String Index: BL/Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r1089 -r1133 --- BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 1089) +++ BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 1133) @@ -8,6 +8,10 @@ %RegisteredObject 0 + +Derde.Agenda.Agenda + + BL.Derde.Agenda.GeoMobile @@ -206,7 +210,6 @@ Set DataClassName = $piece(..%ClassName(1),"BL.",2) Set ID = ..User.%Id()_"||"_Datum_"||"_SubID - D WLIP^vhDBG(195,ID) Set Agenda=$zobjClassMethod(DataClassName,"%OpenId",ID) Set pxClassName = "BL.Derde.Agenda."_"px"_Agenda.%ClassName(0) Set pxAgenda=$zobjClassMethod(pxClassName,"%New") @@ -222,14 +225,19 @@ s BL=##class(BL.Derde.Agenda.Agenda).%New() d BL.Initialize(11) s r=BL.StoreAgenda(59966, 1908,0,"B","P","Batibouw","Op de batibouwbeurs") w R Opslaan van een bestaande of nieuwe agenda-item. Als SubID="" dan nieuw agenda-item -pxAgenda:BL.Derde.Agenda.pxAgenda + BL.Derde.Agenda.pxStatus + +Agenda:Derde.Agenda.Agenda,pxAgenda:BL.Derde.Agenda.pxAgenda +%Status + + + -Agenda +Agenda:Derde.Agenda.Agenda 1 pxAgenda Derde.Agenda.Agenda @@ -319,8 +344,7 @@ Identifier BL.Derde.Agenda.pxStatus + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: APPS/PM/Maatwerk/OLM/impl/AntislipmatOpMaatFactory.cls.xml =================================================================== diff -u -r1102 -r1133 --- APPS/PM/Maatwerk/OLM/impl/AntislipmatOpMaatFactory.cls.xml (.../AntislipmatOpMaatFactory.cls.xml) (revision 1102) +++ APPS/PM/Maatwerk/OLM/impl/AntislipmatOpMaatFactory.cls.xml (.../AntislipmatOpMaatFactory.cls.xml) (revision 1133) @@ -46,7 +46,25 @@ } } + // Langtekst nederlands + For Positie = "0.2","0.11","6.1","6.2","6.3","6.4","6.5","6.6","6.7","6.8","6.9","6.10" + { + Set Node = $Piece(Positie,".",1) + Set Piece = $Piece(Positie,".",2) + Set Gevonden = $Piece($Get(^KPR(PRNr,Node),""),"\",Piece) + If (Gevonden [ "corpusbreedte") + { + Set $Piece(^KPR(PRNr,Node),"\",Piece) = Gevonden_", WD:0" + } + If (Gevonden = "") + { + Set $Piece(^KPR(PRNr,Node),"\",Piece) = "voor ORGALUX" + Quit + } + } + + Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr) Quit Product ]]> Index: BL/PPS/TBX/LijstDefinities/RelingLijstDefinitie.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/PPS/TBX/LijstDefinities/RelingLijstDefinitie.cls.xml (.../RelingLijstDefinitie.cls.xml) (revision 1074) +++ BL/PPS/TBX/LijstDefinities/RelingLijstDefinitie.cls.xml (.../RelingLijstDefinitie.cls.xml) (revision 1133) @@ -5,28 +5,22 @@ %RegisteredObject 0 - - - - + +do ##class(BL.PPS.TBX.LijstDefinities.RelingLijstDefinitie).MaakDocument() 1 + + +1 +%RegisteredObject +0 + + +1 +DOM.PM.OL.Gamma.dto.ProductGroepInhoud + + + + +1 +Sessie:WS.Web.OLParticulier.dto.Sessie +1 +DOM.PM.OL.Gamma.OrgaluxProductGamma + + + + Index: _vhisie/TBX/Main.csp =================================================================== diff -u -r1071 -r1133 --- _vhisie/TBX/Main.csp (.../Main.csp) (revision 1071) +++ _vhisie/TBX/Main.csp (.../Main.csp) (revision 1133) @@ -275,9 +275,9 @@ - + - + Klantspecifiek: TEST DE VERBINDING MET ONZE SERVER
Index: CHUI/PPS/TBX/LeanBatch.cls.xml =================================================================== diff -u -r1074 -r1133 --- CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 1074) +++ CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 1133) @@ -104,7 +104,7 @@ @@ -691,9 +691,6 @@ Set Lijn=$$WILD^vhPOPUP("C;C","-1KOV","Selecteer de productielijn",.Lijn,GeselecteerdeWaarde) Do ..HaluxBatch.ZetLijn(Lijn) } - Set OldBatch = ##class(DS.PPS.TBX.Batch).%OpenId(..HaluxBatch.GeefBatchID()) - Set OldBatch.Line = ..HaluxBatch.GeefLijn() - Do OldBatch.%Save() Do ..HaluxBatch.%Save() ]]> Index: WS/EC/ProductServer.cls.xml =================================================================== diff -u -r1074 -r1133 --- WS/EC/ProductServer.cls.xml (.../ProductServer.cls.xml) (revision 1074) +++ WS/EC/ProductServer.cls.xml (.../ProductServer.cls.xml) (revision 1133) @@ -81,7 +81,7 @@ ;$$$WebServiceTrap $$$ReInstateSession(SessionKey) $$$ControleToegang($$$tgProductTree,"Dtl",Product) - + $$$blProduct Quit %blProduct.ProductDetail(Product) ]]> Index: WS/PPS/TBX/ZaagServer.cls.xml =================================================================== diff -u -r1074 -r1133 --- WS/PPS/TBX/ZaagServer.cls.xml (.../ZaagServer.cls.xml) (revision 1074) +++ WS/PPS/TBX/ZaagServer.cls.xml (.../ZaagServer.cls.xml) (revision 1133) @@ -109,7 +109,7 @@
Berekent de lengte van en aantal bodems op de buffer tussen zaag en boxpress
en geeft voor de verschillende productielijnen of de batch gewijzigd is.
Opm : SessionKey en Werkpost zijn constante waarden]]> -SessionKey:%String,Werkpost:APPS.Halux.TBX.enu.Werkpost,L1BatchKey:%Float,L2BatchKey:%String,DirectBatchKey:%String +SessionKey:%String,Werkpost:APPS.Halux.TBX.enu.Werkpost,L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String %XML.DataSet 1 %RegisteredObject 0 - -%Boolean - - %String @@ -76,17 +72,6 @@ vhossdoc_01.01 - -1 -Debug -BL.PPS.TBX.DocsProPlus - - - BatchID,ProdGrp,LabelDevice,FOPDevice 0:" ",1:"")_"SPBAK" + . Else If (KLAS="SY") Set Opm=Opm_$s($l(Opm)>0:" ",1:"")_"SIFON" + . Else Quit:(KLAS'="L") + . . Set VHoss=rs.Data("UnitNr")_"."_$C(64+rs.Data("SubNr"))_"."_rs.Data("SlotNr") . ;If MemVHoss'=VHoss Do . . Set:$L(MemVHoss) ^HULP(%J,$I(Count))="" @@ -241,7 +230,8 @@ . Set PLD(10)="Class("_..%ClassName(1)_").PersCB" . Set (MemUnit,MemZij,MemProd)="" . Set PLD(11)="TBX PERS\ Line: "_..Line_" Batch:"_$E(..BatchID,$L(..BatchID)-2,$L(..BatchID))_" Klant:"_$S($L($G(TransRef)):TransRef,1:$P($G(KlantOrdRef),"-")) - . Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + . Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + . Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") ]]> @@ -351,7 +341,8 @@ . Set PLD(10)="Class("_..%ClassName(1)_").RugZijCB" . Set (MemUnit,MemProd)="" . Set PLD(11)="TBX PRO+ RUG & ZIJKANT\ Line: "_..Line_" Batch:"_$E(..BatchID,$L(..BatchID)-2,$L(..BatchID))_" Klant:"_$S($L($G(TransRef)):TransRef,1:$P($G(KlantOrdRef),"-")) - . Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + . Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + . Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") ]]> @@ -450,7 +441,8 @@ . Set PLD(10)="Class("_..%ClassName(1)_").FrontCB" . Set PLD(11)="TBX PRO+ FRONT\ Line: "_..Line_" Batch:"_$E(..BatchID,$L(..BatchID)-2,$L(..BatchID))_" Klant:"_$S($L($G(TransRef)):TransRef,1:$P($G(KlantOrdRef),"-")) . Set MemProd="" - . Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + . Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + . Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Quit $O(^HULP(%J,""),-1) ; aantal fronten ]]> @@ -521,7 +513,8 @@ . Set PLD("HALUX")="" . Set PLD(1)=$NA(^HULP(%J)) . Set PLD(11)="TBX PRO+ SPOELBAK\ Line: "_..Line_" Batch:"_$E(..BatchID,$L(..BatchID)-2,$L(..BatchID))_" Klant:"_$S($L($G(TransRef)):TransRef,1:$P($G(KlantOrdRef),"-")) - . Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + . Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + . Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Quit $O(^HULP(%J,""),-1) ; aantal spoelbakken ]]> @@ -561,11 +554,12 @@ . Set Klas=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; klasse . Quit:Klas="SP2" ; geen spoelbak . Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd + . Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Intern breedte . Set BodemPRNr=..BodemPRNr(PRNr) . Set MetInkeeping = 0 . Set:BodemPRNr'="" MetInkeeping=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemPRNr,"Opties"))="INKEPING" ; Opties . If ReedsGezaagdOnly Quit:(PlaatMat'?1(1"HZ",1"HA",1"KZ",1"KA"))&&('MetInkeeping) - . Set Sort(UnitNr,$I(Sort(UnitNr)))=$LB(rs.Data("ID"),$I(Count),BodemPRNr) + . Set Sort(UnitNr,$I(Sort(UnitNr)))=$LB(rs.Data("ID"),$I(Count),BodemPRNr,IB) ;k %Sort m %Sort=Sort zw %Sort r k ; splitsen in pickinglijst en zaaglijst voor uitzonderlijke afmetingen Set VHossNr="" @@ -578,7 +572,7 @@ . . Set KarMin=Kar-1*(QtyKar) . . Set KarMax=Kar*QtyKar . . Set VolgNr=KarMax+1 - . . Set PrevBodem="" + . . Set PrevBodem="",PrevIB="" . . ;Write "KarMin",KarMin,"KarMax",KarMax,! . . For Set VolgNr=$O(Sort(VHossNr,VolgNr),-1) Quit:VolgNr="" Quit:VolgNr'>KarMin Do ; bodems per kar . . . Set oQ=##class(DS.PPS.TBX.Queue).%OpenId($LI(Sort(VHossNr,VolgNr))) @@ -605,11 +599,12 @@ . . . Set BodemBreedte=IB-75 . . . Set BodemDiepte=LD-$S(IsSR:22,1:24) . . . Set BodemCount="" - . . . If PrevBodem'=BodemPRNr Do + . . . If (PrevBodem'=BodemPRNr) || (PrevIB '= IB) Do . . . . Set VolgNr2=VolgNr . . . . Set BodemCount=1 - . . . . For Set VolgNr2=$O(Sort(VHossNr,VolgNr2),-1) Quit:VolgNr2="" Quit:VolgNr2'>KarMin Quit:BodemPRNr'=$LI(Sort(VHossNr,VolgNr2),3) Set BodemCount=BodemCount+1 + . . . . For Set VolgNr2=$O(Sort(VHossNr,VolgNr2),-1) Quit:VolgNr2="" Quit:VolgNr2'>KarMin Quit:(BodemPRNr'=$LI(Sort(VHossNr,VolgNr2),3)||(IB'=$LI(Sort(VHossNr,VolgNr2),4))) Set BodemCount=BodemCount+1 . . . . Set PrevBodem=BodemPRNr + . . . . Set PrevIB = IB . . . Set ^HULP(%J,"P",$I(^HULP(%J,"P")))=oQ.Sequence_"\"_oQ.%Id()_"\"_BodemPRNr_"\"_oQ.TOENr_"\"_oQ.DOSNr_"\"_KT_"\"_KB_"\"_BodemDiepte_"\"_BodemBreedte_"\"_"\"_VHoss_"\"_Oms1_"\"_Oms2_"\"_oQ.WPVerpak.UnitNr_"\"_Kar . . . Set $P(^HULP(%J,"P",^HULP(%J,"P")),"\",20)=BodemCount . . . ;Set Index("P",PRNr)=$G(Index("P",PRNr))+1 @@ -649,6 +644,8 @@ For Set Count=$O(^HULP(%J,"ZT",Count),-1) Quit:Count="" Do . Set ^HULP(%J,"Z",$I(^HULP(%J,"Z")))=^HULP(%J,"ZT",Count) + Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm") + ; Output BODEM PERS If $D(^HULP(%J,"P")) Do . Do INIT^vhLISTO(..%ClassName(1),"BODEMPERS",.PLD) @@ -657,12 +654,12 @@ . Set PLD("NOFOOT")="" . Set PLD(1)=$NA(^HULP(%J,"P")) . Set PLD(10)="Class("_..%ClassName(1)_").BodemCB" - . Set (MemUnit,MemProd,MemKar)="" + . Set (MemUnit,MemProd,MemKar,MemBreedte)="" . If ReedsGezaagdOnly Do . . Set PLD(11)="TBX LADEBODEMS\ Line: "_..Line_" Batch:"_$E(..BatchID,$L(..BatchID)-2,$L(..BatchID)) . Else Do . . Set PLD(11)="TBX PRO+ BODEM PERS\ Line: "_..Line_" Batch:"_$E(..BatchID,$L(..BatchID)-2,$L(..BatchID))_" Klant:"_$S($L($G(TransRef)):TransRef,1:$P($G(KlantOrdRef),"-")) - . Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + . Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") ; Output BODEM ZAAG If $D(^HULP(%J,"Z"))&&(..ProdGrp="+") Do @@ -671,7 +668,7 @@ . Set PLD("HALUX")="" . Set PLD(1)=$NA(^HULP(%J,"Z")) . Set PLD(11)="TBX PRO+ BODEM ZAGEN\ Line: "_..Line_" Batch:"_$E(..BatchID,$L(..BatchID)-2,$L(..BatchID))_" Klant:"_$S($L($G(TransRef)):TransRef,1:$P($G(KlantOrdRef),"-")) - . Do PRINT^OUTPUT(.PLD,$S(..Debug:"S",1:"P"),"S","BL") + . Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL") Quit $O(^HULP(%J,"Z",""),-1) ; aantal te zagen bodems ]]> @@ -682,15 +679,17 @@ Ref 0 @@ -888,7 +887,7 @@ %Status + +%String + + + 1 1 Index: BL/PPS/TBX/LeanBatch.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 1074) +++ BL/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 1133) @@ -6,107 +6,32 @@ %RegisteredObject 0 - -%Boolean - - ;1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814; - -1 - - - Night job to clean old batches - - - - Delete the old inactive batches from the Batch table and from the Sequence table - - -Delete one old inactive batch from the Batch table and from the Sequence table -BatchNr - - - - - - - Add a new Batch Batch:APPS.Halux.common.Batch %Status - @@ -116,10 +41,6 @@ Batch:APPS.Halux.common.Batch,Toelevering:DOM.LEV.Toelevering %Status @@ -131,21 +52,6 @@ Batch:APPS.Halux.common.Batch,Toelevering:DOM.LEV.Toelevering %Status OudeBatch.Toeleveringen.Count())) - { - Set OudeToelevering = OudeBatch.Toeleveringen.GetAt(i) - If ($Piece(OudeToelevering.Toelevering,"||",2) = Toelevering.GeefToeNr()) - { - Do OudeBatch.Toeleveringen.RemoveAt(i) - Set Verwijderd = 1 - } - Set i = i + 1 - } - Do OudeBatch.%Save() - Do Batch.VerwijderToelevering(Toelevering) Set Status = Batch.%Save() @@ -169,10 +75,6 @@ Batch:APPS.Halux.common.Batch %Status @@ -338,19 +240,19 @@ . Set:$G(QtyLade)+$G(QtyEmpty) Text=Text_"~Bezettingsgraad : "_$J($G(QtyLade)/($G(QtyLade)+$G(QtyEmpty))*100,0,2)_"%" . Set Text=Text_"~Aantal VHossen : "_$G(QtyVHoss) If (Opties'="D") Do - . Set blDocsV1=##class(BL.PPS.TBX.DocsV1).Instantiate(..Debug) + . Set blDocsV1=##class(BL.PPS.TBX.DocsV1).%New() . Do blDocsV1.Init(BatchID,"A") . Do blDocsV1.PrintDocs(Opties, .QtyFront, .QtyMatten,$G(StartNr),$G(EndNr)) . Set:$L(Text) Text=Text_"~" . Set:Opties["F" Text=Text_"~Aantal fronten : "_$G(QtyFront) . Set:Opties["M" Text=Text_"~Aantal matten : "_$G(QtyMatten) If (Opties["D")||(Opties["X") Do ; afdruk van de VHoss documenten - . Set blProplus=##class(BL.PPS.TBX.DocsProPlus).Instantiate(..Debug) + . Set blProplus=##class(BL.PPS.TBX.DocsProPlus).%New() . Do blProplus.Init(BatchID,"A") . Do:(Opties["D") blProplus.PrintDocs("D") . Do:(Opties["X") blProplus.PrintDocs("X") If Opties["B" Do ; afdruk van de bodems - . Set blProplus=##class(BL.PPS.TBX.DocsProPlus).Instantiate(..Debug) + . Set blProplus=##class(BL.PPS.TBX.DocsProPlus).%New() . Do blProplus.Init(BatchID,"A") . Set blProplus.VHOSSOrder=-1 . Set ReedsGezaagd=1 @@ -361,7 +263,7 @@ d ##class(BL.PPS.TBX.LeanBatch).Instantiate().PrintV1(4001,$tr("Z;E;L;F;O;M;R;K",";")) ]]> + d ##class(BL.PPS.TBX.LeanBatch).%New().PrintV1(4001,$tr("Z;E;L;F;O;M;R;K",";")) ]]> -zTryout.ARC.BASE +zTryout.ARC.BASE,zTryout.ARC.TECH.Persistentie zTryout.FM.Util.Orders 1 Iterator,%RegisteredObject @@ -37,6 +37,11 @@ 1 + +GlobalNode +1 + + 1 @@ -54,6 +59,7 @@ If (..LaatsteOLijn = "") { Set ..LaatsteOLijn = 100 } Set ..OLijn = 100 Set ..Lijn = "" + set ..LijnNode = "" // Advance to the first relevant line, if any Do ..GotoNext() Quit 1 @@ -77,14 +83,15 @@ @@ -97,18 +104,20 @@ Set ..OLijn = ..OLijn + 1 // w "GotoNext OLijn="_..OLijn, " LaatsteOLijn=", ..LaatsteOLijn,! Set MemOLijn = Lijnen.GetAt(..OLijn) - If ((MemOLijn '= "") && MemOLijn.IsDirty()) { + If ((MemOLijn '= "")) { // TODO: waarom stond hier deze extra conditie: && MemOLijn.IsDirty() // Prefer in-memory version if it exists w ..OLijn, " in memory", ! Set ..Lijn = MemOLijn.AsString() + Set ..LijnNode = MemOLijn.GeefNode() Set ..CurrentInMemoryOrderline = MemOLijn } Else { Set ..Lijn = $G(^KOD(..KLNr,"F",..ORDNr,..OLijn)) + Set ..LijnNode = ##class(GlobalPersistenceMgr).Instance().GeefNode("^KOD", "\", ..KLNr, "F", ..ORDNr, ..OLijn) Set ..CurrentInMemoryOrderline = "" w:(..Lijn '= "") ..OLijn, " in db", ! } // Lijn kan ook niet bestaan - Set LookFurther = ((..Lijn = "") || '..IsValidItem(..Lijn)) && ..HasNext() + Set LookFurther = ((..Lijn = "") || '..IsValidItem(..Lijn, ..LijnNode)) && ..HasNext() // w "GotoNext LF=", LookFurther,! } ]]> @@ -117,12 +126,13 @@ Override this method in derived classes to specify the types of entries to iterate over -InternalRepr:%String +InternalRepr:%String,LijnNode:GlobalNode 1 %Boolean Index: DOM/PM/ASMProduct/impl/TBXAntislipmatImpl.cls.xml =================================================================== diff -u --- DOM/PM/ASMProduct/impl/TBXAntislipmatImpl.cls.xml (revision 0) +++ DOM/PM/ASMProduct/impl/TBXAntislipmatImpl.cls.xml (revision 1133) @@ -0,0 +1,38 @@ + + + +1 +DOM.PM.impl.MaatwerkProductImpl,DOM.PM.ASMProduct.ASMAntislipmat +0 + + +DOM.PM.ASMProduct.enu.Kleur + + + + +%Integer + + + + +%Integer + + + + +%Integer + + + + +%Integer + + + + Index: CW CNFGMGR1.prj.xml =================================================================== diff -u --- CW CNFGMGR1.prj.xml (revision 0) +++ CW CNFGMGR1.prj.xml (revision 1133) @@ -0,0 +1,20 @@ + + + + + + + + + + + + + + + + + + + + Index: APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml =================================================================== diff -u -r1102 -r1133 --- APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml (.../AbstractOpMaatFactory.cls.xml) (revision 1102) +++ APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml (.../AbstractOpMaatFactory.cls.xml) (revision 1133) @@ -28,7 +28,13 @@ Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() // Kopiëren van het orgalux product - Set PRNr = ..KopieerProduct(OrgaluxProduct) + Set PRNr = ProductAPI.KopieerProduct(OrgaluxProduct).GeefPRNr() // Productobject zelf niet bewaren omdat prijzen en samenstelling toch gaan wijzigen + + // Product op "niet-stock" plaatsen + Set $Piece(^KPR(PRNr,1),"\",20) = "" + + // Product op "beperkt actief" plaatsen + Set $Piece(^KPR(PRNr,1),"\",25) = 2 // Bepalen van het product dat moet verwijderd worden Set TeVervangenProduct = TeVervangenKinderen.GetAt(1).GeefProduct() @@ -147,6 +153,12 @@ Set lbMultiples = ##class(BL.Kenm.ProdMulti).Create("OL").GetMultiplesLB(KenmPRNr) If (lbMultiples '= "") Set KenmPRNr = $LI(lbMultiples,1) Set BreedteOLProduct = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"LadeBreedteAangeraden"),1) + + If (BreedteOLProduct = "") + { + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Product kan niet ingekort worden omdat LadeBreedteAangeraden niet is ingevuld")) + } + Set WandDikte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"WandDikte"),1) If (WandDikte = "") Set WandDikte = 18 Quit BreedteOLProduct - (2 * WandDikte) @@ -264,44 +276,5 @@ } ]]> - - -OrgaluxProduct:DOM.PM.OLProduct.OLProduct -%Integer - - Index: APPS/Halux/Planning/impl/ResourceDrempel.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/impl/ResourceDrempel.cls.xml (.../ResourceDrempel.cls.xml) (revision 1073) +++ APPS/Halux/Planning/impl/ResourceDrempel.cls.xml (.../ResourceDrempel.cls.xml) (revision 1133) @@ -1,15 +1,11 @@ -persistent +serial 1 -%Persistent +%SerialObject 0 - -%String - - %Float @@ -26,12 +22,6 @@ %Float - -1 -ResourceNaam -1 - - %Library.CacheStorage ^APPS.Halux8A9.ResourceDrem611D @@ -52,12 +42,9 @@ Laag -ResourceNaam - - VoormiddagHoog - + VoormiddagLaag Index: zTryout/CSC/Try.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/CSC/Try.cls.xml (.../Try.cls.xml) (revision 1074) +++ zTryout/CSC/Try.cls.xml (.../Try.cls.xml) (revision 1133) @@ -1,10 +1,9 @@ -persistent %VHMacro 1 -%Persistent +%RegisteredObject 0 @@ -66,9 +65,10 @@ { Set Product = ProductAPI.GeefProduct(PRNr) - If (Product.%Extends("DOM.PM.TBXProduct.TBXLade")) + If (Product.%Extends("DOM.PM.TBXProduct.TBXLade")) && Product.IsSifonLade() { - w PRNr_": "_Product.GeefVoorwandVerhogingType()_", "_Product.GeefVoorwandVerhogingMateriaal()_", "_Product.GeefVoorwandVerhogingKleur()_", "_Product.BevatGreep()_", "_Product.BevatMeenemer(),! + w PRNr,! + d WLIP^vhDBG(97,PRNr_" "_Product.GeefKorttekst()) } Set PRNr = $Order(^KPR(PRNr)) } @@ -79,37 +79,6 @@ 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() - } -]]> @@ -132,6 +101,12 @@ ]]> + + +Do ##class(zTryout.CSC.Try).Try6() +1 + + %Library.CacheStorage ^zTryout.CSC.TryD Index: zTryout/WV/APPS/PM/OL/AfterImport.cls.xml =================================================================== diff -u --- zTryout/WV/APPS/PM/OL/AfterImport.cls.xml (revision 0) +++ zTryout/WV/APPS/PM/OL/AfterImport.cls.xml (revision 1133) @@ -0,0 +1,436 @@ + + + +APPS.PM.OL.Common,%Prod.Product,BL.Derde.KlantSpecifiek +1 +%RegisteredObject +0 + + + + + + + +Default kolomNr (of list-index) voor het PRNr +2 + + + + + + + + +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 + + + + +Beheert en bepaalt de KortTekstPatroon-objecten nodig voor het zoeken van varianten van een Master +KortTekstPatroonFactory +1 + + + + +Houdt de KenmerkWaardeMap-objecten in het geheugen, zodat ze niet telkens opnieuw moeten geopend worden +KenmerkWaardeMap +list +1 + + + + +Beheert de verwerkingslog van de huidige import, voor iedere lijn (uit de excel) +ImportLog +1 + + + + +Houdt info van de huidige import bij, voor de producten gekoppeld aan dit object (MASTER = meerdere OL-producten. +%String +1 + + + + + + + +initvalue:%CacheString +1 +%Status + + + + + +Oproepen via + s sc=##class(zTryout.WV.APPS.PM.OL.AfterImport).%New().GenereerVariantenVoorMaster(UnID) w sc,! +UnID:%String +%Status + + + + +UnID:%String +1 +APPS.PM.OL.ProductKenmerken +0) { + Set KenmerkenIt=##class(TECH.ListIterator).%New(ProductKenmerken.Kenmerken) + While (KenmerkenIt.HasNext()) { + Set ProductKenmerk=KenmerkenIt.Next() + Set KenmerkNaam=ProductKenmerk.KenmerkNaam + Set KenmerkWaarden=OLKenmerken.GetKenmerkenPublic(KenmerkNaam) ; Waarden is een $LB() + If ($LL(KenmerkWaarden)=1)&&(KenmerkNaam'?1(1"Diepte",1"WandDikte",1"Websites",1"LadeFamilie",1"KleurFilter")) { + // Voor alle kenmerken, behalve bovenvernoemde in pattern-match, worden de single-value waarden omgezet van $LB() naar string. + Set KenmerkWaarden=$LG(KenmerkWaarden,1) + } + Do ProdKM.Kenmerken.SetAt(KenmerkWaarden,KenmerkNaam) + } + } + + // Vervolledigen van de Kenmerken + Set ProdKM.GeneratieType=ProdKM.Kenmerken.GetAt("GeneratieType") + Set sc=ProdKM.VervolledigKenmerken() + + Quit ProdKM +]]> + + + +ProdKM:APPS.PM.OL.ProductKenmerken +1 +%Status + + + + +ListOfUnIDs:%ListOfDataTypes +%ListOfDataTypes + + + + + +Zelfde verwerking als er gebeurt na de import vanuit excel, maar dan slechts voor een lijst van UnID's. + +Deze method is public en kan je dus ook rechtstreeks +oproepen via + s sc=##class(zTryout.WV.APPS.PM.OL.AfterImport).%New().VerwerkUnIDs(ListOfUnIDs,flagReadOnly) w sc,! +ListOfUnIDs:%ListOfDataTypes,flagReadOnly:%Boolean +%Status + + + + + + + + + +Oproepen via + s sc=##class(zTryout.WV.APPS.PM.OL.AfterImport).ProcessAllProducts(flagReadOnly) w sc,! +1 +flagReadOnly:%Boolean +%Status + + + + + +Oproepen via + s sc=##class(zTryout.WV.APPS.PM.OL.AfterImport).UpdateFotoSleutelVertalingenALL() w sc,! +1 +%Status + + + + + +FotoSleutelLijst moet van het type %ListOfDataTypes zijn ("" is ongeldig) + +Oproepen via + s sc=##class(zTryout.WV.APPS.PM.OL.AfterImport).UpdateFotoSleutelVertaling(FotoSleutelLijst) w sc,! +1 +FotoSleutelLijst:%ListOfDataTypes +%Status +" --> "ViaSleutelK/BX5060GR.jpg" + /* +^Res.VertalingAbstractD("PK","","LB","N")=<<$LB("","ViaSleutelK/AG.jpg")>> +^Res.VertalingAbstractD("PK","","LI","N")=<<$LB("","ViaSleutelG/AG.jpg")>> + */ + + #define OLPath "\\Notes01\Images\Orgalux\" + + ; Get values from an existing Key: + Set FotoSleutelVoorTemplate="" + Merge arTemplateVTL=^Res.VertalingAbstractD("PK",FotoSleutelVoorTemplate,"LB","N") + Set arTemplateVTL=$G(arTemplateVTL,$LB("","")) + + Set FotoSleutelIterator=##class(TECH.ListIterator).%New(FotoSleutelLijst) + While FotoSleutelIterator.HasNext() { + Set Key=FotoSleutelIterator.Next() + + ;continue:(Key'?1(1"",1"",1"",1"")) + ;continue:($$$Trim(Key)'?1(1"")) + ;continue:($$$Trim(Key)'?1(1"")) + ;continue:(Key'?1(1"",1"")) ; temp test Intivo + + // Fill in when vertaling EMPTY: Key="" --> "ViaSleutelK/BX5060GR.jpg" + ; Extract ImageName from Key + Set ImgName=$TR($$$Trim(Key),"<>","") + Set:(ImgName?1(1"AO",1"AR",1"AY").E) ImgName=$E(ImgName,1,2) ; Antislipmatten + Set:(ImgName?.E1"xx") $E(ImgName,$L(ImgName)-1,99)="" + Set:(ImgName?.E1"xx.ED") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65" ; voor extra diepte + Set:(ImgName?.E1"xx.65") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65" ; voor extra diepte + Set:(ImgName?.E1".EDGB") ImgName=$E(ImgName,1,$L(ImgName)-5)_"_65_G" ; voor extra diepte met glazen boxside + Set:(ImgName?.E1".ED") ImgName=$E(ImgName,1,$L(ImgName)-3)_"_65" ; voor extra diepte + Set:(ImgName?.E1".GB") ImgName=$E(ImgName,1,$L(ImgName)-3)_"_G" ; voor glazen boxside + + If (Key?1" + + + +1 +CheckFotoSleutelsOnly:%Boolean=1 +%ListOfDataTypes +"0.2" ")&&(Key'?1"0) + } + + If FotoSleutelExists { + Do FotoSleutelLijst.Insert(Key) + } + } + } + + Quit FotoSleutelLijst +]]> + + + Index: BL/PPS/TBX/DocGlasSnijlijst.cls.xml =================================================================== diff -u --- BL/PPS/TBX/DocGlasSnijlijst.cls.xml (revision 0) +++ BL/PPS/TBX/DocGlasSnijlijst.cls.xml (revision 1133) @@ -0,0 +1,166 @@ + + + +1 +%RegisteredObject +0 + + +APPS.Halux.common.Batch +1 + + + +DOM.PM.ProductAPI +1 + + + +Batch:APPS.Halux.common.Batch +1 +1 +%Status + + + + +TECH.Print.Kolommen.Document + 0) + { + Set SorteerVan = 1 + Set SorteerTot = Document.GeefKolom(1).Count() + + Do Document.VoegLijnToe("\\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\LEGENDE","\") + Do Document.VoegLijnToe("\\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\ M = Montage ","\") + Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\") + + Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),7,SorteerVan,SorteerTot) + } + + Quit Document +]]> + + + + +Returns lijst van BL.PPS.TBX.impl.GlasSnijInfo +TandemBox:DOM.PM.Product,AantalProducten:%Integer +1 +%ListOfObjects + + + + + Index: APPS/Halux/Planning/impl/Queries.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/Planning/impl/Queries.cls.xml (.../Queries.cls.xml) (revision 1073) +++ APPS/Halux/Planning/impl/Queries.cls.xml (.../Queries.cls.xml) (revision 1133) @@ -17,18 +17,14 @@ %SQLQuery Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie - 'Impliciet' THEN 1 ELSE 0 END) As IsInfoBeschikbaar, TI.Klant, TI.LeverImpact, TI.ProductieStatus, TI.ToeleveringNummer, APPS_Halux_Planning_impl.Queries_AantalProductenInToelevering(TI.ToeleveringNummer) As Aantal, PI.ProductCode, max(PI.StockProbleem) As StockProbleem, PI.VerpakkingType, + 'Impliciet' THEN 1 ELSE 0 END) As IsInfoBeschikbaar, TI.Klant, TI.LeverImpact, TI.ProductieStatus, TI.ToeleveringNummer, APPS_Halux_Planning_impl.Queries_AantalProductenIn(TI.ToeleveringNummer,PI.ToeleveringLijnNr) As Aantal, PI.ProductCode, max(PI.StockProbleem) As StockProbleem, PI.VerpakkingType, COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUFrees_VM, COALESCE(Sum(ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal),0) As ALUFrees, - COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUOperator_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUOperator_VM, - COALESCE(Sum(ResourceGebruik_ALUOperator_Hoeveelheid*PI.Aantal),0) As ALUOperator, - COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUZaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUZaag_VM, - COALESCE(Sum(ResourceGebruik_ALUZaag_Hoeveelheid*PI.Aantal),0) As ALUZaag, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUTeam_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUTeam_VM, + COALESCE(Sum(ResourceGebruik_ALUTeam_Hoeveelheid*PI.Aantal),0) As ALUTeam, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUMontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUMontage_VM, + COALESCE(Sum(ResourceGebruik_ALUMontage_Hoeveelheid*PI.Aantal),0) As ALUMontage, COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Bewerkingscenter_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Bewerkingscenter_VM, COALESCE(Sum(ResourceGebruik_Bewerkingscenter_Hoeveelheid*PI.Aantal),0) As Bewerkingscenter, - COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastInpak_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastInpak_VM, - COALESCE(Sum(ResourceGebruik_HoekkastInpak_Hoeveelheid*PI.Aantal),0) As HoekkastInpak, - COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastMontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastMontage_VM, - COALESCE(Sum(ResourceGebruik_HoekkastMontage_Hoeveelheid*PI.Aantal),0) As HoekkastMontage, - COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastZaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastZaag_VM, - COALESCE(Sum(ResourceGebruik_HoekkastZaag_Hoeveelheid*PI.Aantal),0) As HoekkastZaag, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastTeam_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastTeam_VM, + COALESCE(Sum(ResourceGebruik_HoekkastTeam_Hoeveelheid*PI.Aantal),0) As HoekkastTeam, COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Houtzaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Houtzaag_VM, COALESCE(Sum(ResourceGebruik_Houtzaag_Hoeveelheid*PI.Aantal),0) As Houtzaag, COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_KartonMachine_Hoeveelheid*PI.Aantal ELSE 0 END),0) As KartonMachine_VM, @@ -115,17 +95,13 @@ COALESCE(Sum(ResourceGebruik_TBXPers1_Hoeveelheid*PI.Aantal),0) As TBXPers1, COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPers2_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPers2_VM, COALESCE(Sum(ResourceGebruik_TBXPers2_Hoeveelheid*PI.Aantal),0) As TBXPers2, - COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPers3_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPers3_VM, - COALESCE(Sum(ResourceGebruik_TBXPers3_Hoeveelheid*PI.Aantal),0) As TBXPers3, - COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPicking_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPicking_VM, - COALESCE(Sum(ResourceGebruik_TBXPicking_Hoeveelheid*PI.Aantal),0) As TBXPicking, COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Voormontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Voormontage_VM, COALESCE(Sum(ResourceGebruik_Voormontage_Hoeveelheid*PI.Aantal),0) As Voormontage FROM APPS_Halux_Planning_impl.ToeleveringInfo TI JOIN APPS_Halux_Planning_impl.ProductInfo PI ON TI.ID = PI.ToeleveringInfoID JOIN APPS_Halux_Planning_impl.ActiviteitInfo AI ON PI.ID = AI.ProductInfoID WHERE CAST(TI.Gepland As DATE) = :Datum AND ((:Categorie is null) OR (PI.Categorie = :Categorie)) - GROUP BY TI.ToeleveringNummer]]> + GROUP BY TI.ToeleveringNummer, PI.ToeleveringLijnNr]]> @@ -149,18 +125,14 @@ Set Query = "SELECT AI.Naam As Activiteit, AI.Fase As ActiviteitFase, PI.Categorie, CAST(TI.Gepland As DATE) As Gepland, TI.DueOut, TI.GeplandStatus, TI.IngegevenDoor, TI.IsASAP, TI.Klant, TI.ProductieStatus, TI.ToeleveringNummer, PI.Aantal, PI.ProductCode, PI.StockProbleem, PI.VerpakkingType,"_ "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUFrees_VM,"_ "COALESCE(Sum(ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal),0) As ALUFrees,"_ - "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUOperator_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUOperator_VM,"_ - "COALESCE(Sum(ResourceGebruik_ALUOperator_Hoeveelheid*PI.Aantal),0) As ALUOperator,"_ - "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUZaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUZaag_VM,"_ - "COALESCE(Sum(ResourceGebruik_ALUZaag_Hoeveelheid*PI.Aantal),0) As ALUZaag,"_ + "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUTeam_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUTeam_VM,"_ + "COALESCE(Sum(ResourceGebruik_ALUTeam_Hoeveelheid*PI.Aantal),0) As ALUTeam,"_ + "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUMontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUMontage_VM,"_ + "COALESCE(Sum(ResourceGebruik_ALUMontage_Hoeveelheid*PI.Aantal),0) As ALUMontage,"_ "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Bewerkingscenter_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Bewerkingscenter_VM,"_ "COALESCE(Sum(ResourceGebruik_Bewerkingscenter_Hoeveelheid*PI.Aantal),0) As Bewerkingscenter,"_ - "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastInpak_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastInpak_VM,"_ - "COALESCE(Sum(ResourceGebruik_HoekkastInpak_Hoeveelheid*PI.Aantal),0) As HoekkastInpak,"_ - "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastMontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastMontage_VM,"_ - "COALESCE(Sum(ResourceGebruik_HoekkastMontage_Hoeveelheid*PI.Aantal),0) As HoekkastMontage,"_ - "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastZaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastZaag_VM,"_ - "COALESCE(Sum(ResourceGebruik_HoekkastZaag_Hoeveelheid*PI.Aantal),0) As HoekkastZaag,"_ + "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastTeam_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastTeam_VM,"_ + "COALESCE(Sum(ResourceGebruik_HoekkastTeam_Hoeveelheid*PI.Aantal),0) As HoekkastTeam,"_ "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Houtzaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Houtzaag_VM,"_ "COALESCE(Sum(ResourceGebruik_Houtzaag_Hoeveelheid*PI.Aantal),0) As Houtzaag,"_ "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_KartonMachine_Hoeveelheid*PI.Aantal ELSE 0 END),0) As KartonMachine_VM,"_ @@ -169,10 +141,6 @@ "COALESCE(Sum(ResourceGebruik_TBXPers1_Hoeveelheid*PI.Aantal),0) As TBXPers1,"_ "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPers2_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPers2_VM,"_ "COALESCE(Sum(ResourceGebruik_TBXPers2_Hoeveelheid*PI.Aantal),0) As TBXPers2,"_ - "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPers3_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPers3_VM,"_ - "COALESCE(Sum(ResourceGebruik_TBXPers3_Hoeveelheid*PI.Aantal),0) As TBXPers3,"_ - "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPicking_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPicking_VM,"_ - "COALESCE(Sum(ResourceGebruik_TBXPicking_Hoeveelheid*PI.Aantal),0) As TBXPicking,"_ "COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Voormontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Voormontage_VM,"_ "COALESCE(Sum(ResourceGebruik_Voormontage_Hoeveelheid*PI.Aantal),0) As Voormontage"_ " FROM APPS_Halux_Planning_impl.ToeleveringInfo TI"_ @@ -190,14 +158,14 @@ SELECT DISTINCT ToeleveringNummer FROM APPS_Halux_Planning_impl.ToeleveringInfo ORDER BY ToeleveringNummer ASC - + 1 -ToeleveringNummer:%Integer +ToeleveringNummer:%Integer,ToeleveringLijnNr:%Integer %Integer 1 Index: WS/PM/Maatwerk/Framework/ConfiguratieService.cls.xml =================================================================== diff -u --- WS/PM/Maatwerk/Framework/ConfiguratieService.cls.xml (revision 0) +++ WS/PM/Maatwerk/Framework/ConfiguratieService.cls.xml (revision 1133) @@ -0,0 +1,75 @@ + + + +1 +WS.WebService +0 + + +Planningstool + + + +http://www.vanhoecke.be/PM/Maatwerk/Framework + + + +BewerkingsInfo:APPS.PM.Maatwerk.Framework.dto.BewerkingsInfo +APPS.PM.Maatwerk.Framework.dto.BewaarResultaat +1 + + + + +HalffabrikaatSpecificatie:APPS.PM.Maatwerk.Framework.dto.HalffabrikaatSpecificatie +APPS.PM.Maatwerk.Framework.dto.BewaarResultaat +1 + + + + +KostSpecificatie:APPS.PM.Maatwerk.Framework.dto.KostSpecificatie +APPS.PM.Maatwerk.Framework.dto.BewaarResultaat +1 + + + + +APPS.PM.Maatwerk.Framework.dto.BewerkingsInfoLijst +1 + + + + +APPS.PM.Maatwerk.Framework.dto.HalffabSpecificatieLijst +1 + + + + +APPS.PM.Maatwerk.Framework.dto.KostSpecificatieLijst +1 + + + + +%ListOfDataTypes +1 + + + + +%ListOfDataTypes +1 + + + + FishEye: Tag 1133 refers to a dead (removed) revision in file `DS/PPS/TBX/Batch.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: CSC Halux Planningsoverzicht.prj.xml =================================================================== diff -u -r1079 -r1133 --- CSC Halux Planningsoverzicht.prj.xml (.../CSC Halux Planningsoverzicht.prj.xml) (revision 1079) +++ CSC Halux Planningsoverzicht.prj.xml (.../CSC Halux Planningsoverzicht.prj.xml) (revision 1133) @@ -1,6 +1,6 @@ - - + + @@ -10,10 +10,12 @@ + + @@ -33,6 +35,7 @@ + @@ -291,19 +294,19 @@ + + - - Index: Default_JorenB.prj.xml =================================================================== diff -u -r1079 -r1133 --- Default_JorenB.prj.xml (.../Default_JorenB.prj.xml) (revision 1079) +++ Default_JorenB.prj.xml (.../Default_JorenB.prj.xml) (revision 1133) @@ -1,9 +1,11 @@ - - + + + + + - Index: zTryout/CSC/PM/Maatwerk/HF/OLMIntegratieTest.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/CSC/PM/Maatwerk/HF/OLMIntegratieTest.cls.xml (.../OLMIntegratieTest.cls.xml) (revision 1074) +++ zTryout/CSC/PM/Maatwerk/HF/OLMIntegratieTest.cls.xml (.../OLMIntegratieTest.cls.xml) (revision 1133) @@ -70,10 +70,12 @@ Do ##class(zTryout.CSC.PM.Maatwerk.HF.OLMIntegratieTest).FullPath() 1 FishEye: Tag 1133 refers to a dead (removed) revision in file `APPS/PM/Maatwerk/Framework/dto/ContinuFlowCalculator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: APPS/Halux/Planning/dto/SplitsToeleveringEvaluatie.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/SplitsToeleveringEvaluatie.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/SplitsToeleveringEvaluatie.cls.xml (revision 1133) @@ -0,0 +1,18 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +0 + + +%String +list + + + +APPS.Halux.Planning.dto.GesplitsteToelevering +list + + + Index: CSC Orgalux op maat.prj.xml =================================================================== diff -u -r1082 -r1133 --- CSC Orgalux op maat.prj.xml (.../CSC Orgalux op maat.prj.xml) (revision 1082) +++ CSC Orgalux op maat.prj.xml (.../CSC Orgalux op maat.prj.xml) (revision 1133) @@ -1,14 +1,17 @@ - + - + + + + @@ -102,8 +105,9 @@ + + - Index: CSC Maatwerk Config Service.prj.xml =================================================================== diff -u --- CSC Maatwerk Config Service.prj.xml (revision 0) +++ CSC Maatwerk Config Service.prj.xml (revision 1133) @@ -0,0 +1,32 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: DOM/PM/ASMProduct/ASMAntislipmat.cls.xml =================================================================== diff -u --- DOM/PM/ASMProduct/ASMAntislipmat.cls.xml (revision 0) +++ DOM/PM/ASMProduct/ASMAntislipmat.cls.xml (revision 1133) @@ -0,0 +1,34 @@ + + + +1 +1 +DOM.PM.MaatwerkProduct +0 + + +1 +DOM.PM.ASMProduct.enu.Kleur + + + +1 +%Integer + + + +1 +%Integer + + + +1 +%Integer + + + +1 +%Integer + + + Index: vhUnitTest/DOM/PM/OLProduct/TestOLProduct.cls.xml =================================================================== diff -u -r1074 -r1133 --- vhUnitTest/DOM/PM/OLProduct/TestOLProduct.cls.xml (.../TestOLProduct.cls.xml) (revision 1074) +++ vhUnitTest/DOM/PM/OLProduct/TestOLProduct.cls.xml (.../TestOLProduct.cls.xml) (revision 1133) @@ -21,8 +21,8 @@ Set ^KPR(200029,"J") = "" Set ^KPR(200029,"J6051") = "6051\ \ \\\1\1\\\20\2\4\1\\\1\EUR\\14.81\20.451905\\\14.810000\58.00\35.261905\15.515238\44\E\\\\\\\*\" - Set ^PRBS("BS",200029,"EXP.001") = "148413\0\K\\\\\\\\PROD\0\\\\\\\\\\\EXP\4" - Set ^PRBS("BS",200029,"INK.001") = "286261\0\K\\\\\\\\PROD\0\\\\\\\\\\\INK\2" + Set ^PRBS("BS",200029,"KIND.004") = "148413\0\K\\\\\\\\PROD\0\\\\\\\\\\\EXP\4" + Set ^PRBS("BS",200029,"KIND.003") = "286261\0\K\\\\\\\\PROD\0\\\\\\\\\\\INK\2" Set ^PRBS("BS",200029,"KIND.001") = "191576\2\K\\\\\\\\PROD\\\\\\\\\\\\TVV\0" Set ^PRBS("BS",200029,"KIND.002") = "191579\4\K\\\\\\\\PROD" Set ^PRBS("BS",200029,"KOST.001") = "\1\S\\.05\\\\\\VERPAK\\Toeslag oververpakking" @@ -56,13 +56,13 @@ Set KindProductInfo = InkortInfo.GeefInTeKortenKinderen().GetAt(1) Do $$$AssertEquals(KindProductInfo.GeefProduct().GeefPRNr(),286261,"Productnummer van het te vervangen product") Do $$$AssertEquals(KindProductInfo.GeefAantal(),2,"Het aantal") - Do $$$AssertEquals(KindProductInfo.GeefID(),"INK.001","De id van de BS") + Do $$$AssertEquals(KindProductInfo.GeefID(),"KIND.003","De id van de BS") Do $$$AssertEquals(InkortInfo.GeefToeTeVoegenKinderen().Count(),1,"Er is 1 toe te voegen kindproduct") Set KindProductInfo = InkortInfo.GeefToeTeVoegenKinderen().GetAt(1) Do $$$AssertEquals(KindProductInfo.GeefProduct().GeefPRNr(),148413,"Productnummer van het te vervangen product") Do $$$AssertEquals(KindProductInfo.GeefAantal(),4,"Het aantal") - Do $$$AssertEquals(KindProductInfo.GeefID(),"EXP.001","De id van de BS") + Do $$$AssertEquals(KindProductInfo.GeefID(),"KIND.004","De id van de BS") ]]> Index: CSC Stockbeheer.prj.xml =================================================================== diff -u --- CSC Stockbeheer.prj.xml (revision 0) +++ CSC Stockbeheer.prj.xml (revision 1133) @@ -0,0 +1,12 @@ + + + + + + + + + + + + Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1073) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1133) @@ -111,6 +111,44 @@ ]]> + + +Geeft de ProductenKenmerken voor 1 product voor 1 KenmerkGroep. +Opgelet resultaat kan kenmerken voor meerdere UnID's bevatten. +PRNr:%String,KenmerkGroep:%String +APPS.PM.dto.Kenm.ProductenKenmerken + + + + + +Geeft de ProductKenmerken voor 1 UnID terug (combinatie van PRNr en SubID) +PRNr:%String,SubID:%String,KenmerkGroep:%String +APPS.PM.dto.Kenm.ProductKenmerken + + + Zoek metadata aan de hand van de opgegeven kenmerkengroepen. Index: APPS/PM/Maatwerk/Framework/dto/StandaardContinuFlowCalculator.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/Framework/dto/StandaardContinuFlowCalculator.cls.xml (revision 0) +++ APPS/PM/Maatwerk/Framework/dto/StandaardContinuFlowCalculator.cls.xml (revision 1133) @@ -0,0 +1,18 @@ + + + +1 +APPS.PM.Maatwerk.Framework.dto.BewerkingsCalculator +0 + + +%Float +1 + + + +%Float +1 + + + Index: JCL Dynalog.prj.xml =================================================================== diff -u --- JCL Dynalog.prj.xml (revision 0) +++ JCL Dynalog.prj.xml (revision 1133) @@ -0,0 +1,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: APPS/PM/OL/KenmerkBuilderOL.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/PM/OL/KenmerkBuilderOL.cls.xml (.../KenmerkBuilderOL.cls.xml) (revision 1073) +++ APPS/PM/OL/KenmerkBuilderOL.cls.xml (.../KenmerkBuilderOL.cls.xml) (revision 1133) @@ -7,12 +7,12 @@ 0 -flagReadOnly:%Boolean +flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status Index: CSC Leveranciers.prj.xml =================================================================== diff -u --- CSC Leveranciers.prj.xml (revision 0) +++ CSC Leveranciers.prj.xml (revision 1133) @@ -0,0 +1,28 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijnBase.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijnBase.cls.xml (.../DataMOrderlijnBase.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijnBase.cls.xml (.../DataMOrderlijnBase.cls.xml) (revision 1133) @@ -1,14 +1,14 @@ -zTryout.ARC.DOM.OV +zTryout.ARC.DOM.OV,zTryout.ARC.TECH.Persistentie zTryout.FM.Util.Orders,%VHMacro 1 Orderlijn,%RegisteredObject 0 - -%String + +GlobalNode 1 @@ -30,14 +30,14 @@ -Nr:%Integer,lineinfo:%String,Order:Order +Nr:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode 1 1 %Status @@ -66,13 +66,13 @@ nr:%Integer %CacheString - Nr:%Integer,Value:%CacheString - @@ -108,10 +108,16 @@ Utility method for Order %String - + +GlobalNode + + + 1 Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 1075) +++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 1133) @@ -36,11 +36,11 @@ $$$ThrowError($$$errGeneralError,"Voor dit productnummer is geen ondersteunende tandembox klasse gevonden") } } - ElseIf ($Piece(GenType,"\") = "KAD") + ElseIf ($Piece(GenType,"\") = "KAD") || ($Piece(GenType,"\") = "PRF") || ($Piece(GenType,"\") = "GLA") { Set Product = ##class(DOM.PM.KADProduct.impl.KADKaderdeurImpl).%New(ProductNummer) } - ElseIf(GenType = "TBX\HKS") || (GenType = "TBX\BBX") + ElseIf (GenType = "TBX\HKS") || (GenType = "TBX\BBX") { Set Product = ##class(DOM.PM.impl.MaatwerkProductImpl).%New(ProductNummer) } @@ -59,6 +59,14 @@ Set Product = ##class(DOM.PM.OLProduct.impl.OLProductImpl).%New(ProductNummer) } } + ElseIf (GenType = "DIV\ASM") + { + Set Product = ##class(DOM.PM.ASMProduct.impl.ASMAntislipmatImpl).%New(ProductNummer) + } + ElseIf ($Extract($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")),1,3) = "MAT") + { + Set Product = ##class(DOM.PM.ASMProduct.impl.TBXAntislipmatImpl).%New(ProductNummer) + } Else { Set Product = ##class(DOM.PM.impl.ProductImpl).%New(ProductNummer) @@ -95,12 +103,12 @@ ]]> - -TECH.Iterator + +Product:DOM.PM.Product +DOM.PM.Product @@ -142,5 +150,11 @@ + + +DOM.PM.Classificatie + + Index: TECH/Exceptions/StatusException.cls.xml =================================================================== diff -u -r1074 -r1133 --- TECH/Exceptions/StatusException.cls.xml (.../StatusException.cls.xml) (revision 1074) +++ TECH/Exceptions/StatusException.cls.xml (.../StatusException.cls.xml) (revision 1133) @@ -17,13 +17,13 @@ %Status %String - Index: vhConsistency/Checks/PrijzenOrgalux.cls.xml =================================================================== diff -u -r1119 -r1133 --- vhConsistency/Checks/PrijzenOrgalux.cls.xml (.../PrijzenOrgalux.cls.xml) (revision 1119) +++ vhConsistency/Checks/PrijzenOrgalux.cls.xml (.../PrijzenOrgalux.cls.xml) (revision 1133) @@ -13,7 +13,7 @@ Set Status = $$$OK /// ORGALUX.CH - Set VerwachtePrijs = "345.36" + Set VerwachtePrijs = "345.30" Set VerwachteMunt = "CHF" Set:'..CheckResultaatPrijs(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCh(),##class(WS.Web.OLParticulier.enu.Regio).Zwitserland(),VerwachtePrijs,VerwachteMunt,"De prijs voor product BO5011S5 is gewijzigd. ") Status = 0 Set:'..CheckResultaatMunt(##class(WS.Web.OLParticulier.enu.Website).OrgaluxDotCh(),##class(WS.Web.OLParticulier.enu.Regio).Zwitserland(),VerwachteMunt,"De munt voor product BO5011S5 is gewijzigd. ") Status = 0 Index: APPS/PM/Maatwerk/Framework/impl/SpecificatieHelper.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/Framework/impl/SpecificatieHelper.cls.xml (revision 0) +++ APPS/PM/Maatwerk/Framework/impl/SpecificatieHelper.cls.xml (revision 1133) @@ -0,0 +1,71 @@ + + + +1 +%RegisteredObject +0 + + + +1 + ? ORDER BY GeldigVan ASC") + Do ResultSet.Execute(Familie, Variant, GeldigVan) + If (ResultSet.Next()) + { + Set GeldigTot = ResultSet.Data("GeldigTotVoorNieuwe") + } + Else + { + Set GeldigTot = 2980013 // Laatst mogelijke geldige datum + } + } +]]> + + + Index: TECH/ListUtils.cls.xml =================================================================== diff -u -r1074 -r1133 --- TECH/ListUtils.cls.xml (.../ListUtils.cls.xml) (revision 1074) +++ TECH/ListUtils.cls.xml (.../ListUtils.cls.xml) (revision 1133) @@ -41,9 +41,9 @@ sourceList:%ListOfObjects %ListOfObjects @@ -56,14 +56,14 @@ sourceList:%ListOfObjects,targetList:%ListOfObjects %ListOfObjects @@ -97,8 +97,8 @@ 1 %ListOfObjects @@ -107,9 +107,9 @@ item %ListOfObjects @@ -118,9 +118,9 @@ item1,item2 %ListOfObjects @@ -129,9 +129,9 @@ item1,item2,item3 %ListOfObjects Index: APPS/Halux/TBX/impl/WerkpostZaag.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/TBX/impl/WerkpostZaag.cls.xml (.../WerkpostZaag.cls.xml) (revision 1073) +++ APPS/Halux/TBX/impl/WerkpostZaag.cls.xml (.../WerkpostZaag.cls.xml) (revision 1133) @@ -164,7 +164,7 @@ ]]> - + ZaagID:%Integer %String APPS.Halux.Planning.enu.Categorie + + + +Geeft de leverimpact in dagen wanneer de toelevering op een bepaald tijdstip wordt geproduceerd +TenOpzichteVan is een optionele parameter. Indien ingevuld wordt de leverimpact berekend tussen TenOpzichteVan en ProductieTijdstip. +Indien niet opgegeven wordt de dueout gebruikt. +1 +Toelevering:DOM.LEV.Toelevering,ProductieTijdstip:%TimeStamp,TenOpzichteVan:%TimeStamp="" +%Integer + + Index: APPS/Halux/common/Batch.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/Halux/common/Batch.cls.xml (.../Batch.cls.xml) (revision 1073) +++ APPS/Halux/common/Batch.cls.xml (.../Batch.cls.xml) (revision 1133) @@ -1,8 +1,9 @@ -1 +persistent 1 +%AbstractDefinition 0 @@ -55,6 +56,39 @@ %Boolean + +1 +oid:%ObjectIdentity +1 +%Status + + + + +1 +BatchID:%Integer + + + + +1 +1 +%Status + + + %Library.CacheStorage ^APPS.Halux.common.BatchD Index: WS/Halux/Planning/Planningstool.cls.xml =================================================================== diff -u -r1074 -r1133 --- WS/Halux/Planning/Planningstool.cls.xml (.../Planningstool.cls.xml) (revision 1074) +++ WS/Halux/Planning/Planningstool.cls.xml (.../Planningstool.cls.xml) (revision 1133) @@ -14,6 +14,14 @@ http://www.vanhoecke.be/ + +ToeleveringNummer:%Integer,AantalToeleveringen:%Integer,DrempelAantalProducten:%Integer +APPS.Halux.Planning.dto.SplitsToeleveringEvaluatie +1 + + + Van:%Date,Naar:APPS.Halux.Planning.dto.DataLijst,Toeleveringen:%ListOfDataTypes APPS.Halux.Planning.dto.EvalueerVerplaatsingResultaat Index: BL/PPS/TBX/impl/GlasSnijInfo.cls.xml =================================================================== diff -u --- BL/PPS/TBX/impl/GlasSnijInfo.cls.xml (revision 0) +++ BL/PPS/TBX/impl/GlasSnijInfo.cls.xml (revision 1133) @@ -0,0 +1,36 @@ + + + +1 +%RegisteredObject +0 + + +%String + + + +%Integer + + + +%Integer + + + +%String + + + +DOM.PM.enu.TBXRugHoogte + + + +%Integer + + + +DOM.PM.Product + + + Index: BL/Prod/ImageLinkImport.cls.xml =================================================================== diff -u -r1074 -r1133 --- BL/Prod/ImageLinkImport.cls.xml (.../ImageLinkImport.cls.xml) (revision 1074) +++ BL/Prod/ImageLinkImport.cls.xml (.../ImageLinkImport.cls.xml) (revision 1133) @@ -49,6 +49,20 @@ LOGO_WV + +%Boolean + + + +flagOutputToScreen:%Boolean=1 +1 +%Status + + + @@ -79,12 +93,12 @@ Set MPRNr="" For Set MPRNr=$O(Index(MPRNr)) Quit:MPRNr="" Do . Quit:'##class(Res.ImageLink).HasImage(..#ObjType,MPRNr) ; moederproduct heeft geen afbeeldingen - . Write $P(^KPR(MPRNr,0),"\"),":",..CountImgages(..#ObjType,MPRNr),":",##class(BL.Prod.ImageLink).%New().GetProductImageURL(MPRNr,"WEB"),! + . Write $P(^KPR(MPRNr,0),"\"),":",..CountImages(..#ObjType,MPRNr),":",##class(BL.Prod.ImageLink).%New().GetProductImageURL(MPRNr,"WEB"),! . Set PRNr="" . For Set PRNr=$O(Index(MPRNr,PRNr)) Quit:PRNr="" Do . . Quit:##class(Res.ImageLink).HasImage(..#ObjType,PRNr)&&'$G(Force) ; heeft reeds afbeeldingen . . Do ..CopyImages(..#ObjType,MPRNr,..#ObjType,PRNr,1) - . . W " <- ", $P(^KPR(PRNr,0),"\"),":",..CountImgages(..#ObjType,PRNr),":",##class(BL.Prod.ImageLink).%New().GetProductImageURL(PRNr,"WEB"),! + . . Write " <- ", $P(^KPR(PRNr,0),"\"),":",..CountImages(..#ObjType,PRNr),":",##class(BL.Prod.ImageLink).%New().GetProductImageURL(PRNr,"WEB"),! ]]> @@ -114,7 +128,15 @@ + +Doorverwijzing voor naamscorrectie op te vangen (Added by WimV on 06/05/2011) ObjType,ObjRef + + + + +ObjType,ObjRef @@ -367,22 +389,22 @@ 1 @@ -415,14 +437,14 @@ 1 @@ -491,15 +513,15 @@ For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do . Set KortT=$$$PRGet($$$KortTekst) . Quit:$E(KortT,1,8)'="GLA.INLC" - . Write PRNr," ",KortT,! + . Write:(..OutputToScreen) PRNr," ",KortT,! . ;Do ..RemoveOldImages("PR",PRNr) . Set oImg=##class(Res.ImageLink).Create("PR", PRNr, "P","PB","") . Do oImg.AddLink("P","VH\P","GLA.INLC glas_intivo",,"EPS",379000) . Do oImg.AddLink("V","VH\V","GLA.INLC glas_intivo",,"SVG",101000) . Do oImg.AddLink("W","VH\W","GLA.INLC glas_intivo",,"JPG",37000) . Do oImg.AddLink("T","VH\T","GLA.INLC glas_intivo",,"JPG",19000) . Set Status=oImg.%Save() - . If $$$ISERR(Status) W $$ParseStatus^vhLib(Status),! r k + . If $$$ISERR(Status) Write:(..OutputToScreen) $$ParseStatus^vhLib(Status),! r k ]]> @@ -509,13 +531,25 @@ + + +d ##class(BL.Prod.ImageLinkImport).%New().ImportOrgaluxViaKenmerkenOne() +PRNr:%String + + + -PRNr +PRNr:%String 1 @@ -594,10 +628,10 @@ If $G(CheckLink,1) Do . Set FullPath="//Notes01/Images/"_Image . Set Exist=##class(%File).Exists(FullPath) - . If ' Exist Write "Bestand bestaat niet "_FullPath,! ; Image + . If $$$Not(Exist) Write:(..OutputToScreen) "Bestand bestaat niet "_FullPath,! ; Image Set Image=$Tr(Image,"/","\") Set Path=$P(Image,"\",1,$L(Image,"\")-1) - Set Extensie=$zcvt($P(Image,".",$L(Image,".")),"U") + Set Extensie=$$$UCase($P(Image,".",$L(Image,"."))) Set Name=$P($P(Image,"\",$L(Image,"\")),".",1,$L(Image,".")-1) Do oImg.AddLink(VisueelType,Path,Name,,Extensie,.Size) ]]> @@ -620,10 +654,10 @@ Set (TotImpCnt,TotLinkCnt)=0 For Quit:'reader.Next(.pxArticle,.sc) Do Quit:$$$ISERR(sc) . If $$$ISERR(sc) Do AddErrorToLog("BLUMCAT", "Import", sc,"reader.Next: "_Dir_FileName) Quit - . Set Naam=$$TrimEndOfText^vhLib($$TrimBeginOfText^vhLib($zcvt(pxArticle.Naam,"U"))) + . Set Naam=$$TrimEndOfText^vhLib($$TrimBeginOfText^vhLib($$$UCase(pxArticle.Naam))) . Quit:Naam="" - . Set Cache($zcvt(Naam,"U"))=pxArticle - . ;w "correlate:",$zcvt(Naam,"U"),"*",! + . Set Cache($$$UCase(Naam))=pxArticle + . ;Write "correlate:",$$$UCase(Naam),"*",! . Set TotImpCnt=TotImpCnt+1 . If $$$ISERR(sc) Do AddErrorToLog("BLUMCAT", "Import", sc,"saveproxy: "_Dir_FileName) Quit @@ -636,26 +670,26 @@ WHERE Links_VisueelType="W") &sql(OPEN ImpPicassa) For &sql(FETCH ImpPicassa) Quit:SQLCODE Do - . Set Naam=$TR($ZCVT(Naam_"."_Extensie,"U"),"#","_") - . w !,Naam + . Set Naam=$TR($$$UCase(Naam_"."_Extensie),"#","_") + . Write !,Naam . Quit:Naam="" . Quit:'$D(Cache(Naam)) . Set Hoogte=$$TrimEndOfText^vhLib($$TrimBeginOfText^vhLib(Cache(Naam).Hoogte)) . Set Breedte=$$TrimEndOfText^vhLib($$TrimBeginOfText^vhLib(Cache(Naam).Breedte)) . Set AspectRatio=Breedte/Hoogte - . w " ",Breedte,":",Hoogte,"->",AspectRatio + . Write " ",Breedte,":",Hoogte,"->",AspectRatio . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . Set oLink=oImg.Links.GetAt(Key) . Set oLink.Height=Hoogte . Set oLink.Width=Breedte . Set oImg.AspectRatio=AspectRatio . Set sc=oImg.%Save() - . w sc + . Write sc . Set TotLinkCnt=TotLinkCnt+1 &sql(CLOSE ImpPicassa) - w !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! + Write !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! Quit:$$$ISERR(sc) "" Quit $$$OK @@ -670,15 +704,15 @@ D ##class(BL.Prod.ImageLinkImport).%New().ClearSVG() Pad %ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE Links_VisueelType="V" ) ;and Links_Pad=:ChkPad) &sql(OPEN ClearSVG) For &sql(FETCH ClearSVG) Quit:SQLCODE Do - . Write "DelSVG ",ImgID," ",Pad," ",Naam,! + . Write:(..OutputToScreen) "DelSVG ",ImgID," ",Pad," ",Naam,! . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . Do oImg.Links.RemoveAt("V") ; Vectorieel . Set sc=oImg.%Save() @@ -694,7 +728,7 @@ #include %occStatus Kill Cache - Set ImgPad=$zcvt($G(Pad,"BLUM\P"),"U") + Set ImgPad=$$$UCase($G(Pad,"BLUM\P")) If $G(KillFirst) Do ..ClearSVG(ImgPad) @@ -739,31 +773,31 @@ . Set MemProdCnt=+$g(ProdCnt) . For Set ImgID=$O(Cache("IL",Naam,ImgID)) Quit:ImgID="" Do . . If $D(Cache("HASSVG",ImgID)) Do - . . . ;W !,"SVG bestaat reeds ",Naam," ",ImgID + . . . ;Write:(..OutputToScreen) !,"SVG bestaat reeds ",Naam," ",ImgID . . Else Do - . . . ;W !,"Add ",Naam," ",ImgID + . . . ;Write:(..OutputToScreen) !,"Add ",Naam," ",ImgID . . . Set ProdCnt=$G(ProdCnt)+1 . . . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) . . . Do oImg.AddLink("V",ImgPad,Naam,0,"SVG") ; Vectorieel . . . Set sc=oImg.%Save() - . . . w:sc'=1 Naam," ",ImgID," ",$$ParseStatus^vhLib(sc),! + . . . Write:(sc'=1)&&(..OutputToScreen) Naam," ",ImgID," ",$$ParseStatus^vhLib(sc),! . If +MemProdCnt<+$G(ProdCnt) Do . . Set SVGCnt=$G(SVGCnt)+1 - . . W !,"Add ",Naam + . . Write:(..OutputToScreen) !,"Add ",Naam . Else - . . W !,"SVG bestaat reeds ",Naam + . . Write:(..OutputToScreen) !,"SVG bestaat reeds ",Naam - Write !,"Aantal SVG: ",$G(SVGCnt) - Write !,"Aantal Prod: ",$G(ProdCnt),! + Write:(..OutputToScreen) !,"Aantal SVG: ",$G(SVGCnt) + Write:(..OutputToScreen) !,"Aantal Prod: ",$G(ProdCnt),! - ;w !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! + ;Write:(..OutputToScreen) !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! Quit:$$$ISERR(sc) "" Quit $$$OK AddErrorToLog(Groep,Label,Status,Oms) - Write Groep," ",Label," ",Status," ",Oms + Write:(..OutputToScreen) Groep," ",Label," ",Status," ",Oms Quit ]]> @@ -785,7 +819,7 @@ Set rs=##class(%ResultSet).%New("%File:FileSet") Set sc=rs.Execute(Dir("P"),"*#VH.eps") ; VH EPS For Quit:'rs.Next() Do - . ;w rs.Data("Name") + . ;Write rs.Data("Name") . Set Name=##class(%File).GetFilename(rs.Data("Name")) . Quit:Name'?1"A_Z55SXX".E . Set Name=$E(Name,1,$L(Name)-4) @@ -817,13 +851,13 @@ . Set ImgID="" . For Set ImgID=$O(Cache("IL",Naam,ImgID)) Quit:ImgID="" Do . . Set oImg=##class(Res.ImageLink).%OpenId(ImgID) - . . W "Rpl ", Naam," ",ImgID,! + . . Write "Rpl ", Naam," ",ImgID,! . . For Node="P","T","W" Do . . . Set oLink=oImg.Links.GetAt(Node) . . . Set oLink.BestandsNaam=Naam . . Set sc=oImg.%Save() - ;w !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! + ;Write !,"ImportXml:",TotImpCnt," Linked:",TotLinkCnt,! Quit:$$$ISERR(sc) "" Quit $$$OK @@ -872,7 +906,7 @@ D ##class(BL.Prod.ImageLinkImport).%New().SetScaleFactor() ImageName:%String,FunctieType:%String,ScaleFactor:%Float %ID,Element_Key, Links_Extensie,Links_Pad, Links_BestandsNaam, ImageLink->ScaleFactor INTO :ImgID,:Key,:Extensie,:Pad,:Naam,:OldScale @@ -884,10 +918,10 @@ . Quit:'$isObject(oImg) . If oImg.ObjType="PR" Do . . Set PRNr=oImg.ObjRef - . . W !,"Set ",ImgID," ",$P(^KPR(PRNr,0),"\")," old scale:",OldScale,! + . . Write:(..OutputToScreen) !,"Set ",ImgID," ",$P(^KPR(PRNr,0),"\")," old scale:",OldScale,! . Set oImg.ScaleFactor=ScaleFactor . Set sc=oImg.%Save() - . Write:$$$ISERR(sc) $$ParseStatus^vhLib(sc) + . Write:($$$ISERR(sc))&&(..OutputToScreen) $$ParseStatus^vhLib(sc) &sql(CLOSE SetScaleFactor) ]]> Index: zTryout/ARC/BASE/impl/DataM/DataMAdres.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/BASE/impl/DataM/DataMAdres.cls.xml (.../DataMAdres.cls.xml) (revision 1074) +++ zTryout/ARC/BASE/impl/DataM/DataMAdres.cls.xml (.../DataMAdres.cls.xml) (revision 1133) @@ -1,67 +1,61 @@ -zTryout.ARC.BASE +zTryout.ARC.BASE,zTryout.ARC.TECH.Persistentie %VHMacro 1 Adres,%RegisteredObject 0 - -%String + +GlobalNode 1 - -%Integer -1 - - -klnr:%Integer,str:%String +CustInfoNode:GlobalNode 1 1 %Status %String - %String - %String - %String - %String - %String - @@ -71,14 +65,19 @@ taal:%String %String + + + + %String %String - Index: APPS/PM/IKenmerkBuilder.cls.xml =================================================================== diff -u -r1073 -r1133 --- APPS/PM/IKenmerkBuilder.cls.xml (.../IKenmerkBuilder.cls.xml) (revision 1073) +++ APPS/PM/IKenmerkBuilder.cls.xml (.../IKenmerkBuilder.cls.xml) (revision 1133) @@ -7,13 +7,24 @@ %RegisteredObject 0 + + + + - -Hoofdgroep van de Kenmerken (=MetaGroep) = "OL" %Boolean 1 + +%Boolean +1 + + %String 1 @@ -39,16 +50,19 @@ 1 flagReadOnly:%Boolean=1 %Status - -flagReadOnly:%Boolean +flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status 0 ) Quit sc ]]> @@ -60,9 +74,9 @@ @@ -79,19 +93,19 @@ Set sc=##class(Prod.Kenmerk.DataDefinitie).Set(GroepID,..KenmerkObject.GetID(),Kenmerk,KenmerkWaarde) Set:(sc=0) sc=$$$ERROR($$$GeneralError,"Prod.Kenmerk.DataDefinite "_Kenmerk_" kan niet toegevoegd worden.") If $$$ISERR(sc) { - write !,$$$TAB,$$ParseStatus^vhLib(sc) + Do ..Write($$$CRLF_$$$TAB_$$ParseStatus^vhLib(sc)) quit } else { - write !,$$$TAB,"saved "_Kenmerk_" : "_$$$LCVT(KenmerkWaarde) + Do ..Write($$$CRLF_$$$TAB_"saved "_Kenmerk_" : "_$$$LCVT(KenmerkWaarde)) } } Else { Set sc=##class(Prod.Kenmerk.DataDefinitie).DeleteKM(GroepID,..KenmerkObject.GetID(),Kenmerk) If $$$ISERR(sc) { - write !,$$$TAB,$$ParseStatus^vhLib(sc) + Do ..Write($$$CRLF_$$$TAB_$$ParseStatus^vhLib(sc)) quit } - else { write !,$$$TAB,"cleared ",Kenmerk + else { Do ..Write($$$CRLF_$$$TAB_"cleared "_Kenmerk) } } } @@ -108,50 +122,91 @@ -UnId +UnID 1 Prod.Kenmerk.Product - 1 %Status 0 { + Set UnIDiterator=##class(TECH.ListIterator).%New(ListOfUnIDs) + Set sc=..GenerateForUnIDs(UnIDiterator) + } + Else { + Set sc=$$$OK + } + + Quit sc +]]> + + + +1 +UnIDsIterator:TECH.Iterator +%Status + @@ -200,5 +257,48 @@ quit $$$OK ]]> + + + +See method Write() +Text:%String +1 + + + + + +Dedicated method to write output to file (only if the flag is set to true) +Text:%String +1 + + + + + +Dedicated method to write output to the terminal. +In case the process is already writing to a specific device (to file), then the output device will be switched. +Text:%String +1 + + Index: BL/Derde/Agenda/ToonzaalBezoek.cls.xml =================================================================== diff -u -r1089 -r1133 --- BL/Derde/Agenda/ToonzaalBezoek.cls.xml (.../ToonzaalBezoek.cls.xml) (revision 1089) +++ BL/Derde/Agenda/ToonzaalBezoek.cls.xml (.../ToonzaalBezoek.cls.xml) (revision 1133) @@ -5,27 +5,13 @@ BL.Derde.Agenda.Agenda 0 + +Derde.Agenda.ToonzaalBezoek + + - Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml =================================================================== diff -u -r1074 -r1133 --- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 1074) +++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 1133) @@ -106,17 +106,61 @@ ]]> - + + + + + @@ -258,23 +305,26 @@ Set Instellingen = Service.GeefInstellingen() Do $$$AssertTrue($IsObject(Instellingen),"De instellingen zijn een object") - Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels),"De resourcedrempels zijn gezet") - Set ResourceDrempels = Instellingen.ResourceDrempels + Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Maandag")),"De resourcedrempels zijn gezet") + Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Dinsdag")),"De resourcedrempels zijn gezet") + Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Woensdag")),"De resourcedrempels zijn gezet") + Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Donderdag")),"De resourcedrempels zijn gezet") + Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Vrijdag")),"De resourcedrempels zijn gezet") + Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Zaterdag")),"De resourcedrempels zijn gezet") + Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Zondag")),"De resourcedrempels zijn gezet") + Set ResourceDrempels = Instellingen.ResourceDrempels.GetAt("Maandag") + Do $$$AssertTrue($IsObject(ResourceDrempels.ALUFrees),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.ALUOperator),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.ALUZaag),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.BewerkingsCenter),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastInpak),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastMontage),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastZaag),"De drempel is ingesteld") + Do $$$AssertTrue($IsObject(ResourceDrempels.ALUTeam),"De drempel is ingesteld") + Do $$$AssertTrue($IsObject(ResourceDrempels.ALUMontage),"De drempel is ingesteld") + Do $$$AssertTrue($IsObject(ResourceDrempels.Bewerkingscenter),"De drempel is ingesteld") + Do $$$AssertTrue($IsObject(ResourceDrempels.HoekkastTeam),"De drempel is ingesteld") Do $$$AssertTrue($IsObject(ResourceDrempels.Houtzaag),"De drempel is ingesteld") Do $$$AssertTrue($IsObject(ResourceDrempels.KartonMachine),"De drempel is ingesteld") Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPers1),"De drempel is ingesteld") Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPers2),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPers3),"De drempel is ingesteld") - Do $$$AssertTrue($IsObject(ResourceDrempels.TBXPicking),"De drempel is ingesteld") Do $$$AssertTrue($IsObject(ResourceDrempels.Voormontage),"De drempel is ingesteld") ]]> Index: zTryout/CSC/Exceptions/Try.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/CSC/Exceptions/Try.cls.xml (.../Try.cls.xml) (revision 1074) +++ zTryout/CSC/Exceptions/Try.cls.xml (.../Try.cls.xml) (revision 1133) @@ -7,21 +7,29 @@ 1 - + +Do ##class(zTryout.CSC.Exceptions.Try).Do2() 1 Index: DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml =================================================================== diff -u -r1075 -r1133 --- DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml (.../HaluxWerkoverzichtHelper.cls.xml) (revision 1075) +++ DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml (.../HaluxWerkoverzichtHelper.cls.xml) (revision 1133) @@ -52,10 +52,7 @@ Datum in de vorm dd/mm/jjjj Overzicht als .Local doorgeven -Uitschrijven resultaat arOverzicht(Lijn,Mask) - Geen binnenlade Binnenlade zonder R,B,T Binnenlade met R,B -Smal 1001 1010 1100 -Breed 0001 0010 0100 +Uitschrijven resultaat arOverzicht(Lijn,Mask) 1 + + +Lade beoordeling voor inschatten van de productietijd voor afwerking + Geen binnenlade Binnenlade zonder R,B,T Binnenlade met R,B +Smal 1001 1010 1100 +Breed 0001 0010 0100 +1 +Productnummer + + + %SQLQuery TOENr:%Integer,TLUNr:%Integer Index: vhUnitTest/DOM/PM/TestProductAPI.cls.xml =================================================================== diff -u --- vhUnitTest/DOM/PM/TestProductAPI.cls.xml (revision 0) +++ vhUnitTest/DOM/PM/TestProductAPI.cls.xml (revision 1133) @@ -0,0 +1,53 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.TestProductAPI") +1 +vhUnitTest.TestCase +0 + + + + + + +%Status + + + + Index: zTryout/ARC/DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml =================================================================== diff -u -r1074 -r1133 --- zTryout/ARC/DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml (.../DataMManueleOrderlijn.cls.xml) (revision 1074) +++ zTryout/ARC/DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml (.../DataMManueleOrderlijn.cls.xml) (revision 1133) @@ -6,13 +6,13 @@ 0 -Nr:%Integer,lineinfo:%String,Order:Order +Nr:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode 1 1 %Status +Moet nog transactioneel gemaakt worden. + +Het is mogelijk een nieuwe node te maken, en pas later in te stellen wat zijn persistente lokatie is. +TECH.Error 1 %RegisteredObject 0 @@ -81,7 +84,8 @@ If (..OpenNodes.IsDefined(NodeKey)) { Quit ..OpenNodes.GetAt(NodeKey) } Else { - Set Node = ##class(GlobalNode).%New(GlobalNaam, Subscripts, Delimiter) + Set Node = ##class(GlobalNode).%New(Delimiter) + Do Node.ZetPersistenteLokatie(GlobalNaam, Subscripts) Do ..OpenNodes.SetAt(Node, NodeKey) Quit Node } @@ -120,5 +124,56 @@ Quit ..GeefNodeViaSubscriptLijst(GlobalNaam, Delimiter, Subscripts) ]]> + + +Delimiter:%String + + + + +Node:GlobalNode,GlobalNaam:%String,Subscripts:%ListOfDataTypes + + + + +Node:GlobalNode,GlobalNaam:%String,Subscript1:%String,Subscript2:%String,Subscript3:%String,Subscript4:%String,Subscript5:%String,Subscript6:%String + + Index: WS/Derde/Agenda/AgendaServer.cls.xml =================================================================== diff -u -r1074 -r1133 --- WS/Derde/Agenda/AgendaServer.cls.xml (.../AgendaServer.cls.xml) (revision 1074) +++ WS/Derde/Agenda/AgendaServer.cls.xml (.../AgendaServer.cls.xml) (revision 1133) @@ -520,7 +520,7 @@ $$$AddToLog($$$logGrpAgenda,"TOONZAALBEZOEK","StoreToonzaalBezoek","") - Set scStore = ##class(BL.Derde.Agenda.ToonzaalBezoek).%New().StoreToonzaalBezoek(pxToonzaalBezoek,.ToonzaalBezoekID) + Set scStore = ##class(BL.Derde.Agenda.ToonzaalBezoek).Create(pxToonzaalBezoek.Gebruiker).StoreToonzaalBezoek(pxToonzaalBezoek,.ToonzaalBezoekID) Set Result=##class(BL.Derde.Agenda.pxStatus).%New() if scStore { Index: TECH/ClassInfo/ClassDefinition.cls.xml =================================================================== diff -u -r1074 -r1133 --- TECH/ClassInfo/ClassDefinition.cls.xml (.../ClassDefinition.cls.xml) (revision 1074) +++ TECH/ClassInfo/ClassDefinition.cls.xml (.../ClassDefinition.cls.xml) (revision 1133) @@ -20,6 +20,12 @@ 1 + +%Boolean + + + %String