use utf8;
use strict;
use warnings; no warnings qw(redefine);
use Dbase::Help qw(DoFn);
use Fehler qw(problem);
use Loader qw(strip_kn);

sub valid_buchung($$;$$) {
	my($rech,$seq,$flag,$kn) = @_;
	$flag = 0 unless $flag;
	my $err;

	return problem $kn,"Rechnungsnummer '$rech' ist nicht numerisch!\n" unless $rech =~ /^\d+$/;
	return problem $kn,"Position '$seq' ist nicht numerisch!\n" unless $seq =~ /^\d+$/;
	return problem $kn,"Buchung '$rech/$seq' existiert nicht.\n" 
		unless DoFn("select writeonly count(*) from buchung where rnr = $rech and seq = $seq");

	$kn = strip_kn($kn)."Buchung_${rech}_$seq";

	unless($flag&1) {
	}

	$err ? wantarray ? () : undef : wantarray ? ($rech,$seq) : $rech;
}
1;
