Index: Flow/Offerte/LijnProductGA/tmpDev.mac.rou
===================================================================
diff -u -r1155 -r2155
--- Flow/Offerte/LijnProductGA/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1155)
+++ Flow/Offerte/LijnProductGA/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 2155)
@@ -10,7 +10,7 @@
 KLANTPRxKPRIJS(KLNrPrs,GenPRNr,KPrijsVH)
 	New PrijsRec
 	$$$InitOldLocals
-	Set PrijsRec=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2))
+	Set PrijsRec=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2))
 	Quit PrijsRec
  
  
@@ -219,5 +219,4 @@
 TTraceW(msg)
 	d TTrace(.msg)
 	;w msg,!
-	Quit
- 
\ No newline at end of file
+	Quit
\ No newline at end of file
Index: WV HALUXKaderdeur.prj.xml
===================================================================
diff -u
--- WV HALUXKaderdeur.prj.xml	(revision 0)
+++ WV HALUXKaderdeur.prj.xml	(revision 2155)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="WV HALUXKaderdeur" LastModified="2011-09-21 11:04:52">
+  <Items>
+    <ProjectItem name="/csp/hadev/Quotation.csp" type="CSP"/>
+    <ProjectItem name="Prod.GADef.AfgeleidDef" type="CLS"/>
+    <ProjectItem name="Prod.GADef.BT.BeperkAfm" type="CLS"/>
+    <ProjectItem name="Prod.GADef.BT.BeperkAfm.tmpDev.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.BT.ProductieWijze" type="CLS"/>
+    <ProjectItem name="Prod.GADef.Banco" type="CLS"/>
+    <ProjectItem name="Prod.GADef.KadPrijs" type="CLS"/>
+    <ProjectItem name="Prod.GADef.KaderDeur" type="CLS"/>
+    <ProjectItem name="Prod.GADef.KaderDeur.KostPrijs.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.KaderDeur.TemplGeneral.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.KaderDeur.TemplSVDX.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.KaderDeur.TemplateDB.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.KaderDeur.Templates.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.KaderDeur.tmpDev.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.Vulling" type="CLS"/>
+    <ProjectItem name="Prod.GADef.emBanDtl" type="CLS"/>
+    <ProjectItem name="Prod.GADef.emKadBeslag" type="CLS"/>
+    <ProjectItem name="Prod.GADef.emKadBeslagPos" type="CLS"/>
+    <ProjectItem name="Prod.GADef.emKadBoring" type="CLS"/>
+    <ProjectItem name="Prod.GADef.emKadBoring.tmpDev.MAC" type="MAC"/>
+    <ProjectItem name="Prod.GADef.emKadPrijsDtl" type="CLS"/>
+    <ProjectItem name="Prod.GADef.emKadVulling" type="CLS"/>
+    <ProjectItem name="Prod.GADef.emKadVulling.tmpDev.MAC" type="MAC"/>
+    <ProjectItem name="ProdKD.tmpDev.MAC" type="MAC"/>
+    <ProjectItem name="Res.Munt" type="CLS"/>
+    <ProjectItem name="Res.PI.Abstract" type="CLS"/>
+    <ProjectItem name="Res.PI.BancoDtl" type="CLS"/>
+    <ProjectItem name="Res.PI.Beslag" type="CLS"/>
+    <ProjectItem name="Res.PI.Beslag.tmpDev.MAC" type="MAC"/>
+    <ProjectItem name="Res.PI.Definitie" type="CLS"/>
+    <ProjectItem name="Res.PI.FreesTool" type="CLS"/>
+    <ProjectItem name="Res.PI.Items" type="CLS"/>
+    <ProjectItem name="Res.PI.Kost" type="CLS"/>
+    <ProjectItem name="Res.PI.OphangPlaats" type="CLS"/>
+    <ProjectItem name="Res.PI.ProfAfw" type="CLS"/>
+    <ProjectItem name="Res.PI.ProfType" type="CLS"/>
+    <ProjectItem name="Res.PI.ReceptieGroep" type="CLS"/>
+    <ProjectItem name="Res.PI.Taal" type="CLS"/>
+    <ProjectItem name="Res.PI.TemplateBanco" type="CLS"/>
+    <ProjectItem name="Res.PI.TemplateKader" type="CLS"/>
+    <ProjectItem name="Res.PI.Toepas" type="CLS"/>
+    <ProjectItem name="Res.PI.Verbind" type="CLS"/>
+    <ProjectItem name="Res.PI.VertalingsGroep" type="CLS"/>
+    <ProjectItem name="Res.PI.VertalingsType" type="CLS"/>
+    <ProjectItem name="Res.PI.Vulling" type="CLS"/>
+    <ProjectItem name="Res.PI.VullingExtra" type="CLS"/>
+    <ProjectItem name="Res.PI.emKostDetail" type="CLS"/>
+    <ProjectItem name="Res.PI.emVullingLevering" type="CLS"/>
+    <ProjectItem name="VHSys.Library.VMLLib.MAC" type="MAC"/>
+    <ProjectItem name="WS.PR.KADWeb" type="CLS"/>
+    <ProjectItem name="WS.PR.KADWeb.CalcPrijs" type="CLS"/>
+    <ProjectItem name="WS.PR.KADWeb.PeekServer" type="CLS"/>
+    <ProjectItem name="csp.quotation" type="CLS"/>
+    <ProjectItem name="cspBasis.KadQuotation" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r1782 -r2155
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 1782)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2155)
@@ -364,7 +364,7 @@
  . // Else : gewone user --> standaard prijsberekening (zowel AKPrijs als VKPrijs bijhouden) 
  . Set KPrijsVH=$G(Prod.Cumuls("KPrijs"))
  . Set KLNrPrs=$S(sDomVERW'="VHEPN":sDomKLNr, (WS.KLNummer?1.N)&&(WS.KLNummer>0):WS.KLNummer, 1:4645)
- . Set AKPrs=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",1)
+ . Set AKPrs=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",1)
  . Set VKPrs=$$bfwCalcVKPrijsKlant(KPrijsVH,AKPrs)
  Else  Do
  . Set VKPrs="ERROR"
@@ -396,7 +396,7 @@
 			 ;d WL^vhDBG("Show Cumuls")
 			 ;d WL^vhDBG($$ArrayToText^vhLib("Cumuls(""KPrijs"")",Prod,"Cumuls"))
 			Set PrijsCP=$G(Prod.Cumuls("KPrijs",2,1,5))+$G(Prod.Cumuls("KPrijs",2,1,6))   ; CP links + CP rechts 
-			Set AKPrsCP=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(PrijsCP,0,2)),"\",1)
+			Set AKPrsCP=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(PrijsCP,0,2)),"\",1)
 			Set VKPrijsCP=$$bfwCalcVKPrijsKlant(PrijsCP,AKPrsCP)
 			If VKPrijsCP>0 {
 				  d WL^vhDBG("KPrijs CP : "_VKPrijsCP_" (is berekend via Cumuls)")
@@ -424,14 +424,14 @@
 	Quit:(sDomVERW="VHEPN") AKPrs
 	
 	// BENELUX handels zonder korting, i.e. zonder klantinfo (dus Anonymous) 
-	Quit:(sDomVERW="DUPO" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs)
-	Quit:(sDomVERW="HFLE" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs)
-	Quit:(sDomVERW="HELMY") $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs)
+	Quit:(sDomVERW="DUPO" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs)
+	Quit:(sDomVERW="HFLE" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs)
+	Quit:(sDomVERW="HELMY") $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs)
   
 	// BENELUX handels met korting, i.e. met klantinfo 
 	New HandelVKPrijs,KPrijsData,HandelVKPrijs
 	If (sDomVERW="MBHO")||(sDomVERW="HFLB" ) {
-		Set KPrijsData=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2))
+		Set KPrijsData=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2))
 		Set HandelVKPrijs=$J($$$HandelLijstPrijs(KPrijsData)*KLReductie,0,2)
 		// Als de "HandelVKPrijs met KLKorting" kleiner dan de HandelAKPrijs, dan wordt de KLKorting volledig ongedaan gemaakt. 
 		If HandelVKPrijs<$$$HandelAankoopPrijs(KPrijsData) { Set HandelVKPrijs=$$$HandelLijstPrijs(KPrijsData) }