Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml
===================================================================
diff -u -r39053 -r39077
--- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 39053)
+++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 39077)
@@ -251,7 +251,7 @@
 	Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""NoGallery"":""ZR"",  ""SimpleGallery"":""ER"", ""DesignElement"":""INSCHF"", :Input)")
 	Do ConvertData.Add("Draagkracht","ItemDK")
 	Do ConvertData.Add("HeeftZijstabilisering","ItemSB")
-	Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"",  ""Probox"":""X"", ""V1"":""S"", :""S"")")
+	Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"", ""Procom"":""O"", ""Probox"":""X"", ""V1"":""S"", :""S"")")
 	Do ConvertData.Add("GeleiderTechnologie","ItemBM", "Set Output = $Select(Input = ""B"" : ""I"", 1:Input)")
 	Do ConvertData.Add("LadeKleur","ItemKL", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)")
 	Do ConvertData.Add("LadeKleur","ItemRK", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)")