KSCHADC ;DOORVOEREN SCHADUWPRIJSKLASSE ;KSCHADC; [ 10/10/97  3:10 PM ]
 ;
 Set R=$$SELECT^SELALG("KL",.Check,"Doorvoeren schaduwprijsklasse klanten","",1,1,1)
 Set FromKl=$P(R,D),ToKl=$P(R,D,2),GloRef=$P(R,D,3)
 If GloRef["KL)" Set GloRef=$P(GloRef,"KL)")_"NextKl)"
 Set:$G(GloRef)="" GloRef="^KKL(NextKl)"
 Set NextKl=FromKl,Klanten=0
 Set FP=2103 Write @F,@F1,"KLANT :"
 For  Do  Quit:NextKl]ToKl!(NextKl="")
 .Set KLNr=$$FETCHNR^SELALG(GloRef)
 .Do FETCHKL^UTILI(KLNr)
 .If $L($G(Check)),'$$CHECK^UTILI("Check") Set NextKl=$$NEXT^SELALG(GloRef) Quit
 .Do ONECUST(KLNr)
 .Set NextKl=$$NEXT^SELALG(GloRef)
 Quit
 ;
ONECUST(KLNr)
 New R,%TC,KlKey,KlNaam,SchPrijsKl,SchPrijsKlOrgalux,SchPrijsKlTAOR
 Set KlKey=^KK1(KLNr),R=^KKL(KlKey,2),SchPrijsKlOrgalux=$P(R,D,24),SchPrijsKl=$P(R,D,25),SchPrijsKlTAOR=$P(R,D,33)
 If SchPrijsKl="",SchPrijsKlOrgalux="",SchPrijsKlTAOR=""
 Else  Do
 . Set KlNaam=$P(^KKL(KlKey,0),D,2),FP=2111
 . Write @F,@F2,KlNaam
 . For  Do ADD^vhLock("^KKL(KlKey)") Quit:%TC  Do LDISP^vhLock("^KKL(KlKey)","Klant")
 . Do:SchPrijsKlOrgalux'="" MODFIELD^KLANT(KLNr,304,SchPrijsKlOrgalux),MODFIELD^KLANT(KLNr,324,"")
 . Do:SchPrijsKl'="" MODFIELD^KLANT(KLNr,303,SchPrijsKl),MODFIELD^KLANT(KLNr,325,"")
 . Do:SchPrijsKlTAOR'="" MODFIELD^KLANT(KLNr,332,SchPrijsKlTAOR),MODFIELD^KLANT(KLNr,333,"")
 . Do REMOVE^vhLock("^KKL(KlKey)")
 Quit
 ;