Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r48293 -r48714
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 48293)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 48714)
@@ -4,6 +4,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mockable</Super>
 
+<Parameter name="TransportProductID">
+<Type>%String</Type>
+<Default>1793108</Default>
+</Parameter>
+
 <Parameter name="MaakOrderVanOfferteDubbelBestellen">
 <Type>%String</Type>
 <Default>APPS.VKP.OrderIngaveService.MaakOrderVanOfferteDubbelBestellen</Default>
@@ -193,7 +198,7 @@
 		If ..GebruiktExternTransport(Offerte) {
 			Do Order.ZetLeveringVoorwaarde(##class(DOM.CRM.enu.LeveringVoorwaarde).KostInManueleLijn())
 			Do Order.ZetVerzendingWijze(..VerzendingItemNaarVerzendingWijze(Offerte.VerzendingItem))
-			Do ..VoegToeVerzendingAlsManueleLijn(Order, Offerte)
+			Do ..VoegToeVerzendingAlsProductLijn(Order, Offerte)
 			Do ..VoegToePalletten(Order, Offerte)
 		} ElseIf $$$Not(LeverAdres.GeefVerzendingWijze()) {
 			Do Order.ZetVerzendingWijze(LeverAdres.GeefVerzendingWijze())
@@ -240,19 +245,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeVerzendingAlsManueleLijn">
+<Method name="VoegToeVerzendingAlsProductLijn">
 <FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim EenheidPrijsNettoExclBTW As TECH.Decimal = Offerte.VerzendingItem.VerkoopPrijs
 	#dim ManueleLijnOmschrijving As %String = Offerte.VerzendingItem.Omschrijving
-
+	
 	if ..HeeftCarbonNeutral(Offerte) {
 		Set EenheidPrijsNettoExclBTW = EenheidPrijsNettoExclBTW + Offerte.CarbonNeutral.Prijs
 		Set ManueleLijnOmschrijving = ManueleLijnOmschrijving _" / Carbon Neutral"
 	}
 
-	Do Order.MaakNieuweManueleLijn(ManueleLijnOmschrijving,EenheidPrijsNettoExclBTW,1, ##class(DOM.BKH.enu.Rekening).DoorgerekendePort())
+	#dim TransportProductLijn As DOM.VKP.ProductOrderlijn = Order.MaakNieuweProductLijn( ..#TransportProductID)
+	Do TransportProductLijn.ZetAantal(1)	
+	Do TransportProductLijn.ZetEenheidPrijsNettoExclBTW(EenheidPrijsNettoExclBTW)	
+	Do TransportProductLijn.ZetTotaalNettoExclBTW(EenheidPrijsNettoExclBTW)
+	Do TransportProductLijn.ZetTekstVoorAfdrukDocumentType(ManueleLijnOmschrijving,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
+	Do TransportProductLijn.ZetTekstVoorAfdrukDocumentType(ManueleLijnOmschrijving,##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
 ]]></Implementation>
 </Method>