Private Sub ShowDialog
Dim data As Map = sqlite.GetConfiguracion
EditIP.Text = data.Get(Main.K_HOST)
EditDB.Text = data.Get(Main.K_DB)
EditUser.Text = data.Get(Main.K_USER)
EditPassword.Text = data.Get(Main.K_PASS)
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 310dip, 490dip) 'set the content size
p.LoadLayout("configuracion")
Dim cd As ColorDrawable
cd.Initialize(Colors.White, 5dip)
EditIP.Background = cd
EditUser.Background = cd
EditPassword.Background = cd
EditDB.Background = cd
EditIP.RequestFocus
Dim list As List
list.Initialize
list.Add("2 = EN-PROCESO")
list.Add("3 = TERMINADO")
ComboBox1.SetItems(list)
dialog.Title = "DATOS CONEXION"
dialog.BackgroundColor = Colors.RGB(161, 182, 198)
dialog.BorderCornersRadius = 5dip
dialog.BorderWidth = 2dip
dialog.ButtonsColor = Colors.RGB(107, 156, 193)
dialog.ButtonsTextColor = Colors.White
Dim rs As ResumableSub = dialog.ShowCustom(p, "Ok", "", "Cancel")
Wait For (rs) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Log(EditIP.Text)
Log(EditUser.Text)
Log(EditPassword.Text)
Log(EditDB.Text)
Dim cTipo As String = ComboBox1.SelectedItem
Dim nTipo As Int = cTipo.SubString2(0, 2)
Log("Tipo : " & nTipo & " / " & "Name :" & cTipo)
TIPO_PROCESO = nTipo
NAME_PROCESO = cTipo
LblTitle.Text = NAME_PROCESO
Dim map As Map
map.Initialize
map.Put(Main.K_HOST, EditIP.Text)
map.Put(Main.K_DB, EditDB.Text)
map.Put(Main.K_USER, EditUser.Text)
map.Put(Main.K_PASS, EditPassword.Text)
map.Put(Main.K_PROCESO, TIPO_PROCESO)
Try
sqlite.UpdateConfig(map)
mysql.Initialize
Catch
Log(LastException)
End Try
End If
End Sub
