[es] - Izracunavanje kontrolnog broja

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

^{10.10.2006. u 13:49 - pre 218 meseci}

Nisam gledao to sto si prilozio, ali evo ti funkcija koju sam napravio i koristim je godinama:

Code:

Public Function KontrolniBroj(ByVal inModel As Variant, ByVal inTekst As String) As String
    Dim varInput_Value As Variant
    Dim varResult As Variant

    KontrolniBroj = ""
    If inTekst = "" Then Exit Function

    ObradiTekst inTekst
    If Not IsNumeric(inTekst) Then Exit Function

    varInput_Value = CDec(inTekst) * 100
    varResult = CDec((varInput_Value / inModel) - Fix(varInput_Value / inModel))
    varResult = Round(varResult, 2)
    varResult = inModel + 1 - Round(varResult * inModel)

    KontrolniBroj = CStr(varResult)
    If Len(KontrolniBroj) = 1 Then
        KontrolniBroj = "0" & KontrolniBroj
    End If

End Function
Private Sub ObradiTekst(ByRef inTekst As String)
   Dim Slova
   Dim Vrednosti

   Dim intBrojac As Integer
   Dim intBrojac2 As Integer
   Dim strTMP As String

   inTekst = UCase(inTekst)
   strTMP = ""

   Slova = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
                 "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
                 "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
                 "U", "V", "W", "X", "Y", "Z")

   Vrednosti = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
                     "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", _
                     "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", _
                     "30", "31", "32", "33", "34", "35")

   For intBrojac = 1 To Len(inTekst)
      For intBrojac2 = 0 To UBound(Slova)
         If Mid(inTekst, intBrojac, 1) = Slova(intBrojac2) Then
            strTMP = strTMP & Vrednosti(intBrojac2)
         End If
      Next
   Next

   inTekst = strTMP

End Sub

Kao sto vidis, jedino ogranicenje je sto u pozivu na broj ne sme biti čćšđžŠĐŽČĆ, ili nekih drugih karaktera (ako ih ima, funkcija ih ignorise). Funkciju sam primenjivao za racunanje kontrolnog broja po modulu 97.

Odgovor na temu

Pike79

Član broj: 52785
Poruke: 200
*.dialup.neobee.net.

Profil

Re: Izracunavanje kontrolnog broja

^{10.10.2006. u 15:15 - pre 218 meseci}

Posto se ja bavim knjigovodstvom, interesuje me kako da primen ovaj tvoj kod za izracunavanje kontrolnog broja.

Poz!

Bez muke nema nauke!!!

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Izracunavanje kontrolnog broja

^{10.10.2006. u 15:33 - pre 218 meseci}

Citat:

draki.mpek: Posto se ja bavim knjigovodstvom, interesuje me kako da primen ovaj tvoj kod za izracunavanje kontrolnog broja.

Poz!

Ne razumem bas najbolje tvoje pitanje, ovo je Access forum, dao sam ti VB/VBA kod koji ti vraca kontrolni broj za odredjeni tekst i odredjeni modul, pa reci malo detaljnije sta ti nije jasno:

-gde da "stavis" kod
-kako da pozoves funkciju
-sta da radis sa rezultatom funkcije
-nisi bas siguran sta je kontrolni broj

Ako pretpostavimo da si me pitao kako se upotrebljava funkcija, onda ti je odgovor sledeci:
Ako imas broj racuna "R1000-06/98", koji ti predstavlja poziv na broj pri placanju, i hoces da koristis i kontrolni broj po modulu 97, onda je konacan poziv na broj:

Code:

strPozivNaBroj = KontrolniBroj(97, "R1000-06/98") & "-" & "R1000-06/98"

Odgovor na temu

Pike79

Član broj: 52785
Poruke: 200
*.dialup.neobee.net.

Profil

Re: Izracunavanje kontrolnog broja

^{11.10.2006. u 00:03 - pre 218 meseci}

Da mislio sam na to sto si nabrojao:

-gde da "stavis" kod
-kako da pozoves funkciju

Poz!

Bez muke nema nauke!!!

Odgovor na temu

ibrkic

Član broj: 87153
Poruke: 55
212.62.39.*

Profil

Re: Izracunavanje kontrolnog broja

^{11.10.2006. u 06:38 - pre 218 meseci}

Nisam najbolje razumeo vas cod ali u svakom slucaju zahvaljujem na ulozenom trudu i iskazanom interesovanju za postavljeno pitanje.
Ja sam to zamislio na jedan jednostavan nacin sto se moze videti iz datog priloga.Na obrascu je dato nekoliko kontrola(pogledati dizajn obrasca) i jednostavnim racunskim putem dolazite do kontrolnog broja.Znaci vi samo upisete u prvu kontrolu broj za koji racunate kontrolni broj i pritiskom na enter dobijate kontrolni broj.Problem nastaje kada broj za koji se racuna kontrolni broj ima vise od 15 cifara.Da li je to mozda ogranicenje samog accessa.

Pozdrav ibrkic

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Izracunavanje kontrolnog broja

^{11.10.2006. u 07:38 - pre 218 meseci}

Citat:

ibrkic: Problem nastaje kada broj za koji se racuna kontrolni broj ima vise od 15 cifara.Da li je to mozda ogranicenje samog accessa.

Dao sam ti funkciju koja racuna kontrolni broj, a nema ogranicenje koje ti predstavlja problem.

Odgovor na temu

Kiro
Akir Žalić
BiH

Član broj: 19085
Poruke: 114
*.PPPoE-109.sa.bih.net.ba.

Sajt: www.icentar.ba

Profil

Re: Izracunavanje kontrolnog broja

^{11.10.2006. u 13:02 - pre 218 meseci}

Pogledaj svoj primjer sa goranovom funkcijom

Kiro

Prikačeni fajlovi

Kont_Br_goranvuc.mdb - 116k

Odgovor na temu

ibrkic

Član broj: 87153
Poruke: 55
212.62.39.*

Profil

Re: Izracunavanje kontrolnog broja

^{11.10.2006. u 13:36 - pre 218 meseci}

Zahvaljujem vam sto ste mi na mom primeru pokazali kako primeniti datu funkciju.Uspelo je u potpunosti.
Pozdrav ibrkic

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Izracunavanje kontrolnog broja

^{11.10.2006. u 13:50 - pre 218 meseci}

Ja se zahvaljujem @Kiro sto je ucestvovao kao posrednik, nisam mislio da su ove funkcije toliko komplikovane za razumevanje.

Napomena uz resenje: funkcija je napravljena po uputstvu iz UJP-a da bi bila kompatibilna sa njihovim algoritmom.

Odgovor na temu