Index: CHUI/Orgalux/PrintSelect.cls.xml
===================================================================
diff -u -r29059 -r29366
--- CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 29059)
+++ CHUI/Orgalux/PrintSelect.cls.xml	(.../PrintSelect.cls.xml)	(revision 29366)
@@ -344,6 +344,7 @@
 	Do ..pmTaal.AddItem("K","[Klant]")
 	Do ..pmTaal.AddItem("N","N")
 	Do ..pmTaal.AddItem("F","F")
+	Do ..pmTaal.AddItem("D","D")
 	Do ..pmTaal.AddItem("NF","N+F")
 	Do ..pmTaal.DefaultFrames()
 	Set ..pmTaal.Value="K"
@@ -418,16 +419,16 @@
  		Set Luxemburg = LocatieAPI.GeefLuxemburg()
  		
  		set LandKlant = Partij.GeefAdres().GeefLand().GeefID()
- 		if (LandKlant'=Belgie.GeefID())&&(LandKlant'=Nederland.GeefID()) { //&&(LandKlant'=1120) 
- 			if (..pmTaal.Value'="K")&&(..pmBTW.Value'="K") // Taal en BTW hebben een geldige waarde
- 			else  set errMessage=errMessage_"De ORGALUX prijslijst voor klanten buiten Belgie of"_$$$CRLF_"Nederland is enkel mogelijk indien men een taal en"_$$$CRLF_"BTW-tarief heeft gekozen"_$$$CRLF
+ 		if (LandKlant'=Belgie.GeefID())&&(LandKlant'=Nederland.GeefID())&&(LandKlant'=Luxemburg.GeefID()) { //&&(LandKlant'=1120) 
+ 			if (..pmBTW.Value'="K") // BTW heeft  een geldige waarde
+ 			else  set errMessage=errMessage_"De ORGALUX prijslijst voor klanten buiten BENELUX "_$$$CRLF_"is enkel mogelijk indien men BTW-tarief heeft gekozen"_$$$CRLF
  		}
  		if 0&&(LandKlant'=Belgie.GeefID())&&(LandKlant'=Nederland.GeefID()) //&&(LandKlant'=1120) 
  			{ set errMessage=errMessage_"Klant is niet afkomstig van Belgie of Nederland"_$$$CRLF }
  	 	if ..pmTaal.Value = "K" { 
 			set TaalKlant = Partij.GeefTaal()
-			if (TaalKlant'=##class(DOM.enu.Taal).Frans()) && ( TaalKlant '= ##class(DOM.enu.Taal).Nederlands()) {
-				set errMessage = errMessage_"Taalkeuze is niet Nederlands of Frans"_$$$CRLF
+			if (TaalKlant'=##class(DOM.enu.Taal).Frans()) && ( TaalKlant '= ##class(DOM.enu.Taal).Nederlands()) && ( TaalKlant '= ##class(DOM.enu.Taal).Duits()) {
+				set errMessage = errMessage_"Taalkeuze is niet Nederlands of Frans of Duits"_$$$CRLF
 			}
 			set ..ExportTalen = $listbuild(TaalKlant)
 		}
Index: Prod/Kenmerk/Product.cls.xml
===================================================================
diff -u -r29059 -r29366
--- Prod/Kenmerk/Product.cls.xml	(.../Product.cls.xml)	(revision 29059)
+++ Prod/Kenmerk/Product.cls.xml	(.../Product.cls.xml)	(revision 29366)
@@ -134,7 +134,7 @@
 </Method>
 
 <Method name="GetProduct">
-<ReturnType>%String</ReturnType>
+<ReturnType>Prod.Product</ReturnType>
 <Implementation><![CDATA[	Quit ..Product
 ]]></Implementation>
 </Method>
Index: DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml
===================================================================
diff -u -r29059 -r29366
--- DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml	(.../ProductenNaarPrijslijst.cls.xml)	(revision 29059)
+++ DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml	(.../ProductenNaarPrijslijst.cls.xml)	(revision 29366)
@@ -273,8 +273,7 @@
 	} Else {
 		set ProductInfo.EAN = oKenmerk.GetProduct().BarcodeWaarde
 		set ProductInfo.Omschrijving=oKenmerk.GetLangTekst()
-		set:..ExportFilter.KlantNr=12486 ProductInfo.Omschrijving=oKenmerk.GetOmschrijving()
-	
+
 		set LadeDieptes = oKenmerk.GetLadeDieptes() if LadeDieptes = 0 set LadeDieptes = ""
 		set ProductInfo.LadeDieptes = $$ListToPieces^vhLib(LadeDieptes,..WaardeDelim)
 		set ProductInfo.LadeBreedtes = ..GetLadeBreedteString(oKenmerk.GetLadeBreedteMin(),oKenmerk.GetLadeBreedteMax())
@@ -295,7 +294,7 @@
 		set ProductInfo.LadeType = $piece(ProductInfo.LadeType,..WaardeDelim,1,$length(ProductInfo.LadeType,..WaardeDelim)-1)
 	
 		set ProductInfo.GroepOmschrijving = oKenmerk.GetProductGroepOmschrijving()
-		set ProductInfo.Gewicht = oKenmerk.GetProduct().GewichtPerDuizendStuksInKG/1000
+		set ProductInfo.Gewicht = $$$ExcelNum(oKenmerk.GetProduct().GewichtPerDuizendStuksInKG/1000)
 	
 		set Statistiek = ..GetStatistiek(oKenmerk.GetProductNr(),..ExportFilter.KlantNr)
 		set ProductInfo.Aantal = +$piece(Statistiek,"\",1)