klant ; ;[ 05/23/2000  4:41 PM ]
 ;
GETVERZW(PostKode,KLNr) 
 New R,VerzW,KlantId
 Set PostKode=$G(PostKode),KLNr=$G(KLNr),VerzW="OD"
 Set:KLNr KlantId=^KK1(KLNr),R=^KKL(KlantId,0),PostKode=$P(R,D,6)
 Do:$L(PostKode)
 .Set:PostKode?.N PostKode="B-"_PostKode Set PostKode=$P(PostKode,"-",1,2)
 .Set:$L(PostKode,"-")=1 PostKode=PostKode_"-*"
 .Set R=$G(^RES("KLANT","PI","POSTKODE","D",PostKode))
 .If R="" For  Do  Quit:$L(R)  Quit:PostKode=""
 ..Set R=$G(^RES("KLANT","PI","POSTKODE","D",PostKode_"*"))
 ..Quit:$L(R)
 ..Set PostKode=$E(PostKode,1,$L(PostKode)-1)
 .Set:$L(R) VerzW=$P(R,"`",3,6)
 Quit VerzW
 ;