Index: vhDeploy/D20220324xKostPlaatsSchaduwInvullen.cls.xml
===================================================================
diff -u
--- vhDeploy/D20220324xKostPlaatsSchaduwInvullen.cls.xml	(revision 0)
+++ vhDeploy/D20220324xKostPlaatsSchaduwInvullen.cls.xml	(revision 67192)
@@ -0,0 +1,207 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20220324xKostPlaatsSchaduwInvullen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>KostenPlaatsen invullen in de schaduw; nodig voor grote prijswijziging van 01/05/2022.</Default>
+</Parameter>
+
+<Property name="ExceptieLijst">
+<Type>TECH.Exceptions.Exception</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set DeployKlasse = ..%New()
+	Do DeployKlasse.VoerUit()
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..ExceptieLijst = ##class(%ListOfObjects).%New()
+	
+	Do ..VulInAlleBasisKostSchaduw()
+	Do ..SynchroniseerKostenPlaatsWaardeInfo()
+	
+	Do ..RapporteerFoutmeldingenViaException()
+]]></Implementation>
+</Method>
+
+<Method name="VulInAlleBasisKostSchaduw">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VulInBasisKostSchaduw("ALBOOR", 44.42, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALCADCAM", 78.50, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALCTRL", 46.01, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALDICHT", 45.46, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALFREES", 67.29, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALMONT", 48.98, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALVPKK", 132.85, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALVPKL", 49.10, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALZAAGG", 60.86, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("ALZAAGK", 55.22, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("BAMONT", 43.41, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("GRPMONT", 43.41, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("GRPZAAG", 55.22, "Surplus oude code KAD")
+	Do ..VulInBasisKostSchaduw("HALUX KARTON", 111.20, "KARTONMACHINE 1")
+	Do ..VulInBasisKostSchaduw("LINEFEED", 70.45, "LINE FEEDING")
+	Do ..VulInBasisKostSchaduw("OL KARTON", 93.85, "TA'OR Kartonmachine 80%")
+	Do ..VulInBasisKostSchaduw("OLVERPAK", 66.92, "LINE FEEDING 95%")
+	Do ..VulInBasisKostSchaduw("ONTWERP", 70.45, "LINE FEEDING")
+	Do ..VulInBasisKostSchaduw("SPACESTEP VERW", 70.45, "LINE FEEDING")
+	Do ..VulInBasisKostSchaduw("TAOR AFKANT 002", 176.10, "TA'OR Afkant")
+	Do ..VulInBasisKostSchaduw("TAOR AFKORT 002", 75.68, "TA'OR Afkortzaag F")
+	Do ..VulInBasisKostSchaduw("TAOR CONTROLE 002", 68.05, "TA'OR Controle")
+	Do ..VulInBasisKostSchaduw("TAOR FREES EKO 002", 88.51, "TA'OR Frees EKO")
+	Do ..VulInBasisKostSchaduw("TAOR FREES RF 002", 110.67, "TA'OR Frees RF")
+	Do ..VulInBasisKostSchaduw("TAOR MONTAGE 002", 72.03, "TA'OR Montage")
+	Do ..VulInBasisKostSchaduw("TAOR OPDEELZAAG 002", 259.35, "TA'OR Opdeelzaag")
+	Do ..VulInBasisKostSchaduw("TAOR PICKOND 002", 88.28, "TA'OR Picking onderdelen")
+	Do ..VulInBasisKostSchaduw("TAOR PROF A 002", 144.41, "TA'OR Prof A RBF")
+	Do ..VulInBasisKostSchaduw("TAOR PROF B 002", 229.37, "TA'OR Prof B Zijkant")
+	Do ..VulInBasisKostSchaduw("TAOR PROF C 002", 215.12, "TA'OR Prof C Bodem")
+	Do ..VulInBasisKostSchaduw("TAOR VKP FLATPACK 002", 199.52, "TA'OR VPK Flatpack")
+	Do ..VulInBasisKostSchaduw("TAOR VKP FLATPACK PROBOX", 145.42, "Surplus oude code")
+	Do ..VulInBasisKostSchaduw("TAOR VKP FLATPACKBULK", 137.33, "TA'OR VPK Bulk")
+	Do ..VulInBasisKostSchaduw("TAOR VKP FLATPACKBULK ZRF", 77.68, "TA'OR Voormontage")
+	Do ..VulInBasisKostSchaduw("TAOR VKP KARTONMACHINE 002", 117.32, "TA'OR Kartonmachine")
+	Do ..VulInBasisKostSchaduw("TAOR VKP PROBOX 002", 159.82, "TA'OR VPK Probox")
+	Do ..VulInBasisKostSchaduw("TAOR VKP V1 002", 153.38, "TA'OR VPK V1")
+	Do ..VulInBasisKostSchaduw("TAOR VOORMONTAGE 002", 77.68, "TA'OR Voormontage")
+	Do ..VulInBasisKostSchaduw("TAOR ZIJKANT 002", 329.83, "TA'OR Zijkant")
+	Do ..VulInBasisKostSchaduw("TAOR ZIJKANT LOGO", 87.78, "TA'OR Voormontage +13%")
+	Do ..VulInBasisKostSchaduw("TAORAFKANT", 176.10, "TA'OR Afkant")
+	Do ..VulInBasisKostSchaduw("TAORAFKORTZAAGF", 75.68, "TA'OR Afkortzaag F")
+	Do ..VulInBasisKostSchaduw("TAORFREESEKO", 88.51, "TA'OR Frees EKO")
+	Do ..VulInBasisKostSchaduw("TAORFREESRF", 110.67, "TA'OR Frees RF")
+	Do ..VulInBasisKostSchaduw("TAORKARTONMACHINE", 111.20, "KARTONMACHINE 1")
+	Do ..VulInBasisKostSchaduw("TAORMONTAGE", 72.03, "TA'OR Montage")
+	Do ..VulInBasisKostSchaduw("TAOROPDEELZAAG", 259.35, "TA'OR Opdeelzaag")
+	Do ..VulInBasisKostSchaduw("TAORPICKINGONDERDELEN", 71.85, "PICKING ONDERDELEN")
+	Do ..VulInBasisKostSchaduw("TAORPROFARBF", 144.41, "TA'OR Prof A RBF")
+	Do ..VulInBasisKostSchaduw("TAORPROFBZIJKANT", 229.37, "TA'OR Prof B Zijkant")
+	Do ..VulInBasisKostSchaduw("TAORPROFCBODEM", 215.12, "TA'OR Prof C Bodem")
+	Do ..VulInBasisKostSchaduw("TAORVPKFLATPACK", 199.52, "TA'OR VPK Flatpack")
+	Do ..VulInBasisKostSchaduw("TAORVPKPROBOX", 159.82, "TA'OR VPK Probox")
+	Do ..VulInBasisKostSchaduw("TAORVPKV1", 153.38, "TA'OR VPK V1")
+	Do ..VulInBasisKostSchaduw("TAORZIJKANT", 329.83, "TA'OR Zijkant")
+	Do ..VulInBasisKostSchaduw("TBLBBULK", 212.75, "BULK MONTAGE/STAPELEN")
+	Do ..VulInBasisKostSchaduw("TBLBKARTON1", 111.20, "KARTONMACHINE 1")
+	Do ..VulInBasisKostSchaduw("TBLBOND", 71.85, "PICKING ONDERDELEN")
+	Do ..VulInBasisKostSchaduw("TBLBPERS", 84.40, "PERS")
+	Do ..VulInBasisKostSchaduw("TBLBPROBOX", 216.62, "PROBOX MONTAGE/INPAK/STAPELEN")
+	Do ..VulInBasisKostSchaduw("TBLBRUGW", 143.21, "RWH/Inspectie")
+	Do ..VulInBasisKostSchaduw("TBLBSPOEL", 147.87, "Spoelbakken")
+	Do ..VulInBasisKostSchaduw("TBLBTIPON", 66.24, "Surplus oude code")
+	Do ..VulInBasisKostSchaduw("TBLBV1", 167.85, "V1 MONTAGE/INPAK/STAPELEN")
+	Do ..VulInBasisKostSchaduw("TBLBVOORMONT", 74.86, "VOORMONTAGE FRONTEN")
+	Do ..VulInBasisKostSchaduw("TBLBWEEKE", 106.89, "WEEKE")
+	Do ..VulInBasisKostSchaduw("TBLBZAAG", 149.25, "ZAAG")
+	Do ..VulInBasisKostSchaduw("TBLBZIJKANT", 73.14, "PICKING ZIJKANTEN")
+	Do ..VulInBasisKostSchaduw("TBLEVOORMONT", 74.86, "VOORMONTAGE FRONTEN")
+	Do ..VulInBasisKostSchaduw("TBMONT", 55.48, "Surplus oude code TBX")
+	Do ..VulInBasisKostSchaduw("TBMONTPRO", 44.15, "Surplus oude code TBX")
+	Do ..VulInBasisKostSchaduw("TBVERPAK", 49.06, "Surplus oude code TBX")
+	Do ..VulInBasisKostSchaduw("TBXVOORMONT", 86.61, "Surplus oude code TBX")
+	Do ..VulInBasisKostSchaduw("TBZAAG", 70.29, "Surplus oude code TBX")
+	Do ..VulInBasisKostSchaduw("TRBBODEMRUG", 114.86, "Surplus oude code")
+	Do ..VulInBasisKostSchaduw("TRBKARTON", 117.32, "TA'OR Kartonmachine")
+	Do ..VulInBasisKostSchaduw("TRBMONTINP", 72.03, "TA'OR Montage")
+	Do ..VulInBasisKostSchaduw("TRBPROBOX", 137.26, "Surplus oude code")
+	Do ..VulInBasisKostSchaduw("TRBVOORMONT", 77.35, "Surplus oude code")
+	Do ..VulInBasisKostSchaduw("TRBZAAG", 108.73, "Surplus oude code")
+]]></Implementation>
+</Method>
+
+<Method name="SynchroniseerKostenPlaatsWaardeInfo">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KostenplaatsWaardeTabel = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeTabel).%New()
+	Do KostenplaatsWaardeTabel.InitialiseerKostenPlaatsWaarden()
+]]></Implementation>
+</Method>
+
+<Method name="VulInBasisKostSchaduw">
+<FormalSpec>ItemID:TECH.String,BasisKostSchaduw:TECH.Decimal,Opmerking:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim KostPlaatsInfo As Prod.GAMeta.BT.KostPlaats = ..GeefKostPlaatsInfo(ItemID)
+		Do ..UpdateEnBewaarKostPlaatsInfo(KostPlaatsInfo, BasisKostSchaduw, Opmerking)
+	}
+	Catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..ExceptieLijst.Insert(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefKostPlaatsInfo">
+<FormalSpec>ItemID:TECH.String,SmijtExceptieIndienGeenObject:%Boolean=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>Prod.GAMeta.BT.KostPlaats</ReturnType>
+<Implementation><![CDATA[
+	If ##class(Prod.GAMeta.BT.KostPlaats).%ExistsId(ItemID) {
+		Set KostPlaatsInfo = ##class(Prod.GAMeta.BT.KostPlaats).%OpenId(ItemID)
+	}
+	Else {
+		Set KostPlaatsInfo = ""
+	}
+	
+	If (KostPlaatsInfo = "") && (SmijtExceptieIndienGeenObject) {
+		Do ##class(TECH.Exceptions.ObjectExpectedException).Throw("KostPlaats '"_ItemID_"' kon niet geopend worden. De waarde(n) zullen niet geupdatet worden!")
+	}
+	
+	Quit KostPlaatsInfo
+]]></Implementation>
+</Method>
+
+<Method name="UpdateEnBewaarKostPlaatsInfo">
+<FormalSpec>KostPlaatsInfo:Prod.GAMeta.BT.KostPlaats,BasisKostSchaduw:TECH.Decimal,Opmerking:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Set KostPlaatsInfo.BasisKostSchaduw = BasisKostSchaduw
+	Set KostPlaatsInfo.ToeslagGrootVerletSchaduw = 1
+	Set KostPlaatsInfo.ToeslagKleinVerletSchaduw = 1
+	
+	Set KostPlaatsInfo.Opmerking = Opmerking
+	
+	/*
+	// Deze properties moeten nu niet ingevuld worden.  Volgende keer misschien wel :-) 
+	//
+	;Set KostPlaatsInfo.BasisKost = BasisKost
+	;Set KostPlaatsInfo.ToeslagGrootVerlet = 1
+	;Set KostPlaatsInfo.ToeslagKleinVerlet = 1
+	;Set KostPlaatsInfo.Groep = Groep
+	;Set KostPlaatsInfo.Omschrijving = Omschrijving
+	;Set KostPlaatsInfo.VolgNr = {increment iets}
+	*/
+	
+	#dim StatusSave As %Status = KostPlaatsInfo.%Save()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(StatusSave, "Fout bij bewaren van Prod.GAMeta.BT.KostPlaats met ID '"_KostPlaatsInfo.%Id()_"'. "_$$$CRLF_$$ObjToText^vhLib(KostPlaatsInfo) )
+]]></Implementation>
+</Method>
+
+<Method name="RapporteerFoutmeldingenViaException">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..ExceptieLijst.Count() > 0 {
+		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("Fout bij updaten van KostPlaat-object(en). *** Zie innerExceptions in vhLibLogging !!!  *** ")
+		Set Iterator = ##class(TECH.ListIterator).%New(..ExceptieLijst)
+		While (Iterator.HasNext()) {
+			Do Exceptie.VoegToeInnerExceptie(Iterator.Next())
+		}		
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>