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