Index: KLANT.mac.rou
===================================================================
diff -u -r29059 -r39155
--- KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 29059)
+++ KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 39155)
@@ -98,9 +98,9 @@
 
  ; KLData doorgegven als .local (KLNr of geindexeerde local, dit i.v.m. openen klanten)
  ; Type = BL.Legacy.enu.CodexType
-PRIJSKL(KLData,PRNr,NoSa,Type)
+PRIJSKL(KLData,PRNr,NoSa,Type,IsDefault)
  	New Klant,KLNr,KlantID,SchaduwPrijsKlasse,PrijsKlasse,PrijsKlasseBepaler
- 	Set DefaultBr=$G(DefaultBr),KLNr=$G(KLData)
+ 	Set KLNr=$G(KLData)   ; ,DefaultBr=$G(DefaultBr)    ; komt nergens (?) meer voor in de code, noch in de "Search"-Globals. 
    	
    	If KLNr {
 		set KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
@@ -136,7 +136,7 @@
  Set:$G(Type) Type = ##class(BL.Legacy.enu.CodexType).Standaard()
  
  If $G(BIndex) New R Merge R=KLData New KLData,DeltaBIndex Merge KLData=R set DeltaBIndex = $select($data(KLData(0)):1,1:0) Set $P(KLData((BIndex\100)-DeltaBIndex),D,BIndex#100)=Value
- Set PrijsKl = $$PRIJSKL(.KLData,,NoSa,.Type)
+ Set PrijsKl = $$PRIJSKL(.KLData,,NoSa,.Type,.IsDefault)
  Set Kodex=##class(DOM.VKP.enu.PrijsCodex).LogicalToDisplay(PrijsKl)
  Set:IsDefault Kodex="["_Kodex_"]"
  Set KLNr=$G(KLData) Set:'KLNr KLNr=$P($G(KLData(0)),D) Set:'KLNr KLNr=$P($G(KLData(1)),D)