17/9/23 - Cambios en mandappendientes y agregamos RepaldoDiario

- Se hicieron cambios en mandaPendeintes porque se estaban enviado SIEMPRE todos los pedidos.
- Se agregó la clase C_RespaldoDiario para implementar el respaldo de las tablas de inventarios, paquetes y pedidos.

B4A/B4XMainPage.bas

@@ -94,6 +94,8 @@ Sub Class_Globals
 	Private b_envioBD As Button
 	Public Provider As FileProvider
 	Public rutaBDBackup As String = ""
+	Dim MES1 As ManageExternalStorage
+	Dim device As Phone
 End Sub
 
 Public Sub Initialize
@@ -138,8 +140,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	ruta = Starter.ruta
 	
 	Provider.Initialize
-	Subs.borraArribaDe100Errores 	' Para Websockets
-	Subs.borraArribaDe600RenglonesBitacora 	' Para Websockets
+'	Subs.borraArribaDe100Errores 	' Para Websockets
+'	Subs.borraArribaDe600RenglonesBitacora 	' Para Websockets
 	If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 		Log(File.DirAssets)
@@ -166,6 +168,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
 '	skmt.ExecNonQuery("drop table kmt_info")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS kmt_info (CAT_CL_FOTO BLOB, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_CEDIS TEXT, CAT_CL_LAT TEXT, CAT_CL_LONG TEXT, CAT_CL_FBAJA TEXT, CAT_CL_FALTA TEXT, CAT_CL_CP TEXT, CAT_CL_EDO TEXT, CAT_CL_MUNI TEXT, CAT_CL_COLONIA TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_NOINT TEXT, CAT_CL_NOEXT TEXT, CAT_CL_CALLE TEXT, CAT_CL_EMAIL TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_GIRO TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_TIPO_RUTA TEXT, CAT_CL_RUTA TEXT, CAT_CL_CODIGO TEXT, gestion NUMERIC, CAT_CL_DIASEMANA TEXT, CAT_CL_SECUENCIA INT)")
+	Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "TEXT")
 	Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_DIASEMANA" en la tabla
 		c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_DIASEMANA'")
 		c.Position = 0
@@ -211,9 +214,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
 	End If
 	C.Close
-'	server = "http://keymon.com.mx:1782"
-	'server = "http://201.99.139.28:1783"
-'	reqManager.Initialize(Me, server)
 	l_version.Text = Application.VersionName
 	'este codigo es para lo del menu
 	PopupMenu.Initialize("PopupMenu", b_menu)
@@ -255,6 +255,27 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '		ToastMessageShow("No permission", True)
 '	End If
 	p_appUpdate.Visible = False
+	MES1.Initialize(Me, "MES1")
+	' get the device SDK version
+	Dim SdkVersion As Int = device.SdkVersion
+	' Choose which permission to request in order to access external storgage
+	If SdkVersion < 30 Then
+'		Log("SDK = " & SdkVersion & " : Requesting WRITE_EXTERNAL_STORAGE permission")
+		Dim rp As RuntimePermissions
+		rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Implicit read capability if granted
+		Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+'		Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$)
+	Else
+'		Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
+'		Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
+		If Not(MES1.HasPermission) Then
+			MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files")
+			Wait For Msgbox_Result(Res As Int)
+'			Log("Getting permission")
+			MES1.GetPermission
+			Wait For MES_StorageAvailable
+		End If
+	End If
 End Sub
 
 Sub B4XPage_Appear
@@ -673,6 +694,7 @@ Sub B_SERVER_Click
 	If Logger Then Log("Inicializamos reqManager con " & Starter.server)
 	reqManager.Initialize(Me, Starter.server)
 	CallSubDelayed(Starter, "reinicializaReqManager")
+	s.reqManagerReInit 'Inicializamos el reqManager de C_Subs.
 	Subs.panelVisible(p_Main,0,0)
 	p_appUpdate.Visible = False
 '	Entrar.Visible = True