Index: vhTest/Fake/APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r37624 -r37872
--- vhTest/Fake/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37624)
+++ vhTest/Fake/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37872)
@@ -37,8 +37,7 @@
 
 <Method name="VoegToeVerzendingAlsManueleLijn">
 <FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: vhTest/Mock/APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r37624 -r37872
--- vhTest/Mock/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37624)
+++ vhTest/Mock/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37872)
@@ -36,12 +36,6 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ValideerOrder",OrderID)
 ]]></Implementation>
 </Method>
-
-<Method name="VoegToeVerzendingAlsManueleLijn">
-<FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VoegToeVerzendingAlsManueleLijn",Order,Offerte)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestPallettenAlsTekstLijn.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestPallettenAlsTekstLijn.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestPallettenAlsTekstLijn.cls.xml	(revision 37872)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestPallettenAlsTekstLijn">
+<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 bevat een TekstLijn met aantal palletten 1">
+<Implementation><![CDATA[
+	Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New()
+	Set ..Offerte.VerzendingItem.Code = 4
+	Set ..Offerte.VerzendingItem.Duurtijd = 3
+	Set ..Offerte.VerzendingItem.VerkoopPrijs = 40
+	Set ..Offerte.VerzendingItem.Omschrijving = "DHL Freight" 
+	Set ..Offerte.VerzendingItem.AantalPalletten = 1
+	Do ..Offerte.Save()
+
+	#dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
+	
+	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")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte bevat een TekstLijn met aantal palletten 99">
+<Implementation><![CDATA[
+	Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New()
+	Set ..Offerte.VerzendingItem.Code = 4
+	Set ..Offerte.VerzendingItem.Duurtijd = 3
+	Set ..Offerte.VerzendingItem.VerkoopPrijs = 40
+	Set ..Offerte.VerzendingItem.Omschrijving = "DHL Freight" 
+	Set ..Offerte.VerzendingItem.AantalPalletten = 99
+	Do ..Offerte.Save()
+
+	#dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
+	
+	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")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte bevat geen TekstLijn met pallet(ten) voor offerte met aantal palletten 0">
+<Implementation><![CDATA[
+	Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New()
+	Set ..Offerte.VerzendingItem.Code = 4
+	Set ..Offerte.VerzendingItem.Duurtijd = 3
+	Set ..Offerte.VerzendingItem.VerkoopPrijs = 40
+	Set ..Offerte.VerzendingItem.Omschrijving = "DHL Freight" 
+	Set ..Offerte.VerzendingItem.AantalPalletten = 0
+	Do ..Offerte.Save()
+
+	#dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
+	
+	Do $$$AssertEquals(Order.GeefKlantID(),..Offerte.KlantID)
+
+	If $$$AssertTrue($IsObject(Order)) {
+		#dim OrderLijnIterator As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
+		While OrderLijnIterator.HasNext() {
+			#dim OrderLijn As DOM.VKP.TekstOrderlijn = OrderLijnIterator.Next()
+			Do $$$AssertNotContains(OrderLijn.GeefTekst(),"Pallet")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte bevat geen TekstLijn met pallet(ten) voor offerte zonder 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 OrderLijnIterator As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
+		While OrderLijnIterator.HasNext() {
+			#dim OrderLijn As DOM.VKP.TekstOrderlijn = OrderLijnIterator.Next()
+			Do $$$AssertNotContains(OrderLijn.GeefTekst(),"Pallet")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: MaakOrderVanOfferte bevat geen TekstLijn met pallet(ten) voor offerte met VerzendItem zonder palletten">
+<Implementation><![CDATA[
+	Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New()
+	Set ..Offerte.VerzendingItem.AantalPalletten = ""
+	Do ..Offerte.Save()
+
+	#dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
+	
+	Do $$$AssertEquals(Order.GeefKlantID(),..Offerte.KlantID)
+
+	If $$$AssertTrue($IsObject(Order)) {
+		#dim OrderLijnIterator As TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
+		While OrderLijnIterator.HasNext() {
+			#dim OrderLijn As DOM.VKP.TekstOrderlijn = OrderLijnIterator.Next()
+			Do $$$AssertNotContains(OrderLijn.GeefTekst(),"Pallet")
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r37624 -r37872
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37624)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37872)
@@ -140,6 +140,7 @@
 			Do Order.ZetLeveringVoorwaarde(##class(DOM.CRM.enu.LeveringVoorwaarde).KostInManueleLijn())
 			Do Order.ZetVerzendingWijze(..VerzendwijzeItemNaarVerzendWijze(Offerte.VerzendingItem))
 			Do ..VoegToeVerzendingAlsManueleLijn(Order, Offerte)
+			Do ..VoegToeTekstLijnMetPalletten(Order, Offerte)
 		}
 
 		Do ..TekstLijnenToevoeger.VoegToeOpmerkingLijnenAanOrder(Order, Offerte)
@@ -161,8 +162,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeTekstLijnMetPalletten">
+<FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If Offerte.VerzendingItem.AantalPalletten > 0 {
+		Do Order.MaakNieuweTekstLijn("Aantal palletten is " _Offerte.VerzendingItem.AantalPalletten)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeVerzendingAlsManueleLijn">
 <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