Index: CHUI/Orgalux/PrintSelect.cls.xml
===================================================================
diff -u -r795 -r802
--- CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 795)
+++ CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 802)
@@ -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-02-04 15:06:05">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-07 12:06:09">
 <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>62126,54409.850443</TimeChanged>
+<TimeChanged>62129,43617.931178</TimeChanged>
 <TimeCreated>60290,55550.636499</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -372,31 +372,48 @@
 <Method name="acExcelExecute">
 <FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
 <Implementation><![CDATA[
-	
+	set flagExport = 1
+	set txtMsgBox = ""
 	set ExportFilter = ..cvtValuesToExportFilter()
 	
 	if ..pmTaal.Value = "K" { 
 		set Klant = $$$CRMGeefKlant(ExportFilter.KlantNr)
-		set lbTalen = $listbuild(Klant.GeefTaal())
+		set TaalKlant = Klant.GeefTaal()
+		if (TaalKlant'=##class(DOM.enu.Taal).Frans()) && ( TaalKlant '= ##class(DOM.enu.Taal).Nederlands()) {
+			set flagExport = 0
+			set txtMsgBox = txtMsgBox_"Taalkeuze : "_TaalKlant_$$$CRLF
 		}
+		set lbTalen = $listbuild(TaalKlant)
+	}
 	elseif ..pmTaal.Value = ("NF") {
-		set lbTalen = $listbuild(##class(DOM.enu.Taal).Nederlands(),##class(DOM.enu.Taal).Frans()) }
-	else { set lbTalen = $listbuild(..pmTaal.Value) }
+		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()
-	
-	for ctrTalen = 1 : 1 : $listlength(lbTalen) {
-		set ExportFilter.Taal = $listget(lbTalen,ctrTalen)
-		do Exporter.ExportPrijsLijst(ExportFilter)
+	if flagExport {
+		set resBestanden = ""
+		do $$$CreateFM("Opbouw tekstbestand","Selecteren ORGALUX producten, even geduld...")
+		set Exporter = ##class(APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW).%New()
+		for ctrTalen = 1 : 1 : $listlength(lbTalen) {
+			set ExportFilter.Taal = $listget(lbTalen,ctrTalen)
+			set BestandsNaam = ""  // bestandsnaam op leegzetten zodat er een nieuwe gegeneerd wordt
+			do Exporter.ExportPrijsLijst(ExportFilter,.BestandsNaam)
+			set resBestanden = resBestanden _ BestandsNaam _ $$$CRLF
+		}
+		Do $$$DestroyFM
+		
+		set resDummy = $$$MsgBox("Aangemaakte bestanden",resBestanden,$lb($$$mbOk))			
+
+		
 	}
+	else {
+		set txtMsgBox = $piece(txtMsgBox,$$$CRLF,1,$length(txtMsgBox,$$$CRLF)-1) // laatste CLRF afstrippen
+		set resDummy = $$$MsgBox("Generatie prijslijst niet mogelijk",txtMsgBox,$lb($$$mbOk))	
+	}
 	
-	Do $$$DestroyFM
-	
 	/*
-	
-	
 	Set KLNr=..txtKlant.Value
 	Set NoSa=$S(..chkSchaduw.Checked:"S",1:"N")
 	
@@ -405,8 +422,6 @@
 	Set FileNm="Orgalux prijslijst "_KLNr_" "_$$UPTRIMAN^vhRtn1($P(^KKL(^KK1(KLNr),0),"\",2))_".txt"
 	Do $$$ChangeFM("Schrijven "_FileNm)
 	Do ..BldBestand(KLNr,.Sort,FileNm,NoSa,..chkExtraColumns.Checked,..pmTaal.Value,..pmLand.Value)
-	
-	
 	*/
 ]]></Implementation>
 </Method>
@@ -734,5 +749,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="204610906"/>
+<Checksum value="1071980549"/>
 </Export>