Index: PRBS.mac.rou
===================================================================
diff -u -r1961 -r2394
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1961)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 2394)
@@ -3,10 +3,11 @@
  Do VERWERK() q
  ;
 HasHalfFabr(PRNr,NoSa)
-	New HasHalfFabr,BSKey
+	New HasHalfFabr,BSKey,IsGlas
+	Set BSNode=$S($G(NoSa)="S":"BSS",1:"BS")
+	Quit:$P($$GENTYP^HAD(PRNr),"\")="GLA"&&$D(^PRBS(BSNode,PRNr)) 1 ; uitzondering PV 25/9/2011
 	Set HasHalfFabr=""
 	Set BSKey=""
-	Set BSNode=$S($G(NoSa)="S":"BSS",1:"BS")
 	For  Set BSKey=$O(^PRBS(BSNode,PRNr,BSKey)) Quit:BSKey=""  Do  Quit:HasHalfFabr
 	. Set HasHalfFabr=$P(^PRBS(BSNode,PRNr,BSKey),"\",3)="H"
 	Quit HasHalfFabr
@@ -19,8 +20,6 @@
 	. Set Rec=^PRBS("BS",Moeder,Index)
 	. If $P(Rec,D,1)=Kind Set KindGevonden=1 If $P(Rec,D,3)="K" Set Result=$P(Rec,D,2)
 	Quit Result
- 
- 
 	
 VERWERK(MPRNr,Raadpl,FabKey) 
  New %SC,zb,sMod,NoMod,BSDefCod,BSSelect,Input,List,Result,DataNoSa,CalcNoSa
@@ -418,6 +417,7 @@
  . Else  Do
  . . Set DataNoSa=""
  ;zw ^HULP(%J,"C") r k
+ Set HistTitel=""
  Quit
  
 RebuildWizard
@@ -467,7 +467,7 @@
  Quit
  
 SAVE(PRNr,NoSa)  ; Opslaan van cache in ^PRBS en vervolgens in PRLINK en HADPR
- New %TC,R,Save,Next,KPRNr,Aantal,OrgVerp,MinStock,Ask,BSNode
+ New %TC,R,Save,Next,KPRNr,Aantal,OrgVerp,MinStock,Ask,BSNode,OldPrijs,NewPrijs
  ;zw ^HULP(%J,"C") w !,"Nosa:",$G(NoSa),! r k
  
  Set sMod=0
@@ -486,7 +486,12 @@
  .If $P(Rec,D,3)="L" Do
  .. Do SAVELNK(PRNr,$P(Rec,D,1),$P(Rec,D,12),NoSa) ; link opslaan (recursief)
  . Else  Do
- .. Merge ^PRBS(BSNode,PRNr,BSCode)=^HULP(%J,"C",BSCode) ; bouwsteen opslaan, alsook de onderliggende dimensie
+ . . Merge ^PRBS(BSNode,PRNr,BSCode)=^HULP(%J,"C",BSCode) ; bouwsteen opslaan, alsook de onderliggende dimensie
+ . . Set OldPrijs=$P($G(^PRBS(BSNode,PRNr,BSCode)),"\",23) ; bijgehouden detailprijs
+ . . Set NewPrijs=$P($G(^HULP(%J,"V",BSCode)),D,1)
+ . . If NewPrijs Do
+ . . . Set $P(^PRBS(BSNode,PRNr,BSCode),D,23)=NewPrijs ; detailprijs bijhouden
+ . . . Do:(OldPrijs'="")&&(NewPrijs'="")&&(+OldPrijs'=+NewPrijs) DLOGMOD^LOG("PR",PRNr,,OldPrijs,NewPrijs,"BS:"_$P(BSCode,"."))
  ; opslaan hoofdnode
  Set:$D(^PRBS(BSNode,PRNr)) ^PRBS(BSNode,PRNr)=^HULP(%J,"C")
  ; aanpassing van LinkType in het producten bestand
@@ -646,7 +651,7 @@
  .If $P(BSRec,D,3)="L" Do
  .. Do SAVELNK(ToPRNr,$P(BSRec,D,1),$P(BSRec,D,12),ToNoSa) ; link opslaan (recursief)
  . Else  Do
- .. Merge ^PRBS(ToBSNode,ToPRNr,BSCode)=BSRec ; bouwsteen opslaan, alsook de onderliggende dimensie
+ .. Merge ^PRBS(ToBSNode,ToPRNr,BSCode)=^PRBS(FromBSNode,FromPRNr,BSCode) ; bouwsteen opslaan, alsook de onderliggende dimensie
  ; opslaan hoofdnode
  Set ^PRBS(ToBSNode,ToPRNr)=^PRBS(FromBSNode,FromPRNr)
  ; aanpassing van LinkType in het producten bestand