Index: vhDeploy/D20200427VoegToeDataVoorLBXzijkantenPicking.cls.xml
===================================================================
diff -u
--- vhDeploy/D20200427VoegToeDataVoorLBXzijkantenPicking.cls.xml	(revision 0)
+++ vhDeploy/D20200427VoegToeDataVoorLBXzijkantenPicking.cls.xml	(revision 60763)
@@ -0,0 +1,203 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20200427VoegToeDataVoorLBXzijkantenPicking">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Description>
+Do ##class(vhDeploy.D20200427VoegToeDataVoorLBXzijkantenPicking).ExecCode()</Description>
+<Type>%String</Type>
+<Default>Data voor 'picking: zijkanten' voor LBX toevoegen aan database zodat op volgorde (volgens volgorde van locatie van producten in gang) kan gepickt worden</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	//Linkerkant gang
+	Do ..VoegToeGangData("780C5002S  Z RE   V10OG-M", "0.847.750.2", 2) 
+	Do ..VoegToeGangData("780C5002S  Z RE   V10SW-M", "0.858.020.8", 2) 
+	Do ..VoegToeGangData("780C5002S  Z RE   V10TS-M", "0.888.386.5", 2) 
+	Do ..VoegToeGangData("780C5002S  Z LI   V10OG-M", "0.841.607.7", 3) 
+	Do ..VoegToeGangData("780C5002S  Z LI   V10SW-M", "0.857.851.5", 3) 
+	Do ..VoegToeGangData("780C5002S  Z LI   V10TS-M", "0.887.009.8", 3) 
+	Do ..VoegToeGangData("780C4502S  Z RE   V6 OG-M", "0.234.277.2", 4) 
+	Do ..VoegToeGangData("780C4502S  Z RE   V6 SW-M", "0.294.011.9", 4) 
+	Do ..VoegToeGangData("780C4502S  Z RE   V10TS-M", "0.814.526.6", 4) 
+	Do ..VoegToeGangData("780C4502S  Z LI   V6 OG-M", "0.209.095.8", 5) 
+	Do ..VoegToeGangData("780C4502S  Z LI   V6 SW-M", "0.262.859.3", 5) 
+	Do ..VoegToeGangData("780C4502S  Z LI   V10TS-M", "0.814.473.9", 5) 
+	Do ..VoegToeGangData("770K3502S  Z RE   V10SW-M", "0.128.261.3", 6) 
+	Do ..VoegToeGangData("770M3502S  Z RE   V20SW-M", "0.713.235.6", 6) 
+	Do ..VoegToeGangData("770C3502S  Z RE   V10SW-M", "0.353.423.3", 6) 
+	Do ..VoegToeGangData("770K3502S  Z LI   V10SW-M", "0.128.088.8", 7) 
+	Do ..VoegToeGangData("770M3502S  Z LI   V20SW-M", "0.711.859.1", 7) 
+	Do ..VoegToeGangData("770C3502S  Z LI   V10SW-M", "0.351.450.5", 7) 
+	Do ..VoegToeGangData("770K4002S  Z RE   V10SW-M", "0.410.778.9", 8) 
+	Do ..VoegToeGangData("770M4002S  Z RE   V20SW-M", "0.815.865.1", 8) 
+	Do ..VoegToeGangData("770C4002S  Z RE   V10SW-M", "0.713.657.2", 8) 
+	Do ..VoegToeGangData("770K4002S  Z LI   V10SW-M", "0.410.165.1", 9) 
+	Do ..VoegToeGangData("770M4002S  Z LI   V20SW-M", "0.813.410.0", 9) 
+	Do ..VoegToeGangData("770C4002S  Z LI   V10SW-M", "0.711.394.8", 9) 
+	Do ..VoegToeGangData("770K4502S  Z RE   V10SW-M", "0.436.170.4", 10) 
+	Do ..VoegToeGangData("770M4502S  Z RE   V20SW-M", "0.142.070.9", 10)
+	Do ..VoegToeGangData("770C4502S  Z RE   V10SW-M", "0.803.971.6", 10)
+	Do ..VoegToeGangData("770K4502S  Z LI   V10SW-M", "0.432.893.0", 11)
+	Do ..VoegToeGangData("770M4502S  Z LI   V20SW-M", "0.141.354.5", 11)
+	Do ..VoegToeGangData("770C4502S  Z LI   V10SW-M", "0.802.089.1", 11)
+	Do ..VoegToeGangData("770K5002S  Z RE   V10SW-M", "0.513.686.0", 12)
+	Do ..VoegToeGangData("770M5002S  Z RE   V20SW-M", "0.647.871.7", 12)
+	Do ..VoegToeGangData("770C3002S  Z RE   V10OG-M", "0.300.726.4", 12)
+	Do ..VoegToeGangData("770K5002S  Z LI   V10SW-M", "0.513.158.3", 13)
+	Do ..VoegToeGangData("770M5002S  Z LI   V20SW-M", "0.644.092.6", 13)
+	Do ..VoegToeGangData("770C3002S  Z LI   V10SW-M", "0.308.201.2", 13)
+	Do ..VoegToeGangData("770K5502S  Z RE   V10SW-M", "0.608.399.0", 14)
+	Do ..VoegToeGangData("770M5502S  Z RE   V20SW-M", "0.771.484.1", 14)
+	Do ..VoegToeGangData("770C5502S  Z RE   V10SW-M", "0.980.514.4", 14)
+	Do ..VoegToeGangData("770K5502S  Z LI   V10SW-M", "0.608.238.2", 15)
+	Do ..VoegToeGangData("770M5502S  Z LI   V20SW-M", "0.770.997.4", 15)
+	Do ..VoegToeGangData("770C5502S  Z LI   V10SW-M", "0.980.491.6", 15)
+	Do ..VoegToeGangData("770C2702S  Z RE   V10SW-M", "0.207.820.7", 16)
+	Do ..VoegToeGangData("770M6002S  Z RE   V20SW-M", "0.854.746.5", 16)
+	Do ..VoegToeGangData("770C6002S  Z RE   V10SW-M", "0.635.781.0", 16)
+	Do ..VoegToeGangData("770C2702S  Z LI   V10SW-M", "0.205.235.5", 17)
+	Do ..VoegToeGangData("770M6002S  Z LI   V20SW-M", "0.853.823.9", 17)
+	Do ..VoegToeGangData("770C6002S  Z LI   V10SW-M", "0.635.562.7", 17)
+	Do ..VoegToeGangData("770M2702S  Z RE   V20SW-M", "0.213.095.4", 18)
+	Do ..VoegToeGangData("770M6502S  Z RE   V20SW-M", "0.924.033.5", 18)
+	Do ..VoegToeGangData("770C6502S  Z RE   V10SW-M", "0.697.309.7", 18)
+	Do ..VoegToeGangData("770M2702S  Z LI   V20SW-M", "0.210.338.4", 19)
+	Do ..VoegToeGangData("770M6502S  Z LI   V20SW-M", "0.920.901.0", 19)
+	Do ..VoegToeGangData("770C6502S  Z LI   V10SW-M", "0.697.011.3", 19)
+	Do ..VoegToeGangData("770K2702S  Z RE   V10OG-M", "0.335.198.4", 20)
+	Do ..VoegToeGangData("770M2702S  Z RE   V20OG-M", "0.202.919.6", 20)
+	Do ..VoegToeGangData("770C2702S  Z RE   V10OG-M", "0.201.703.8", 20)
+	Do ..VoegToeGangData("770K2702S  Z LI   V10OG-M", "0.333.169.0", 21)
+	Do ..VoegToeGangData("770M2702S  Z LI   V20OG-M", "0.201.573.1", 21)
+	Do ..VoegToeGangData("770C2702S  Z LI   V10OG-M", "0.201.347.0", 21)
+	Do ..VoegToeGangData("770K3002S  Z RE   V10OG-M", "0.108.968.3", 22)
+	Do ..VoegToeGangData("770M3002S  Z RE   V20OG-M", "0.301.642.2", 22)
+	Do ..VoegToeGangData("770C3002S  Z RE   V10OG-M", "0.300.726.4", 22)
+	Do ..VoegToeGangData("770K3002S  Z LI   V10OG-M", "0.108.036.0", 23)
+	Do ..VoegToeGangData("770M3002S  Z LI   V20OG-M", "0.301.379.8", 23)
+	Do ..VoegToeGangData("770C3002S  Z LI   V10OG-M", "0.300.249.2", 23)
+	Do ..VoegToeGangData("770K3502S  Z RE   V10OG-M", "0.121.910.1", 24)
+	Do ..VoegToeGangData("770M3502S  Z RE   V20OG-M", "0.704.281.6", 24)
+	Do ..VoegToeGangData("770C3502S  Z RE   V10OG-M", "0.349.492.7", 24)
+	Do ..VoegToeGangData("770K3502S  Z LI   V10OG-M", "0.121.739.2", 25)
+	Do ..VoegToeGangData("770M3502S  Z LI   V20OG-M", "0.703.023.7", 25)
+	Do ..VoegToeGangData("770C3502S  Z LI   V10OG-M", "0.348.784.8", 25)
+	Do ..VoegToeGangData("770K4002S  Z RE   V10OG-M", "0.406.438.9", 26)
+	Do ..VoegToeGangData("770M4002S  Z RE   V20OG-M", "0.804.540.2", 26)
+	Do ..VoegToeGangData("770C4002S  Z RE   V10OG-M", "0.708.855.5", 26)
+	Do ..VoegToeGangData("770K4002S  Z LI   V10OG-M", "0.405.608.5", 27)
+	Do ..VoegToeGangData("770M4002S  Z LI   V20OG-M", "0.804.488.7", 27)
+	Do ..VoegToeGangData("770C4002S  Z LI   V10OG-M", "0.702.518.5", 27)
+	Do ..VoegToeGangData("770K4502S  Z RE   V10OG-M", "0.429.032.3", 28)
+	Do ..VoegToeGangData("770M4502S  Z RE   V20OG-M", "0.138.522.0", 28)
+	Do ..VoegToeGangData("770C4502S  Z RE   V10OG-M", "0.801.034.6", 28)
+	Do ..VoegToeGangData("770K4502S  Z LI   V10OG-M", "0.428.915.9", 29)
+	Do ..VoegToeGangData("770M4502S  Z LI   V20OG-M", "0.134.558.3", 29)
+	Do ..VoegToeGangData("770C4502S  Z LI   V10OG-M", "0.800.234.3", 29)
+	Do ..VoegToeGangData("770K5002S  Z RE   V10OG-M", "0.509.901.8", 30)
+	Do ..VoegToeGangData("770M5002S  Z RE   B3AOG-M", "0.828.113.0", 30)
+	Do ..VoegToeGangData("770C5002S  Z RE   V10OG-M", "0.853.039.0", 30)
+	Do ..VoegToeGangData("770K5002S  Z LI   V10OG-M", "0.508.121.1", 31)
+	Do ..VoegToeGangData("770M5002S  Z LI   B3AOG-M", "0.825.129.2", 31)
+	Do ..VoegToeGangData("770C5002S  Z LI   V10OG-M", "0.852.952.2", 31)
+	Do ..VoegToeGangData("770K5502S  Z RE   V10OG-M", "0.603.805.5", 32)
+	Do ..VoegToeGangData("770M5502S  Z RE   V20OG-M", "0.767.954.7", 32)
+	Do ..VoegToeGangData("770C5502S  Z RE   V10OG-M", "0.976.681.4", 32)
+	Do ..VoegToeGangData("770K5502S  Z LI   V10OG-M", "0.602.647.4", 33)
+	Do ..VoegToeGangData("770M5502S  Z LI   V20OG-M", "0.767.282.5", 33)
+	Do ..VoegToeGangData("770C5502S  Z LI   V10OG-M", "0.974.653.2", 33)
+	Do ..VoegToeGangData("770N4502S  Z RE   V20OG-M", "0.404.746.5", 34)
+	Do ..VoegToeGangData("770M6002S  Z RE   V20OG-M", "0.852.075.7", 34)
+	Do ..VoegToeGangData("770C6002S  Z RE   V10OG-M", "0.625.810.5", 34)
+	Do ..VoegToeGangData("770N4502S  Z LI   V20OG-M", "0.404.214.6", 35)
+	Do ..VoegToeGangData("770M6002S  Z LI   V20OG-M", "0.851.859.5", 35)
+	Do ..VoegToeGangData("770C6002S  Z LI   V10OG-M", "0.625.289.6", 35)
+	Do ..VoegToeGangData("770N5002S  Z RE   V20OG-M", "0.508.533.3", 36)
+	Do ..VoegToeGangData("770M6502S  Z RE   V20OG-M", "0.914.108.9", 36)
+	Do ..VoegToeGangData("770C6502S  Z RE   V10OG-M", "0.695.827.4", 36)
+	Do ..VoegToeGangData("770N5002S  Z LI   V20OG-M", "0.505.468.5", 37)
+	Do ..VoegToeGangData("770M6502S  Z LI   V20OG-M", "0.911.010.2", 37)
+	Do ..VoegToeGangData("770C6502S  Z LI   V10OG-M", "0.693.978.9", 37)
+
+	//Rechterkant gang
+	Do ..VoegToeGangData("770C5002S  Z RE   V10SW-M", "0.856.652.1", 1)
+	Do ..VoegToeGangData("770C5002S  Z LI   V10SW-M", "0.854.322.4", 2)
+	Do ..VoegToeGangData("780C4502I  Z LI   V6 INGL", "0.762.055.1", 4)
+	Do ..VoegToeGangData("780C5002I  Z LI   V6 INGL", "0.555.104.5", 4)
+	Do ..VoegToeGangData("770M5002I  Z LI   V20INGL", "0.687.171.4", 4)
+	Do ..VoegToeGangData("770C5002I  Z LI   V10INGL", "0.964.252.0", 4)
+	Do ..VoegToeGangData("780C4502I  Z RE   V6 INGL", "0.762.347.1", 5)
+	Do ..VoegToeGangData("780C5002I  Z RE   V6 INGL", "0.537.840.8", 5)
+	Do ..VoegToeGangData("770M5002I  Z RE   V20INGL", "0.687.874.4", 5)
+	Do ..VoegToeGangData("770C5002I  Z RE   V10INGL", "0.964.372.0", 5)
+	Do ..VoegToeGangData("770F4502S  Z LI   V10SW-M", "0.504.026.2", 6)
+	Do ..VoegToeGangData("770F4002S  Z LI   V10TS-M", "0.450.932.9", 6)
+	Do ..VoegToeGangData("770F4502S  Z RE   V10SW-M", "0.504.543.8", 7)
+	Do ..VoegToeGangData("770F4002S  Z RE   V10TS-M", "0.453.181.9", 7)
+	Do ..VoegToeGangData("770F5002S  Z LI   V10SW-M", "0.566.527.1", 8)
+	Do ..VoegToeGangData("770F5002S  Z LI   V10TS-M", "0.573.747.9", 8)
+	Do ..VoegToeGangData("770F5002S  Z RE   V10SW-M", "0.568.708.0", 9)
+	Do ..VoegToeGangData("770F5002S  Z RE   V10TS-M", "0.574.456.4", 9)
+	Do ..VoegToeGangData("770F5502S  Z LI   V10SW-M", "0.616.606.2", 10)
+	Do ..VoegToeGangData("770F6002S  Z LI   V10SW-M", "0.666.636.7", 10)
+	Do ..VoegToeGangData("770F5502S  Z RE   V10SW-M", "0.617.528.0", 11)
+	Do ..VoegToeGangData("770F6002S  Z RE   V10SW-M", "0.666.786.4", 11)
+	Do ..VoegToeGangData("770F4002S  Z LI   V10OG-M", "0.401.914.2", 14)
+	Do ..VoegToeGangData("770F3502S  Z LI   V10OG-M", "0.338.279.4", 14)
+	Do ..VoegToeGangData("770F4002S  Z RE   V10OG-M", "0.403.627.9", 15)
+	Do ..VoegToeGangData("770F3502S  Z RE   V10OG-M", "0.339.037.6", 15)
+	Do ..VoegToeGangData("770F4502S  Z LI   V10OG-M", "0.501.444.3", 16)
+	Do ..VoegToeGangData("770M4002S  Z LI   V20TS-M", "0.821.224.4", 16)
+	Do ..VoegToeGangData("770C4002S  Z LI   V10TS-M", "0.732.117.0", 16)
+	Do ..VoegToeGangData("770F4502S  Z RE   V10OG-M", "0.501.856.8", 17)
+	Do ..VoegToeGangData("770M4002S  Z RE   V20TS-M", "0.822.605.7", 17)
+	Do ..VoegToeGangData("770C4002S  Z RE   V10TS-M", "0.732.215.7", 17)
+	Do ..VoegToeGangData("770F5002S  Z LI   V10OG-M", "0.541.975.0", 18)
+	Do ..VoegToeGangData("770M4502S  Z LI   V20TS-M", "0.146.429.1", 18)
+	Do ..VoegToeGangData("770C4502S  Z LI   V10TS-M", "0.807.139.7", 18)
+	Do ..VoegToeGangData("770F5002S  Z RE   V10OG-M", "0.542.520.0", 19)
+	Do ..VoegToeGangData("770M4502S  Z RE   V20TS-M", "0.148.464.5", 19)
+	Do ..VoegToeGangData("770C4502S  Z RE   V10TS-M", "0.807.153.0", 19)
+	Do ..VoegToeGangData("770F5502S  Z LI   V10OG-M", "0.612.080.2", 20)
+	Do ..VoegToeGangData("770M5002S  Z LI   V20TS-M", "0.651.702.5", 20)
+	Do ..VoegToeGangData("770C5002S  Z LI   V10TS-M", "0.861.055.9", 20)
+	Do ..VoegToeGangData("770F5502S  Z RE   V10OG-M", "0.614.512.0", 21)
+	Do ..VoegToeGangData("770M5002S  Z RE   V20TS-M", "0.651.870.9", 21)
+	Do ..VoegToeGangData("770C5002S  Z RE   V10TS-M", "0.862.261.2", 21)
+	Do ..VoegToeGangData("770F6002S  Z LI   V10OG-M", "0.655.774.2", 22)
+	Do ..VoegToeGangData("770M5502S  Z LI   V20TS-M", "0.772.256.1", 22)
+	Do ..VoegToeGangData("770C5502S  Z LI   V10TS-M", "0.980.667.0", 22)
+	Do ..VoegToeGangData("770F6002S  Z RE   V10OG-M", "0.656.754.0", 23)
+	Do ..VoegToeGangData("770M5502S  Z RE   V20TS-M", "0.772.592.5", 23)
+	Do ..VoegToeGangData("770C5502S  Z RE   V10TS-M", "0.981.127.5", 23)
+	Do ..VoegToeGangData("770F6502S  Z LI   V10OG-M", "0.705.792.1", 24)
+	Do ..VoegToeGangData("770M6002S  Z LI   V20TS-M", "0.857.265.8", 24)
+	Do ..VoegToeGangData("770C6002S  Z LI   V10TS-M", "0.635.923.8", 24)
+	Do ..VoegToeGangData("770F6502S  Z RE   V10OG-M", "0.706.961.9", 25)
+	Do ..VoegToeGangData("770M6002S  Z RE   V20TS-M", "0.859.889.1", 25)
+	Do ..VoegToeGangData("770C6002S  Z RE   V10TS-M", "0.636.184.7", 25)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeGangData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Korttekst:%String,IdentNr:%String,LoopvolgordeNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Product = ##class(DOM.Halux.LBXPickingZijkantenLoopvolgorde).%New()	
+	#dim ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	
+	Set Product.Korttekst = Korttekst
+	Set Product.LoopvolgordeNr = LoopvolgordeNr
+	Set Product.ProductId = ProductAPI.GeefProductIdVoorIdentNummer(IdentNr)
+	
+	Do Product.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>