foreach $feldname (@{$dbdef_bp{_field}})
       {
        local $fnr = $dbdef_bp{_fnr}{$feldname};      # Feldnummer holen
        $FeldNr = "";
        $Sprache = "";
        get "Feldname==$feldname & Sprache==$sprache", $drDBFELDREFPFAD;
        if (($Feldname ne $feldname) && ($Sprache ne $sprache))
          {
           $feld_def[0] = 1;
           $db_def[$fnr] = [@feld_def];
          }
        else
          {    
           &kop_felddef_arr ($fnr, $dbg);
          }
       }