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

sub list_fnbatch($;$) {
	my($idi,$kn) = @_;
	line_printer;
	
	DoSelect {
		my($timestamp,$buchen,$mandant,$status,$art,$err,$len)  = @_;
		print $Db::pr_fh "ID       : $idi\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Buchen   : ".scalar isotime($buchen)."\n" if defined $buchen;
		print $Db::pr_fh "Mandant  : #$mandant:".get_descr("fnmandant",$mandant)."\n";
		print $Db::pr_fh "Status   : ".get_descr("fnstatus",$status)."\n" if defined $status;
		print $Db::pr_fh "Art      : $art\n" if $art ne "";
		print $Db::pr_fh "Fehler   : $err\n" if $err ne "";
		print $Db::pr_fh "Daten    : $len Bytes\n" if $len;
	} "select timestamp,buchen,mandant,status,art,fehler,length(daten) from fnbatch where id=$idi"
		or problem "Fnbatch '$idi' unbekannt";
}
1;
