KLPUTZ7 ;Prijsuitzonderingen (Historiek) [ 09/24/2003  11:51 AM ]
 
 ; Momentopname van de huidige situatie
SAVEHIST(KLNr,NoSa)
 Merge ^KLPUTZ("H"_NoSa,KLNr,$H)=^KLPUTZ(NoSa,KLNr)
 Quit
 
SELHIST(KLNr,NoSa,Select)
 New zb,RPLHIST,TijdStip,Count
 Set:$G(NoSa)'="S" NoSa="N"
 Set TijdStip="",Count=1
 For  Set TijdStip=$O(^KLPUTZ("H"_NoSa,KLNr,TijdStip),-1) Quit:TijdStip=""  Do
 . Set Count=Count+1,RPLHIST(Count)=TijdStip_"`"_$$EXTDATE^vhLib.DataTypes(TijdStip)_", "_$$EXTTIME^vhLib.DataTypes(TijdStip)
 Do:$D(RPLHIST)
 . Set RPLHIST(1)="$H`"_$$EXTDATE^vhLib.DataTypes()_"  (Huidige)"
 . Set TijdStip=$$WILD^vhPOPUP("C;C","-1O",$S(NoSa="S":"Schaduw u",1:"U")_"itzonderingen op",.RPLHIST,$G(Select))
 . Quit:zb="CANC"
 Quit TijdStip