KKLTYP ;MODULE KLANTENTYPE;KKLTYP; [ 02/08/2002  3:57 PM ]
 ;
 New zb,Type
 Set Type=$P($G(B(2)),D,25) Set:Type="" Type="X"
 Set K=$$PI^vhPOPUP("C;C","-DOK1","Type","KLANT","TYPE",Type)
 If $L(K)
 Else  If zb="CANC" Set K="-"
 Set Locals("K")=K
 Quit
 ;