Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/NietmeeleverenToevoeger/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/NietmeeleverenToevoeger/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/NietmeeleverenToevoeger/Test.cls.xml	(revision 36170)
@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantID">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Method name="Test: Enkel LBX met niet meeleveren">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen, "NMFB")
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Do NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(WebOrder.NietMeeleveren,";"),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX en TBX met geen enkele niet meeleveren">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Do NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(WebOrder.NietMeeleveren,";"),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Enkel 1 TBX met niet meeleveren">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen, "NMFB;NMAK")
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Do NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(WebOrder.NietMeeleveren,";"),"NMFB;NMAK")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Enkel 2 TBX zonder niet meeleveren">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Do NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(WebOrder.NietMeeleveren,";"),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Enkel 2 TBX met 1x niet meeleveren">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen,"NMFB;NMAK")
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Do NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(WebOrder.NietMeeleveren,";"),"NMFB;NMAK")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Enkel 2 TBX met 2x dezelfde niet meeleveren">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen,"NMFB;NMAK")
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen,"NMFB;NMAK")
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Do NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(WebOrder.NietMeeleveren,";"),"NMFB;NMAK")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Enkel 2 TBX met 2x verschillende niet meeleveren">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen,"NMFB;NMAK")
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen,"NMCP;NMAK")
+	
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	
+	Set NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Do NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(WebOrder.NietMeeleveren,";"),"NMFB;NMAK;NMCP")
+]]></Implementation>
+</Method>
+
+<Method name="GeefAanvraag">
+<Private>1</Private>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
+<Implementation><![CDATA[
+	set Aanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	set Aanvraag.Header.KlantID = ..#KlantID
+	set Aanvraag.Header.PersonalityID = ..#PersonalityID
+	set Aanvraag.Order.GevraagdeLeverdatum = "2011.01.01"
+	
+	quit Aanvraag
+]]></Implementation>
+</Method>
+
+<Method name="VoegLadeTypeToe">
+<FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes,NietMeeleveren:%String=""]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.LadeType = LadeType
+	Set Product.LadeKleur = "MG"
+	Set Product.NietMeeleveren = ##class(TECH.ListUtils).PiecesToList(NietMeeleveren,";")
+	Set Orderlijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
+	Set Orderlijn.Product = Product
+	Do OrderLijnen.Insert(Orderlijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/NietmeeleverenToevoeger.cls.xml
===================================================================
diff -u
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/NietmeeleverenToevoeger.cls.xml	(revision 0)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/NietmeeleverenToevoeger.cls.xml	(revision 36170)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="VoegToeNietmeeleveren">
+<FormalSpec>Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,WebOrder:WS.TBX.Order</FormalSpec>
+<Implementation><![CDATA[
+	Quit:$$$Not($IsObject(Order))	
+	
+	Set ValueList = ##class(TECH.KeyValue.List).%New()
+	Do ValueList.InsertKeyValue("Product.LadeType","TBX")
+	
+	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(Order.Lijnen)
+	#dim FilterIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(Iterator,,Filter)
+	
+	#dim NietMeeleverenSamenstelling As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	While FilterIterator.HasNext() {
+		#dim Lijn As APPS.EDI.common.dto.ProductLijn = FilterIterator.Next()
+		Do ##class(TECH.ListUtils).AppendList(NietMeeleverenSamenstelling,Lijn.Product.NietMeeleveren)
+	}
+	
+	Set WebOrder.NietMeeleveren = ##class(TECH.ListUtils).RemoveDuplicateItems(NietMeeleverenSamenstelling)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>