NAME

Zahlschein - a module for check digit computation

SYNOPSIS

use warnings;
use strict;
use Business::Zahlschein qw( PzMehrzweckfeld Mehrzweckfeld );

# fuer Berechnung mit Pruefziffer im Mehrzweckfeld
use Business::Zahlschein qw( PzMehrzweckfeld Mehrzweckfeld );
my $mehrzweckfeld = "01234567890";
my $kontoNr       = "00000012345";
$blz              = "10"."12000"; # ohne Betrag + BLZ
$belegart         = "42";
$pzMehrzweckfeld = PzMehrzweckfeld($mehrzweckfeld);
$lesezone        = Mehrzweckfeld($mehrzweckfeld, $pzMehrzweckfeld, $kontoNr, $blz, $belegart);

# fuer Berechnung ohne Pruefziffer im Mehrzweckfeld
use Business::Zahlschein qw( Mehrzweckfeld );
my $mehrzweckfeld = "012345678901";
my $kontoNr       = "00000012345";
$blz              = "10"."12000"; # ohne Betrag + BLZ
$belegart         = "42";
$lesezone        = Mehrzweckfeld($mehrzweckfeld, $pzMehrzweckfeld, $kontoNr, $blz, $belegart);

DESCRIPTION

...

AUTHOR AND LICENSE

copyright 2009 (c) Gernot Havranek