Index: vhDeploy/Deploy20230301xNieuweVerzendwijzesHaman.cls.xml
===================================================================
diff -u -r70640 -r72231
--- vhDeploy/Deploy20230301xNieuweVerzendwijzesHaman.cls.xml	(.../Deploy20230301xNieuweVerzendwijzesHaman.cls.xml)	(revision 70640)
+++ vhDeploy/Deploy20230301xNieuweVerzendwijzesHaman.cls.xml	(.../Deploy20230301xNieuweVerzendwijzesHaman.cls.xml)	(revision 72231)
@@ -21,7 +21,7 @@
 <Method name="VoegToeHa1">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim ID As %String = "Ha1"
+	#dim ID As %String = "HA1"
 	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
 	{
 		#dim Ha1 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
@@ -43,13 +43,14 @@
 		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha1.#GlobalNode, Ha1.#GlobalSubNode )
 		Do PiItemService.VoegToeViaVolgNr(Ha1)
 	}
+	set ^RES("KLANT","PI","VERZENDWAX","D","HA1") =  "191`HA1"
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeHa2">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim ID As %String = "Ha2"
+	#dim ID As %String = "HA2"
 	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
 	{
 		#dim Ha2 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
@@ -71,13 +72,14 @@
 		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha2.#GlobalNode, Ha2.#GlobalSubNode )
 		Do PiItemService.VoegToeViaVolgNr(Ha2)
 	}
+	set ^RES("KLANT","PI","VERZENDWAX","D","HA2") =  "192`HA2"
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeHa3">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim ID As %String = "Ha3"
+	#dim ID As %String = "HA3"
 	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
 	{
 		#dim Ha3 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
@@ -99,13 +101,14 @@
 		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha3.#GlobalNode, Ha3.#GlobalSubNode )
 		Do PiItemService.VoegToeViaVolgNr(Ha3)
 	}
+	set ^RES("KLANT","PI","VERZENDWAX","D","HA3") =  "193`HA3"
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeHa4">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim ID As %String = "Ha4"
+	#dim ID As %String = "HA4"
 	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
 	{
 		#dim Ha4 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
@@ -127,6 +130,7 @@
 		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha4.#GlobalNode, Ha4.#GlobalSubNode )
 		Do PiItemService.VoegToeViaVolgNr(Ha4)
 	}
+	set ^RES("KLANT","PI","VERZENDWAX","D","HA4") =  "194`HA4"
 ]]></Implementation>
 </Method>
 </Class>