NAME

Business::Tax::VAT::Validation::DE - de vat check

SYNOPSIS

use Business::Tax::VAT::Validation::DE;
my $deVAT = "DE123456789";# UstId_1
my $myVAT = "ATU12345678";# UstId_2

# short
my($back,%data) = bffcheck($deVAT,$myVAT);

# or long
my($back,%data) = bffcheck($deVAT,$myVAT,$Firmenname,$Ort,$PLZ,$Strasse,$Druck);# $Druck "ja" for yes or "nein" for no

if($back){
	print "OK\n";
}else{
	print "Not OK\n";
}
for (keys %data){
	print "$_: $data{$_}\n";
}

See Errorcodes %data{'ErrorCode'} http://evatr.bff-online.de/eVatR/xmlrpc/codes
and datafields in %data http://evatr.bff-online.de/eVatR/xmlrpc/aufbau

DESCRIPTION

Business::Tax::VAT::Validation::DE de vat check

AUTHOR

-

COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

SEE ALSO