KKLAK ;MODULE KLANTENAKTIVITEIT;KKLAK; [ 02/08/2002  3:57 PM ]
 ;
 New zb,Aktivit
 Set Aktivit=$$AKTIVIT(.B)
 Set K=$$PI^vhPOPUP("C;C","-DOZ1","Aktiviteit","KLANT","AKTIVITEIT",Aktivit)
 If $L(K) Set K=$P(^RES("KLANT","PI","AKTIVITEIT","D",K),"`",2)
 Else  If zb="CANC" Set K="-"
 Set Locals("K")=K
 Quit
 ;
AKTIVIT(B) 
 New Aktivit,Kode,Quit
 Set Aktivit=$P($G(B(2)),D,11),Kode=""
 For  Set Kode=$O(^RES("KLANT","PI","AKTIVITEIT","D",Kode)) Quit:Kode=""  Do  Quit:Quit
 .Set Quit=Aktivit=$P(^RES("KLANT","PI","AKTIVITEIT","D",Kode),"`",2)
 Quit Kode
 ;