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

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

	return undef unless check_perm("rechnung");

	my $auftrag = line_in "Auftrag: ";
	return undef unless $auftrag;

	log_update("rechnungen","rnr",$rech,undef,"auftragsnr",undef,
		DoFn("select auftragsnr from rechnungen where rnr=$rech"));
	Do("update rechnungen set auftragsnr=${\qquote $auftrag,1} where rnr=$rech");
}
1;
