ZBCHKREL ;KONTROLE VAN BESTANDEN (relaties) [ 07/02/93  1:34 PM ]
 ;
 Set RelId=""
 For  Set RelId=$O(^Derde.Klant.RelatiesD(RelId)) Quit:RelId=""  Do
 . Set RelRec=^Derde.Klant.RelatiesD(RelId)
 . ;Write !,RelId,!,$$LCVT^vhLib(RelRec)
 . Set Klant=$LI(RelRec,4),Relatie=$LI(RelRec,5),RelKlant=$LI(RelRec,7)
 . If Klant=13639 w !,$ZR,!,$$LCVT^vhLib(RelRec)
 . ;w !,Klant," - ",Relatie," - ",RelKlant
 . If '$D(^Derde.Klant.RelatiesI("KD",Klant," "_Relatie,RelId)) w !,$ZR
 . If '$D(^Derde.Klant.RelatiesI("KR",RelKlant,RelId)) w !,$ZR
 Quit