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

Stefan Gipper <stefanos@cpan.org>, http://www.coder-world.de/

COPYRIGHT

Business::Tax::VAT::Validation::DE is Copyright (c) 2010 Stefan Gipper
All rights reserved.

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

SEE ALSO