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