Index: AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml
===================================================================
diff -u -r47173 -r47437
--- AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml	(.../ProductItemConverter.cls.xml)	(revision 47173)
+++ AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml	(.../ProductItemConverter.cls.xml)	(revision 47437)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PakketService">
+<Type>DOM.PM.impl.DataM.PakketService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductAPI:DOM.PM.ProductAPI,ProductRolAPI:DOM.PM.ProductRolAPI,LangtekstBewaarder:DOM.PM.LangtekstBewaarder,KlasRepository:Prod.Klas.KlasRepository,Logger:vhLib.Logger,MailAPI:TECH.Mail.MailAPI</FormalSpec>
+<FormalSpec>ProductAPI:DOM.PM.ProductAPI,ProductRolAPI:DOM.PM.ProductRolAPI,LangtekstBewaarder:DOM.PM.LangtekstBewaarder,KlasRepository:Prod.Klas.KlasRepository,Logger:vhLib.Logger,MailAPI:TECH.Mail.MailAPI,PakketService:DOM.PM.impl.DataM.PakketService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -46,19 +51,23 @@
 	Set ..KlasRepository = $$$Inject(KlasRepository,##class(Prod.Klas.KlasRepository).%New())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
 	Set ..MailAPI = $$$Inject(MailAPI,##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..PakketService = $$$Inject(PakketService,##class(DOM.PM.impl.DataM.PakketService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertProductItem">
 <FormalSpec>ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem</FormalSpec>
 <Implementation><![CDATA[
-	
-	try {	
-		if ..ProductAPI.BestaatIdentNr(ProductItem.ItemId) { ; Update	
-			Do ..UpdateProduct(ProductItem)
-		} else { ;insert
-			Do ..MaakProduct(ProductItem)
+	try {		
+		if ..ProductAPI.BestaatIdentNr(ProductItem.ItemId) {
+			#dim Product as DOM.PM.Product = ..ProductAPI.GeefProductVolgensIdentNr(ProductItem.ItemId)
+			Do ..UpdateProduct(ProductItem,Product)
+		} else {
+			Set Product = ..GeefNieuwProduct()
+			Do Product.ZetLeverancierId(..BepaalLeverancierId(ProductItem)) ;PrimaryVendorId
+			Do Product.ZetIdentNr(..BepaalIdentNr(ProductItem)) ;alleen bij nieuw product aangezien we bij een update het product vinden via identnummer....
+			Do ..UpdateProduct(ProductItem,Product)
 		}
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(##class(TECH.Exceptions.IllegalArgumentException).%ClassName(1))
@@ -67,36 +76,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNieuwProduct">
+<Private>1</Private>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductNr as %String = $$NEXTID^PRODUKT(1)
+	Quit ##class(DOM.PM.impl.ProductImpl).%New(ProductNr)
+]]></Implementation>
+</Method>
+
 <Method name="UpdateProduct">
-<FormalSpec>ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem</FormalSpec>
+<FormalSpec>ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem,Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Product as DOM.PM.Product = ..ProductAPI.GeefProductVolgensIdentNr(ProductItem.ItemId)
+	Do Product.ZetLeverancierId(..BepaalLeverancierId(ProductItem)) ;PrimaryVendorId
 	
 	Do Product.ZetCifPPL(..BepaalCifPPL(ProductItem)) ;ActiveCostPrice
 	;Do Product.ZetWeetniet1(..BepaalWeetniet1(ProductItem)) ;BOMQty vlp negeren
 	;Do Product.ZetWeetNiet2(..BepaalWeetNiet2(ProductItem)) ;BOMUnitId vlp negeren
-	Do Product.ZetFSCHout(..BepaalFSCHout(ProductItem)) ;CertClaimLevel
+	Do Product.ZetFSCHout(..BepaalFSCHout(ProductItem)) ;CertClaimLevel	
 	Do Product.ZetCifPercentage(..BepaalCifPercentage(ProductItem)) ;CostInsuranceFreight
 	Do Product.ZetTelbaar(..BepaalTelbaar(ProductItem)) ;CountableOrDivisible
 	Do Product.ZetBarcodeWaarde(..BepaalBarcodeWaarde(ProductItem)) ;GTIN
 	Do Product.ZetWerkvloerEenheid(..BepaalWerkvloerEenheid(ProductItem)) ;InventUnitId
-	;Do Product.ZetIdentNr(..BepaalIdentNr(ProductItem)) ;alleen bij nieuw product? aangezien we product vinden via identnummer....
 	Do Product.ZetLevertermijn(..BepaalLevertermijn(ProductItem)) ;LeadTimePurch
 	Do Product.ZetMinimumBestelhoeveelheid(..BepaalMinimumBestelhoeveelheid(ProductItem)) ;LowestQtyPurch
 	Do Product.ZetGewichtPerDuizendStuksInKG(..BepaalGewichtPerDuizendStuksInKG(ProductItem)) ;NetWeight
-	Do Product.ZetLeverancierId(..BepaalLeverancierId(ProductItem)) ;PrimaryVendorId
 	Do Product.ZetAantalInGrootVerpakking(..BepaalAantalInGrootVerpakking(ProductItem)) ;QtyGVP 
 	Do Product.ZetAantalInKleinVerpakking(..BepaalAantalInKleinVerpakking(ProductItem)) ;QtyKVP 
 	Do Product.ZetAantalInNormaalVerpakking(..BepaalAantalInNormaalVerpakking(ProductItem)) ;QtyNVP
 	Do Product.ZetPalletAantal(..BepaalPalletAantal(ProductItem)) ;QtyPLT 
-	;Do Product.ZetWeetNiet6(..BepaalWeetNiet6(ProductItem)) ; ReqGroupId, negeren, wordt nog ander veld, moet naar stock/nietstock
+	;Do Product.ZetStockNietStock(..BepaalWeetNiet6(ProductItem)) ; ReqGroupId, negeren, wordt nog ander veld, moet naar stock/nietstock
+
 	;Do Product.ZetWeetNiet7(..BepaalWeetNiet7(ProductItem)) ; StoppedInvent , sca volgt op
 	;Do Product.ZetWeetNiet8(..BepaalWeetNiet8(ProductItem)) ; StoppedPurch , sca volgt op
 	;Do Product.ZetWeetNiet9(..BepaalWeetNiet9(ProductItem)) ; StoppedSales , sca volgt op
 	;Do Product.ZetWeetNiet10(..BepaalWeetNiet10(ProductItem)) ; VendName, negeren	
 	Do Product.ZetKorttekst(..BepaalKorttekst(ProductItem))	
-	
 	Do ..ConvertGroepen(Product, ProductItem)	;ok
 	Do ..ConvertTranslation(Product, ##class(TECH.ListIterator).%New(ProductItem.Translation)) ; ok
 
@@ -105,7 +121,7 @@
 
 	Set Filter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.ExtFilter).Maak("Cust")
 	Do ..ConvertExtModuleTypeCust(Product, ##class(TECH.DynamicIterator).%New(##class(TECH.ListIterator).%New(ProductItem.Ext),"",Filter))
-	
+
 	Do Product.Save()
 ]]></Implementation>
 </Method>
@@ -151,7 +167,6 @@
 <Implementation><![CDATA[
 	if TranslationIterator.HasNext(){
 		#dim AdministratiefProduct as DOM.PM.impl.AdministratiefProduct = ..ProductRolAPI.GeefAdministratiefProduct(Product.GeefID())
-		
 		While TranslationIterator.HasNext() {
 			#dim Translation as AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityTranslation = TranslationIterator.Next()
 			Do AdministratiefProduct.ZetLangtekst(Translation.Description,##class(AXimpl.AxToAdminUtils).ConvertLanguageId(Translation.LanguageId))
@@ -182,10 +197,33 @@
 <FormalSpec>Product:DOM.PM.Product,ExtIterator:TECH.ListIterator</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set TeVerwijderenPakketLijst = ##class(%ListOfDataTypes).%New()
 	While ExtIterator.HasNext() {		
 		#dim Ext as AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityExt = ExtIterator.Next()
-		; ^PAKKET stuff
+
+		#dim KlantId as %String = ##class(AXimpl.AxToAdminUtils).ConvertCustomerID(Ext.CustVendRelation)
+
+		do ##class(TECH.ListUtils).AppendList(.TeVerwijderenPakketLijst, ..PakketService.GeefTypeEPakketNummersVoorKlantProduct(KlantId,Product.GeefID()))
+
+		if ..PakketService.BestaatViaPakketnaam(KlantId,Ext.ExternalItemId){
+			#dim Pakketnummer as %String = ..PakketService.GeefPakketNummerViaPakketnaam(KlantId,Ext.ExternalItemId)
+			if $$$Not(..PakketService.GeefPakketType(Pakketnummer) = "E"){				
+				;exception indien type pakket <> E -> in 2A alleen tog 1 op 1 pakketten, 1-N zijn anders dummy product (shadow/ghost product in AX)
+				do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ProductSynchronizatie probeert 1-N pakket met nummer '"_ Pakketnummer _"' te updaten als 1-1"))
+			}
+			Do ##class(TECH.ListUtils).RemoveItemFromList(Pakketnummer,TeVerwijderenPakketLijst)
+			;verwijder pakket uit lijstteverwijderenpakketten
+		} else {
+			Set Pakketnummer = ..PakketService.MaakPakket(KlantId,Ext.ExternalItemId)
+			Do ..PakketService.ZetPakketType(Pakketnummer,"E")
+		}
+
+		Do ..PakketService.BewaarPakketOnderdeel(Pakketnummer,Product.GeefID(),1)		
 	}
+	set TeVerwijderenPakketnummerIterator = ##class(TECH.ListIterator).%New(TeVerwijderenPakketLijst)
+	While TeVerwijderenPakketnummerIterator.HasNext(){
+		Do ..PakketService.VerwijderPakket(TeVerwijderenPakketnummerIterator.Next())
+	}
 ]]></Implementation>
 </Method>
 
@@ -455,11 +493,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakProduct">
-<FormalSpec>ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem</FormalSpec>
-<Private>1</Private>
-</Method>
-
 <Method name="ConvertLanguageId">
 <FormalSpec>LanguageId:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/ProductItemConverterFake.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/ProductItemConverterFake.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/ProductItemConverterFake.cls.xml	(revision 47437)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter.ProductItemConverterFake">
+<Super>AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter</Super>
+
+<Property name="NieuwProductMock">
+<Type>DOM.PM.Product</Type>
+</Property>
+
+<Method name="GeefNieuwProduct">
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[	Quit ..NieuwProductMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/Test.cls.xml
===================================================================
diff -u -r47144 -r47437
--- vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47144)
+++ vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47437)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test Standaard gedrag converter van ProductItem">
+<Method name="Test Standaard gedrag converter van ProductItem voor update">
 <Implementation><![CDATA[
 	#dim ProductMock as vhTest.Mock.PM.DOM.Product = ..GeefProductMockMetVerwachtMethodCalls()
 	
@@ -27,7 +27,14 @@
 	Set KlasRepositoryMock = ##class(vhTest.Mock.Prod.Klas.KlasRepository).%New()
 	Do KlasRepositoryMock.VerwachtMethodCall("ZoekViaGroepen","KB","KVD","SVD/BL").DanReturn(..GeefKlasIterator())
 
-	Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter).%New(ProductAPIMock,ProductRolAPIMock,LangtekstBewaarderMock,KlasRepositoryMock)
+	Set PakketServiceMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.PakketService).%New()
+	Do PakketServiceMock.VerwachtMethodCall("GeefTypeEPakketNummersVoorKlantProduct","K||1000","ProductID").DanReturn(##class(%ListOfDataTypes).%New())
+	Do PakketServiceMock.VerwachtMethodCall("BestaatViaPakketnaam","K||1000","klantreferentie").DanReturn($$$False)
+	Do PakketServiceMock.VerwachtMethodCall("MaakPakket","K||1000","klantreferentie").DanReturn("PakketNummer")
+	Do PakketServiceMock.VerwachtMethodCall("ZetPakketType","PakketNummer","E").DanDoeNiks()
+	DO PakketServiceMock.VerwachtMethodCall("BewaarPakketOnderdeel","PakketNummer","ProductID",1).DanDoeNiks()
+
+	Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter).%New(ProductAPIMock,ProductRolAPIMock,LangtekstBewaarderMock,KlasRepositoryMock,,,PakketServiceMock)
 	
 	#dim Envelope as AXif.Dynamics.ProductItemIn.Envelope = ..GeefEnvelope("ProductItemInUpdateKorttekst.xml")
 	Do Converter.ConvertProductItem(Envelope.Body.MessageParts.MessagePart.Item.GetAt(1))
@@ -38,9 +45,56 @@
 	Do AdministratiefProductMock.Verifieer()
 	Do LangtekstBewaarderMock.Verifieer()
 	Do KlasRepositoryMock.Verifieer()
+	Do PakketServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test Standaard gedrag converter van ProductItem voor create">
+<Implementation><![CDATA[
+	#dim ProductMock as vhTest.Mock.DOM.PM.Product = ..GeefProductMockMetVerwachtMethodCalls()	
+	Do ProductMock.VerwachtMethodCall("ZetIdentNr","IdentNummer").DanDoeNiks()
+
+	#dim ProductAPIMock as DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductAPIMock.VerwachtMethodCall("BestaatIdentNr","IdentNummer").DanReturn($$$False)
+	
+	Set AdministratiefProductMock = ##class(vhTest.Mock.DOM.PM.AdministratiefProduct).%New()
+	Do AdministratiefProductMock.VerwachtMethodCall("ZetLangtekst","AVENTOS SERVO-DRIVE   support d'interrupteur","F").DanDoeNiks()
+	Do AdministratiefProductMock.VerwachtMethodCall("ZetLangtekst","AVENTOS SERVO-DRIVE  schakelaarhouder","N").DanDoeNiks()
+	Do AdministratiefProductMock.VerwachtMethodCall("Save").DanDoeNiks()
+	
+	#dim ProductRolAPIMock as DOM.PM.ProductRolAPI = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).MockInstance()
+	Do ProductRolAPIMock.VerwachtMethodCall("GeefAdministratiefProduct","ProductID").DanReturn(AdministratiefProductMock)
+
+	Set LangtekstBewaarderMock = ##class(vhTest.Mock.DOM.PM.LangtekstBewaarder).%New()
+	Do LangtekstBewaarderMock.VerwachtMethodCall("BewaarVoorTaal","ProductID","AVENTOS SERVO-DRIVE   support d'interrupteur","F")
+	Do LangtekstBewaarderMock.VerwachtMethodCall("BewaarVoorTaal","ProductID","AVENTOS SERVO-DRIVE  schakelaarhouder","N")
+	
+	Set KlasRepositoryMock = ##class(vhTest.Mock.Prod.Klas.KlasRepository).%New()
+	Do KlasRepositoryMock.VerwachtMethodCall("ZoekViaGroepen","KB","KVD","SVD/BL").DanReturn(..GeefKlasIterator())
+
+	Set PakketServiceMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.PakketService).%New()
+	Do PakketServiceMock.VerwachtMethodCall("GeefTypeEPakketNummersVoorKlantProduct","K||1000","ProductID").DanReturn(##class(%ListOfDataTypes).%New())
+	Do PakketServiceMock.VerwachtMethodCall("BestaatViaPakketnaam","K||1000","klantreferentie").DanReturn($$$False)
+	Do PakketServiceMock.VerwachtMethodCall("MaakPakket","K||1000","klantreferentie").DanReturn("PakketNummer")
+	Do PakketServiceMock.VerwachtMethodCall("ZetPakketType","PakketNummer","E").DanDoeNiks()
+	DO PakketServiceMock.VerwachtMethodCall("BewaarPakketOnderdeel","PakketNummer","ProductID",1).DanDoeNiks()
+
+	Set Converter = ##class(vhUnitTest.AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter.ProductItemConverterFake).%New(ProductAPIMock,ProductRolAPIMock,LangtekstBewaarderMock,KlasRepositoryMock,,,PakketServiceMock)
+	Set Converter.NieuwProductMock = ProductMock
+	
+	#dim Envelope as AXif.Dynamics.ProductItemIn.Envelope = ..GeefEnvelope("ProductItemInUpdateKorttekst.xml")
+	Do Converter.ConvertProductItem(Envelope.Body.MessageParts.MessagePart.Item.GetAt(1))
+	
+	Do ProductMock.Verifieer()
+	Do ProductAPIMock.Verifieer()
+	Do ProductRolAPIMock.Verifieer()
+	Do AdministratiefProductMock.Verifieer()
+	Do LangtekstBewaarderMock.Verifieer()
+	Do KlasRepositoryMock.Verifieer()
+	Do PakketServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlasIterator">
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -72,7 +126,6 @@
 	Do ProductMock.VerwachtMethodCall("ZetTelbaar","").DanDoeNiks()  ;CountableOrDivisible
 	Do ProductMock.VerwachtMethodCall("ZetBarcodeWaarde","09002617767988").DanDoeNiks()  ;GTIN
 	Do ProductMock.VerwachtMethodCall("ZetWerkvloerEenheid","ST").DanDoeNiks() ;InventUnitId
-	;Do ProductMock.VerwachtMethodCall("ZetIdentNr","").DanDoeNiks() ;ItemId
 	Do ProductMock.VerwachtMethodCall("ZetLevertermijn",2).DanDoeNiks() ;LeadTimePurch
 	Do ProductMock.VerwachtMethodCall("ZetMinimumBestelhoeveelheid",100).DanDoeNiks() ;LowestQtyPurch
 	Do ProductMock.VerwachtMethodCall("ZetGewichtPerDuizendStuksInKG","5.49").DanDoeNiks() ;NetWeight
@@ -91,7 +144,6 @@
 	Do ProductMock.VerwachtMethodCall("ZetGroep","01HF02GR ").DanDoeNiks()
 	Do ProductMock.VerwachtMethodCall("ZetSubGroep","01HF02GR10SG ").DanDoeNiks()
 	
-	
 	Do ProductMock.VerwachtMethodCall("ZetKorttekst","korttekst").DanDoeNiks()
 	Do ProductMock.VerwachtMethodCall("Save").DanDoeNiks()
 	Quit ProductMock
Index: vhTestFiles/UnitTests/AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter/Test/ProductItemInUpdateKorttekst.xml
===================================================================
diff -u -r47057 -r47437
--- vhTestFiles/UnitTests/AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter/Test/ProductItemInUpdateKorttekst.xml	(.../ProductItemInUpdateKorttekst.xml)	(revision 47057)
+++ vhTestFiles/UnitTests/AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter/Test/ProductItemInUpdateKorttekst.xml	(.../ProductItemInUpdateKorttekst.xml)	(revision 47437)
@@ -50,6 +50,11 @@
                         <ExternalItemId>0123456789012345678901234567890123456789</ExternalItemId>
                         <ModuleType>Vend</ModuleType>
                     </Ext>
+                    <Ext class="entity">
+                        <CustVendRelation>01000</CustVendRelation>
+                        <ExternalItemId>klantreferentie</ExternalItemId>
+                        <ModuleType>Cust</ModuleType>
+                    </Ext>
                     <SOPR class="entity">
                         <ContractId>vhbe-08614</ContractId>
                         <VendAccount>08614</VendAccount>