tkprijs ; ;[ 02/08/2001  3:46 PM ]
 Quit
 ;
START New
 Do INIT^vhTERMINA
 Kill ^tkprijs("EXIT")
 Set KLNr=0
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do  Quit:Exit
 .Set Exit=$G(^tkprijs("EXIT"))
 .Quit:Exit  Quit:'$D(^KK1(KLNr))  Quit:'$D(^KSTKL(KLNr))  Quit:$D(^tkprijs("K",KLNr))
 .Write !,KLNr,?6,$$EXTTIME^vhLib.DataTypes()
 .Do ONECUST(KLNr)
 Quit
 ;
STOP 
 Set ^tkprijs("EXIT")=1
 Quit
 ;
HANG 
 Set ^tkprijs("HANG")=1
 Quit
 ;
GO 
 Kill ^tkprijs("HANG")
 Quit
 ;
ONECUST(KLNr) 
 New R,Old,New,Ok,NOk,PrMunt,LandKey,LandKode,KlMunt,KlPrMunt,KlNaam,LevNaam,KortTxt,IsBrutPr
 New OldPrijs,NewPrijs,Round
 Set R=^KKL(^KK1(KLNr),0),KlNaam=$P(R,D,2),LandKey=$P(R,D,8),LandKode=$P(^ISO(0,"ISO.LAND",LandKey,0),D)
 Set R=^KKL(^KK1(KLNr),2),IsBrutPr=$P(R,D,5)
 Set (PRNr,Ok,NOk)=0
 For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 .If $G(^tkprijs("HANG")) Do
 ..Write !,?6,$$EXTTIME^vhLib.DataTypes(),?13,"Hang"
 ..For  Quit:'$G(^tkprijs("HANG"))  Hang 5
 ..Write !,?6,$$EXTTIME^vhLib.DataTypes(),?13,"Go"
 .Quit:'$D(^KPR(PRNr))
 .Merge ^KBA=^befba
 .Set Old=$$KLANTPR^KPRIJS(KLNr,PRNr),OldPrijs=$P(Old,D,1+(3*IsBrutPr))
 .Merge ^KBA=^eurba
 .Set New=$$KLANTPR^kprijs(KLNr,PRNr),NewPrijs=$P(New,D,1+(3*IsBrutPr))
 .Do:+OldPrijs'=+NewPrijs
 ..Set KlPrMunt=$P(Old,D,2),Round=$P(Old,D,10),OCifPPL=$P(Old,D,13),NCifPPL=$P(New,D,13)
 ..Set (LEVNr,PrMunt)="" Set:$E($O(^KPR(PRNr,"J")))="J" LEVNr=$P(^($O(^KPR(PRNr,"J"))),D),PrMunt=$P(@$ZR,D,17)
 ..Set KortTxt=$P(^KPR(PRNr,0),D),LevNaam=$P(^KLE(^KL1(LEVNr),0),D,2)
 ..Set R=OldPrijs_D_NewPrijs_D_KlPrMunt_D_Round_D_(NewPrijs-OldPrijs)_D_(1-(OldPrijs/NewPrijs))
 ..Set R=R_D_OCifPPL_D_NCifPPL_D_LEVNr_D_LevNaam_D_PrMunt_D_KortTxt
 ..Set NOk=NOk+1,^tkprijs("K",KLNr,PRNr)=R,^tkprijs("P",PRNr,KLNr)="",^tkprijs("L",LEVNr,LandKode,KlPrMunt)=LevNaam_D_PrMunt
 .Else  Set Ok=Ok+1
 Set R=^KKL(^KK1(KLNr),0),KlNaam=$P(R,D,2),KlMunt=$P(R,D,11)
 Set:NOk ^tkprijs("K",KLNr)=Ok_D_NOk_D_(Ok+NOk)_D_KlMunt_D_KlNaam
 Quit
 ;