Prikazi cijelu temu 24.03.2011 12:23
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Baza za proizvodnju
U Formi F_TransakcijeSub Napravi jedan combo i neka se zove stanje.
U controlsource upisi SifraArtikla.
U rowsource upisi:
SELECT T_Transakcije.SifraArtikla, Sum(IIf([status]=1,[Kolicina],[Kolicina]*-1)) AS K FROM T_Transakcije GROUP BY T_Transakcije.SifraArtikla;

U columncoount upisi:2
ColumnWidthd:0cm;3cm
enabled:No
Locked:Yes
PreuzmiIzvorni kôd (Visual Basic):
  1. Function UnosUlza(NalogID As String, Izlaz_Br As String)
  2. Dim DB As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim SQL As String
  6. Dim I As Integer
  7.  
  8. 'On Error GoTo Greska
  9. SQL = "SELECT K_Sirovine.SifraArt, K_Sirovine.Cena, [komada]*[Kolicina] AS Ukupno, K_Sirovine.Jed_M " _
  10.  & "FROM (K_Proizvodi INNER JOIN K_Sirovine ON K_Proizvodi.Sifra_P = K_Sirovine.Sifra_P) " _
  11.  & "INNER JOIN T_StavkeN ON K_Proizvodi.Sifra_P = T_StavkeN.IdProizvoda " _
  12.   & "WHERE T_StavkeN.Sifra_N='" & NalogID & "'"
  13.  
  14. Set DB = CurrentDb
  15. Set Rs1 = DB.OpenRecordset(SQL)
  16. Set Rs2 = DB.OpenRecordset("SELECT * FROM T_Transakcije WHERE RedniBroj like 'I*'")
  17. If Rs2.RecordCount > 0 Then
  18. Rs2.MoveLast
  19. I = Val(Mid(Rs2!RedniBroj, 2))
  20. End If
  21. If Rs1.RecordCount = 0 Then GoTo Kraj
  22. Do While Not Rs1.EOF
  23. I = I + 1
  24. Rs2.AddNew
  25. Rs2!RedniBroj = "I" & Format(I, "00000000")
  26. Rs2!Sifra_Transakcije = Izlaz_Br
  27. Rs2!SifraArtikla = Rs1!SifraArt
  28. Rs2!Jed_M = Rs1!Jed_M
  29. Rs2!CenaUlaza = Rs1!Cena
  30. Rs2!Status = 2
  31. Rs2!Kolicina = Rs1!Ukupno
  32. Rs2.Update
  33. Rs1.MoveNext
  34. Loop
  35. Izlaz:
  36. Rs1.Close
  37. Rs2.Close
  38. Exit Function
  39. Kraj:
  40.  
  41. MsgBox "Nema Podataka"
  42. GoTo Izlaz
  43. Greska:
  44. MsgBox Err.Number & vbCr & Err.Description
  45. End Function
U kodu jeste greska kada nema niti jednog izlaza:
Evo ispravke:
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.