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 Quantity_Exit(Cancel As Integer)
On Error GoTo Err_Quantity
Dim stanje_na_skladistu As Integer
Dim Kolicina As String
Dim stanje_na_drugom_skladistu As Integer
stanje_na_drugom_skladistu = 0
stanje_na_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
"[Skladiste]=forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
Kolicina = DLookup("[Mjera]", "[Q_Stanje]", "[sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
On Error Resume Next
stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
"[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
If Err.Number = 94 Then
Err.Clear
On Error GoTo 0
stanje_na_drugom_skladistu = 0
ElseIf Err.Number > 0 Then
MsgBox "Nekad druga greska" & Err.Number & vbCr '"Ako je sve OK ovo nece nikad proraditi"
End If
If stanje_na_skladistu < Me.Kolicina And stanje_na_drugom_skladistu > 0 Then 'Provjera
MsgBox "Upisali ste koli
inu koja je vea od zalihe!" _
& vbCrLf & " " _
& vbCrLf & "Na stanju ima " _
& stanje_na_skladistu _
& vbCrLf & " " _
& vbCrLf & "Ali na drugom skladištu ima " _
& stanje_na_drugom_skladistu _
& " " & Kolicina, , "Prevelika koli
ina!" 'Poruka o gresci
'Me.Sifra.SetFocus
'Me.Sifra.Text = "" 'Brisanje vrijednosti
ElseIf stanje_na_skladistu < Me.Kolicina Then
MsgBox "Upi