pmiroslav 05.02.2013 10:41
Predmet:Generiranje broja dokumenta

Koristim slijedeću funkciju za generiranje broja dokumenta koji treba biti u obliki
1/SK20/1 ili 1/SK25/1
znači za različiti prefiks prvi lijevi broj se povečava za 1
1/SK20/1
2/SK20/1
3/SK20/1
i
1/SK25/1
2/SK25/1
itd.
Ovo radi u redu dok prvi broj ne postane dvocifren.
U dijelu SELECT Max(Left([OrderID],1)) pokušao sam umjesto 1 staviti nešto kao InStr([OrderID],"/") ali me ne sluša.
PreuzmiIzvorni kôd (vbnet):
  1. Function BrojRac(Prefix As String)
  2. Dim db As Database
  3. Dim SQL As String
  4. Dim rs As Recordset
  5. Dim i As Integer
  6.  
  7. Set db = CurrentDb
  8.  
  9. SQL = "SELECT Max(Left([OrderID],1)) FROM tblProdaja WHERE Mid(OrderID,3,4)= '" & Prefix & "'"
  10.  
  11. Set rs = db.OpenRecordset(SQL)
  12.  
  13. If Format$(rs.Fields(0)) <> "" Then
  14. i = Val(rs.Fields(0))
  15. End If
  16. i = i + 1
  17. BrojRac = i & "/" & Prefix & "/1"
  18.  
  19. rs.Close
  20. Set db = Nothing
  21. End Function
Prilozi:
PrimjerRacun.rar (Velicina datoteke:885.72 KB)

dex 05.02.2013 14:15
Predmet:Re: Generiranje broja dokumenta

Evo ovako.
U Query1 dao sam i postupno i ugnjezdeno kako se dolazi do broja
Mozda bi ovo trebalo prevesti u VB da bi se izbacio Query1, probacu veceras.
Pozdrav Cool

dex 05.02.2013 14:18
Predmet:Re: Generiranje broja dokumenta

Problem sa uploadom, pokusavam...

pmiroslav 05.02.2013 19:44
Predmet:Re: Generiranje broja dokumenta

Odlična rijeÅ¡enja, naročito ovo drugo. Hvala na trudu.

dex 05.02.2013 18:35
Predmet:Re: Generiranje broja dokumenta

Onda svakako obrisi poruku, imas moderatorska ovlascenja.
Evo primera
Prilozi:
PrimjerRacunDex2.zip (Velicina datoteke:1.08 MB)

dex 05.02.2013 18:40
Predmet:Re: Generiranje broja dokumenta

Jos jedno resenje
Prilozi:
PrimjerRacunDex3.zip (Velicina datoteke:1.08 MB)

denoza 08.02.2013 23:41
Predmet:Re: Generiranje broja dokumenta

U svakom slučaju, u primjeru broj 3. kada se obriÅ¡e jedan record, javlja se greÅ¡ka pri kreiranju novog na istom skladiÅ¡tu, dok u drugom primjeru se ne javlja greÅ¡ka.
Pitanje je da li će se na nivou aplikacije dozvoljavati brisanje nekog dokumenta ili ne...

Dex, hvala na ovim elegantnim primjerima!

pmiroslav 09.02.2013 17:18
Predmet:Re: Generiranje broja dokumenta

Ja u svojoj bazi ne briÅ¡em rekorde več u tablici imam jedno numeričko polje u koje po defaultu ide broj 1 i onda ako ga treba "brisati" u to polje se upiÅ¡e 0 pa onda neki query vuče kao aktivne samo one sa brojem 1.