my $REkdnummer = $rows->[1][0];
my $REkddatum = $rows->[1][1];
my $REkdfirma = $rows->[1][2];
my $REkdstrasse = $rows->[1][3];
my $REkdhausnummer = $rows->[1][4];
my $REkdplz = $rows->[1][5];
my $REkdort = $rows->[1][6];
my $REkdland = $rows->[1][7];
my $REkdansprechpartner = $rows->[1][8];
my $REkdtelefon = $rows->[1][9];
my $REkdfax = $rows->[1][10];
my $REkdemail = $rows->[1][11];

if (not defined $REkdnummer) {$REkdnummer = "-";}
if (not defined $REkddatum) {$REkddatum = "-";}
if (not defined $REkdfirma) {$REkdfirma = "-";}
if (not defined $REkdstrasse) {$REkdstrasse = "-";}
if (not defined $REkdhausnummer) {$REkdhausnummer = "-";}
if (not defined $REkdplz) {$REkdplz = "-";}
if (not defined $REkdort) {$REkdort = "-";}
if (not defined $REkdland) {$REkdland = "-";}
if (not defined $REkdansprechpartner) {$REkdansprechpartner = "-";}
if (not defined $REkdtelefon) {$REkdtelefon = "-";}
if (not defined $REkdfax) {$REkdfax = "-";}
if (not defined $REkdemail) {$REkdemail = "-";}

if ($REkdnummer eq "-") {goto Rechnungen;}

print "$REkdnummer \n";
print "$REkddatum \n";
print "$REkdfirma \n";
print "$REkdstrasse \n";
print "$REkdhausnummer \n";
print "$REkdplz \n";
print "$REkdort \n";
print "$REkdland \n";
print "$REkdansprechpartner \n";
print "$REkdtelefon \n";
print "$REkdfax \n";
print "$REkdemail \n";