v. 5.08.31

B4A/B4XMainPage.bas

@@ -1273,12 +1273,17 @@ Sub Class_Globals
 	Dim a As Cursor
 	Dim f As Cursor
 	Private b_abono As Button
+	Private cb_importarBDWA As CheckBox
+	Private p_importarBDWA As Panel
+	
+	Dim intentUsado As Boolean = False
 End Sub
 
 Public Sub Initialize
 '	B4XPages.GetManager.LogEvents = True
 End Sub
 
+
 'This event will be called once, before the page becomes visible.
 Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
@@ -1363,6 +1368,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	
 	
 	Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
+	Subs.agregaColumna("NOVENTA", "NV_FOTO2", "BLOB")
 	Subs.agregaColumna("kmt_info", "CAT_CL_SALDODISPONIBLE", "TEXT")
 	Subs.agregaColumna("kmt_info", "CAT_CL_DIASCREDITO", "INT")
 	Subs.agregaColumna("kmt_info", "HORAENT", "TEXT")
@@ -1416,6 +1422,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '		IMEN.Text = "" 'P.GetDeviceId
 '		IMEI = "" 'P.GetDeviceId
 '	End If
+
+	'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp.
+	If Subs.traeUsarIntentBDWA Then
+		Subs.importaBDDesdeWhatsApp
+	End If
 End Sub
 
 Sub B4XPage_Appear
@@ -1443,6 +1454,13 @@ Sub B4XPage_Appear
 		usuario = c.GetString("USUARIO")
 	End If
 	c.Close
+	
+	cb_importarBDWA.Checked = Subs.traeUsarIntentBDWA
+	If user.Text.Trim = "KMTS1" Then
+		p_importarBDWA.Visible = True
+	Else
+		p_importarBDWA.Visible = False
+	End If
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 '	If Result Then
@@ -1734,6 +1752,12 @@ Private Sub i_engrane_Click
 '	l_server.Text = Starter.server
 	et_server.Text = server
 	Subs.panelVisible(p_appUpdate, 0, 0)
+	
+	If user.Text.Trim = "KMTS1" Then
+		p_importarBDWA.Visible = True
+	Else
+		p_importarBDWA.Visible = False
+	End If
 End Sub
 
 Private Sub B4XPage_CloseRequest As ResumableSub
@@ -2202,4 +2226,10 @@ End Sub
 
 Private Sub p_appUpdate_Click
 	
+End Sub
+
+Private Sub cb_importarBDWA_CheckedChange(Checked As Boolean)
+'	LogColor($"cb_importarBDWA_CheckedChange = ${Checked}"$, Colors.Red)
+	Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'")
+	Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${Checked}')"$)
 End Sub