New EU Country as of 1.7.2013

Posted By askomit Wed 3 Jul 2013
Add to Favorites1
Author Message
askomit
 Posted Wed 3 Jul 2013
Supreme Being

Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)Supreme Being - (31,218 reputation)

Group: Forum Members
Last Active: Sun 11 Aug 2013
Posts: 0, Visits: 178
Hi, can you add new EU country. Croatia (Hrvatska).

Can you add us in Kartris Smile as EU country. If there is anything you need additionaly for adding us. Just ask. Below is function for checking oib/tax id....

In Croatia there is OIB and Tax number... Tax number basicly get companies that work also with companies from outside Croatia..

Only difference between Tax number and Oib is in prefix...

My company's OIB is : 57277786898

Tax number is: HR57277786898

This function checks if OIB is in correct format so, only thing needed is if there are letters in this number, to strip HR and check with this function if its correct format

Public Shared Function OIB_Validacija(ByVal oib As String) As Boolean
If oib.Length <> 11 Then
Return False
End If

Dim znamenka As Integer, zbroj As Integer, medjuOstatak As Integer,
ostatak As Integer, umnozak As Integer
ostatak = 10

For charIndex As Integer = 0 To oib.Length - 2
znamenka = Convert.ToInt32(oib(charIndex).ToString())


zbroj = znamenka + ostatak

medjuOstatak = zbroj Mod 10
If medjuOstatak = 0 Then
medjuOstatak = 10
End If


umnozak = medjuOstatak * 2
ostatak = umnozak Mod 11
Next

Dim kontrolniBroj As Integer = 11 - ostatak

If Convert.ToInt32(oib(oib.Length - 1).ToString()) = kontrolniBroj
Then
Return True
Else
Return False
End If
End Function



Similar Topics

Expand / Collapse

Reading This Topic

Expand / Collapse

Back To Top