PVKREDI ;Krediet overzicht van klanten die op kredietlimietstaan [ 11/08/2003   8:27 PM ]
          ; Kontrole kredietwaardigheid
 ; Output : Kredietwaardig 0 = neen, 1 = ja
 ;          Openstaand saldo
 ;          Kredietlimiet
 ;          Openstaand vervallen saldo
 Set Dev=$$OPEN^vhDEV(,"KREDIETLIM.TXT","W")
 Use Dev
 Set KLId=""
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set KL=$P(^KKL(KLId,2),D,7)
 .Quit:'$L(KL)
 .Set Rec=$$WAARDIG^KREDIET($P(^KKL(KLId,0),D,1))
 .Write $P(^KKL(KLId,0),D,1),$C(9),$P(^KKL(KLId,0),D,2),$C(9),$P(^KKL(KLId,0),D,20),$C(9),$P(Rec,D,3),$C(9),$P(Rec,D,2),$C(9),$S($P(Rec,D,1):"",1:"!"),!
 Close:0'[Dev Dev
 Quit