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

    perl(1)
