Index: CHUI/Orgalux/PrintSelect.cls.xml
===================================================================
diff -u -r734 -r795
--- CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 734)
+++ CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 795)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:54">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-04 15:06:05">
 <Class name="CHUI.Orgalux.PrintSelect">
 <Description>
 d OrgaluxPrintSelect^CHUI.Projects()</Description>
 <IncludeCode>%occInclude,%Prod.Product,APPS.PM.OL.Common,DOM.PM.OL,DOM.DomeinContext</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%CHUI.TForm</Super>
-<TimeChanged>62115,53389.942801</TimeChanged>
+<TimeChanged>62126,54409.850443</TimeChanged>
 <TimeCreated>60290,55550.636499</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -260,7 +260,7 @@
 
 	//Popups
 	Set ..pmTBXType=##class(%CHUI.TPopup).Create(%this,"pmTBXType","Design",..lblDesign.Top,..#Col2,1,25)
-	Set ..pmTBXType.opMultiSelect=0
+	Set ..pmTBXType.opMultiSelect=1
 	Do ..pmTBXType.InitSpec(,,,10)
 	Do ..pmTBXType.AddItem(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),"TANDEMBOX antaro")
 	Do ..pmTBXType.AddItem(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),"TANDEMBOX intivo")
@@ -272,9 +272,9 @@
 	Do ..pmLadeDiepte.InitSpec(,,,10)
 	Do ..pmLadeDiepte.AddItem(45,"45")
 	Do ..pmLadeDiepte.AddItem(50,"50")
+	Do ..pmLadeDiepte.AddItem(55,"55")
 	Do ..pmLadeDiepte.AddItem(60,"60")
 	Do ..pmLadeDiepte.AddItem(65,"65")
-	Do ..pmLadeDiepte.AddItem(70,"70")
 	Do ..pmLadeDiepte.DefaultFrames()
 	
 	Set ..pmKleur=##class(%CHUI.TPopup).Create(%this,"pmKleur","Kleur",..lblKleur.Top,..#Col2,2,25)
@@ -353,6 +353,7 @@
 
 	set ExportFilter.HogeLageLade = ..pmLadeType.Value
 	set ExportFilter.LadeDesign = ..pmTBXType.Value
+	set ExportFilter.LadeDesigns = ..pmTBXType.Value
 	set ExportFilter.LadeDieptes = ..pmLadeDiepte.Value
 	set ExportFilter.LadeKleuren = ..pmKleur.Value
 	set ExportFilter.WandDiktes = ..pmWandDikte.Value
@@ -364,30 +365,33 @@
 	set ExportFilter.OokSchaduwPrijzen = ..chkSchaduw.Checked
 	set ExportFilter.HogeResolutieBeelden = ..chkHiRes.Checked
 	
-	set Klant = $$$CRMGeefKlant(ExportFilter.KlantNr)
-	
-	if ..pmTaal.Value = "K" { set lbTalen = $listbuild(Klant.GeefTaal()) }
-	elseif ..pmTaal.Value = ("NF") {
-		set lbTalen = $listbuild(##class(DOM.enu.Taal).Nederlands(),##class(DOM.enu.Taal).Frans()) }
-	else { set lbTalen = $listbuild(..pmTaal.Value) }
-	
-	set ExportFilter.Talen = lbTalen
-	
-	
 	quit ExportFilter
 ]]></Implementation>
 </Method>
 
 <Method name="acExcelExecute">
 <FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
+	
 	set ExportFilter = ..cvtValuesToExportFilter()
 	
+	if ..pmTaal.Value = "K" { 
+		set Klant = $$$CRMGeefKlant(ExportFilter.KlantNr)
+		set lbTalen = $listbuild(Klant.GeefTaal())
+		}
+	elseif ..pmTaal.Value = ("NF") {
+		set lbTalen = $listbuild(##class(DOM.enu.Taal).Nederlands(),##class(DOM.enu.Taal).Frans()) }
+	else { set lbTalen = $listbuild(..pmTaal.Value) }
+	
 	Do $$$CreateFM("Opbouw tekstbestand","Selecteren ORGALUX producten, even geduld...")
 	
 	set Exporter = ##class(APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW).%New()
-	do Exporter.ExportPrijsLijst(ExportFilter)
 	
+	for ctrTalen = 1 : 1 : $listlength(lbTalen) {
+		set ExportFilter.Taal = $listget(lbTalen,ctrTalen)
+		do Exporter.ExportPrijsLijst(ExportFilter)
+	}
+	
 	Do $$$DestroyFM
 	
 	/*
@@ -730,5 +734,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="589044155"/>
+<Checksum value="204610906"/>
 </Export>