15/9/23 - Codigo de prueba en C_Subs

Código de prueba para hacer un DBRequest desde una clase y "tratar" de simplificar algunas funciones.

B4A/C_Principal.bas

@@ -6,6 +6,7 @@ Version=11.5
 @EndOfDesignText@
 Sub Class_Globals
 	Public rp As RuntimePermissions
+	dim s as C_Subs
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
 	Dim conectado As String
@@ -233,6 +234,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	'load the layout to Root
 	Root.LoadLayout("principal")
+	s.Initialize(Me, "Subs")
 	EJECUTANDO=1
 	Dim ruta As String
 	img2.Visible =False
@@ -955,6 +957,7 @@ Sub cargar_Click
 End Sub
 
 Sub JobDone(Job As HttpJob)
+	Log("JOBDONE PRINCIPAL")
 '	If Job.JobName = "DBRequest" Then
 '		Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
 '		Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
@@ -1731,6 +1734,20 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	Return False
 End Sub
 
+'############################################################################################
+'###################   Codigo de prueba JAGU, no poner atencion  ############################
+Sub connecta_LongClick
+	ProgressDialogShow("Enviamos")
+	s.reqManagerReInit 'Reiniciamos el DBReqManager por si hay modificacion en el servidor.
+	s.envioTest 'Llamamos envioTest de C_Subs.
+End Sub
+
+Sub Subs_envioOk(succes As Boolean)
+	Log("######################   " & succes)
+	ProgressDialogHide
+End Sub
+'################################    Termina codigo de prueba   #############################
+
 Sub connecta_Click
 	B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
 	Log(Starter.server)