$stmt = "
	select r.id,
		r.Vorzeichenbruttosumme *
                  sum ( decode(r.Abrechnungineuro, 'x', r.Sonderrabatt1ResultEURO, r.Sonderrabatt1Result)   +
                        decode(r.Abrechnungineuro, 'x', r.Sonderrabatt2ResultEURO, r.Sonderrabatt2Result)   +
                        decode(r.Abrechnungineuro, 'x', r.StreckenrabattResultEURO, r.StreckenrabattResult) +
                        decode(r.Abrechnungineuro, 'x', r.MengenrabattResultEURO, r.MengenrabattResult)     +
                        decode(r.Abrechnungineuro, 'x', r.RegionalrabattResultEURO, r.RegionalrabattResult) +
                        decode(r.Abrechnungineuro, 'x', r.ProduktionsrabattResultEURO, r.ProduktionsrabattResult) )
	from	Rechnung r
	where	r.id = 1 
    group by r.ID,		 r.Vorzeichenbruttosumme

";

use DBI;

$lda = DBI->connect(undef, 'usr/pwd@dblink',undef, 'Oracle');
die unless $lda;

$cur = $lda->prepare($stmt) || die "$DBD::Oracle::errstr\n";

$cur->execute or die "$DBD::Oracle::errstr\n";

print "prepare/execute succeeded. Please press any key>";
$b = <STDIN>;

0;