#!/usr/bin/perl -w

BEGIN {
	unshift(@INC,($ENV{'POPHOME'}||'@POPHOME@').'/lib')
		unless $ENV{'KUNDE_NO_PERLPATH'};
}

###
### spuckt die aktuellen Datensätze Kunde/LetztesRechnungsdatum aus.
###
# Usage: rddump         > DATEI
#

use utf8;
use strict;
use warnings;
use Dbase::Help;
use Dbase::Globals;
use Getopt::Std;

our($opt_h,$opt_n);
(getopts("hn") and not $opt_h) or die "Usage: $0 -h -n > DATEI\n";

print DoFn("select max(rnr) from rechnungen"),"\n";

DoSelect {
	my($id,$zl) = @_;
	$zl = "NULL" unless defined $zl;
	print "$id $zl\n";
} "select id,zuletzt from kunde";
print "<=>\n";

DoSelect {
	my($id,$nr) = @_;
	$nr = "NULL" unless defined $nr;
	print "$id $nr\n";
} "select id,nextrech from tarifkunde";
print "<=>\n";

Do("update kunde set skip = 'n'") unless $opt_n;
