Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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" & "