use utf8;
use warnings; no warnings "redefine";
use strict;
use Fehler qw(problem);
use Dbase::Help qw(DoFn);
use Dbase::Globals qw(find_descr bignum);
use Loader qw(line_printer line_print_end acct_text);

sub list_arechnung_text ($;$) {
	my($rech,$kn) = @_;
	my($data,$flags) = DoFn("select rtext,flags from rechnungen where rnr = $rech");
	my($nbs) = DoFn("select count(*) from buchung where rnr = $rech");

	$data = acct_text($rech) if $flags & (bignum(1)<<find_descr("rstatus","manuell")) and $nbs;

	defined $data or return problem "Text von Rechnung $rech nicht vorhanden.\n";

	no warnings 'once';
	line_printer(1);
	print $Db::pr_fh $data;
	line_print_end();

	$rech;
}
1;
