Se agregó´el envio de la información con boton de ciere total y el borrado de las ordenes con efectivo, el codigo para imprimir (incompleto) y logos e icono de la app

B4A/Starter.bas

@@ -24,7 +24,7 @@ Sub Process_Globals
 	Dim Logger As Boolean
 	Dim rutav As String = ""
 	Dim tipov As String = "VENTA"
-	Dim ticketActual, mesaActual, meseroActual, comensalesActuales As String
+	Dim ticketActual, mesaActual, meseroActual, comensalesActuales, mac_impresora As String
 End Sub
 
 Sub Service_Create
@@ -43,20 +43,27 @@ Sub Service_Create
 	logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
 	#end if
 	logs.Initialize
-	server = "http://keymon.lat:1781"
-	If Logger Then Log($"Starter reqManager server: ${server}"$)
+	DBReqServer = "http://keymon.lat:1782"
+	If Logger Then Log($"Starter reqManager server: ${DBReqServer}"$)
 	Logger = False
 End Sub
 
 Sub Service_Start (StartingIntent As Intent)
 	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
-	reqManager.Initialize(Me, server)
 	Subs.revisaBD
 	#if DEBUG
 		Logger = True
 	#else
 		Logger = False
 	#End If
+	Private c As Cursor = skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
+	Log(c.RowCount)
+	If c.RowCount > 0 Then
+		c.Position = 0
+		DBReqServer = c.GetString("CAT_VA_VALOR")
+		Log("De base de datos -> " & DBReqServer)
+	End If
+	reqManager.Initialize(Me, DBReqServer)
 End Sub
 
 Sub Service_TaskRemoved
@@ -84,11 +91,6 @@ Sub Service_Destroy
 	If Logger Then LogColor("starter destroyed", Colors.red)
 End Sub
 
-Sub reinicializaReqManager 'ignore
-	reqManager.Initialize(Me, server)
-	If Logger Then Log(server)
-End Sub
-
 Sub JobDone(Job As HttpJob)
 	LogColor("Starter - JobDone", Colors.Magenta)
 	If Job.Success = False Then