Index: vhDeploy/DeployTESTOKCorrectieVerzendwijzeVolgNr.cls.xml
===================================================================
diff -u
--- vhDeploy/DeployTESTOKCorrectieVerzendwijzeVolgNr.cls.xml	(revision 0)
+++ vhDeploy/DeployTESTOKCorrectieVerzendwijzeVolgNr.cls.xml	(revision 36661)
@@ -0,0 +1,148 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.DeployTESTOKCorrectieVerzendwijzeVolgNr">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.DeployResPiItems</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Correctie verzendwijze VolgNr TEST OK </Default>
+</Parameter>
+
+<Parameter name="SubType">
+<Type>%String</Type>
+<Default>VERZENDWIJZE</Default>
+</Parameter>
+
+<Parameter name="Type">
+<Type>%String</Type>
+<Default>KLANT</Default>
+</Parameter>
+
+<Method name="UpdateItems">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Service:BL.Legacy.Res.PiItemService</FormalSpec>
+<Implementation><![CDATA[
+	#Dim VerzendwijzenList As List Of %String = ##class(%ListOfDataTypes).%New()
+	Do VerzendwijzenList.Insert("DI1")
+	Do VerzendwijzenList.Insert("DI2")
+	Do VerzendwijzenList.Insert("TNC")
+	Do VerzendwijzenList.Insert("OD")
+	Do VerzendwijzenList.Insert("OD1")
+	Do VerzendwijzenList.Insert("OD2")
+	Do VerzendwijzenList.Insert("OD3")
+	Do VerzendwijzenList.Insert("OD4")
+	Do VerzendwijzenList.Insert("OD5")
+	Do VerzendwijzenList.Insert("U01")
+	Do VerzendwijzenList.Insert("U02")
+	Do VerzendwijzenList.Insert("U03")
+	Do VerzendwijzenList.Insert("U04")
+	Do VerzendwijzenList.Insert("U05")
+	Do VerzendwijzenList.Insert("U06")
+	Do VerzendwijzenList.Insert("U07")
+	Do VerzendwijzenList.Insert("U08")
+	Do VerzendwijzenList.Insert("U09")
+	Do VerzendwijzenList.Insert("U10")
+	Do VerzendwijzenList.Insert("U11")
+	Do VerzendwijzenList.Insert("E01")
+	Do VerzendwijzenList.Insert("E02")
+	Do VerzendwijzenList.Insert("E03")
+	Do VerzendwijzenList.Insert("E04")
+	Do VerzendwijzenList.Insert("E05")
+	Do VerzendwijzenList.Insert("E06")
+	Do VerzendwijzenList.Insert("E07")
+	Do VerzendwijzenList.Insert("E08")
+	Do VerzendwijzenList.Insert("E09")
+	Do VerzendwijzenList.Insert("E10")
+	Do VerzendwijzenList.Insert("E11")
+	Do VerzendwijzenList.Insert("E12")
+	Do VerzendwijzenList.Insert("THE")
+	Do VerzendwijzenList.Insert("THF")
+	Do VerzendwijzenList.Insert("THG")
+	Do VerzendwijzenList.Insert("AFH")
+	Do VerzendwijzenList.Insert("AFC")
+	Do VerzendwijzenList.Insert("INT")
+	Do VerzendwijzenList.Insert("POB")
+	Do VerzendwijzenList.Insert("PON")
+	Do VerzendwijzenList.Insert("SNT")
+	Do VerzendwijzenList.Insert("EX")
+	Do VerzendwijzenList.Insert("EXU")
+	Do VerzendwijzenList.Insert("KLR")
+	Do VerzendwijzenList.Insert("SRV")
+	Do VerzendwijzenList.Insert("WPM")
+	Do VerzendwijzenList.Insert("DIR")
+	Do VerzendwijzenList.Insert("TPO")
+	Do VerzendwijzenList.Insert("TPU")
+	Do VerzendwijzenList.Insert("TPC")
+	Do VerzendwijzenList.Insert("TH")
+	Do VerzendwijzenList.Insert("TH1")
+	Do VerzendwijzenList.Insert("TH2")
+	Do VerzendwijzenList.Insert("TH3")
+	Do VerzendwijzenList.Insert("TH4")
+	Do VerzendwijzenList.Insert("TH5")
+	Do VerzendwijzenList.Insert("TH6")
+	Do VerzendwijzenList.Insert("TH7")
+	Do VerzendwijzenList.Insert("TH8")
+	Do VerzendwijzenList.Insert("TH9")
+	Do VerzendwijzenList.Insert("THA")
+	Do VerzendwijzenList.Insert("THB")
+	Do VerzendwijzenList.Insert("THC")
+	Do VerzendwijzenList.Insert("THR")
+	Do VerzendwijzenList.Insert("THD")
+	Do VerzendwijzenList.Insert("THZ")
+	Do VerzendwijzenList.Insert("R00")
+	Do VerzendwijzenList.Insert("R01")
+	Do VerzendwijzenList.Insert("R02")
+	Do VerzendwijzenList.Insert("R03")
+	Do VerzendwijzenList.Insert("R04")
+	Do VerzendwijzenList.Insert("R05")
+	Do VerzendwijzenList.Insert("R06")
+	Do VerzendwijzenList.Insert("R07")
+	Do VerzendwijzenList.Insert("R08")
+	Do VerzendwijzenList.Insert("R10")
+	Do VerzendwijzenList.Insert("R11")
+	Do VerzendwijzenList.Insert("R12")
+	Do VerzendwijzenList.Insert("R13")
+	Do VerzendwijzenList.Insert("R20")
+	Do VerzendwijzenList.Insert("R21")
+	Do VerzendwijzenList.Insert("R22")
+	Do VerzendwijzenList.Insert("R23")
+	Do VerzendwijzenList.Insert("R30")
+	Do VerzendwijzenList.Insert("R31")
+	Do VerzendwijzenList.Insert("R32")
+	Do VerzendwijzenList.Insert("R33")
+	Do VerzendwijzenList.Insert("R34")
+	Do VerzendwijzenList.Insert("R35")
+	Do VerzendwijzenList.Insert("R36")
+	Do VerzendwijzenList.Insert("R37")
+	Do VerzendwijzenList.Insert("R38")
+	Do VerzendwijzenList.Insert("R39")
+	Do VerzendwijzenList.Insert("R40")
+	Do VerzendwijzenList.Insert("R41")
+	Do VerzendwijzenList.Insert("R42")
+	Do VerzendwijzenList.Insert("R43")
+	Do VerzendwijzenList.Insert("R44")
+	Do VerzendwijzenList.Insert("R45")
+	Do VerzendwijzenList.Insert("R46")
+	Do VerzendwijzenList.Insert("R47")
+	Do VerzendwijzenList.Insert("R50")
+	Do VerzendwijzenList.Insert("R51")
+	Do VerzendwijzenList.Insert("R52")
+	Do VerzendwijzenList.Insert("R60")
+	Do VerzendwijzenList.Insert("R61")
+	Do VerzendwijzenList.Insert("R62")
+	Do VerzendwijzenList.Insert("R63")
+	Do VerzendwijzenList.Insert("R64")
+	Do VerzendwijzenList.Insert("R65")
+	Do VerzendwijzenList.Insert("R90")
+	Do VerzendwijzenList.Insert("R97")
+	Do VerzendwijzenList.Insert("R98")
+	Do VerzendwijzenList.Insert("R99")
+	Do Service.ZetSorteerVolgNrs(VerzendwijzenList)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/DeployTESTNIETOKCorrectieVerzendwijzeVolgNr.cls.xml
===================================================================
diff -u
--- vhDeploy/DeployTESTNIETOKCorrectieVerzendwijzeVolgNr.cls.xml	(revision 0)
+++ vhDeploy/DeployTESTNIETOKCorrectieVerzendwijzeVolgNr.cls.xml	(revision 36661)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.DeployTESTNIETOKCorrectieVerzendwijzeVolgNr">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.DeployResPiItems</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Correctie verzendwijze VolgNr TEST OK </Default>
+</Parameter>
+
+<Parameter name="SubType">
+<Type>%String</Type>
+<Default>VERZENDWIJZE</Default>
+</Parameter>
+
+<Parameter name="Type">
+<Type>%String</Type>
+<Default>KLANT</Default>
+</Parameter>
+
+<Method name="UpdateItems">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Service:BL.Legacy.Res.PiItemService</FormalSpec>
+<Implementation><![CDATA[
+	#dim VerzendWijzeUpdate As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%OpenId("U01")
+	Set VerzendWijzeUpdate.TransportDuur = 10
+	Do VerzendWijzeUpdate.ZetVolgNr(200)
+	Do VerzendWijzeUpdate.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>