<select name="work_xtyp:=">
<loop db=bgvtyp sort=v3gruppe,v3typ code=perl>
out "<option value='$v3gruppe|$v3typ'";
out " selected" if($v3gruppe eq $xgruppe && $v3typ eq $xtyp);
out ">$v3gruppe $v3typ</option>";
</loop></select>

$select_xtyp = '<select name="work_xtyp:=">';
get "Id==* sort=v3gruppe,v3typ", "bgvtyp";
while (get_next("bgvtyp"))
   {
   $select_xtyp .= '<option value=\"$v3gruppe|$v3typ';
   $select_xtyp .= ' selected' if($v3gruppe eq $xgruppe && $v3typ eq $xtyp);
   $select_xtyp .= '\">$v3gruppe $v3typ</option>';
   }
$select_xtyp .= "</select>";