use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn Do quote);
use Loader qw(log_update editor valid_arechnung);

sub set_arechnung_text ($;$) {
	my($rech,$kn) = @_;
	return unless valid_arechnung($rech);

	my $data = DoFn("select rtext from rechnungen where rnr = $rech");

	unless(defined $data) {
		print "Text von Rechnung $rech nicht vorhanden, NEU.\n\n";
	}
	$data = editor($data, "Editor Rechnung #$rech...");
	return undef unless defined $data;

	log_update("rechnungen","rnr",$rech,undef,"rtext");
	Do("update rechnungen set rtext='${\quote $data}' where rnr=$rech");
	$rech;
}
1;
