<perl>
 get "Id==#", "Kunden";
 if ($_amount_query == 0) {
  $KNR="000000000";
 }
 $LetzteNummer=substr($KNR,0,5); #Diese Zeile für "davor" benutzen
 $LetzteNummer=substr($KNR,length($KNR)-5,5); #Diese Zeile für "danach" benutzen
 if ($_amount_query == 0) {
  $NeueNummer=$KNR;
 } else {
  $NeueNummer="00000".($LetzteNummer + 1);
 }
 $NeueNummer=substr($NeueNummer,length($NeueNummer)-5,5);
 $NeueKNR=$NeueNummer.$EingegebeneNummer; #Diese Zeile für "davor" benutzen
 $NeueKNR=$EingegebeneNummer.$NeueNummer; #Diese Zeile für "danach" benutzen
</perl>