Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml
===================================================================
diff -u -r45745 -r45800
--- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45745)
+++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml	(.../InventoryInConverter.cls.xml)	(revision 45800)
@@ -101,12 +101,22 @@
 <Private>1</Private>
 <ReturnType>DOM.AKP.Toelevering</ReturnType>
 <Implementation><![CDATA[
-	#dim LeverancierID as %String = ##class(AXimpl.AxToAdminUtils).ConvertSupplierID(JournalEntryLine.CustVendAccount)
+	#dim LeverancierID as %String = ""
+	if JournalEntryLine.InventTransType = "Sales" {
+		Set LeverancierID = "L||6051"
+	} else {
+		Set LeverancierID = ##class(AXimpl.AxToAdminUtils).ConvertSupplierID(JournalEntryLine.CustVendAccount)
+	}
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.MaakNieuwToelevering(LeverancierID)
 
 	Do Toelevering.ZetAanmaakDatum(..DateTimeAPI.CurrentDate() )
 	Do Toelevering.ZetMunt("EUR")
-	Do Toelevering.ZetReferentie(JournalEntry.JournalId)
+	If JournalEntryLine.InventTransType = "Sales" {
+		Do Toelevering.ZetReferentie(JournalEntry.JournalId_ " Terugname klant "_ JournalEntryLine.CustVendAccount)
+	} else {
+		Do Toelevering.ZetReferentie(JournalEntry.JournalId)
+	}
+	
 	Do Toelevering.ZetBestelBevestigingNr(JournalEntry.JournalId)
 	
 	Quit Toelevering
@@ -117,9 +127,9 @@
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim ProductNr as %String = ..ProductLookup.GeefProductIdVoorLeverancierId(JournalEntryLine.ItemId,Toelevering.GeefLeverancierID())	
+	#dim ProductId as %String = ..ProductLookup.GeefProductIdVoorLeverancierId(JournalEntryLine.ItemId,Toelevering.GeefLeverancierID())		
 	#dim Aantal as %Decimal = JournalEntryLine.Qty
-	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductNr)
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductId)
 	Do ToeleveringLijn.ZetAantal(JournalEntryLine.Qty)
 	Do ToeleveringLijn.ZetMunt("EUR")
 	Do ToeleveringLijn.ZetEenheidsPrijs(0)