pve 
 
PERSS
 New KLNr,Optie
 
 Write @F11,@F1
 
 Set KLNr=11708
 
 Set Optie("VWBEPERK")="BH"
 Set Optie("FILTER")=1
 Set Optie("PIECE")="5,6"
 Set Optie("CONNECT")="E"
 
 Write $$SELECT^PERSS("K",KLNr,.Optie)
 
 Quit
 
TEST(KLNr,voorkeur="")
 New Optie
 
 Write @F11,@F1
 
 ;Set KLNr=1000
 Set Optie("DOCVOORKEUR")=voorkeur
 
 Write $$SELECT^PERSS("K",KLNr,.Optie)
 
 Quit