sub ausgabesumme { print "Vor Artikel: Umsatzsumme:$umsatzsumme, Wert:$wert\n"; if ($storno_kz == 0 && $neuerkunde == 0) { if ($pfand_kz == 1) { $summepfand++; $umsatzpfand=$umsatzpfand+$pfand_wert; $summe = $summe + $wert + $pfand_wert; } else { $summe = $summe + $wert; } print "Bearbeitung 1: '$umsatzsumme' + '$wert'\n"; $umsatzsumme = $umsatzsumme + $wert; print "Umsatzsumme: $umsatzsumme\n"; $Produkt_zaehler[$pid] = $Produkt_zaehler[$pid] + 1; $anzeigesumme = formatbetrag($summe); $vorzeichen = ''; } elsif ($storno_kz == 1 && $neuerkunde == 0) { $summestorno++; if ($pfand_kz == 1) { $summepfand--; $umsatzpfand=$umsatzpfand-$pfand_wert; $summe = $summe - $wert - $pfand_wert; } else { $summe = $summe - $wert; } $umsatzsumme = $umsatzsumme - $wert; $Produkt_zaehler[$pid] = $Produkt_zaehler[$pid] - 1; $anzeigesumme = formatbetrag($summe); $vorzeichen = '-'; } if ($neuerkunde == 0) { $logsatz = &datum.';'.$wahl.';'.$vorzeichen.$wert.';'.$pfand_kz.';'.$vorzeichen.$pfand_wert."\n"; } if ($neuerkunde == 1) { if ($printerstate == 1) { open(AUSGABE, ">>$printer"); print AUSGABE eval('"\x1B\x70\x00\x32\x32"'); close(AUSGABE); } $logsatz = &datum.';'."-Neuer Kunde-\n"; } open (AUSGABE, ">>log.txt"); print AUSGABE $logsatz; close (AUSGABE); print "Nach Artikel: Umsatzsumme:$umsatzsumme, Wert:$wert\n"; }