Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r29059 -r34701
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 29059)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 34701)
@@ -98,6 +98,12 @@
 <ReturnType>DOM.VKP.TekstOrderlijn</ReturnType>
 </Method>
 
+<Method name="MaakNieuweManueleLijn">
+<Abstract>1</Abstract>
+<FormalSpec>Omschrijving:%String,EenheidPrijsNettoExclBTW:TECH.Decimal,Aantal:%Integer,BoekhoudKundigeRekening:DOM.BKH.enu.Rekening</FormalSpec>
+<ReturnType>DOM.VKP.ManueleOrderlijn</ReturnType>
+</Method>
+
 <Method name="GeefOrderLijnViaVolgnummer">
 <Description>
 Dit is de node nummer (101,102,103,...)</Description>
Index: DOM/VKP/impl/DataM/DataMManueleOrderlijn.cls.xml
===================================================================
diff -u -r29059 -r34701
--- DOM/VKP/impl/DataM/DataMManueleOrderlijn.cls.xml	(.../DataMManueleOrderlijn.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DataM/DataMManueleOrderlijn.cls.xml	(.../DataMManueleOrderlijn.cls.xml)	(revision 34701)
@@ -20,6 +20,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEenheidPrijsExclBTW">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit +(..GeefPiece(6) )
+]]></Implementation>
+</Method>
+
+<Method name="ZetEenheidPrijsExclBTW">
+<FormalSpec>Bedrag:%Decimal</FormalSpec>
+<Implementation><![CDATA[	do ..ZetPiece(6,Bedrag)
+]]></Implementation>
+</Method>
+
+<Method name="ZetOmschrijving">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetPiece(5,Omschrijving)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOmschrijving">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefPiece(5)
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r34678 -r34701
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 34678)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 34701)
@@ -133,6 +133,7 @@
 		If ..IsTAXExport(Offerte) {
 			Do Order.ZetLeveringVoorwaarde(##class(DOM.CRM.enu.LeveringVoorwaarde).KostInManueleLijn())
 			Do Order.ZetVerzendingWijze(..VerzendwijzeItemNaarVerzendWijze(Offerte.VerzendingItem))
+			Do ..VoegToeVerzendingAlsManueleLijn(Order, Offerte)
 		}
 	
 		Do ..TekstLijnenToevoeger.VoegToeOpmerkingLijnenAanOrder(Order, Offerte)
@@ -154,6 +155,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeVerzendingAlsManueleLijn">
+<FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Implementation><![CDATA[
+	#dim EenheidPrijsNettoExclBTW As TECH.Decimal = Offerte.VerzendingItem.KostPrijs 
+	#dim ManueleLijnOmschrijving As %String = Offerte.VerzendingItem.Code _" "_Offerte.VerzendingItem.Omschrijving
+
+	if ..HeeftCarbonNeutral(Offerte) {
+		Set EenheidPrijsNettoExclBTW = EenheidPrijsNettoExclBTW + Offerte.CarbonNeutral.Prijs
+		Set ManueleLijnOmschrijving = ManueleLijnOmschrijving _" / " _Offerte.CarbonNeutral.Omschrijving
+	}
+
+	Do Order.MaakNieuweManueleLijn(ManueleLijnOmschrijving,EenheidPrijsNettoExclBTW,1, ##class(DOM.BKH.enu.Rekening).DoorgerekendePort())
+]]></Implementation>
+</Method>
+
 <Method name="IsTAXExport">
 <FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
 <Private>1</Private>
@@ -162,6 +178,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftCarbonNeutral">
+<FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $IsObject(Offerte.CarbonNeutral) && (Offerte.CarbonNeutral.Prijs > 0)
+]]></Implementation>
+</Method>
+
 <Method name="VerzendwijzeItemNaarVerzendWijze">
 <FormalSpec>VerzendingItem:APPS.VKP.impl.Offerte.VerzendingItem</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestManueleLijn.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestManueleLijn.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestManueleLijn.cls.xml	(revision 34701)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestManueleLijn">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestOrderIngaveService")</Description>
+<Super>vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestBase</Super>
+
+<Method name="Test: MaakOrderVanOfferte geeft een manueleLijn zonder carbonneutral voor offerte met VerzendItem">
+<Implementation><![CDATA[
+	Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New()
+	Set ..Offerte.VerzendingItem.Code = 1
+	Set ..Offerte.VerzendingItem.Duurtijd = 1
+	Set ..Offerte.VerzendingItem.KostPrijs = 9.99
+	Set ..Offerte.VerzendingItem.Omschrijving = "UPS (Worldwide) Express Plus" 
+	Do ..Offerte.Save()
+
+	#Dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
+	
+	Do $$$AssertEquals(Order.GeefKlantID(),..Offerte.KlantID)
+
+	If $$$AssertTrue($IsObject(Order)) {
+		#dim Iter As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Manueel())
+		while Iter.HasNext()
+		{
+			#dim OrderLijn As DOM.VKP.ManueleOrderlijn = Iter.Next()
+			Do $$$AssertEquals(OrderLijn.GeefOmschrijving(),"1 UPS (Worldwide) Express Plus")
+			Do $$$AssertEquals(OrderLijn.GeefEenheidPrijsExclBTW(),9.99)
+			Do $$$AssertEquals(OrderLijn.GeefAantal(),1)
+			Do $$$AssertEquals(OrderLijn.GeefBoekhoudkundigeRekening(),##class(DOM.BKH.enu.Rekening).DoorgerekendePort())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte geeft een manueleLijn met carbonneutral voor offerte met VerzendItem">
+<Implementation><![CDATA[
+	Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New()
+	Set ..Offerte.VerzendingItem.Code = 3
+	Set ..Offerte.VerzendingItem.Duurtijd = 2
+	Set ..Offerte.VerzendingItem.KostPrijs = 8.99
+	Set ..Offerte.VerzendingItem.Omschrijving = "UPS Express Saver" 
+	Set ..Offerte.CarbonNeutral = ##class(WSdata.EC.ExterneVerkoop.Selectie).%New()
+	Set ..Offerte.CarbonNeutral.Omschrijving = "Carbon neutral"
+	Set ..Offerte.CarbonNeutral.Prijs  = 3.50
+	Do ..Offerte.Save()
+
+	#Dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
+	
+	Do $$$AssertEquals(Order.GeefKlantID(),..Offerte.KlantID)
+
+	If $$$AssertTrue($IsObject(Order)) {
+		#dim Iter As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Manueel())
+		while Iter.HasNext()
+		{
+			#dim OrderLijn As DOM.VKP.ManueleOrderlijn = Iter.Next()
+			Do $$$AssertEquals(OrderLijn.GeefOmschrijving(),"3 UPS Express Saver / Carbon neutral")
+			Do $$$AssertEquals(OrderLijn.GeefEenheidPrijsExclBTW(),12.49)
+			Do $$$AssertEquals(OrderLijn.GeefAantal(),1)
+			Do $$$AssertEquals(OrderLijn.GeefBoekhoudkundigeRekening(),##class(DOM.BKH.enu.Rekening).DoorgerekendePort())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte geeft geen manueleLijn voor offerte met VerzendItem">
+<Implementation><![CDATA[
+	Set ..Offerte.VerzendingItem = ""
+	Do ..Offerte.Save()
+
+	#Dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
+	
+	Do $$$AssertEquals(Order.GeefKlantID(),..Offerte.KlantID)
+
+	If $$$AssertTrue($IsObject(Order)) {
+		#dim Iter As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Manueel())
+		Do $$$AssertFalse(Iter.HasNext())
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r29059 -r34701
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 34701)
@@ -283,6 +283,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakNieuweManueleLijn">
+<FormalSpec>Omschrijving:%String,EenheidPrijsNettoExclBTW:TECH.Decimal,Aantal:%Integer,BoekhoudKundigeRekening:DOM.BKH.enu.Rekening</FormalSpec>
+<ReturnType>DOM.VKP.ManueleOrderlijn</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakNieuweManueleLijn",Omschrijving,EenheidPrijsNettoExclBTW,Aantal,BoekhoudKundigeRekening)
+]]></Implementation>
+</Method>
+
 <Method name="MaakNieuweProductLijn">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>DOM.VKP.ProductOrderlijn</ReturnType>
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r31699 -r34701
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 31699)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 34701)
@@ -339,6 +339,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakNieuweManueleLijn">
+<FormalSpec>Omschrijving:%String,EenheidPrijsNettoExclBTW:TECH.Decimal,Aantal:%Integer,BoekhoudKundigeRekening:DOM.BKH.enu.Rekening</FormalSpec>
+<ReturnType>DOM.VKP.ManueleOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijn As DOM.VKP.impl.DataM.DataMManueleOrderlijn = ..MaakLijn(##class(DOM.VKP.enu.OrderLijnType).Manueel())
+	Do OrderLijn.ZetOmschrijving(Omschrijving)
+	Do OrderLijn.ZetAantal(Aantal)
+	Do OrderLijn.ZetEenheidPrijsExclBTW(EenheidPrijsNettoExclBTW)
+	Do OrderLijn.ZetBoekhoudkundigeRekening(BoekhoudKundigeRekening)
+	Quit OrderLijn
+]]></Implementation>
+</Method>
+
 <Method name="MaakLijn">
 <FormalSpec>OrderLijnType:DOM.VKP.enu.OrderLijnType</FormalSpec>
 <Private>1</Private>