Private Sub SIFART_AfterUpdate()

Me.Kolicina = 1
If Left(Me.SIFART, 1) = "2" Then
   If Len(Me.SIFART) < 13 Then
      Me.Kolicina = 1
   Else
      Me.Kolicina = Round(Mid(Me.SIFART, 9, 4) / 1000, 2)
      Me.SIFART = Left(Me.SIFART, 7)
    End If
End If

If Not IsNull(DLookup("ArtSif", "tblArtikli", "ArtSif='" & Me.SIFART & "'")) Or Not IsNull(DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
    If Me.SIFART = (DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
    Me.SIFART = DLookup("ArtSif", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")
    End If

    Me.NazArt = DLookup("ArtNaz", "tblArtikli", "ArtSif='" & Me.SIFART & "'")
    Me.Grupa = DLookup("ArtGrupa", "tblArtikli", "ArtSif='" & Me.SIFART & "'")
    Me.PORPOS = "0.17"
    If IsNull(Me.PORPOS) Then
    Me.PORPOS = 0
    End If
    Me.PORPOS2 = "0"
    If IsNull(Me.PORPOS) Then
    Me.PORPOS2 = 0
    End If
    Me.PORPOS3 = "4"
    If IsNull(Me.PORPOS) Then
    Me.PORPOS3 = 0
    End If
    
    Me.PRODCIJ = Round(DLookup("ArtMCije", "tblArtikli", "ArtSif='" & Me.SIFART & "'"), 2)
    If IsNull(Me.PRODCIJ) Then
    Me.PRODCIJ = 0
    End If
    If (Me.StanjeKasa.Visible = True) Then
    Me.StanjeKasa = Round(DLookup("Stanje", "qryStanjeSkladista", "ArtSif='" & Me.SIFART & "' and Skladiste='" & "01" & "'"), 2)
    Else
    End If
    'DoCmd.GoToControl "NAZART"
    Call Command39_Click
    
Else
    DoCmd.OpenForm "frmPretrazivanje1"
   
End If