Index: APPS/PM/OL/Export/Bouwstenen.cls.xml
===================================================================
diff -u
--- APPS/PM/OL/Export/Bouwstenen.cls.xml	(revision 0)
+++ APPS/PM/OL/Export/Bouwstenen.cls.xml	(revision 1693)
@@ -0,0 +1,185 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.OL.Export.Bouwstenen">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="OrgaluxProductIterator">
+<Type>TECH.Iterator</Type>
+</Property>
+
+<Property name="ProdMulti">
+<Type>BL.Kenm.ProdMulti</Type>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()	
+	Set ..OrgaluxProductIterator = ..ProductAPI.GeefOrgaluxProductIterator()
+	Set ..ProdMulti = ##class(BL.Kenm.ProdMulti).Create("OL")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Query name="GeefAlle">
+<Type>%Query</Type>
+<SqlProc>1</SqlProc>
+<Parameter name="CONTAINID" value="0"/>
+<Parameter name="ROWSPEC" value="ProductNr:%Integer,Korttekst:%String,Classificatie:%String,Kleur:%String,Omschrijving:%String,Inkortbaar product:%String,Aantal inkortbaar:%Integer,Extra product:%String,Aantal extra:%Integer,Korttekst1:%String,Aantal1:%String,TeVervangen1:%String,Korttekst2:%String,Aantal2:%String,TeVervangen2:%String,Korttekst3:%String,Aantal3:%String,TeVervangen3:%String,Korttekst4:%String,Aantal4:%String,TeVervangen4:%String,Korttekst5:%String,Aantal5:%String,TeVervangen5:%String,Korttekst6:%String,Aantal6:%String,TeVervangen6:%String,Korttekst7:%String,Aantal7:%String,TeVervangen7:%String,Korttekst8:%String,Aantal8:%String,TeVervangen8:%String,Korttekst9:%String,Aantal9:%String,TeVervangen9:%String,Korttekst110:%String,Aantal110:%String,TeVervangen110:%String,Korttekst11:%String,Aantal11:%String,TeVervangen11:%String,Korttekst12:%String,Aantal12:%String,TeVervangen12:%String,Korttekst13:%String,Aantal13:%String,TeVervangen13:%String,Korttekst14:%String,Aantal14:%String,TeVervangen14:%String,Korttekst15:%String,Aantal15:%String,TeVervangen15:%String,Korttekst16:%String,Aantal16:%String,TeVervangen16:%String,Korttekst17:%String,Aantal17:%String,TeVervangen17:%String,Korttekst18:%String,Aantal18:%String,TeVervangen18:%String,Korttekst19:%String,Aantal19:%String,TeVervangen19:%String,Korttekst20:%String,Aantal20:%String,TeVervangen20:%String"/>
+</Query>
+
+<Method name="GeefAlleExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	Set %BouwsteenInfo = ..%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAlleFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>GeefAlleExecute</PlaceAfter>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set BouwsteenInfo = %BouwsteenInfo
+	If ('BouwsteenInfo.OrgaluxProductIterator.HasNext())
+	{
+		Set Row = ""
+		Set AtEnd = 1
+	}
+	Else
+	{
+		Set OrgaluxProduct = BouwsteenInfo.OrgaluxProductIterator.Next()
+		
+		// Geen producten op maat verwerken
+		While ($IsObject(OrgaluxProduct)) && (('OrgaluxProduct.%Extends("DOM.PM.OLProduct.OLProduct")) || (OrgaluxProduct.GeefActiefStatus() '= ##class(DOM.PM.enu.ActiefStatus).Actief()))
+		{
+			If ('BouwsteenInfo.OrgaluxProductIterator.HasNext())
+			{
+				Set OrgaluxProduct = ""
+				Set Row = ""
+				Set AtEnd = 1
+			}
+			Else
+			{
+				Set OrgaluxProduct = BouwsteenInfo.OrgaluxProductIterator.Next()
+			}
+		}
+		
+		If ($IsObject(OrgaluxProduct))
+		{
+			Set KenmPRNr = OrgaluxProduct.GeefPRNr()
+			Set lbMultiples = BouwsteenInfo.ProdMulti.GetMultiplesLB(KenmPRNr) If (lbMultiples '= "")  Set KenmPRNr = $LI(lbMultiples,1)
+			Set Kleur = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"Kleur"),1)
+			
+			Set Row = $Lb(OrgaluxProduct.GeefPRNr(),OrgaluxProduct.GeefKorttekst(),$$DISPLP^KLASS(OrgaluxProduct.GeefPRNr()),Kleur,OrgaluxProduct.GeefOmschrijving(),"","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","")
+			
+			Set InkortInfo = OrgaluxProduct.GeefInkortInfo()
+			
+			Set InTeKortenKinderen = InkortInfo.GeefInTeKortenKinderen()
+			If (InTeKortenKinderen.Count() > 0)
+			{
+				Set $LI(Row,6) = InTeKortenKinderen.GetAt(1).GeefProduct().GeefKorttekst()
+				Set $LI(Row,7) = InTeKortenKinderen.GetAt(1).GeefAantal()
+			}
+			
+			Set ExtraKinderen = InkortInfo.GeefToeTeVoegenKinderen()
+			If (ExtraKinderen.Count() > 0)
+			{
+				Set $LI(Row,8) = ExtraKinderen.GetAt(1).GeefProduct().GeefKorttekst()
+				Set $LI(Row,9) = ExtraKinderen.GetAt(1).GeefAantal()
+			}
+			
+			Set SortedBSArray = ##class(%ArrayOfDataTypes).%New()
+			
+			Set PRNr = OrgaluxProduct.GeefPRNr()
+		 	Set Label = $Order(^PRBS("BS",PRNr,""))
+			While (Label '= "")
+			{ 	
+				Set Rec = ^PRBS("BS",PRNr,Label)
+				Set InkortbaarOptie = $Piece(Rec, "\", 23)
+				If ($Piece(Rec,"\",3) = "K") && (InkortbaarOptie '= ##class(DOM.PM.Bouwstenen.enu.InkortbaarOptie).ExtraProduct()) && (InkortbaarOptie '= ##class(DOM.PM.Bouwstenen.enu.InkortbaarOptie).Inkortbaar())
+				{
+					Set ListBuild = $LB("","","")
+					
+					Set Product = %BouwsteenInfo.ProductAPI.GeefProduct($Piece(Rec,"\",1))
+					Set $LI(ListBuild,1) = Product.GeefKorttekst()
+					Set $LI(ListBuild,2) = $Piece(Rec,"\",2)
+					
+					Set $LI(ListBuild,3) = $S((InkortbaarOptie = ##class(DOM.PM.Bouwstenen.enu.InkortbaarOptie).TeVervangen()):"Ja",1:"Nee")
+					
+					Do SortedBSArray.SetAt(ListBuild,Product.GeefKorttekst())
+				}
+				Set Label = $Order(^PRBS("BS",PRNr,Label))
+			}
+			
+			Set LI = 10
+			
+			Set BouwsteenInfoIterator = ##class(TECH.ListIterator).%New(SortedBSArray)
+			While (BouwsteenInfoIterator.HasNext()) && (LI < 70)
+			{
+				Set BouwsteenInfo = BouwsteenInfoIterator.Next()
+				Set $LI(Row,LI) = $LG(BouwsteenInfo,1)
+				Set $LI(Row,LI+1) = $LG(BouwsteenInfo,2)
+				Set $LI(Row,LI+2) = $LG(BouwsteenInfo,3)
+				
+				Set LI = LI + 3
+			}
+		}
+		
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAlleClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>GeefAlleExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %BouwsteenInfo
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.PM.OL.Export.BouwstenenD</DataLocation>
+<DefaultData>BouwstenenDefaultData</DefaultData>
+<IdLocation>^APPS.PM.OL.Export.BouwstenenD</IdLocation>
+<IndexLocation>^APPS.PM.OL.Export.BouwstenenI</IndexLocation>
+<StreamLocation>^APPS.PM.OL.Export.BouwstenenS</StreamLocation>
+<Data name="BouwstenenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>OrgaluxProductIterator</Value>
+</Value>
+<Value name="3">
+<Value>ProdMulti</Value>
+</Value>
+<Value name="4">
+<Value>ProductAPI</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>