Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r48714 -r48732
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 48714)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 48732)
@@ -240,7 +240,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If Offerte.VerzendingItem.AantalPalletten > 0 {
-		Do Order.MaakNieuweTekstLijn("Aantal palletten is " _Offerte.VerzendingItem.AantalPalletten)
+		Do Order.ZetTekstVoorAfdrukDocumentType("Aantal palletten is " _Offerte.VerzendingItem.AantalPalletten, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
 	}
 ]]></Implementation>
 </Method>
@@ -249,18 +249,17 @@
 <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 EenheidPrijsExclBTW As TECH.Decimal = Offerte.VerzendingItem.VerkoopPrijs
 	#dim ManueleLijnOmschrijving As %String = Offerte.VerzendingItem.Omschrijving
 	
 	if ..HeeftCarbonNeutral(Offerte) {
-		Set EenheidPrijsNettoExclBTW = EenheidPrijsNettoExclBTW + Offerte.CarbonNeutral.Prijs
+		Set EenheidPrijsExclBTW = EenheidPrijsExclBTW + Offerte.CarbonNeutral.Prijs
 		Set ManueleLijnOmschrijving = ManueleLijnOmschrijving _" / Carbon Neutral"
 	}
 
 	#dim TransportProductLijn As DOM.VKP.ProductOrderlijn = Order.MaakNieuweProductLijn( ..#TransportProductID)
 	Do TransportProductLijn.ZetAantal(1)	
-	Do TransportProductLijn.ZetEenheidPrijsNettoExclBTW(EenheidPrijsNettoExclBTW)	
-	Do TransportProductLijn.ZetTotaalNettoExclBTW(EenheidPrijsNettoExclBTW)
+	Do TransportProductLijn.ZetTotaalExclBTW(EenheidPrijsExclBTW)
 	Do TransportProductLijn.ZetTekstVoorAfdrukDocumentType(ManueleLijnOmschrijving,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
 	Do TransportProductLijn.ZetTekstVoorAfdrukDocumentType(ManueleLijnOmschrijving,##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
 ]]></Implementation>
Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestProductLijn.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestProductLijn.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestProductLijn.cls.xml	(revision 48732)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestProductLijn">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestOrderIngaveService")</Description>
+<Super>vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestBase</Super>
+
+<Parameter name="TransportProductID">
+<Type>%String</Type>
+<Default>1793108</Default>
+</Parameter>
+
+<Method name="Test: MaakOrderVanOfferte geeft een orderLijn 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.VerkoopPrijs = 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)
+
+	#dim TransportProductFound As %Boolean = $$$False
+	If $$$AssertTrue($IsObject(Order)) {
+		#dim Iter As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
+		while Iter.HasNext()
+		{
+			#dim OrderLijn As DOM.VKP.ProductOrderlijn = Iter.Next()
+			If (OrderLijn.GeefProductID() = ..#TransportProductID) {
+				Do $$$AssertEquals(OrderLijn.GeefBedrag(),9.99)
+				Do $$$AssertEquals(OrderLijn.GeefAantal(),1)
+				Set TransportProductFound = $$$True
+			}
+		}
+	}
+	Do $$$AssertTrue(TransportProductFound)
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte geeft een orderLijn 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.VerkoopPrijs = 8.99
+	Set ..Offerte.VerzendingItem.Omschrijving = "UPS Express Saver" 
+	Set ..Offerte.CarbonNeutral = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie).%New()
+	Set ..Offerte.CarbonNeutral.Omschrijving = "Ja, ik betaal EUR 4.30"
+	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)
+
+	#dim TransportProductFound As %Boolean = $$$False
+	If $$$AssertTrue($IsObject(Order)) {
+		#dim Iter As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
+		while Iter.HasNext()
+		{
+			#dim OrderLijn As DOM.VKP.ProductOrderlijn = Iter.Next()
+			If (OrderLijn.GeefProductID() = ..#TransportProductID) {
+				Do $$$AssertEquals(OrderLijn.GeefBedrag(),12.49)
+				Do $$$AssertEquals(OrderLijn.GeefAantal(),1)
+				Set TransportProductFound = $$$True
+			}
+		}
+	}
+	Do $$$AssertTrue(TransportProductFound)
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte geeft geen orderLijn 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: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestPallettenAlsTekstLijn.cls.xml
===================================================================
diff -u -r37872 -r48732
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestPallettenAlsTekstLijn.cls.xml	(.../TestPallettenAlsTekstLijn.cls.xml)	(revision 37872)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestPallettenAlsTekstLijn.cls.xml	(.../TestPallettenAlsTekstLijn.cls.xml)	(revision 48732)
@@ -20,8 +20,7 @@
 	Do $$$AssertEquals(Order.GeefKlantID(),..Offerte.KlantID)
 
 	If $$$AssertTrue($IsObject(Order)) {
-		#dim OrderLijnIterator As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
-		Do $$$AssertEquals(OrderLijnIterator.Next().GeefTekst(),"Aantal palletten is 1")
+		Do $$$AssertEquals(Order.GeefTekstVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()),"Aantal palletten is 1")
 	}
 ]]></Implementation>
 </Method>
@@ -41,8 +40,7 @@
 	Do $$$AssertEquals(Order.GeefKlantID(),..Offerte.KlantID)
 
 	If $$$AssertTrue($IsObject(Order)) {
-		#dim OrderLijnIterator As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
-		Do $$$AssertEquals(OrderLijnIterator.Next().GeefTekst(),"Aantal palletten is 99")
+		Do $$$AssertEquals(Order.GeefTekstVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()),"Aantal palletten is 99")
 	}
 ]]></Implementation>
 </Method>
FishEye: Tag 48732 refers to a dead (removed) revision in file `vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestManueleLijn.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?