ověření ičo dle ares   otázka

VB.NET

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

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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

Moc Vám děkuji za pomoc.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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...

nahlásit spamnahlásit spam 0 odpovědětodpovědět

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.

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback