Cierre administativo, cierre de mesa sin venta y envio de errores a push_info

B4A/B4XMainPage.bas

@@ -38,6 +38,13 @@ Sub Class_Globals
 	Private Label1 As Label
 	Private i_conf As ImageView
 	Private b_cargaProductos As Button
+	Private ListView1 As ListView
+	Private E_SERVER As EditText
+	Dim reqManager As DBRequestManager
+	Private l_version As Label
+	Private p_botones As Panel
+	Private Label3 As Label
+	Private p_server As Panel
 End Sub
 
 Public Sub Initialize
@@ -46,6 +53,7 @@ End Sub
  
 'This event will be called once, before the page becomes visible.
 Private Sub B4XPage_Created (Root1 As B4XView)
+	Subs.revisaBD
 	Root = Root1
 	Root.LoadLayout("login")
 	login.Initialize
@@ -63,17 +71,39 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Starter.skmt.ExecNonQuery("insert into cuentaa (cuenta) values ('123456')")
 	Starter.skmt.ExecNonQuery("delete from cat_almacen")
 	Starter.skmt.ExecNonQuery("insert into cat_almacen (id_almacen) values ('1')")
+	l_version.Text = Application.VersionName
+	p_configuracion.Height = Root.Height : p_configuracion.width = Root.width
+	reqManager.Initialize(Me, Starter.DBReqServer)
+	Subs.centraEtiqueta(Label3, p_configuracion.Width)
+	Subs.centraPanel(p_server, p_configuracion.Width)
+	Subs.centraPanel(p_botones, p_configuracion.Width)
+'	subs.panelVisible(p_configuracion, 0, 0)
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	' BACK key pressed
+	'Return True to close, False to cancel
+	Log("BACK")
+	If p_configuracion.Visible Then
+		p_configuracion.Visible = False
+		Return False
+	Else
+'		If logger Then Log("Saliendo")
+'		B4XPages.ClosePage(Me)
+'		Subs.cierraActividades
+'		Return True
+	End If
+	Return False
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Private Sub i_logo_Click
-	p_configuracion.Width = Root.Width
-	p_configuracion.Height = Root.Height
-	Subs.panelVisible(p_configuracion, 0, 0)
+
 End Sub
 
 Private Sub b_regresar_Click
+	p_configuracion.Visible = False
 	Subs.panelVisible(p_login, 0, 0)
 End Sub
 
@@ -82,7 +112,8 @@ Private Sub b_entrar_Click
 End Sub
 
 Private Sub B_SERVER_Click
-	
+	Starter.DBReqServer = E_SERVER.text
+	p_configuracion.Visible = False
 End Sub
 
 Private Sub b_envioBD_Click
@@ -90,9 +121,111 @@ Private Sub b_envioBD_Click
 End Sub
 
 Private Sub i_conf_Click
-	
+	ListView1.Clear
+	Dim Label1 As Label
+	Label1 = ListView1.SingleLineLayout.Label
+	Label1.TextSize = 20
+	Label1.TextColor = Colors.Black
+'	If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781")
+	ListView1.AddSingleLine("http://keymon.lat:1782")
+	p_configuracion.Width = Root.Width
+	p_configuracion.Height = Root.Height
+	p_configuracion.BringToFront
+	Subs.panelVisible(p_configuracion, 0, 0)
 End Sub
 
 Private Sub b_cargaProductos_Click
+	Log(Starter.DBReqServer)
+'	Dim cmd As DBCommand
+'	cmd.Initialize
+'	cmd.Name = "select_cat_gunaprod_GV2"
+'	cmd.Parameters = Array As Object(1)
+'	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "selectProds_Lanter"
+	reqManager.ExecuteQuery(cmd , 0, "selectProds")
+	cmd.Initialize
 	
+	cmd.Name = "selectMesas_Lanter"
+	reqManager.ExecuteQuery(cmd , 0, "selectMesas")
+	
+	cmd.Initialize
+	cmd.Name = "selectMeseros_Lanter"
+	reqManager.ExecuteQuery(cmd , 0, "selectMeseros")
+End Sub
+
+Private Sub ListView1_ItemClick (Position As Int, Value As Object)
+	Starter.DBReqServer = Value
+	E_SERVER.Text = Value
+	Log(Starter.DBReqServer)
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	Log("JOBDONE MAINPAGE")
+	If Job.Tag.As(String).StartsWith("_KMS_") Then Job.tag = Job.Tag.As(String).SubString(16)
+	If Job.Success = False Then
+		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+	Else
+		If Starter.Logger Then LogColor("JobDone: '" & Starter.reqManager.HandleJob(Job).tag & "' - Registros: " & Starter.reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211110
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = Starter.reqManager.HandleJob(Job)
+			If result.Tag = "selectProds" Then 'query tag
+'				If Starter.Logger Then Subs.logJobDoneResultados(result)
+				Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
+				Starter.skmt.BeginTransaction
+				For Each records() As Object In result.Rows
+					Log($"ID: ${records(result.Columns.Get("CAT_GP_ID"))}, NOM: ${records(result.Columns.Get("CAT_GP_NOMBRE"))}"$)
+					Dim CAT_GP_ID As String = records(result.Columns.Get("CAT_GP_ID"))
+					Dim CAT_GP_NOMBRE As String = records(result.Columns.Get("CAT_GP_NOMBRE"))
+					Dim CAT_GP_PRECIO As String = records(result.Columns.Get("CAT_GP_PRECIO"))
+					Dim CAT_GP_ALMACEN As String = 10000 'records(result.Columns.Get("CAT_GP_ALMACEN"))
+					Dim CAT_GP_IMG() As Byte = records(result.Columns.Get("CAT_GP_IMG"))
+					Dim CAT_GP_FECHA As String = records(result.Columns.Get("CAT_GP_FECHA"))
+					Dim CAT_GP_FECHA_MOD As String = records(result.Columns.Get("CAT_GP_FECHA_MOD"))
+					Dim CAT_GP_CLASIF As String = records(result.Columns.Get("CAT_GP_CLASIF"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD, CAT_GP_CLASIF) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD,CAT_GP_CLASIF))
+				Next
+				Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
+				Starter.skmt.EndTransaction
+			End If
+
+			If result.Tag = "selectMesas" Then 'query tag
+'				If Starter.Logger Then Subs.logJobDoneResultados(result)
+				Starter.skmt.ExecNonQuery("delete from CAT_MESAS")
+				Starter.skmt.BeginTransaction
+				For Each records() As Object In result.Rows
+					Log($"ID: ${records(result.Columns.Get("M_ID"))}, NOM: ${records(result.Columns.Get("M_NOMBRE"))}"$)
+					Dim M_ID As String = records(result.Columns.Get("M_ID"))
+					Dim M_NOMBRE As String = records(result.Columns.Get("M_NOMBRE"))
+					Dim M_NUMERO As String = records(result.Columns.Get("M_NUMERO"))
+					Dim M_ZONA As String = records(result.Columns.Get("M_ZONA"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_MESAS(M_ID, M_NUMERO, M_NOMBRE, M_ZONA) VALUES (?,?,?,?)", Array As Object (M_ID, M_NUMERO, M_NOMBRE, M_ZONA))
+				Next
+				Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
+				Starter.skmt.EndTransaction
+			End If
+
+			If result.Tag = "selectMeseros" Then 'query tag
+'				If Starter.Logger Then Subs.logJobDoneResultados(result)
+				Starter.skmt.ExecNonQuery("delete from CAT_MESEROS")
+				Starter.skmt.BeginTransaction
+				For Each records() As Object In result.Rows
+					Log($"ID: ${records(result.Columns.Get("MS_ID"))}, NOM: ${records(result.Columns.Get("MS_NOMBRE"))}"$)
+					Dim MS_ID As String = records(result.Columns.Get("MS_ID"))
+					Dim MS_NOMBRE As String = records(result.Columns.Get("MS_NOMBRE"))
+					Dim MS_MESAS_ASIGNADAS As String = records(result.Columns.Get("MS_MESAS_ASIGNADAS"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_MESEROS(MS_ID, MS_NOMBRE, MS_MESAS_ASIGNADAS) VALUES (?,?,?)", Array As Object (MS_ID, MS_NOMBRE, MS_MESAS_ASIGNADAS))
+				Next
+				Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
+				Starter.skmt.EndTransaction
+				B4XPages.MainPage.principal.cb_mesero.SetItems(Subs.traeMeserosLista)
+			End If
+		End If
+	End If
+	Job.Release
+End Sub
+
+Private Sub b_entrar_LongClick
+	Dim a As Int = "a"
 End Sub