Prikazi cijelu temu 05.02.2013 10:41
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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
Preuzimanja:355
Velicina datoteke:885.72 KB

Pozdrav