In der BIB ist ein Shop enthalten den ich gerne nutzen möchte. Soweit funktioniert auch alles bis auf die MwSt.-Berechnung. Ich möchte nur den halben MwSt.-SAtz von 7% für Kunst ausgeben die Ausgabe stimmt aber nicht.
Kann mir jemand helfen?
Als Anlage der Quelltext von der MwSt.-Ausgabe....
<html><head><title>Wart.de - der Onlineshop für ausgewählte Kunst!</title>
<style>
body { background-color:#ffffff;font-family:Arial,sans-serif;font-size:12px;color:#5d5d5d }
td { font-size:12px }
a:link { text-decoration:none;color:#990000; }
a:visited { text-decoration:none;color:#990000; }
a:active {text-decoration:none; color:#FF8000; }
a:hover { text-decoration:none; color:#FF8000 }
</style>
<perl>
# kunden id (=session id, die eigentliche kundennummer errechnet sich aus der Id der Datenbank)
$kid||=$_cookies{kid};
get "KundenId==$kid", "kunden";
$begruessung="Herzlich Willkommen bei Wart.de";
$begruessung="Hallo $Name! Schön, dass Sie wieder vorbeischauen" if($_amount>0); # nutzer bekannt
$begruessung.=". Hier finden Sie eine erlesende Auswahl an Kunstwerken.<br><br>";
$begruessung="" if $_get{kid} ne ""; # nur bei der 1. seite die er zu sehen bekommt
$link="/cgi-bin/baseportal.pl?kid=$kid";
($user)=$htx=~ /\/(.*)\/.+/; # holt user & pfad, schneide seite weg
$line="<hr size=1 color=#d5d5d5 width=565>";
$firmaname="Wart.de - Onlineshop";
$emailadr='info@wart.de'; # eigene Emaildresse eintragen
$bestellnummer_basis=120000; # wird zur Id dazuaddiert, damits nich so peinlich aussieht ;-)
#$versandkosten="2,20"; # als text mit komma, wird zum rechnen gewandelt
$nachnahme="6,00";
$mwst_satz=16; # funktioniert nur mit ganzen zahlen!! 16.5 würde z.b. nich klappen !!!!!!!!Hier kann ich keine 7% eingeben ohne das die Rchnung falsch wird!!!!!!!
$adresse=<<EOF;
Kai Weingärtner
Am Obsthof 8
58675 Hemer
$konto=<<EOF;
Kai Weingärtner
Kto.6615298
BLZ 44551210
Bank Sparkasse Hemer
EOF
$unterschrift=<<EOF;
Kai Weingärtner
Wart.de
$signatur=<<EOF;
Wart.de - Inh. Kai Weingärtner
Am Obsthof 8
58675 Hemer
Steuernummer: 328/5272/1081, Kto.6615298, BLZ 44551210, Bank Sp.Hemer, EMail:info@wart.de
EOF
#$vko=$versandkosten; $vko=~ s/,/./;
$nna=$nachnahme; $nna=~ s/,/./;
sub berech
{
chop $Artikel; $ges=0;
foreach $artikel (split /#/,$Artikel)
{
my($a,$r)=split /\:/,$artikel;
get "Id==$r", "artikel";
$xp=$Preis; $xp=~ s/,/./; $ep=sprintf("%.2f",$a*$xp); $ep=~ s/\./,/;
$ges+=$a*$xp;
if($_[0]==1)
{
$output.=" $a * $Titel($Preis Euro) = $ep Euro\n";
} elsif($_[0])
{
out "<tr></td><td>$a</td><td nowrap><a href=\"$link&htx=/$user/detail&Rubrik=".convert_html($Rubrik)."&Id==$r\">$Name</a></td><td align=right nowrap>$Preis Euro</td></tr>";
} else
{
out "<tr></td><td>$a</td><td nowrap>$Name</td><td align=right nowrap>$Preis Euro</td><td align=right>$ep Euro</td></tr>";
}
}
</head><body>
<center>
<img src="http://wart4you.de/files/wartshop.gif">
$line
<perl>
foreach $page ("Shop*artikel|detail", "Infos*informationen", "Ringgrössen*groe", "Bestellen*best", "AGB*agb", "Impressum*impressum")
{
my($p1,$p2)=split /\*/,$page;
out ($htx=~ /$p2$/?"<b>$p1</b>":"<a href=\"$link&htx=/$user/$p2\">$p1</a>");
out " - " if $p2 ne "impressum";
}
</perl>
<br><br>
<perl>
Allgemeine Geschäftsbedingungen
§1 Allgemeines
.............etc.............
</perl>
