<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Text14_Change()
Dim SQL As String
Dim GID
Dim Str As String
Dim UslovStr As String
Dim Slaganje As String

GID = Me.Combo21
Slaganje = " ORDER BY ImeArtikla"
If GID = 1 Then
Me.Cena.ControlSource = "Pcena"
Me.Label8.Caption = "Prodajna cena"
SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, PCena, ResetQ() AS R " _
       & "FROM K_Artikli "
ElseIf GID = 2 Then
Me.Cena.ControlSource = "NCena"
Me.Label8.Caption = "Nabavna cena"
SQL = "SELECT SifraArt, BrojacQ([Sifraart]) AS Brojac, ImeArtikla, JM, NCena, ResetQ() AS R " _
       & "FROM K_Artikli "

End If
Me.Combo21.SetFocus
Str = Format$(Me.Text14)
Me.Text14.SetFocus
Me.Text14.SelStart = Me.Text14