Function RadniNalog(Datum As Date)
Dim Db As Database
Dim Rs1 As Recordset, Rs2 As Recordset
Dim SQL As String, DatumS As String
Dim Suma As Currency, K As Currency, Ostatak As Currency
Dim ID As Integer
Dim Iznos As Single, Procenat As Single, Cijena As Single
Dim BrKomada As Integer
DoCmd.SetWarnings False
DatumS = Format(Datum, "mm-dd-yyyy")
SQL = "SELECT Sum( Razduzenje) AS Suma FROM tblPrometMP " _
& "WHERE DatumK=#" & DatumS & "#"
Set Db = CurrentDb
Set Rs1 = Db.OpenRecordset(SQL)
Suma = Rs1!Suma
Rs1.Close
SQL = "SELECT * FROM TblRadniNalog WHERE Datum=#" & DatumS & "#"
Set Rs1 = Db.OpenRecordset(SQL)
If Rs1.RecordCount > 0 Then
Dim R As String
R = MsgBox("Za datum:" & Datum & vbCrLf & "Nalog vec postoji." & vbCrLf _
& "Hoete eli da uradite ponovo? ", _
vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1, "NAPOMENA")
If R = vbYes Then
SQL = "DELETE * FROM TblRadniNalog " _
& "WHERE Datum=#" & DatumS & "#"
DoCmd.RunSQL (SQL)
ElseIf vbNo Then
Rs1.Close
GoTo Izlaz:
End If
End If
Rs1.AddNew
Rs1!RadninalogID = DMax("RadninalogID", "tblRadniNalog") + 1
Rs1!Datum = Datum
ID = Rs1!RadninalogID
Rs1.Update
Rs1.Close
SQL = "SELECT * FROM tblArtikli ORDER BY MPC DESC"
Set Rs1 = Db.OpenRecordset(SQL)
Set Rs2 = Db.OpenRecordset("TblRadniNalogStavke")
Do While Not Rs1.EOF
Procenat = Rs1!ProcenatIsk
Cijena = Rs1!MPC
Iznos = Suma * Procenat + Ostatak
K = Iznos / Cijena
BrKomada = K
Ostatak = K - BrKomada
Unos:
Rs2.AddNew
Rs2!RadninalogID = ID
Rs2!PC = Rs1!PC
Rs2!ArtikalID = Rs1!ArtikliID
Rs2!NazivArtikla = Rs1!NazivArtikla
Rs2!JedMjere = Rs1!JedMjere
Rs2!Kolicina = BrKomada
Rs2!VrstaPekProizv = Rs1!VrstaPekProizv
Rs2!PodvrstapekProizv = Rs1!PodvrstapekProizv
Rs2!TezinaGotProizvoda = Rs1!TezinaGotProizvoda
Rs2!VrstaUtrBrasna = Rs1!VrstaUtrBrasna
Rs2!KolicinaUtrBrasna = Rs1!KolicinaUtrBrasna * BrKomada
Rs2.Update
Rs1.MoveNext
Loop
Izlaz:
DoCmd.SetWarnings True
Exit Function
Kraj:
End Function