use utf8;
use warnings; no warnings "redefine";
use strict;
use Cf qw($WDESCR);
use Dbase::Globals qw(add_acct find_descr find_dienst);
use Dbase::Help qw(isodate);
use Loader qw(line_in select_date);

sub acct_verzug($;$) {
	my($id,$kn) = @_;

	my $datum = select_date (4,"Datum");
	return unless defined $datum;

	my $cost = line_in "Kosten (Pfennig): ";
	return undef if $cost == 0;

	my($jj,$mm,$tt) = isodate $datum;
	$mm += 100*$jj;
	my $dien = find_dienst "verzug";
	my $quelle = 0+find_descr("quelle",$WDESCR);

	add_acct ($id,$dien,ord('*'),$mm,$tt,$quelle,$cost,1,"");
}
1;
