KBSBORS ;BEHEER PRIJSVERGELIJK KLANTEN (TERUG NAAR ORIGINELE SITUATIE) VOOR ALLE KLANTEN [ 12/14/95  9:32 AM ]
 ;
ALL Do INIT^vhTERMINA
 Set Txt(1)="Opkuis prijsvergelijk voor ALLE klanten"
 Set Txt(2)="  Alle produkten zonder reele verkoop verdwijnen!"
 Set Txt(3)="  Alle fiktieve aantallen komen terug op de reële!"
 Set Txt(4)="  Alle niet opgenomen produkten worden terug opgenomen!"
 Set But(1)="Opkuis&1"
 Set But(2)="Annuleer&0*"
 Set X=$$WILD^vhTXTPOP("","OPGELET","Txt","But")
 Quit:'X
 Set KLNr=0
 Set FP=2301 Write @F11,@F1,@F,"Aantal klanten opgekuist : "
 Set FP=2328
 Set Cnt=0
 For  Set KLNr=$O(^KSTKL(KLNr)) Q:KLNr=""  Do
 .Set Cnt=Cnt+1
 .If '(Cnt#10) Write @F,Cnt
 .Do ONE(KLNr)
 Quit
 
KLANT(KLNr) 
 New X,Txt,But
 Set Txt(1)="Opkuis prijsvergelijk voor "_$P(^KKL(^KK1(KLNr),0),D,2)
 Set Txt(2)="  Alle produkten zonder reele verkoop verdwijnen!"
 Set Txt(3)="  Alle fiktieve aantallen komen terug op de reële!"
 Set Txt(4)="  Alle niet opgenomen produkten worden terug opgenomen!"
 Set But(1)="Opkuis&1"
 Set But(2)="Annuleer&0*"
 Set X=$$WILD^vhTXTPOP("","OPGELET","Txt","But")
 Quit:'X
 Do ONE(KLNr)
 Quit
 
ONE(KLNr) New PRNr,Rec
 Set PRNr="" ; Ook de "0"-node
 For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 .S Rec=^KSTKL(KLNr,PRNr,0)
 .If '$L($P(Rec,D,1)) Kill ^KSTKL(KLNr,PRNr) Quit
 .Set:$P(Rec,D,8,9)'=D $P(Rec,D,8,9)=D,^KSTKL(KLNr,PRNr,0)=Rec
 Quit