=head1 warn_kunde

C<warn_kunde( Tabelle ID Kunde [ID] )>

Gibt eine Warnung aus, wenn in der Spalte C<Kunde> des Datensatzes mit
der ID I<id> in der Tabelle I<Tabelle> ein anderer Wert als I<Kunde> steht.

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn);

sub warn_kunde($$$;$) {
	my($db,$id,$kid,$idname) = @_;
	$idname = "id" unless $idname;
	my $rk = DoFn("select kunde from $db where $idname = $id");
	my $wkid = $kid || "??";
	my $wrk = $rk || "??";
	$kid = 0 unless defined $kid;
	$rk = 0 unless defined $rk;
	print <<END if $kid != $rk;

*** Vorsicht: Du bearbeitest gerade Kunde #$wkid.
              Dieser Eintrag gehört aber zu Kunde #$wrk!

END
}
1;
