Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(revision 0)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(revision 64137)
@@ -0,0 +1,149 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="NaleveringDataArray">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DateTimeApi:TECH.DateTime.DateTimeAPI="",OrderApi:DOM.VKP.OrderAPI="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DateTimeApi = $$$Inject(DateTimeApi, ##class(TECH.DateTime.impl.DateTimeAPI).%New())
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulNaleveringDataAanIndienNodig">
+<FormalSpec>Bon:DOM.VKP.Bon,pxLevOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
+<Implementation><![CDATA[
+	#dim NaleveringTekstLijn As %String = ""
+	
+	Do ..VulNaleveringDataArrayMetRelevanteOrderLijnenData(Bon)
+	
+	Do ..VulPxLevOrdAanMetNaleveringDataTekstLijnen(pxLevOrd)
+		
+	/*
+	Set NaleveringDto = NaleveringDataBepaler.GeefNaleveringDto(Bon OrderId) 
+	For each (item in NaleveringDto) {
+		Set NalevTekstlijn = ..MaakTekstLijnVanNaleveringItem(NalevItem)
+		Do Lijnen.Insert(NalevTekstLijn)
+	}
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="VulNaleveringDataArrayMetRelevanteOrderLijnenData">
+<FormalSpec>Bon:DOM.VKP.Bon</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderIteratorOpBon,ProductOrderLijnenIterator As TECH.Iterator
+	#dim ProductOrderLijn As DOM.VKP.Orderlijn
+	#dim Product As DOM.PM.Product
+	#dim ProductId As DOM.common.ProductID
+	#dim Korttekst As %String
+	#dim OrderId As %Integer
+	#dim AantalOpOrderLijn As %Decimal
+	#dim LeverdatumOpOrderLijn As %Date
+	
+	Set ..NaleveringDataArray = ##class(%ArrayOfDataTypes).%New()
+	
+	Set OrderIteratorOpBon = Bon.GeefOrderIterator()
+	While OrderIteratorOpBon.HasNext() {
+		Set OrderId = OrderIteratorOpBon.Next()
+		
+		Set ProductOrderLijnenIterator = ..GeefProductOrderLijnenIterator(OrderId)
+		While ProductOrderLijnenIterator.HasNext() {
+			Set ProductOrderLijn = ProductOrderLijnenIterator.Next()
+			Set ProductId = ProductOrderLijn.GeefProductID()
+			Set AantalOpOrderLijn = 0
+			Set LeverdatumOpOrderLijn = ""
+			
+			If ..ProductApi.BestaatProduct(ProductId) {
+				Set Product = ..ProductApi.GeefProduct(ProductId)
+				Set Korttekst = Product.GeefKorttekst()
+				Set AantalOpOrderLijn = ProductOrderLijn.GeefAantal()
+				Set LeverdatumOpOrderLijn = ProductOrderLijn.GeefLeverdag()
+				
+				Do ..ZetLeveringDataOpNaleveringDataArray(Korttekst, AantalOpOrderLijn, LeverdatumOpOrderLijn)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeveringDataOpNaleveringDataArray">
+<FormalSpec>Korttekst:%String,AantalOpOrderLijn:%Decimal,LeverdatumOpOrderLijn:%Date</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DisplayLeverdatum As %String = $Replace($$EXTDATE^vhLib.DataTypes(LeverdatumOpOrderLijn,"DK4"),"-","/")
+	
+	If ($$$Not(..NaleveringDataArray.IsDefined(Korttekst))) {
+		Do ..NaleveringDataArray.SetAt(##class(%ListOfDataTypes).%New(), Korttekst)
+		Do ##class(TECH.ArrayUtils).%New()
+	}
+	
+	If (AantalOpOrderLijn > 0) {
+		Do ..NaleveringDataArray.GetAt(Korttekst).Insert(AantalOpOrderLijn _ "||" _ DisplayLeverdatum)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VulPxLevOrdAanMetNaleveringDataTekstLijnen">
+<FormalSpec>pxLevOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="GeefProductOrderLijnenIterator">
+<FormalSpec>OrderId:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
+	#dim Order As DOM.VKP.Order
+	
+	If ..OrderApi.BestaatOrder(OrderId) {
+		Set Order = ..OrderApi.GeefOrder(OrderId)
+		Set ProductOrderLijnenIterator = Order.GeefProductOrderLijnIterator()
+	}
+	
+	Quit ProductOrderLijnenIterator
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTekstLijn">
+<FormalSpec>TekstLijn:%String,pxOrd:BL.Flow.Proxy.pxLevOrd</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LijnObj As BL.Flow.Proxy.pxProductLijn = ##class(BL.Flow.Proxy.pxTekstLijn).BuildFromString(TekstLijn)
+	Do pxOrd.AppendLijn(LijnObj)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>