- On Error GoTo Err_SIFART_AfterUpdate
- Dim Db As DAO.Database
- Dim Rs As DAO.Recordset
- Dim BarKod As String, SQL As String
- BarKod = Trim(Me.SIFART)
- Me.Kolicina = 1
- Set Db = CurrentDb()
- If Left(BarKod, 1) = "2" Then
- If Len(BarKod) < 13 Then
- Me.Kolicina = 1
- Else
- Me.Kolicina = Round(Mid(BarKod, 9, 4) / 1000, 2)
- BarKod = Left(BarKod, 7)
- End If
- End If
- SQL = "SELECT Fsifra,ArtSif,ArtNaz,ArtGrupa,ArtMcije FROM tblArtikli " _
- & "WHERE ArtSif='" & BarKod & "'"
- Set Rs = Db.OpenRecordset(SQL)
- If Rs.RecordCount > 0 Then
- Me.SIFART = Rs!ArtSif
- Me.NazArt = Rs!ArtNaz
- Me.Grupa = Rs!ArtGrupa
- Me.PORPOS = 17
- Me.PORPOS2 = 0
- Me.PORPOS3 = 4
- Me.PRODCIJ = Rs!ArtMCije
- If (Me.StanjeKasa.Visible = True) Then
- Me.StanjeKasa = Round(DLookup("Stanje", "qryStanjeSkladista", "ArtSif='" & Me.SIFART & "' and Skladiste='" & Me.SkladisteKasa & "'"), 2)
- If IsNull(Me.StanjeKasa) Then
- Me.StanjeKasa = "0,00"
- End If
- Else
- End If
- 'DoCmd.GoToControl "NAZART"
- Call Command39_Click
- Me.LISTBOX2.Requery
- If (Me.StanjeKasa.Visible = True) Then
- If (Me.StanjeKasa <= 0) Then
- If MsgBox("Sigurno želite izdati veu koli
- inu od one koju imate na skladištu: '" & Me.StanjeKasa & "'?", vbQuestion + vbYesNo, "Potvrda Knjiženja") = vbYes Then
- Else
- DoCmd.SetWarnings False
- DoCmd.RunSQL "DELETE FROM STAVKEMP WHERE BROULIZ='" & Me.BROIZD & "' and BROSTAV='" & Format$(Forms.frmIZLAZMP.BROSTAV - 1, "0000") & "'"
- DoCmd.SetWarnings True
- Me.StanjeKasa = "0,00"
- Me.LISTBOX2.Requery
- Me.UKUPNO = DSum("PRODCIJUK", "qrySTAVKEMP", "BROULIZ='" & Me.BROIZD & "' and DATULIZ=#" & Format$(Me.DATIZD, "mm\/dd\/yyyy") & "#")
- DoCmd.SetWarnings False
- DoCmd.RunSQL "UPDATE GLSTAVKEMP SET IZNOS='" & Me.UKUPNO & "' WHERE BROULIZ='" & Me.BROIZD & "'"
- DoCmd.SetWarnings True
- If IsNull(DLookup("BROSTAV", "STAVKEMP", "BROULIZ='" & Me.BROIZD & "' and DATULIZ=#" & Format$(Me.DATIZD, "mm\/dd\/yyyy") & "#")) Then
- Me.BROSTAV = Format$("1", "0000")
- Else
- Me.BROSTAV = Format$((DMax("BROSTAV", "STAVKEMP", "BROULIZ='" & Me.BROIZD & "' and DATULIZ=#" & Format$(Me.DATIZD, "mm\/dd\/yyyy") & "#")) + 1, "0000")
- End If
- End If
- Else
- End If
- Else
- End If
- Else
- DoCmd.OpenForm "frmPretrazivanje1"
- End If
- 'DoCmd.GoToControl "SIFART"
- Rs.Close
- Set Db = Nothing
- 'Call POREZ
- On Error Resume Next
- Exit_SIFART_AfterUpdate:
- Exit Sub
- Err_SIFART_AfterUpdate:
- MsgBox "Greška unosa bar koda pokušajte ponovno!", vbExclamation, "Nepotpun unos"
- Me.SIFART = ""
- Resume Exit_SIFART_AfterUpdate