Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101

Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
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 & "'"