dotNETportal.cz

Dobrý den, neporadil by někdo s ověřením IČO a získání adresy z aresu ve VB.Net(VS2010)?

http://programujte.com/forum/vlakno/1687...

Poklona pro příklad (C#) AresWebService (Jan Vilimek)

Moc Vám děkuji za pomoc.

Ještě se osměluji zeptat na další info, má-li někdo větší zkušenost.

Dotaz Basic zřejmě hledá pouze podle IČO ?

Při hledání adresy firmy podle názvu, pak bude nutné použít dotaz Standard ?

Jak hledat adresu má-li firma více provozoven ?

Jakou Web Referenci si mám přidat do projektu k dotazu na název firmy k vrácení adres, má-li více poboček ?

http://wwwinfo.mfcr.cz/ares/xml_doc/sche...

Jak ověřit správnost zadání IČO ?

Pokus o postup dle wikipedia :

    Function IsICO(ByVal ico As String) As Boolean
        Dim val As Integer
        If Integer.TryParse(ico, val) Then
            If Len(ico) <> 8 Then
                Return False
            End If
            Dim a As Integer = 0
            For i As Integer = 0 To 6
                a = a + Integer.Parse(ico.Substring(i, 1)) * (8 - i)
            Next
            a = a Mod 11
            Dim c = (11 - a) Mod 10
            If c.ToString.Equals(ico.Substring(7, 1)) Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
    End Function

Je to správně ? Jinak ? Lépe ?

Předem děkuji za námitky, výtky a připomínky.