Type Oddelki (Sifra As Int, Naziv As String)
Private listOddelki As List
' click of button ADD
Private Sub btnUredi_Click
myData.Clear
' fill oddelki
FillOddelki
Wait For (modiDialog.ShowDialog(myData, "OK", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
' zapišemo podatke v Sql
InsertUpdateMachine(myData)
RefreshTableGrid
End If
End Sub
' fill mydepartmens
Sub FillOddelki
listOddelki.Initialize
Query = "select SifOddelekID, SifOddelekDescription from sifOddelki where isnull(SifOddelekIsDeleted,0) = 0 and isnull(SifOddelekIsNonActive,0) = 0 order by sifOddelekId desc"
Dim rs As ResultSet = Main.MsSql.ExecQuery(Query)
Do While rs.NextRow
listOddelki.Add(CreateListOddelki(rs.GetInt("SifOddelekID"), rs.GetString("SifOddelekDescription")))
Loop
rs.Close
' fill modify dialog - options = Oddelek
modiDialog.SetOptions("Oddelek", listOddelki)
End sub
' createlist of deparments
Sub CreateListOddelki(Sifra As Int, Naziv As String) As Oddelki
Dim odd As Oddelki
odd.Initialize
odd.Sifra = Sifra
odd.Naziv = Naziv
Return odd
End Sub