use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn);
use Loader qw($base acct_betrag);
use Cf qw($MWST $EURO);

BEGIN {
	do "$base/acct/text_vars";
}

sub acct_text_fuss($$;$$) {
	my($kid,$sum,$mwst,$dm) = @_;
	my $outdata;

	$outdata .= <<END;
$xxspc--------------------------------------------------------
END
	if(defined $mwst) {
		$outdata .= sprintf <<END, acct_betrag($sum), int($MWST*100), acct_betrag($mwst) if defined $mwst;
$xspc                              Gesamt netto  %12s
$xspc                              + %2d %% USt    %12s
$xspc                              --------------------------
END
	} else {
		$mwst=0;
	}
	if(not $dm) {
		$outdata .= sprintf <<END, acct_betrag($sum+$mwst);
$xspc                              Gesamt EUR    %12s
$xspc                              ==========================
END
	} else {
		$outdata .= sprintf <<END, acct_betrag(($sum+$mwst)/$EURO), acct_betrag($sum+$mwst);
    EUR %-12s $xspc         Gesamt DM     %12s
$xspc                              ==========================
END
	}

	return $outdata;
}

1;
