# Flags:
# 1 auch Altdaten

use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Globals qw(get_descr);
use Dbase::Help qw(isotime DoSelect);
use Loader qw(line_printer);

sub list_fnbatches(;$$) {
	my($flag,$kn) = @_;
	$flag=0 unless defined $flag;
	line_printer;

	my $hdr;
	my $res = DoSelect {
		my ($id,$ts,$wann,$status,$mandant,$art,$err) = @_;
		print $Db::pr_fh <<END unless $hdr++;
 ID   M Status     Datum      Zeit  Job
END
			goto out unless
		printf $Db::pr_fh "%3d %3d %-10s %16s %s\n", $id, $mandant, get_descr("fnstatus",$status),scalar isotime($wann||$ts,2),$art;
		printf $Db::pr_fh "        %s\n", $err if $err ne "" and $status == 3;
	} "select id,timestamp,buchen,status,mandant,art,fehler from fnbatch order by timestamp,id"
		or print "(leer)\n";
out:
	$res;
}
1;
