How to use this service ??? WSDL available

[Edje.Rommel]

Hello,

I've have a problem with a webservice. I just want to validate a VAT
number by country code and VAT numer. The return value should be like
"it's valid" and/or the name where it's registered to.

To do this i can access the webservice on the following location:
http://ec.europa.eu/taxation_customs...i/checkVatPort

A WSDL file is also available:
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl.

My question is how can i get the results i want. Can someone help me
with just the little module that does the request.

I already right-click on Web reference and added
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl, but
when i want to use checkvat(countr y,VAT), it exepect 3 other fields and
the return type seem to be date.

My understanding is that i only have to use 2 parameters (via XML ?),
and retrieve a string value (XML ?)

I just need something like
returnvalue = doRequest(count ry,VAT).valid
Name = returnvalue.Nam e
Valid = returnvalue.val id
etc.....
Thanks for all your help.

Regards,

Edje

[adm]

Edje wrote:

>
Did it work for you ?

Hi all,

I can confirm that this works:

Public Class Form1

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim check As New eu.europa.ec.ch eckVatService
Dim countryCode As String = "CZ"
Dim vatNumber As String = "991231123"
Dim valid As Boolean
Dim currentDate As Date
Dim name As String = String.Empty
Dim address As String = String.Empty

currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
Me.TextBox1.Tex t = currentDate.ToS tring
End Sub
End Class

It will put the date (as returned by the webservice) in the text box.
Thanks to Tom for the code.

adm

[Tom Shelton]

Edje wrote:

Tom Shelton schreef:

Edje wrote:

Tom Shelton schreef:
>
Tom Shelton wrote:
Ed*********@gma il.com wrote:
Hello,

I've have a problem with a webservice. I just want to validate a VAT
number by country code and VAT numer. The return value should be like
"it's valid" and/or the name where it's registered to.

To do this i can access the webservice on the following location:
http://ec.europa.eu/taxation_customs...i/checkVatPort

A WSDL file is also available:
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl.

My question is how can i get the results i want. Can someone help me
with just the little module that does the request.

I already right-click on Web reference and added
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl, but
when i want to use checkvat(countr y,VAT), it exepect 3 other fields and
the return type seem to be date.

My understanding is that i only have to use 2 parameters (via XML ?),
and retrieve a string value (XML ?)

I just need something like
returnvalue = doRequest(count ry,VAT).valid
Name = returnvalue.Nam e
Valid = returnvalue.val id
etc.....


Thanks for all your help.

Regards,

Edje
>
Option Strict On
Option Explicit On
>
Imports System
Imports ConsoleApplicat ion9.eu.europa. ec
>
Module Module1
>
Sub Main()
Dim check As New checkVatService ()
Dim countryCode As String = "CZ"
Dim vatNumber As String = "991 2311 23"
Dim valid As Boolean
Dim currentDate As Date
Dim name As String = String.Empty
Dim address As String = String.Empty
>
currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
>
If valid Then
Console.WriteLi ne(name)
Console.WriteLi ne(address)
Console.WriteLi ne(currentDate)
Else
Console.WriteLi ne("invalid vat")
End If
End Sub
>
End Module
>
What I don't now a valid VAT, so I can't really test it. I just get
back valid = false. I imported this into C#, and it shows the
arguments as:
>
DateTime checkVat (ref string countryCode, ref string vatNumber, out
bool valid, out string name, out string address)
>
In C#, that means that the method will fill in the out parameters, and
you must supply the ref parameters. In c# that means you must
initailize first, and it must be saved as a variable. VB.NET will let
you get away with it by creating a temp value for you. But, as you can
see I declare all these values in the above code.... So, based on the
C# code I'm assuming that the VB.NET code actually works?
>
--
Tom Shelton

Boy - I meant to point out that I'm using the vat numbers supplied adm.
Didn't mean to take credit for that :) I was just trying to take his
example a little farther.

--
Tom Shelton
>
>
Tom,
>
I tried this code (with proxy server), but i get the following error:
"The request failed with HTTP status 417: Expectation Failed."
The error is on the following row:
currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
>
Here is my code:
>
Option Strict On
Option Explicit On
Imports BTWCheck.eu.eur opa.ec
Imports System.Net
Imports System
>
>
Module Module1
>
Sub Main()
Dim check As New checkVatService ()
Dim countryCode As String = "BE"
Dim vatNumber As String = "4179951765 "
Dim valid As Boolean
Dim currentDate As Date
Dim datestring As String
Dim name As String = String.Empty
Dim address As String = String.Empty
' proxy settings
Dim cr As New System.Net.Netw orkCredential(" user", "pass",
"domain")
Dim pr As New System.Net.WebP roxy("10.0.0.9" , 8080)
pr.Credentials = cr
check.Proxy = pr
>
>
currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
If valid Then
Console.WriteLi ne(name)
Console.WriteLi ne(address)
Console.WriteLi ne(currentDate)
Else
Console.WriteLi ne("invalid vat")
End If
End Sub
>
>
End Module
>
Thanks for your help.
>
>
Ed

Sorry Ed, I'm hitting the limits of my knowledge of web services. I
haven't ever tried to use a web service through a proxy. I'm assuming
that there is something wrong with your proxy settings? I
unfortuantely don't have a proxy server to try your code against, so I
have no way of helping here. Hopefully, someone will be able to help
you further with this issue.

--
Tom Shelton

Tom,

I don't think the proxy server si the issue, because i've tried it also
from home, with no proxy server and i receive the same error message.

Did it work for you ?

Thanks,

Ed

Well - it worked in that I don't receive an error with the code I
originally posted. All I get back is valid = false. I checked the VAT
on the eropa site and it also says it is invalid. So, to be honest
unless I have a known valid VAT, I have know way of really knowing if
it worked or not... I was hoping you could take my code, and insert a
known good VAT (one that validates on the website) and see what you get
back.

--
Tom Shelton

[Edje]

Tom Shelton schreef:

Edje wrote:

Tom Shelton schreef:

Edje wrote:
Tom Shelton schreef:

Tom Shelton wrote:
Ed*********@gma il.com wrote:
Hello,
>
I've have a problem with a webservice. I just want to validate a VAT
number by country code and VAT numer. The return value should be like
"it's valid" and/or the name where it's registered to.
>
To do this i can access the webservice on the following location:
http://ec.europa.eu/taxation_customs...i/checkVatPort
>
A WSDL file is also available:
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl.
>
My question is how can i get the results i want. Can someone help me
with just the little module that does the request.
>
I already right-click on Web reference and added
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl, but
when i want to use checkvat(countr y,VAT), it exepect 3 other fields and
the return type seem to be date.
>
My understanding is that i only have to use 2 parameters (via XML ?),
and retrieve a string value (XML ?)
>
I just need something like
returnvalue = doRequest(count ry,VAT).valid
Name = returnvalue.Nam e
Valid = returnvalue.val id
etc.....
>
>
Thanks for all your help.
>
Regards,
>
Edje

Option Strict On
Option Explicit On

Imports System
Imports ConsoleApplicat ion9.eu.europa. ec

Module Module1

Sub Main()
Dim check As New checkVatService ()
Dim countryCode As String = "CZ"
Dim vatNumber As String = "991 2311 23"
Dim valid As Boolean
Dim currentDate As Date
Dim name As String = String.Empty
Dim address As String = String.Empty

currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)

If valid Then
Console.WriteLi ne(name)
Console.WriteLi ne(address)
Console.WriteLi ne(currentDate)
Else
Console.WriteLi ne("invalid vat")
End If
End Sub

End Module

What I don't now a valid VAT, so I can't really test it. I just get
back valid = false. I imported this into C#, and it shows the
arguments as:

DateTime checkVat (ref string countryCode, ref string vatNumber, out
bool valid, out string name, out string address)

In C#, that means that the method will fill in the out parameters, and
you must supply the ref parameters. In c# that means you must
initailize first, and it must be saved as a variable. VB.NET will let
you get away with it by creating a temp value for you. But, as you can
see I declare all these values in the above code.... So, based on the
C# code I'm assuming that the VB.NET code actually works?

--
Tom Shelton
>
Boy - I meant to point out that I'm using the vat numbers supplied adm.
Didn't mean to take credit for that :) I was just trying to take his
example a little farther.
>
--
Tom Shelton


Tom,

I tried this code (with proxy server), but i get the following error:
"The request failed with HTTP status 417: Expectation Failed."
The error is on the following row:
currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)

Here is my code:

Option Strict On
Option Explicit On
Imports BTWCheck.eu.eur opa.ec
Imports System.Net
Imports System


Module Module1

Sub Main()
Dim check As New checkVatService ()
Dim countryCode As String = "BE"
Dim vatNumber As String = "4179951765 "
Dim valid As Boolean
Dim currentDate As Date
Dim datestring As String
Dim name As String = String.Empty
Dim address As String = String.Empty
' proxy settings
Dim cr As New System.Net.Netw orkCredential(" user", "pass",
"domain")
Dim pr As New System.Net.WebP roxy("10.0.0.9" , 8080)
pr.Credentials = cr
check.Proxy = pr


currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
If valid Then
Console.WriteLi ne(name)
Console.WriteLi ne(address)
Console.WriteLi ne(currentDate)
Else
Console.WriteLi ne("invalid vat")
End If
End Sub


End Module

Thanks for your help.


Ed
>
Sorry Ed, I'm hitting the limits of my knowledge of web services. I
haven't ever tried to use a web service through a proxy. I'm assuming
that there is something wrong with your proxy settings? I
unfortuantely don't have a proxy server to try your code against, so I
have no way of helping here. Hopefully, someone will be able to help
you further with this issue.
>
--
Tom Shelton

Tom,

I don't think the proxy server si the issue, because i've tried it also
from home, with no proxy server and i receive the same error message.

Did it work for you ?

Thanks,

Ed

Well - it worked in that I don't receive an error with the code I
originally posted. All I get back is valid = false. I checked the VAT
on the eropa site and it also says it is invalid. So, to be honest
unless I have a known valid VAT, I have know way of really knowing if
it worked or not... I was hoping you could take my code, and insert a
known good VAT (one that validates on the website) and see what you get
back.

--
Tom Shelton

Tom,

Excuse me a lot, you were right. I made a mistake in my code. It works
perfectly, exactly what i needed !!!!!!!!

Thanks for your great help !!!!
Thanks,

Ed

[Tom Shelton]

Edje wrote:

Tom Shelton schreef:

Edje wrote:

Tom Shelton schreef:
>
Edje wrote:
Tom Shelton schreef:
>
Tom Shelton wrote:
Ed*********@gma il.com wrote:
Hello,

I've have a problem with a webservice. I just want to validate a VAT
number by country code and VAT numer. The return value should be like
"it's valid" and/or the name where it's registered to.

To do this i can access the webservice on the following location:
http://ec.europa.eu/taxation_customs...i/checkVatPort

A WSDL file is also available:
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl.

My question is how can i get the results i want. Can someone help me
with just the little module that does the request.

I already right-click on Web reference and added
http://ec.europa.eu/taxation_customs...ckVatPort?wsdl, but
when i want to use checkvat(countr y,VAT), it exepect 3 other fields and
the return type seem to be date.

My understanding is that i only have to use 2 parameters (via XML ?),
and retrieve a string value (XML ?)

I just need something like
returnvalue = doRequest(count ry,VAT).valid
Name = returnvalue.Nam e
Valid = returnvalue.val id
etc.....


Thanks for all your help.

Regards,

Edje
>
Option Strict On
Option Explicit On
>
Imports System
Imports ConsoleApplicat ion9.eu.europa. ec
>
Module Module1
>
Sub Main()
Dim check As New checkVatService ()
Dim countryCode As String = "CZ"
Dim vatNumber As String = "991 2311 23"
Dim valid As Boolean
Dim currentDate As Date
Dim name As String = String.Empty
Dim address As String = String.Empty
>
currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
>
If valid Then
Console.WriteLi ne(name)
Console.WriteLi ne(address)
Console.WriteLi ne(currentDate)
Else
Console.WriteLi ne("invalid vat")
End If
End Sub
>
End Module
>
What I don't now a valid VAT, so I can't really test it. I just get
back valid = false. I imported this into C#, and it shows the
arguments as:
>
DateTime checkVat (ref string countryCode, ref string vatNumber, out
bool valid, out string name, out string address)
>
In C#, that means that the method will fill in the out parameters, and
you must supply the ref parameters. In c# that means you must
initailize first, and it must be saved as a variable. VB.NET will let
you get away with it by creating a temp value for you. But, as you can
see I declare all these values in the above code.... So, based on the
C# code I'm assuming that the VB.NET code actually works?
>
--
Tom Shelton

Boy - I meant to point out that I'm using the vat numbers supplied adm.
Didn't mean to take credit for that :) I was just trying to take his
example a little farther.

--
Tom Shelton
>
>
Tom,
>
I tried this code (with proxy server), but i get the following error:
"The request failed with HTTP status 417: Expectation Failed."
The error is on the following row:
currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
>
Here is my code:
>
Option Strict On
Option Explicit On
Imports BTWCheck.eu.eur opa.ec
Imports System.Net
Imports System
>
>
Module Module1
>
Sub Main()
Dim check As New checkVatService ()
Dim countryCode As String = "BE"
Dim vatNumber As String = "4179951765 "
Dim valid As Boolean
Dim currentDate As Date
Dim datestring As String
Dim name As String = String.Empty
Dim address As String = String.Empty
' proxy settings
Dim cr As New System.Net.Netw orkCredential(" user", "pass",
"domain")
Dim pr As New System.Net.WebP roxy("10.0.0.9" , 8080)
pr.Credentials = cr
check.Proxy = pr
>
>
currentDate = check.checkVat( countryCode, vatNumber, valid,
name, address)
If valid Then
Console.WriteLi ne(name)
Console.WriteLi ne(address)
Console.WriteLi ne(currentDate)
Else
Console.WriteLi ne("invalid vat")
End If
End Sub
>
>
End Module
>
Thanks for your help.
>
>
Ed

Sorry Ed, I'm hitting the limits of my knowledge of web services. I
haven't ever tried to use a web service through a proxy. I'm assuming
that there is something wrong with your proxy settings? I
unfortuantely don't have a proxy server to try your code against, so I
have no way of helping here. Hopefully, someone will be able to help
you further with this issue.

--
Tom Shelton
>
Tom,
>
I don't think the proxy server si the issue, because i've tried it also
from home, with no proxy server and i receive the same error message.
>
Did it work for you ?
>
Thanks,
>
Ed

Well - it worked in that I don't receive an error with the code I
originally posted. All I get back is valid = false. I checked the VAT
on the eropa site and it also says it is invalid. So, to be honest
unless I have a known valid VAT, I have know way of really knowing if
it worked or not... I was hoping you could take my code, and insert a
known good VAT (one that validates on the website) and see what you get
back.

--
Tom Shelton

Tom,

Excuse me a lot, you were right. I made a mistake in my code. It works
perfectly, exactly what i needed !!!!!!!!

Thanks for your great help !!!!
Thanks,

Ed

Great! I am happy to be of service.

--
Tom Shelton