use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Fehler qw(problem);
use Dbase::Help qw(DoFn Do);

sub renumber_arechnung($;$) {
	my($rech,$kn) = @_;

	my $rechn = line_in "Neue Rechnungsnummer: ";
	return undef if $rechn !~ /^\d+$/;

	return problem "Die RNR $rechn gibt es aber schon!!!\n"
		if DoFn("select kunde from rechnungen where rnr = $rechn");
	
	log_update("rechnungen","rnr",$rechn,undef,"rnr",undef,$rech);
	Do("update rechnungen set rnr = $rechn where rnr = $rech");
}
1;
