KSEKT ;MODULE KLANTENSEKTOR;KSEKT; [ 11/15/2001  8:33 AM ]
 ;
NEW
 New zb
 Set K=$P(B(1),D,20) Set:K="" K=0
 Set K=$$PI^vhPOPUP("C;C","-KO1","Regio","KLANT","REGIO",K)
 Set:$G(zb)="CANC" K="-"
 Set Locals("K")=K
 Quit
 ;
OLD
 New zb
 Set K=$P(B(1),D,21) Set:K="" K=0
 Set K=$$PI^vhPOPUP("C;C","-KO1","Regio oud","KLANT","REGIOOLD",K)
 Set:$G(zb)="CANC" K="-"
 Set Locals("K")=K
 Quit
 ;