use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content);
use Loader qw(line_in log_update valid_steuernr);

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

	content ( my $steuernr = line_in "Umsatzsteuer-ID: " ) or return;
	if ( $steuernr ne '-' ) {
		my $valid = valid_steuernr($steuernr);
		return if defined $valid && !$valid;
	}

	log_update("kunde","id",$id,undef,"steuernr",undef,
		DoFn("select steuernr from kunde where id=$id"));
	Do("update kunde set steuernr=${\qquote $steuernr,1} where id=$id");

	1;
}

1;
