From 116eb1aceb61fea0571f55df5288bcd92a2fa7b3 Mon Sep 17 00:00:00 2001
From: cvaldes1201 <cj.valdes@keymonsoft.com>
Date: Mon, 25 Sep 2023 18:01:50 -0600
Subject: [PATCH] 25-09-23 App terminada

---
 B4A/C_principal.bas           | 142 +++++-------
 B4A/Files/gestion.bal         | Bin 14948 -> 14146 bytes
 B4A/Files/mainpage.bal        | Bin 10245 -> 10245 bytes
 B4A/Files/scroll.bal          | Bin 18888 -> 9695 bytes
 B4A/ManageExternalStorage.bas |   2 +-
 B4A/NUEVO_TORRADO.b4a         |   4 +-
 B4A/NUEVO_TORRADO.b4a.meta    |   2 +-
 B4A/Starter.bas               |   2 +-
 B4A/Subs.bas                  |  21 +-
 B4A/c_datos.bas               | 423 ++++++++++++++++++----------------
 B4XMainPage.bas               |  32 +--
 11 files changed, 312 insertions(+), 316 deletions(-)

diff --git a/B4A/C_principal.bas b/B4A/C_principal.bas
index e7ea9de..c4b1fe0 100644
--- a/B4A/C_principal.bas
+++ b/B4A/C_principal.bas
@@ -74,7 +74,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Starter.skmt.ExecNonQuery2("INSERT INTO CARACTERISTICAS(TIPO, NUMERO) VALUES(?,?)", Array As Object ("PROPIA","1"))
 	Starter.skmt.ExecNonQuery2("INSERT INTO CARACTERISTICAS(TIPO, NUMERO) VALUES(?,?)", Array As Object ("RENTADA","2"))
 	Starter.skmt.ExecNonQuery2("INSERT INTO CARACTERISTICAS(TIPO, NUMERO) VALUES(?,?)", Array As Object ("OTRO","3"))
-
+	Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_DA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("DE", "SO", "SELECCIONA UNA OPCION",0,1))
+	Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_DA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("DE", "DE", "DESHABITADA / ABANDONADA",1,2))
 End Sub
 
 Sub B4XPage_Appear
@@ -83,12 +84,12 @@ Sub B4XPage_Appear
 	d.Position = 0
 	If d.GetString("CUANTOS") > 0 Then
 		If d.GetString("CARGADO") = "1" Then
-			c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 <> 2 order by 1")
+			c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP, ESTATUS FROM HIST_DATOS_GENERALES  WHERE ESTATUS2 <> 2 order by 1")
 				
 			clv_cuentas.Clear
 			For i = 0 To c.RowCount - 1
 				c.Position = i
-				clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),i)
+				clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" COL: "& c.GetString("COLONIA") & CRLF & "CIUDAD: "& c.GetString("CIUDAD")  &" ESTADO: "&c.GetString("ESTADO") & "C.P.: " & c.GetString("CP")), c.GetString("ESTATUS")),i)
 			Next
 			c.Close
 		End If
@@ -126,50 +127,45 @@ Private Sub b_carga_Click
 	cmd.Initialize
 	
 	
-	cmd.Name = "select_datosgenerales_TORRADO"
+	cmd.Name = "select_datosgenerales_NT"
 	cmd.Parameters = Array As Object(B4XPages.MainPage.user)
 	reqManager.ExecuteQuery(cmd , 0, "datosgenerales")
 	trabajos = trabajos + 1
 	
-	cmd.Name = "select_datosfinancieros_TORRADO"
+	cmd.Name = "select_datosfinancieros_NT"
 	cmd.Parameters = Array As Object(B4XPages.MainPage.user)
 	reqManager.ExecuteQuery(cmd , 0, "datosfinancieros")
 	trabajos = trabajos + 1
 	
-	cmd.Name = "select_fuentes_AR"
-	cmd.Parameters = Array As Object()
-	reqManager.ExecuteQuery(cmd , 0, "fuente")
-	trabajos = trabajos + 1
-	
-	cmd.Name = "select_parentesco_AR"
+	cmd.Name = "select_parentesco_NT"
 	cmd.Parameters = Array As Object()
 	reqManager.ExecuteQuery(cmd , 0, "parentesco")
 	trabajos = trabajos + 1
 	
-	cmd.Name = "select_accion_AR"
+	cmd.Name = "select_accion_NT"
 	cmd.Parameters = Array As Object()
 	reqManager.ExecuteQuery(cmd , 0, "accion")
 	trabajos = trabajos + 1
 	
-	cmd.Name = "select_resultado_MA_AR"
+	cmd.Name = "select_resultado_LO_NT"
 	cmd.Parameters = Array As Object()
-	reqManager.ExecuteQuery(cmd , 0, "resultado_MA")
+	reqManager.ExecuteQuery(cmd , 0, "resultado_LO")
 	trabajos = trabajos + 1
 	
-	cmd.Name = "select_resultado_VC_AR"
+	cmd.Name = "select_resultado_IL_NT"
 	cmd.Parameters = Array As Object()
-	reqManager.ExecuteQuery(cmd , 0, "resultado_VC")
+	reqManager.ExecuteQuery(cmd , 0, "resultado_IL")
 	trabajos = trabajos + 1
 	
-	cmd.Name = "select_resultado_CA_AR"
+	cmd.Name = "select_resultado_NC_NT"
 	cmd.Parameters = Array As Object()
-	reqManager.ExecuteQuery(cmd , 0, "resultado_CA")
+	reqManager.ExecuteQuery(cmd , 0, "resultado_NC")
 	trabajos = trabajos + 1
 	
-	cmd.Name = "select_resultado_BR_AR"
-	cmd.Parameters = Array As Object()
-	reqManager.ExecuteQuery(cmd , 0, "resultado_BR")
-	trabajos = trabajos + 1
+'	cmd.Name = "select_resultado_BR_AR"
+'	cmd.Parameters = Array As Object()
+'	reqManager.ExecuteQuery(cmd , 0, "resultado_BR")
+'	trabajos = trabajos + 1
 	
 	ProgressDialogShow("Cargando")
 End Sub
@@ -181,9 +177,9 @@ Private Sub l_cuentrastrabajadas_Click
 	clv_cuentas.Clear
 	For i = 0 To d.RowCount - 1
 		d.Position = i
-		c = Starter.skmt.ExecQuery2("SELECT NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES WHERE CREDITO = ? ",Array As String(d.GetString("CREDITO")))
+		c = Starter.skmt.ExecQuery2("SELECT NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP, ESTATUS FROM HIST_DATOS_GENERALES WHERE CREDITO = ? ",Array As String(d.GetString("CREDITO")))
 		c.Position = 0
-		clv_cuentas.Add(CreateListItem2(d.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS"), d.GetString("FECHA"),d.GetString("RESULTADO")),i)
+		clv_cuentas.Add(CreateListItem2(d.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" COL: "& c.GetString("COLONIA") & CRLF & "CIUDAD: "& c.GetString("CIUDAD")  &" ESTADO: "&c.GetString("ESTADO") & "C.P.: " & c.GetString("CP")), c.GetString("ESTATUS"), d.GetString("FECHA"),d.GetString("RESULTADO")),i)
 	Next
 	d.Close
 	l_cuentasportrabajar.TextColor = Colors.Black
@@ -199,18 +195,20 @@ Private Sub l_cuentasportrabajar_Click
 	d.Position = 0
 	If d.GetString("CUANTOS") > 0 Then
 		If d.GetString("CARGADO") = "1" Then
-			c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 <> 2 order by 1")
+			c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP, ESTATUS FROM HIST_DATOS_GENERALES  WHERE ESTATUS2 <> 2 order by 1")
 				
 			clv_cuentas.Clear
 			For i = 0 To c.RowCount - 1
 				c.Position = i
-				clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),i)
+				clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" COL: "& c.GetString("COLONIA") & CRLF & "CIUDAD: "& c.GetString("CIUDAD")  &" ESTADO: "&c.GetString("ESTADO") & "C.P.: " & c.GetString("CP")), c.GetString("ESTATUS")),i)
 			Next
 			c.Close
 		End If
 	End If
 	d.Close
 	
+
+	
 	Label3.Text = "Cuentas"
 	l_cuentasportrabajar.TextColor = Colors.White
 	l_cuentasportrabajar.Color = Colors.RGB(83,22,22.255)
@@ -372,24 +370,6 @@ Sub JobDone(Job As HttpJob)
 			
 			
 			'' AQUI NOS QUEDAMOS, FALTA VER DATOS DE CONTACTO Y RESULTADOS DE ACCION Y LA PARTE DE ENVIOS.
-			If result.Tag = "fuente" Then 'query tag
-				Starter.skmt.ExecNonQuery("delete from CAT_FUENTE")
-				trabajos = trabajos - 1
-				Dim num As Int = 0
-				Dim num2 As Int = 1
-				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_FUENTE(FUENTE, NUMERO, NUME) VALUES (?,?,?)", Array As Object("Selecciona una opción",num, num2))
-				For Each records() As Object In result.Rows
-					
-					Dim FUENTE As String = records(result.Columns.Get("CAT_FU_FUENTE"))
-					num = num + 1
-					num2 = num2 +1 
-					Dim numero As Int = num
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_FUENTE(FUENTE, NUMERO, NUME) VALUES (?,?,?)", Array As Object(FUENTE,numero,num2))
-					
-				Next
-								
-			End If
-			
 			If result.Tag = "parentesco" Then 'query tag
 				Starter.skmt.ExecNonQuery("delete from CAT_PARENTESCO")
 				trabajos = trabajos - 1
@@ -398,10 +378,11 @@ Sub JobDone(Job As HttpJob)
 				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PARENTESCO (PARENTESCO, NUMERO, NUME) VALUES (?,?,?)", Array As Object("Selecciona una opción",num, num2))
 				For Each records() As Object In result.Rows
 					Dim PARENTESCO As String = records(result.Columns.Get("CAT_PA_PARENTESCO"))
+					Dim ID As String = records(result.Columns.Get("CAT_PA_ID"))
 					num = num + 1
 					num2 = num2 +1
 					Dim numero As Int = num
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PARENTESCO (PARENTESCO, NUMERO, NUME) VALUES (?,?,?)", Array As Object(PARENTESCO,numero,num2))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PARENTESCO (PARENTESCO, NUMERO, NUME) VALUES (?,?,?)", Array As Object(PARENTESCO,ID,num2))
 					
 				Next
 								
@@ -414,25 +395,26 @@ Sub JobDone(Job As HttpJob)
 				Dim num2 As Int = 1
 				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ACCION(CO_ACCION, CO_ACDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?)", Array As Object("SO", "Selecciona una opción",num,num2))
 				For Each records() As Object In result.Rows
-					Dim CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
-					Dim CO_ACDESCRIPCION As String = records(result.Columns.Get("CAT_CO_ADESCRIPCION"))
+					Dim CO_ACCION As String = records(result.Columns.Get("CAT_CA_CODIGO"))
+					Dim CO_ACDESCRIPCION As String = records(result.Columns.Get("CAT_CA_DESCRIPCION"))
+					Dim ID_ACCION As String = records(result.Columns.Get("CAT_CA_ID"))
 					num = num + 1
 					num2 = num2 +1
 					Dim numero As Int = num
 					
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ACCION(CO_ACCION, CO_ACDESCRIPCION, NUMERO,NUME) VALUES (?,?,?,?)", Array As Object(CO_ACCION, CO_ACDESCRIPCION,numero,num2))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ACCION(CO_ACCION, CO_ACDESCRIPCION, NUMERO,NUME) VALUES (?,?,?,?)", Array As Object(CO_ACCION, CO_ACDESCRIPCION,ID_ACCION,num2))
 					
 				Next
 								
 			End If
 			
-			If result.Tag = "resultado_MA" Then 'query tag
-				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_MA")
+			If result.Tag = "resultado_LO" Then 'query tag
+				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_LO")
 				trabajos = trabajos - 1
 				Dim num As Int = 0
 				Dim num2 As Int = 1
 				Dim num2 As Int = 1
-				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_MA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("MA","SO", "Selecciona una opción",num,num2))
+				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_LO(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("MA","SO", "Selecciona una opción",num,num2))
 				For Each records() As Object In result.Rows
 					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
 					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
@@ -440,17 +422,17 @@ Sub JobDone(Job As HttpJob)
 					num = num + 1
 					num2 = num2 +1
 					Dim numero As Int = num
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_MA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_LO(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
 				Next
 								
 			End If
 			
-			If result.Tag = "resultado_VC" Then 'query tag
-				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_VC")
+			If result.Tag = "resultado_IL" Then 'query tag
+				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_IL")
 				trabajos = trabajos - 1
 				Dim num As Int = 0
 				Dim num2 As Int = 1
-				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_VC(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("VC","SO", "Selecciona una opción",num,num2))
+				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_IL(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("VC","SO", "Selecciona una opción",num,num2))
 				For Each records() As Object In result.Rows
 					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
 					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
@@ -458,17 +440,17 @@ Sub JobDone(Job As HttpJob)
 					num = num + 1
 					num2 = num2 +1
 					Dim numero As Int = num
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_VC(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_IL(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
 				Next
 								
 			End If
 			
-			If result.Tag = "resultado_CA" Then 'query tag
-				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_CA")
+			If result.Tag = "resultado_NC" Then 'query tag
+				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_NC")
 				trabajos = trabajos - 1
 				Dim num As Int = 0
 				Dim num2 As Int = 1
-				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_CA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("CA","SO", "Selecciona una opción",num,num2))
+				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_NC(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("CA","SO", "Selecciona una opción",num,num2))
 				For Each records() As Object In result.Rows
 					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
 					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
@@ -476,28 +458,28 @@ Sub JobDone(Job As HttpJob)
 					num = num + 1
 					num2 = num2 +1
 					Dim numero As Int = num
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_CA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_NC(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
 				Next
 								
 			End If
 			
-			If result.Tag = "resultado_BR" Then 'query tag
-				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_BR")
-				trabajos = trabajos - 1
-				Dim num As Int = 0
-				Dim num2 As Int = 1
-				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_BR(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("BR","SO", "Selecciona una opción",num,num2))
-				For Each records() As Object In result.Rows
-					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
-					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
-					Dim CO_RDESCRIPCION As String = records(result.Columns.Get("CAT_CO_RDESCRIPCION"))
-					num = num + 1
-					num2 = num2 +1
-					Dim numero As Int = num
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_BR(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
-				Next
-								
-			End If
+'			If result.Tag = "resultado_BR" Then 'query tag
+'				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_BR")
+'				trabajos = trabajos - 1
+'				Dim num As Int = 0
+'				Dim num2 As Int = 1
+'				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_BR(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("BR","SO", "Selecciona una opción",num,num2))
+'				For Each records() As Object In result.Rows
+'					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
+'					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
+'					Dim CO_RDESCRIPCION As String = records(result.Columns.Get("CAT_CO_RDESCRIPCION"))
+'					num = num + 1
+'					num2 = num2 +1
+'					Dim numero As Int = num
+'					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_BR(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
+'				Next
+'								
+'			End If
 	
 		End If
 
@@ -519,7 +501,7 @@ Private Sub b_enviar_Click
 	Dim Dirp As String = File.DirRootExternal
 	Dim Dir As String
 	Dim Dir2 As String
-	Dir = "/Arestrategicas"
+	Dir = "/nuevotorrado"
 	Dir2 = "/reduccion"
 	
 	c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1")
@@ -533,8 +515,8 @@ Private Sub b_enviar_Click
 		foto4 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOCUATRO")))
 		
 		cmd.Initialize
-		cmd.Name = "insert_gestion_AR"
-		cmd.Parameters = Array As Object(c.GetString("CREDITO"), c.GetString("PRODUCTO"), c.GetString("VISITADOR"), c.GetString("RESULTADO"), c.GetString("CODIGO_RES"), c.GetString("PARENTESCO"), c.GetString("COMENTARIOS"), c.GetString("FECHA"), c.GetString("LONGITUD"), c.GetString("LATUTUD"), c.GetString("FECHACAPTURA"), c.GetString("AGENCIA"), c.GetString("FECHA_PROMESA"), c.GetString("MONTO_PROMESA"), c.GetString("TIPO_DOMICILIO"), c.GetString("NIVEL_SOCIO"), c.GetString("CARACTERISTICAS"), c.GetString("NIVELES"), foto1, foto2, foto3, foto4, c.GetString("NOMBRE_ATIENDE"), c.GetString("CODIGO_ACCION"), c.GetString("ACCION"), c.GetString("DIAS_ACCION"), c.GetString("PUNTOS_REF"))
+		cmd.Name = "insert_gestion_NT"
+		cmd.Parameters = Array As Object(c.GetString("CREDITO"), c.GetString("VISITADOR"), c.GetString("FECHACAPTURA"), c.GetString("RESULTADO"), c.GetString("CODIGO_RES"), c.GetString("COMENTARIOS"), c.GetString("PARENTESCO"), c.GetString("LONGITUD"), c.GetString("LATUTUD"),foto1,foto2,foto3,foto4, c.GetString("FECHA_PROMESA"), c.GetString("MONTO_PROMESA"), c.GetString("TIPO_DOMICILIO"),c.GetString("NIVEL_SOCIO"),c.GetString("CARACTERISTICAS"),c.GetString("SERVICIOELECTRICO"),c.GetString("NOMBRE_ATIENDE"), c.GetString("ACCION"), c.GetString("CODIGO_ACCION"))
 		B4XPages.MainPage.reqManager.ExecuteCommand(cmd, "insert_gestion_AREstrategicas")
 		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ENVIADO = ? WHERE CREDITO = ?", Array As String("1",c.GetString("CREDITO")))
 	Next
diff --git a/B4A/Files/gestion.bal b/B4A/Files/gestion.bal
index e49a7cab094a3ee60c40f97a034c243fad401b37..38fbf66f2f7999601b42a8df9e269b19c0f6c167 100644
GIT binary patch
delta 1733
zcmbtUNo*5I6z$(}7I*BB4TBSKyu}Gi9CzDJ93qxTEQ*E$3KD2Ikm=YBba3oocg!k0
zm$`rhg3lU6Gz`mu3mUaF2L^$d!@v<Zp%F(whzmKOnd9)Qnj~!@4g^d8`}M1;_pAE-
z>et3!Id`=n2-h8gAklx%?`{dO3;xHLcp7~8KrEJ<h;OE7p_s$1HoVk^JvO||hL;oe
zQnXRD+wck-UTMR=1zZ+779Iq@4F_yEXu}~J4ioOAh){IdaJLPwBD|Vn4aHg;76~^B
zxW#cEZksP1)m2`0)XjR@P$#sUKa-!((|T4{3wqvsS354^8R@<kXiAE`%HauhzqU))
z4l9frXv1>dGCWrQcR5x=&)d~8EvwWL8ZvY(m(f@;S$0!SkBv^M1ubW2#dMz2%KVB1
zd#NK@aVncN)J)!=(fnD}U($=Zq4KG5m!(i(bJ!HlCRia}QjX!Du9c8H_jqXyAL_%8
zuCS-S-da}DOKdlmRtlr;;8uBnnNOQas|7V}Xa&7!=xMdcRx7cJlg2qGS8xf=DR{{p
z^~6~feY9e4N&^3JcZtak{(jmT_CTLG)$jqte;xQN={3uZ+W}tTOsL!Z*fi~oj*$eD
zbfzh>)~%utoEb`-)(Grl%zjD-@Mqt0&~Yf)*23nq_Jp4(HBdNpoJ@4!8(*(@w+cNS
zvD7%RmfRw$9Q;a^gP*HJ>YtK4^AD_Yz1jJ46NLEga|9L+m7k+02^_*)a3d5bN1Jzg
zJRzchT@&_m6xkpu0WTQ1iF$2cpgqd8_<<i1kSUyvl=#UF0_--pmN1&#jVZhr2to;8
z1V+S14vYk2a2P)%$KeRhHtwK2)D(rIIN3CU7eWdg!zZB|aGYwb#f#xEq5I(n=C0rd
zkp3ezcHQBXITN}AnCVu`Qs)K`w}}|-kC|^HCjmXaX0z127sM+TS+n{iz#rx>Yw{qz
zx2Q-DQFVAbI=C3m&oMWo1<&zRFWtao1G5_j@o`*Eou^GM+HL%b+c@X8H1D=m?ZUTL
zyGToT2jf<yy?*{ID*&@f7oJV1smtFZx;b7cIv!`D5j2y7aFu&M&Ap%I-d`i{hb7iM
zyoJ|ePrr<_2}!z66z|;`eBQbnf9z|;(LgQk8SuD%rJ-tpebbyXc!JvUZeK6lz#XX(
l(9pY1ZvBmhEDI`C;3joe?2Gk8vo^d%3d6W$os+Bl@Cn3HFLD3?

delta 1933
zcmbVMO>7%g5caq>t=D!EJ6pT4<Da;RW7;I%-8i-*NNACW6sf90R8=TQH0$-YY)ICw
zy-8bs8gVVERA)*-L`6*sZ2=)sEfN<l{W<i2_>t(9Q#m5Ui5oC)O`SDLg_^_6e*3+7
z^YdojyQ@Dk{BDQC@q^3Z;OLvZ?dPD&M@ThJRF`$5Qm?5eF${lm&k%V;E~$&-7;?S`
zN!)bSS38L8BnglNNxDgR8{TWfAsY_c@ID*vAsiuzlJwee%!cDzc-4{E`f(&}xX*@D
zHoV`4`)zo@hSP)xNirnQ+VBAzK1g_ol|D>h#QGtOoNFCEH*dJyyS%%JJgg|%JySRD
z?_O|DY#kswp&9FNlVvqY2dvgqUD0G9zWCq6XXJPc!5hXYZZqPfUr}JanqHDmsmC?-
zjAU`*n)jDgsTD-(B9miUwZcLu72S{(qhcA3`e{Weov6wb)lln7lg_oa=9u?cwZ6Q#
zXvpQ}>KIFlHq{v2V)Lv>YbZp46@{{|2MUcld-0Ob4Mn`->ko~4n>$yu6;0L4GRr{{
z@JC;2N)p-3kXJ>nQF>}ks~egk*DVvNt;SJ{8*Srq7MH_-i^n7WNN9{j(%Ms$^7yuY
z&{;@W2l%aj4vJ>D<9BfCZamEQ;GWJ-Q|OuiD4TlVt_L+<h7w*&%#i*gF#-zCr(cB!
zs0T7o#zWygP_Yy~P5S5XMJ#24Fom~;MDZkr-bLc@oFc^%^Sn-q-K{3AJ*F23yg}kw
zB(;REMfZV@ePX1W*|R$W^Q73t^5{4tyu=j<vikxN+{lW>3c(#msy-o7l_DK&2FRXn
z1*j3SN~sgrD#dtAFB4e7mt!x$8ElX~i$BF)fpZwoNAOoZh=SySI?l%<-RH=XT`3=X
zEIesaZ{o#x3f{u6;<H?qe6v>o%4>y;c`P*vSW8Og{r%?wQz^+b1}1^~lMI?htQqE`
zG%db3Aeomlli>WuiN2g*x(=KN??X!2G8_Vg!l3!}!AXEU=*@{{|1hnm>GW*ta0%!6
z1!!1JZ&*!V!(?(6=GYcM{2;Iam#L;9RuAgIDE(asUhtl6_fveI65MHHFeyg28GtM8
z1MmeK0Q_F$MxK7iFfMHu;X|wOO~>C!PvQ6@s<t`3>+LhuOAnScz3b#UflH!{&*ygJ
z`05iJU;Wo{8XMAc@G)y2-puiMG&F&K<+5;%+BeOy9IR{eCF>)<(dy17A#19yV_&C)
ztFZvS)5XIl)MCN+DJ{Ak?1l7P$GLojX!Z=;z>%?8c!=+giTus~^K@%_Pq!>jpOL3&
S{4MWkdc)o*hr@*qO6VT|2U4>D

diff --git a/B4A/Files/mainpage.bal b/B4A/Files/mainpage.bal
index a8e5bfba7ba81a14787e30a6e19d8a749635eaab..5d9c9d8753de115562aedd33514dfde76ce30e38 100644
GIT binary patch
delta 45
zcmZn-Xbsr#UxATflHx%|hRK1v!dyNK3=EP$%;-A#qq5;<0i_3wjJ%saDvPiH04Yuk
AGynhq

delta 43
ycmZn-Xbsr#UxATvlH$S10lXqyJ`4;Dl0eMJGx?*k;bsA)2aJp^n?EXxumAuY@eDEm

diff --git a/B4A/Files/scroll.bal b/B4A/Files/scroll.bal
index 9cd4ca401295074892a33b7cb6a1f5a6da99393b..cfd2ebe96ecd8cd5589f8accc78091d7ca010bf2 100644
GIT binary patch
delta 270
zcmX>xneo0iFDnBB!+9nK1}-2iGm$q-h7-uhiBHWd$xKO1;RbVZOY<_5GYc~FCns=-
zP5j9{nV(Uc+n5a~=aZO}nqxk>pV4hHBa^V0DM&0JF)ua80?x7&pB%)rJ5m@ZBLc*t
zKn!DxA+g1g*b+!=NhG!u5?dO^p4`Tg#hASLBg-n5$-&&>Oom3AbGXx_C!bg1oc!6%
vXfm(5$z(fa^T`$J#gotTb57>*m^*o*hV<kK0%nsRX;e-wa21-|>gfysf2}tV

delta 2422
zcmZuzOHUI~6rKwxwiO9hQ9*67AozlIT3$vMhCqA}Lo{x5QA<08Dbs0zq9DaV5ML--
z?#6@|cN&Qs!^)*Qe*$si*0}H|sOO%`+_^&`nfBw}^PTTI_ntH9&uiZ)soA9{%C9O#
z@xphkRFkoG12E#rsfj#CS}KvM#x*UQ&<ziVW<iH_;6ZHK^x=1Q%G8s3UeEDxGp9`#
zY^a+B&NOq`;R$Vo$r|yAbdrlqYSTG}1{0+Z`-oav@4Tfl>R@76Gt`I!V-D<eU^nMN
zY*e5wft=mm((eI_(S{PHW<*ee!>F^05`49j<v^$kgbKJ86KhT!s^TuHBI*%wy&Z}|
z?~t!nCFEs?=ZD9}2PAw@!u1k9B;msnJ|f`;2{%gksDmx#nDdWvT*3hf2PNDj;S+#E
z@HE5IBH@z~Zk2GGgij&1IQg`+aYn*tC45f8?GlEQ6ehwFj!0OQa8$wy9j{0ey0KZY
zUS+B59&QZuov(oJh;+}QMR7xFEVj{i>&6ggI9-5<j}B6tuIOgnWyH-Ki~(+Su?1{y
zE26T&xSnedUNH;pJg3t;7|56~OUT4#LT0bc>z}rHy&|m|VJ>gNSYbvr?Ciu?qYY@u
z(L^w%1uZj?)U&!~7PcaB*syOSQG33bvMLQ^CrjQBF94og8Xi19BhKa-NzyQF9S?h-
z;1-`>6(<}E?q}~8o)OFDCNRv1<I4wm-E^ipSfTc8tW~EQ{Y4lbHWh?jHX8}jMC$@=
z^g<|B`46ToABfS9p-KPSvbZsb3(=wGWx5&cqIE4Z^l8(6a+f};QAv`1@nlGferxvA
z4(~-k^Y!gSqnBE)_;<mn?4U@}w8<B>HOUBlf9NcHhCKoLr}3n}wT!j2rJpCGpwqxy
z)Q&;{t?=xvg%8gNt*gtRt66lVyA(30kP!-(ZG{Ek;z^{0!kADPb17tm!fjMAu<op=
zJBxLjSoe{#{2lD1NzUaekFN5<)o1(McW^Z>T#dV2<+r(-Kv$E()g-zqpsTsE{M^+P
za_$MvJ>=X+PQ6{p5BsDzXBs&(j6=dS?7cu{koADEybo-pD!L~SA+xTsi&%ECyzDAc
zb{TV`>^WE2#cgFjL_3x!!9p|h?h-_PUcw`ns|9qmAYApA74EdiqHwk7a<#C{)nk{!
z5-Kc}D+phX!V{tJ#H9d(u+`?g37=x!&qUqNu<qxqZlAb>t7O$5CNErOmeI_zZN~S>
zzOk!>29B<gmymL(_N7aF8N`e9&A}*ng|aI`b_Hc$Gg<ogxQBW}DtQBX8B#)>lC4Ak
a`aCq${En<*{#95066T+;xyXJ5z~6ri3CutM

diff --git a/B4A/ManageExternalStorage.bas b/B4A/ManageExternalStorage.bas
index 6dbb41f..7f0a197 100644
--- a/B4A/ManageExternalStorage.bas
+++ b/B4A/ManageExternalStorage.bas
@@ -51,7 +51,7 @@ Public Sub GetPermission
 	End If
 	Dim in As Intent
 	' Be sure to reference your app package name in "pakageg:xxx"
-	in.Initialize("android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION", "package:arestrategicas.keymon.lat")
+	in.Initialize("android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION", $"package:${Application.PackageName}"$)
 	StartActivityForResult(in)
 End Sub
 
diff --git a/B4A/NUEVO_TORRADO.b4a b/B4A/NUEVO_TORRADO.b4a
index 30120df..c0d190b 100644
--- a/B4A/NUEVO_TORRADO.b4a
+++ b/B4A/NUEVO_TORRADO.b4a
@@ -1,4 +1,4 @@
-Build1=Default,arestrategicas.keymon.lat
+Build1=Default,nuevotorrado.keymon.lat
 File1=candado.png
 File10=gestion.bal
 File11=gestionadas.bal
@@ -86,7 +86,7 @@ Version=12.5
 	#AdditionalJar: com.google.android.gms:play-services-location
 	#ApplicationLabel: NUEVO TORRADO
 	#VersionCode: 1
-	#VersionName: 3.06.15
+	#VersionName: 3.09.25
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/NUEVO_TORRADO.b4a.meta b/B4A/NUEVO_TORRADO.b4a.meta
index fd0f2e0..794dad8 100644
--- a/B4A/NUEVO_TORRADO.b4a.meta
+++ b/B4A/NUEVO_TORRADO.b4a.meta
@@ -34,6 +34,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,revisaBD,15,6,B4XMainPage,b_iniciar_Click,100,0,C_principal,b_carga_Click,127,0,Diseñador Visual,gestion.bal,-100,6,Diseñador Visual,datos.bal,-100,1,C_principal,JobDone,428,6,Diseñador Visual,scroll.bal,-100,6,c_datos,B4XPage_Appear,259,0,Diseñador Visual,financiero.bal,-100,6,c_datos,Class_Globals,42,0
+NavigationStack=C_principal,JobDone,464,0,Subs,revisaBD,38,0,B4XMainPage,b_enviarbd_Click,213,0,appUpdater,Download,198,0,appUpdater,Process_Globals,74,0,Starter,Service_Create,28,0,Starter,Service_Start,36,0,Starter,Process_Globals,10,0,Diseñador Visual,MainPage.bal,-100,2,B4XMainPage,ImageView5_Click,165,0
 SelectedBuild=0
 VisibleModules=9,1,2,4,3,5,6,7,8,10
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index 22bbe65..0c0be10 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -14,7 +14,7 @@ Sub Process_Globals
 	'These variables can be accessed from all modules.
 	Public rp As RuntimePermissions
 	Dim reqManager As DBRequestManager
-	Dim DBReqServer As String = "http://11.0.0.60:1782" '"http://keymon.lat:1788" "http://11.0.0.196:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
+	Dim DBReqServer As String = "http://keymon.lat:1781" '"http://keymon.lat:1781" "http://11.0.0.134:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
 '	Dim server As String = "http://10.0.0.205:1782"
 	Dim rutaBD As String = File.DirInternal
 	Dim skmt As SQL
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 4d5c21e..360e391 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -20,14 +20,13 @@ Sub revisaBD 'ignore
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FINANCIEROS(CREDITO TEXT, DIASATRASO TEXT, MESVENCIDO TEXT, SALDO_VENCIDO TEXT, SALDO_TOTAL TEXT, TIPO_UNIDAD TEXT, MARCA TEXT, ANO TEXT, NO_SERIE TEXT, RESULTADO TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_DATOS_GENERALES2(CREDITO TEXT, NOMBRE TEXT, CALLE TEXT, COLONIA TEXT, CIUDAD TEXT, ESTADO TEXT, CP TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FINANCIEROS2(CREDITO TEXT, DIASATRASO TEXT, MESVENCIDO TEXT, SALDO_VENCIDO TEXT, SALDO_TOTAL TEXT, TIPO_UNIDAD TEXT, MARCA TEXT, ANO TEXT, NO_SERIE TEXT, RESULTADO TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
-	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_FUENTE(FUENTE TEXT, NUMERO INT, NUME INT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PARENTESCO (PARENTESCO TEXT, NUMERO INT, NUME INT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ACCION(CO_ACCION TEXT, CO_ACDESCRIPCION TEXT, NUMERO INT, NUME INT)")
-	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_MA(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
-	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_VC(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
-	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_CA(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
-	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_BR(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
-	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VISITA(CREDITO TEXT, PRODUCTO TEXT, VISITADOR TEXT, RESULTADO TEXT, CODIGO_RES TEXT, FUENTE TEXT, PARENTESCO TEXT, COMENTARIOS TEXT, FECHA TEXT, LONGITUD TEXT, LATUTUD TEXT, FECHACAPTURA TEXT, AGENCIA TEXT, FECHA_PROMESA TEXT, MONTO_PROMESA TEXT, TIPO_DOMICILIO TEXT, NIVEL_SOCIO TEXT, CARACTERISTICAS TEXT, FOTOUNO TEXT, FOTODOS TEXT, FOTOTRES TEXT, FOTOCUATRO TEXT, NOMBRE_ATIENDE TEXT, CODIGO_ACCION TEXT, ACCION TEXT, PUNTOS_REF TEXT, ESTATUS INT, ENVIADO TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_LO(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_IL(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_NC(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_DA(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VISITA(CREDITO TEXT, VISITADOR TEXT, RESULTADO TEXT, CODIGO_RES TEXT, PARENTESCO TEXT, COMENTARIOS TEXT, FECHA TEXT, LONGITUD TEXT, LATUTUD TEXT, FECHACAPTURA TEXT, FECHA_PROMESA TEXT, MONTO_PROMESA TEXT, TIPO_DOMICILIO TEXT, NIVEL_SOCIO TEXT, CARACTERISTICAS TEXT, SERVICIOELECTRICO TEXT, FOTOUNO TEXT, FOTODOS TEXT, FOTOTRES TEXT, FOTOCUATRO TEXT, NOMBRE_ATIENDE TEXT, CODIGO_ACCION TEXT, ACCION TEXT, ESTATUS INT, ENVIADO TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TIPO_VIVIENDA(TIPO TEXT, NUMERO INT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NIVEL_SOCIO(NIVEL TEXT, NUMERO INT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CARACTERISTICAS(TIPO TEXT, NUMERO INT)")
@@ -39,13 +38,13 @@ Sub revisaBD 'ignore
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_FINANCIEROS")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_DATOS_GENERALES2")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_FINANCIEROS2")
-'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_FUENTE")
+	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_FUENTE")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_PARENTESCO")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_ACCION")
-'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_MA")
-'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_BR")
-'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_CA")
-'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_VC")
+'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_LO")
+	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_BR")
+'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_NC")
+'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_IL")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_VISITA")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS TIPO_VIVIENDA")
 '	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS NIVEL_SOCIO")
diff --git a/B4A/c_datos.bas b/B4A/c_datos.bas
index 5143c3e..0383373 100644
--- a/B4A/c_datos.bas
+++ b/B4A/c_datos.bas
@@ -36,17 +36,24 @@ Sub Class_Globals
 	Dim MES1 As ManageExternalStorage
 	
 	'Datos generales
+	Private l_cuenta As Label
 	Private l_nombreg As Label
 	Private l_calle As Label
-	Private l_noext As Label
-	Private l_noint As Label
 	Private l_alcaldia As Label
 	Private l_municipio As Label
 	Private l_entidad As Label
 	Private l_cp As Label
 	
 	'Datos financieros
-	
+	Private l_diasatraso As Label
+	Private l_mesvencido As Label
+	Private l_saldoven As Label
+	Private l_totalapagar As Label
+	Private l_unidad As Label
+	Private l_ano As Label
+	Private l_marca As Label
+	Private l_serie As Label
+	Private l_estatus As Label
 	
 	'Gestion
 	
@@ -98,7 +105,6 @@ Sub Class_Globals
 	Private ImageView4 As ImageView
 	Private b_foto As Button
 	Private et_comentarios As EditText
-	Private et_puntosref As EditText
 	Dim montoapagar As Float
 	'CURSORES GUARDADO
 	Dim h As Cursor
@@ -109,6 +115,9 @@ Sub Class_Globals
 	Dim n As Cursor
 	
 	
+
+	Private rdb_si As RadioButton
+	Private rdb_no As RadioButton
 End Sub
 
 Public Sub Initialize
@@ -212,13 +221,13 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	
 	' get the device SDK version
 	Dim SdkVersion As Int = device.SdkVersion
-	
+'	If Not(MES1.HasPermission) Then
 	' 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)
+		Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 		Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$)
 	Else
 		Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
@@ -231,6 +240,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			Wait For MES_StorageAvailable
 		End If
 	End If
+'	End If
 	
 End Sub
 
@@ -246,35 +256,31 @@ Private Sub B4XPage_Appear
 	cuenta = B4XPages.MainPage.principal.lb.Text
 	Log (cuenta)
 	
-	c = Starter.skmt.ExecQuery2("SELECT NOMBRE, RFC, CURP, CALLE, N_EXT, N_INT, ALCALDIA, MUNICIPIO, ENTIDAD, CP, SEXO, FECHA_NACIMIENTO, EDAD, EMAIL from HIST_DATOS_GENERALES WHERE CREDITO = ?" , Array As String (cuenta))
+	c = Starter.skmt.ExecQuery2("SELECT CREDITO, NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP from HIST_DATOS_GENERALES WHERE CREDITO = ?" , Array As String (cuenta))
 	c.Position = 0
+	l_cuenta.Text = c.GetString("CREDITO")
 	l_nombreg.Text = c.GetString("NOMBRE")
 	l_calle.Text = c.GetString("CALLE")
-	l_noext.Text = c.GetString("N_EXT")
-	l_noint.Text = c.GetString("N_INT")
-	l_alcaldia.Text = c.GetString("ALCALDIA")
-	l_municipio.Text = c.GetString("MUNICIPIO")
-	l_entidad.Text = c.GetString("ENTIDAD")
+	l_alcaldia.Text = c.GetString("COLONIA")
+	l_municipio.Text = c.GetString("CIUDAD")
+	l_entidad.Text = c.GetString("ESTADO")
 	l_cp.Text = c.GetString("CP")
 	c.Close
 	
-	b = Starter.skmt.ExecQuery2("SELECT CARTERA, SALDO_TOTAL, MONTO_PAGAR, TOTAL_PAGO_DESC, LIQUIDACION, DIAS_VENCIDOS, DIAS_ATRASO_ACT, FECHA_ATRASO, BBVA, OXXO FROM HIST_FINANCIEROS WHERE CREDITO = ?", Array As String(cuenta))
+	b = Starter.skmt.ExecQuery2("SELECT CREDITO, DIASATRASO, MESVENCIDO, SALDO_VENCIDO, SALDO_TOTAL, TIPO_UNIDAD, MARCA, ANO, NO_SERIE, RESULTADO FROM HIST_FINANCIEROS WHERE CREDITO = ?", Array As String(cuenta))
 	b.Position = 0
-	l_cartera.Text = b.GetString("CARTERA")
-	l_saldotot.Text = b.GetString("SALDO_TOTAL")
-	l_saldotot.Text= NumberFormat(l_saldotot.Text.Replace(",",""),0,2)
-	l_montoapagar.Text = b.GetString("MONTO_PAGAR")
-	l_montoapagar.Text= NumberFormat(l_montoapagar.Text.Replace(",",""),0,2)
-	montoapagar = b.GetString("MONTO_PAGAR")
-	l_totalapagar.Text = b.GetString("TOTAL_PAGO_DESC")
+	l_diasatraso.Text = b.GetString("DIASATRASO")
+	l_mesvencido.Text = b.GetString("MESVENCIDO")
+	l_saldoven.Text = b.GetString("SALDO_VENCIDO")
+	l_saldoven.Text= NumberFormat(l_saldoven.Text.Replace(",",""),0,2)
+	l_totalapagar.Text = b.GetString("SALDO_TOTAL")
 	l_totalapagar.Text= NumberFormat(l_totalapagar.Text.Replace(",",""),0,2)
-	l_liquidacion.Text = b.GetString("LIQUIDACION")
-	l_liquidacion.Text= NumberFormat(l_liquidacion.Text.Replace(",",""),0,2)
-	l_diasvencidos.Text = b.GetString("DIAS_VENCIDOS")
-	l_diasatraso.Text = b.GetString("DIAS_ATRASO_ACT")
-	l_fechaatraso.Text = b.GetString("FECHA_ATRASO")
-	l_bbva.Text = b.GetString("BBVA")
-	l_oxxo.Text = b.GetString("OXXO")
+	montoapagar = b.GetString("SALDO_TOTAL")
+	l_unidad.Text = b.GetString("TIPO_UNIDAD")
+	l_marca.Text = b.GetString("MARCA")
+	l_ano.Text = b.GetString("ANO")
+	l_serie.Text = b.GetString("NO_SERIE")
+	l_estatus.Text = b.GetString("RESULTADO")
 	b.Close
 	
 	l = Starter.skmt.ExecQuery2("SELECT COUNT(*) As CUENTA FROM HIST_VISITA WHERE (ESTATUS = 0 OR ESTATUS = 1) and CREDITO = ?",Array As String(cuenta))
@@ -283,7 +289,6 @@ Private Sub B4XPage_Appear
 	If l.GetString("CUENTA") = 0 Then
 		
 		et_comentarios.Text = ""
-		et_puntosref.Text = ""
 		et_parentesco.Text = ""
 		et_monto.Text = ""
 		b_fecharesultado.Text = "Fecha de pago"
@@ -296,6 +301,8 @@ Private Sub B4XPage_Appear
 		nombrefoto1 = "0"
 		nombrefoto2 = "0"
 		nombrefoto3 = "0"
+		rdb_no.Checked = False
+		rdb_si.Checked = False
 	
 		e = Starter.skmt.ExecQuery("SELECT PARENTESCO, NUME FROM CAT_PARENTESCO order by 2")
 		Dim Items2 As List
@@ -361,18 +368,16 @@ Private Sub B4XPage_Appear
 		End If
 		q.Close
 	
-		h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ?", Array As String(cuenta))
-		h.Position = 0
 		k = Starter.skmt.ExecQuery2("SELECT COUNT(*) As CUENTA FROM HIST_VISITA WHERE (ESTATUS = 0 OR ESTATUS = 1) and CREDITO = ?",Array As String(cuenta))
 		k.Position = 0
 		Log(k.GetString("CUENTA"))
 		If k.GetString("CUENTA") = 0 Then
-			Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, AGENCIA, RESULTADO, FUENTE, PARENTESCO, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, NIVELES, ACCION, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, ESTATUS, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, h.GetString("AGENCIA"),"Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","0","0","0","0",0,"0"))
+			Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, PARENTESCO, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, ACCION, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, ESTATUS, ENVIADO, SERVICIOELECTRICO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user,"Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","0","0","0","0",0,"0", "X"))
 			Starter.skmt.ExecNonQuery2("INSERT INTO CHECADO (CREDITO, LUNES, MARTES, MIERCOLES, JUEVES, VIERNES , SABADO , DOMINGO) VALUES (?,0,0,0,0,0,0,0)",Array As String(cuenta))
 			Log("inserte cuenta")
 		End If
 		k.Close
-		h.Close
+
 		
 	Else If l.GetString("CUENTA") > 0 Then
 	
@@ -430,10 +435,10 @@ Private Sub B4XPage_Appear
 			Items4.Initialize
 			Items4.Add("")
 			cb_resultado.SetItems(Items4)
-		Else If cb_accion.SelectedItem = "Carteo" Then
+		Else If cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
 			Dim Items4 As List
 			Items4.Initialize
-			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_CA order by 2")
+			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_NC order by 2")
 			If g.RowCount > 0 Then
 				For i = 0 To g.RowCount-1
 					g.Position = i
@@ -442,16 +447,16 @@ Private Sub B4XPage_Appear
 				cb_resultado.SetItems(Items4)
 			End If
 			g.Close
-			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
+			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
 			g.Position = 0
 			Log(m.GetString("RESULTADO"))
 			Log(g.GetString("NUMERO"))
 			cb_resultado.SelectedIndex = g.GetString("NUMERO")
 			g.Close
-		Else If cb_accion.SelectedItem = "Se envia Blaster" Then
+		Else If cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
 			Dim Items4 As List
 			Items4.Initialize
-			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_BR order by 2")
+			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_DA order by 2")
 			If g.RowCount > 0 Then
 				For i = 0 To g.RowCount-1
 					g.Position = i
@@ -460,14 +465,14 @@ Private Sub B4XPage_Appear
 				cb_resultado.SetItems(Items4)
 			End If
 			g.Close
-			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
+			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
 			g.Position = 0
 			cb_resultado.SelectedIndex = g.GetString("NUMERO")
 			g.Close
-		Else If cb_accion.SelectedItem = "Se envia email" Then
+		Else If cb_accion.SelectedItem = "LOCALIZABLE" Then
 			Dim Items4 As List
 			Items4.Initialize
-			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_MA order by 2")
+			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_LO order by 2")
 			If g.RowCount > 0 Then
 				For i = 0 To g.RowCount-1
 					g.Position = i
@@ -476,14 +481,14 @@ Private Sub B4XPage_Appear
 				cb_resultado.SetItems(Items4)
 			End If
 			g.Close
-			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
+			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
 			g.Position = 0
 			cb_resultado.SelectedIndex = g.GetString("NUMERO")
 			g.Close
-		Else If cb_accion.SelectedItem = "Visita En Domicilio" Then
+		Else If cb_accion.SelectedItem = "ILOCALIZABLE" Then
 			Dim Items4 As List
 			Items4.Initialize
-			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_VC order by 2")
+			g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_IL order by 2")
 			If g.RowCount > 0 Then
 				For i = 0 To g.RowCount-1
 					g.Position = i
@@ -492,14 +497,14 @@ Private Sub B4XPage_Appear
 				cb_resultado.SetItems(Items4)
 			End If
 			g.Close
-			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
+			g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
 			g.Position = 0
 			cb_resultado.SelectedIndex = g.GetString("NUMERO")
 			g.Close
 		End If
 		f.Close
 		
-		If cb_resultado.SelectedItem = "Promesa de pago" Then
+		If cb_resultado.SelectedItem = "PROMESA DE PAGO" Then
 			i_resultado.Visible = True
 			b_fecharesultado.Text = m.GetString("FECHA_PROMESA")
 			
@@ -516,11 +521,6 @@ Private Sub B4XPage_Appear
 		If et_comentarios.Text = "null" Then
 			et_comentarios.Text = ""
 		End If
-
-		et_puntosref.Text = m.GetString("PUNTOS_REF")
-		If et_puntosref.Text = "null" Then
-			et_puntosref.Text = ""
-		End If
 	
 		s = Starter.skmt.ExecQuery("SELECT NIVEL, NUMERO FROM NIVEL_SOCIO order by 2")
 		Dim Items5 As List
@@ -574,8 +574,8 @@ Private Sub B4XPage_Appear
 		Dim Dir As String
 		Dim Dir2 As String
 		Try
-			File.MakeDir(Dirp,"/Arestrategicas")
-			Dir = "/Arestrategicas"
+			File.MakeDir(Dirp,"/nuevotorrado")
+			Dir = "/nuevotorrado"
 			Log("creado en promotoria " & Dirp & Dir)
 		Catch
 			Dir = ""
@@ -619,6 +619,18 @@ Private Sub B4XPage_Appear
 			nombrefoto3 = m.GetString("FOTOCUATRO")
 		End If
 		
+		
+		If m.GetString("SERVICIOELECTRICO") = "Si" Then
+			rdb_si.Checked = True
+			rdb_no.Checked = False
+		Else If m.GetString("SERVICIOELECTRICO") = "No" Then
+			rdb_si.Checked = False
+			rdb_no.Checked = True
+		Else 
+			rdb_si.Checked = False
+			rdb_no.Checked = False
+		End If
+		
 		m.Close
 	End If
 	l.Close
@@ -775,10 +787,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
 		Items4.Initialize
 		Items4.Add("")
 		cb_resultado.SetItems(Items4)
-	Else If cb_accion.SelectedItem = "Carteo" Then
+	Else If cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
 		Dim Items4 As List
 		Items4.Initialize
-		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_CA order by 2")
+		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_NC order by 2")
 		If g.RowCount > 0 Then
 			For i = 0 To g.RowCount-1
 				g.Position = i
@@ -787,10 +799,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
 			cb_resultado.SetItems(Items4)
 		End If
 		g.Close
-	Else If cb_accion.SelectedItem = "Se envia Blaster" Then
+	Else If cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
 		Dim Items4 As List
 		Items4.Initialize
-		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_BR order by 2")
+		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_DA order by 2")
 		If g.RowCount > 0 Then
 			For i = 0 To g.RowCount-1
 				g.Position = i
@@ -799,10 +811,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
 			cb_resultado.SetItems(Items4)
 		End If
 		g.Close
-	Else If cb_accion.SelectedItem = "Se envia email" Then
+	Else If cb_accion.SelectedItem = "LOCALIZABLE" Then
 		Dim Items4 As List
 		Items4.Initialize
-		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_MA order by 2")
+		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_LO order by 2")
 		If g.RowCount > 0 Then
 			For i = 0 To g.RowCount-1
 				g.Position = i
@@ -811,10 +823,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
 			cb_resultado.SetItems(Items4)
 		End If
 		g.Close
-	Else If cb_accion.SelectedItem = "Visita En Domicilio" Then
+	Else If cb_accion.SelectedItem = "ILOCALIZABLE" Then
 		Dim Items4 As List
 		Items4.Initialize
-		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_VC order by 2")
+		g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_IL order by 2")
 		If g.RowCount > 0 Then
 			For i = 0 To g.RowCount-1
 				g.Position = i
@@ -828,11 +840,11 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
 End Sub
 
 Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
-	If cb_accion.SelectedItem = "Carteo" Then
-		If cb_resultado.SelectedItem <> "Promesa de pago" Then
+	If cb_accion.SelectedItem = "LOCALIZABLE" Then
+		If cb_resultado.SelectedItem <> "PROMESA DE PAGO" Then
 			i_resultado.Visible = False
 			p_resultado.Visible = False
-			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 			j.Position = 0
 			Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
 			c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -849,7 +861,7 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
 		Else
 			i_resultado.Visible = True
 			p_resultado.Visible = True
-			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 			j.Position = 0
 			Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
 			c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -864,10 +876,10 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
 			Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
 			j.Close
 		End If
-	Else If cb_accion.SelectedItem = "Se envia Blaster" Then
+	Else If cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
 		i_resultado.Visible = False
 		p_resultado.Visible = False
-		j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+		j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 		j.Position = 0
 		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
 		c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -881,10 +893,10 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
 		c.Close
 		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
 		j.Close
-	Else If cb_accion.SelectedItem = "Se envia email" Then
+	Else If cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
 		i_resultado.Visible = False
 		p_resultado.Visible = False
-		j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+		j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 		j.Position = 0
 		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
 		c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -898,11 +910,11 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
 		c.Close
 		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
 		j.Close
-	Else If cb_accion.SelectedItem = "Visita En Domicilio" Then
-		If cb_resultado.SelectedItem <> "Promesa de pago" Then
+	Else If cb_accion.SelectedItem = "ILOCALIZABLE" Then
+		If cb_resultado.SelectedItem <> "PROMESA DE PAGO" Then
 			i_resultado.Visible = False
 			p_resultado.Visible = False
-			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 			j.Position = 0
 			Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
 			c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -919,7 +931,7 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
 		Else
 			i_resultado.Visible = True
 			p_resultado.Visible = True
-			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+			j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 			j.Position = 0
 			Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
 			c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -1177,22 +1189,6 @@ Private Sub et_comentarios_TextChanged (Old As String, New As String)
 	End If
 End Sub
 
-Private Sub et_puntosref_TextChanged (Old As String, New As String)
-	Private maxSize As Int = 500
-	If New.Length > maxSize Then et_puntosref.Text = Old
-	If et_puntosref.Text.Length = 0 Then
-		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PUNTOS_REF = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String("null", cuenta))
-'		Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
-'		Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
-'		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ?", Array As String("1", cuenta))
-	Else
-		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PUNTOS_REF = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(et_puntosref.Text, cuenta))
-'		Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
-'		Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
-'		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ?", Array As String("1", cuenta))
-	End If
-End Sub
-
 Private Sub cb_caracteristicas_SelectedIndexChanged (Index As Int)
 	Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
 	c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -1285,8 +1281,8 @@ Sub Camera1_PictureTaken (Data()As Byte)
 	Dim Dir As String
 	Dim Dir2 As String
 	Try
-		File.MakeDir(Dirp,"/Arestrategicas")
-		Dir = "/Arestrategicas"
+		File.MakeDir(Dirp,"/nuevotorrado")
+		Dir = "/nuevotorrado"
 		Log("creado en promotoria " & Dirp & Dir)
 	Catch
 		Dir = ""
@@ -1448,36 +1444,33 @@ Private Sub ImageView4_Click
 End Sub
 
 Private Sub b_guardar_Click
-
-	If cb_parentesco.SelectedItem <> "Selecciona una opción" Then
-		If cb_accion.SelectedItem <> "Selecciona una opción" Then
-			If cb_resultado.SelectedItem <> "Selecciona una opción" Then
-				If cb_socioeconomico.SelectedItem <> "Selecciona una opción" Then
-					If cb_vivienda.SelectedItem <> "Selecciona una opción" Then
-						If cb_caracteristicas.SelectedItem <> "Selecciona una opción" Then
-							If et_comentarios.Text.Length > 0 Then
-								If et_puntosref.Text.Length > 0 Then
-									LogColor(et_puntosref.Text.Length,Colors.Green)
+	If rdb_no.Checked = True Or rdb_si.Checked = True Then
+		If cb_parentesco.SelectedItem <> "Selecciona una opción" Then
+			If cb_accion.SelectedItem <> "Selecciona una opción" Then
+				If cb_resultado.SelectedItem <> "Selecciona una opción" Then
+					If cb_socioeconomico.SelectedItem <> "Selecciona una opción" Then
+						If cb_vivienda.SelectedItem <> "Selecciona una opción" Then
+							If cb_caracteristicas.SelectedItem <> "Selecciona una opción" Then
+								If et_comentarios.Text.Length > 0 Then
+							
 									If i_datosparentesco.Visible Then
 										If et_parentesco.Text <> "" Then
 											If i_resultado.Visible Then
 												If et_monto.Text <> "" And b_fecharesultado.Text <> "Fecha de pago" Then
 													If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
-														h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
-														h.Position = 0
 														f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
 														f.Position = 0
-														If cb_accion.SelectedItem = "Carteo" Then
-															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+														If cb_accion.SelectedItem = "LOCALIZABLE" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 															j.Position = 0
-														Else if cb_accion.SelectedItem = "Se envia Blaster" Then
-															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+														Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 															j.Position = 0
-														Else if cb_accion.SelectedItem = "Se envia email" Then
-															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+														Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 															j.Position = 0
-														Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
-															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+														Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 															j.Position = 0
 														End If
 																
@@ -1488,20 +1481,20 @@ Private Sub b_guardar_Click
 														n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
 														n.Position = 0
 														If n.GetString("REGISTRADO") = 0 Then
-															Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
+															Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
 															Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
 															Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 															Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 															Log("Insert")
 														Else If n.GetString("REGISTRADO") > 0 Then
-															Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2", cuenta))
+															Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem,"2", cuenta))
 															Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
 															Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 															Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 															Log("update")
 														End If
 														n.Close
-														h.Close
+'														h.Close
 														f.Close
 														j.Close
 														B4XPages.ShowPage("principal")
@@ -1520,21 +1513,19 @@ Private Sub b_guardar_Click
 												End If
 											Else
 												If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
-													h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
-													h.Position = 0
 													f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
 													f.Position = 0
-													If cb_accion.SelectedItem = "Carteo" Then
-														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+													If cb_accion.SelectedItem = "LOCALIZABLE" Then
+														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 														j.Position = 0
-													Else if cb_accion.SelectedItem = "Se envia Blaster" Then
-														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+													Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
+														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 														j.Position = 0
-													Else if cb_accion.SelectedItem = "Se envia email" Then
-														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+													Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
+														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 														j.Position = 0
-													Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
-														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+													Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
+														j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 														j.Position = 0
 													End If
 													DateTime.DateFormat = "dd/MM/yyyy"
@@ -1544,19 +1535,19 @@ Private Sub b_guardar_Click
 													n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
 													n.Position = 0
 													If n.GetString("REGISTRADO") = 0 Then
-														Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
+														Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
 														Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
 														Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 														Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 													Else
-														Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = , PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2",cuenta))
+														Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, "2",cuenta))
 														Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
 														Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 														Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 														Log("update2")
 													End If
 													n.Close
-													h.Close
+'													h.Close
 													f.Close
 													j.Close
 													
@@ -1578,62 +1569,58 @@ Private Sub b_guardar_Click
 										If i_resultado.Visible Then
 											If et_monto.Text <> "" And b_fecharesultado.Text <> "Fecha de pago" Then
 												If et_comentarios.Text <> "" Then
-													If et_puntosref.Text <> "" Then
-														If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
-															h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
-															h.Position = 0
-															f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
-															f.Position = 0
-															If cb_accion.SelectedItem = "Carteo" Then
-																j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
-																j.Position = 0
-															Else if cb_accion.SelectedItem = "Se envia Blaster" Then
-																j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
-																j.Position = 0
-															Else if cb_accion.SelectedItem = "Se envia email" Then
-																j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
-																j.Position = 0
-															Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
-																j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
-																j.Position = 0
-															End If
-															DateTime.DateFormat = "dd/MM/yyyy"
-															Dim fecha_captura As String = DateTime.Date(DateTime.Now)
-															Log(fecha_captura)
-																	
-																	
-															n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
-															n.Position = 0
-															If n.GetString("REGISTRADO") = 0 Then
-																Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
-																Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
-																Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
-																Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
-															Else
-																Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2", cuenta))
-																Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
-																Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
-																Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
-																Log("update3")
-															End If
-															n.Close
-															h.Close
-															f.Close
-															j.Close
-															
-															B4XPages.ShowPage("principal")
-															
-															ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
-															ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
-															ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
-															ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
-																	
-														Else
-															MsgboxAsync("Por favor captura todas las fotos","Atención")
+												
+													If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
+														f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
+														f.Position = 0
+														If cb_accion.SelectedItem = "LOCALIZABLE" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+															j.Position = 0
+														Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+															j.Position = 0
+														Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+															j.Position = 0
+														Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
+															j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+															j.Position = 0
 														End If
+														DateTime.DateFormat = "dd/MM/yyyy"
+														Dim fecha_captura As String = DateTime.Date(DateTime.Now)
+														Log(fecha_captura)
+																	
+																	
+														n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
+														n.Position = 0
+														If n.GetString("REGISTRADO") = 0 Then
+															Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
+															Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
+															Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
+															Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
+														Else
+															Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?,  ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, "2", cuenta))
+															Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
+															Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
+															Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
+															Log("update3")
+														End If
+														n.Close
+'															h.Close
+														f.Close
+														j.Close
+															
+														B4XPages.ShowPage("principal")
+															
+														ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
+														ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
+														ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
+														ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
+																	
 													Else
-														MsgboxAsync("Falta capturar los puntos de referencia","Atención")
+														MsgboxAsync("Por favor captura todas las fotos","Atención")
 													End If
+													
 												Else
 													MsgboxAsync("Falta capturar comentarios","Atención")
 												End If
@@ -1642,21 +1629,19 @@ Private Sub b_guardar_Click
 											End If
 										Else
 											If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
-												h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
-												h.Position = 0
 												f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
 												f.Position = 0
-												If cb_accion.SelectedItem = "Carteo" Then
-													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+												If cb_accion.SelectedItem = "LOCALIZABLE" Then
+													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 													j.Position = 0
-												Else if cb_accion.SelectedItem = "Se envia Blaster" Then
-													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+												Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
+													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 													j.Position = 0
-												Else if cb_accion.SelectedItem = "Se envia email" Then
-													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+												Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
+													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 													j.Position = 0
-												Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
-													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
+												Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
+													j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
 													j.Position = 0
 												End If
 												DateTime.DateFormat = "dd/MM/yyyy"
@@ -1666,19 +1651,19 @@ Private Sub b_guardar_Click
 												n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
 												n.Position = 0
 												If n.GetString("REGISTRADO") = 0 Then
-													Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, DIAS_ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
+													Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, DIAS_ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
 													Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
 													Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 													Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 												Else
-													Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2", cuenta))
+													Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem,"2", cuenta))
 													Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
 													Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 													Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
 													Log("update4")
 												End If
 												n.Close
-												h.Close
+'												h.Close
 												f.Close
 												j.Close
 												
@@ -1693,30 +1678,30 @@ Private Sub b_guardar_Click
 											End If
 										End If
 									End If
+							
 								Else
-									MsgboxAsync("Falta capturar los puntos de referencia","Atención")
-									LogColor("estoy aqui",Colors.Green)
+									MsgboxAsync("Falta capturar comentarios","Atención")
 								End If
 							Else
-								MsgboxAsync("Falta capturar comentarios","Atención")
+								MsgboxAsync("Selecciona una opción de Caracteristicas","Atención")
 							End If
 						Else
-							MsgboxAsync("Selecciona una opción de Caracteristicas","Atención")
+							MsgboxAsync("Selecciona una opción de Tipo de vivienda","Atención")
 						End If
 					Else
-						MsgboxAsync("Selecciona una opción de Tipo de vivienda","Atención")
+						MsgboxAsync("Selecciona una opción de Nivel socioeconomico","Atención")
 					End If
 				Else
-					MsgboxAsync("Selecciona una opción de Nivel socioeconomico","Atención")
+					MsgboxAsync("Selecciona una opción de Resultado","Atención")
 				End If
 			Else
-				MsgboxAsync("Selecciona una opción de Resultado","Atención")
+				MsgboxAsync("Selecciona una opción de Acción","Atención")
 			End If
 		Else
-			MsgboxAsync("Selecciona una opción de Acción","Atención")
+			MsgboxAsync("Selecciona una opción de Parentesco","Atención")
 		End If
 	Else
-		MsgboxAsync("Selecciona una opción de Parentesco","Atención")
+		MsgboxAsync("Selecciona una opción de servicio electrico","Atención")
 	End If
 End Sub
 
@@ -1749,11 +1734,41 @@ Sub GPS_LocationChanged (Location1 As Location)
 '	l1.Initialize2(Starter.latitud,Starter.longitud)
 '	l2.Initialize2(mlat, mlon)
 '	distance = l1.DistanceTo(l2)  ' resultado en metros
-''	Log (distance)
-''	Log(mlat & " , " & mlon)
-''	Log(Starter.latitud & " , " & Starter.longitud)
+	''	Log (distance)
+	''	Log(mlat & " , " & mlon)
+	''	Log(Starter.latitud & " , " & Starter.longitud)
 '	l_ubicacion.Text = $"Dist: $1.0{distance} mts."$
 '	If laDist > 50 Then l_ubicacion.TextColor = Colors.Red Else l_ubicacion.TextColor = Colors.Blue
 	Starter.longitud = Location1.Longitude
 	Starter.latitud = Location1.Latitude
+End Sub
+
+Private Sub rdb_no_CheckedChange(Checked As Boolean)
+	Dim electricidad As String = "No"
+	Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
+	c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
+	c.Position = 0
+	If c.GetString("ESTATUS2") = 2 Then
+		
+	Else
+		Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
+		Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
+	End If
+	c.Close
+	Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET SERVICIOELECTRICO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(electricidad, cuenta))
+End Sub
+
+Private Sub rdb_si_CheckedChange(Checked As Boolean)
+	Dim electricidad As String = "Si"
+	Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
+	c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
+	c.Position = 0
+	If c.GetString("ESTATUS2") = 2 Then
+		
+	Else
+		Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
+		Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1",  cuenta))
+	End If
+	c.Close
+	Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET SERVICIOELECTRICO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(electricidad, cuenta))
 End Sub
\ No newline at end of file
diff --git a/B4XMainPage.bas b/B4XMainPage.bas
index 9dede92..21e66c4 100644
--- a/B4XMainPage.bas
+++ b/B4XMainPage.bas
@@ -110,20 +110,20 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Private Sub b_iniciar_Click
-'	If Usuario.Text <> "" Then
-'		
-'		Dim cmd As DBCommand
-'		cmd.Initialize
-'		cmd.Name = "select_usuario_torra"
-'		cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
-'		reqManager.ExecuteQuery(cmd , 0, "usuario")
-'		user = Usuario.Text
-'	Else
-'		MsgboxAsync("Llena los datos de acceso","Atención")
-''		B4XPages.ShowPage ("principal")
-'	End If
+	If Usuario.Text <> "" Then
+		
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_usuario_torra"
+		cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
+		reqManager.ExecuteQuery(cmd , 0, "usuario")
+		user = Usuario.Text
+	Else
+		MsgboxAsync("Llena los datos de acceso","Atención")
+'		B4XPages.ShowPage ("principal")
+	End If
 '	
-	B4XPages.ShowPage ("principal")
+'	B4XPages.ShowPage ("principal")
 	Log(Starter.latitud & Starter.longitud)
 End Sub
 
@@ -169,8 +169,8 @@ End Sub
 Private Sub ImageView5_Click
 	p_configuracion.Visible = True
 	lv_server.Clear
-	lv_server.AddSingleLine("http://keymon.lat:1788")
-	If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.196:1782")
+	lv_server.AddSingleLine("http://keymon.lat:1781")
+	If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.134:1782")
 '	l_server.Text = Starter.server
 	et_server.Text = Starter.DBReqServer
 	l_version.Visible = False
@@ -217,7 +217,7 @@ Private Sub b_enviarbd_Click
 	File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
 	Dim email As Email
 	email.To.Add("soporte@keymonsoft.com")
-	email.Subject = "Envio Base de dados AREstrategicas"
+	email.Subject = "Envio Base de dados Nuevo Torrado"
 	email.Attachments.Add(Provider.GetFileUri(FileName))
 '	email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
 	Dim in As Intent = email.GetIntent