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

sub acct_gutschrift($;$) {
	my($id,$kn) = @_;
	my $datum = select_date(1|256,"Datum",undef,qw(= jetzt));
	return undef unless defined $datum;
	$datum = DoTime if $datum eq "=";

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

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

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