05-10-23 App final

B4A/C_principal.bas

@@ -293,7 +293,7 @@ Sub JobDone(Job As HttpJob)
 					
 					c = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(credito))
 					c.Position= 0
-					LogColor(c.GetString("CUANTOS"),Colors.Magenta)
+'					LogColor(c.GetString("CUANTOS"),Colors.Magenta)
 					If c.GetString("CUANTOS") > 0 Then
 						Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET CREDITO = ?, NOMBRE = ?, CALLE = ?, COLONIA = ?, CIUDAD = ?, ESTADO = ?, CP = ? WHERE CREDITO = ?",Array As Object (credito, nombre,calle, colonia, ciudad,estado, cp))
 					Else If c.GetString("CUANTOS") = 0 Then
@@ -358,7 +358,7 @@ Sub JobDone(Job As HttpJob)
 					
 					c = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_FINANCIEROS WHERE CREDITO = ?",Array As String(creditof))
 					c.Position = 0
-					LogColor(c.GetString("CUANTOS"),Colors.Red)
+'					LogColor(c.GetString("CUANTOS"),Colors.Red)
 					If c.GetString("CUANTOS") > 0 Then
 						Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET CREDITO = ?, DIASATRASO = ?, MESVENCIDO = ?, SALDO_VENCIDO = ?, SALDO_TOTAL = ?, TIPO_UNIDAD = ?, MARCA = ?, ANO = ?, NO_SERIE = ?, RESULTADO = ? WHERE CREDITO = ?",Array As String(creditof, diasv, mesv, saldov, saldot, tipouni, marca, anio, serie, resultado))
 					Else If c.GetString("CUANTOS") = 0 Then

B4A/NUEVO_TORRADO.b4a

@@ -84,9 +84,9 @@ Version=12.5
 #Region  Project Attributes 
 	#AdditionalJar: com.android.support:support-v4
 	#AdditionalJar: com.google.android.gms:play-services-location
-	#ApplicationLabel: NUEVO TORRADO
+	#ApplicationLabel: Nuevo Torrado
 	#VersionCode: 1
-	#VersionName: 3.09.25
+	#VersionName: 3.10.04
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/NUEVO_TORRADO.b4a.meta

@@ -34,6 +34,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,gestionadas.bal,-100,2,Diseñador Visual,gestion.bal,-100,2,Diseñador Visual,scroll.bal,-100,3,Diseñador Visual,principal.bal,-100,2,Diseñador Visual,datos.bal,-100,1,c_datos,GPS_LocationChanged,1742,0,c_datos,rdb_no_CheckedChange,1754,0,c_datos,B4XPage_Appear,249,0,c_datos,B4XPage_Created,238,0,c_datos,Class_Globals,85,0,Starter,Process_Globals,10,0
+NavigationStack=CameraExClass2,TakePicture,102,0,C_principal,Class_Globals,0,0,c_datos,B4XPage_Appear,244,2,c_datos,B4XPage_CloseRequest,1800,1,c_datos,b_guardar_Click,1785,0,c_datos,ImageView2_Click,1450,2,c_datos,ImageView3_Click,1458,2,c_datos,ImageView4_Click,1466,2,c_datos,Camera1_PictureTaken,1283,6,c_datos,ImageView1_Click,1437,2,Main,Globals,23,0
 SelectedBuild=0
 VisibleModules=9,1,2,4,3,5,6,7,8,10

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.156:1782" '"http://keymon.lat:1781" "http://11.0.0.134:1782" ' 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" ' 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

B4A/appUpdater.bas

@@ -78,7 +78,7 @@ Sub Process_Globals
 	'These variables can be accessed from all modules.
 
 	'Aqui va la liga al archivo .ver en el servidor que contiene la información de la aplicacion
-	Public lnk As String = "https://keymon.lat/movil/Arlete/ARE.ver"
+	Public lnk As String = "https://keymon.lat/movil/Torrado/torrado.ver"
 	
 	'/// En el servidor se necesita un archivo de texto (.ver) que tenga los siguientes
 	'/// datos separados por un tabulador

B4A/c_datos.bas

@@ -114,6 +114,7 @@ Sub Class_Globals
 	Dim m As Cursor
 	Dim n As Cursor
 	
+	Dim x As Int
 	
 
 	Private rdb_si As RadioButton
@@ -221,8 +222,6 @@ 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
@@ -230,8 +229,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		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")
+'		Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
-		Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
+'		Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
 		If Not(MES1.HasPermission) Then
 			MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files")
 			Wait For Msgbox_Result(Res As Int)
@@ -240,7 +239,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			Wait For MES_StorageAvailable
 		End If
 	End If
-'	End If
 	
 End Sub
 
@@ -255,7 +253,16 @@ Private Sub B4XPage_Appear
 	p_resultado.Height = Root.Height
 	cuenta = B4XPages.MainPage.principal.lb.Text
 	Log (cuenta)
-	
+	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")
+	nombrefoto = "0"
+	nombrefoto1 = "0"
+	nombrefoto2 = "0"
+	nombrefoto3 = "0"
+	x = 0
+	'Cargamos datos generales
 	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")
@@ -267,6 +274,7 @@ Private Sub B4XPage_Appear
 	l_cp.Text = c.GetString("CP")
 	c.Close
 	
+	'Cargamos datos financieros
 	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_diasatraso.Text = b.GetString("DIASATRASO")
@@ -297,10 +305,7 @@ Private Sub B4XPage_Appear
 		ASWheelPicker3.SelectRow(0,0,True)
 		i_datosparentesco.Visible = False
 		i_resultado.Visible = False
-		nombrefoto = "0"
+
-		nombrefoto1 = "0"
-		nombrefoto2 = "0"
-		nombrefoto3 = "0"
 		rdb_no.Checked = False
 		rdb_si.Checked = False
 	
@@ -367,13 +372,18 @@ Private Sub B4XPage_Appear
 		cb_caracteristicas.SetItems(Items7)
 		End If
 		q.Close
+		
+		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")
 	
 		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, 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))
+'			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
@@ -675,7 +685,7 @@ Sub WobbleMenu1_Tab3Click
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 	If Result Then
-		Log("conpermisos para escritura")
+		Log("con permisos para escritura")
 	Else
 		ToastMessageShow("No permission!!!", True)
 	End If
@@ -683,7 +693,7 @@ Sub WobbleMenu1_Tab3Click
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 	If Result Then
-		Log("conpermisos para escritura")
+		Log("con permisos para escritura")
 	Else
 		ToastMessageShow("No permission!!!", True)
 	End If
@@ -1277,6 +1287,72 @@ Sub Camera1_Ready (Success As Boolean)
 End Sub
 
 Sub Camera1_PictureTaken (Data()As Byte)
+	If x = 1 Then
+		DateTime.DateFormat="ddMMyyyyHHmmss"
+		nombrefoto = DateTime.Now & "_FOTO1.jpg"
+		teclado.HideKeyboard
+		fototomada = nombrefoto
+		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 FOTOUNO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto, cuenta))
+	Else If x = 2 Then
+		DateTime.DateFormat="ddMMyyyyHHmmss"
+		nombrefoto1 = DateTime.Now & "_FOTO2.jpg"
+		teclado.HideKeyboard
+		fototomada = nombrefoto1
+		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 FOTODOS = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto1, cuenta))
+	Else If x = 3 Then
+		DateTime.DateFormat="ddMMyyyyHHmmss"
+		nombrefoto2 = DateTime.Now & "_FOTO3.jpg"
+		teclado.HideKeyboard
+		fototomada = nombrefoto2
+		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 FOTOTRES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto2, cuenta))
+	Else If x = 4 Then
+		DateTime.DateFormat="ddMMyyyyHHmmss"
+		nombrefoto3 = DateTime.Now & "_FOTO4.jpg"
+		teclado.HideKeyboard
+		fototomada = nombrefoto3
+		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
+		c.Close
+		Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET FOTOCUATRO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto3, cuenta))
+	End If
 	Log("tome foto")
 	Dim filename As String = fototomada
 	Dim Dirp As String = File.DirRootExternal
@@ -1300,14 +1376,19 @@ Sub Camera1_PictureTaken (Data()As Byte)
 		Log("creado en raiz")
 	End Try
 	
+	
 	camEx2.SavePictureToFile(Data, Dirp&Dir, filename)
 	camEx2.StartPreview 'restart preview
-	ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True)
+'	ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True)
 	Log("Picture saved." & CRLF  & "File size: " & File.Size(Dir, filename) & Dir &"," & filename)
 	p_camara.Visible = False
 	
+	Log(nombrefoto)
+	Log(nombrefoto1)
+	Log(nombrefoto2)
+	Log(nombrefoto3)
 	
-	If nombrefoto <> 0 Then
+	If nombrefoto <> "0" Then
 		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, True)
 		img.WriteToStream(out, 100, "PNG")
@@ -1315,7 +1396,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
 		ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto)
 	End If
 	
-	If nombrefoto1 <> 0 Then
+	If nombrefoto1 <> "0" Then
 		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
 		img.WriteToStream(out, 100, "PNG")
@@ -1323,7 +1404,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
 		ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto1)
 	End If
 	
-	If nombrefoto2 <> 0 Then
+	If nombrefoto2 <> "0" Then
 		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
 		img.WriteToStream(out, 100, "PNG")
@@ -1331,7 +1412,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
 		ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto2)
 	End If
 	
-	If nombrefoto3 <> 0 Then
+	If nombrefoto3 <> "0" Then
 		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
 		img.WriteToStream(out, 100, "PNG")
@@ -1361,88 +1442,35 @@ Private Sub StopCamera2
 End Sub
 
 Private Sub ImageView1_Click
-'	foto = 2
+
-	DateTime.DateFormat="ddMMyyyyHHmmss"
+	x = 1
 	InitializeCamera2
 	p_camara.Visible = True
-	nombrefoto = DateTime.Now & "_FOTO1.jpg"
+
-	teclado.HideKeyboard
-	fototomada = nombrefoto
-	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 FOTOUNO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto, cuenta))
 End Sub
 
 Private Sub ImageView2_Click
-'	foto = 2
+
-	DateTime.DateFormat="ddMMyyyyHHmmss"
+	x = 2
 	InitializeCamera2
 	p_camara.Visible = True
-	nombrefoto1 = DateTime.Now & "_FOTO2.jpg"
+
-	teclado.HideKeyboard
-	fototomada = nombrefoto1
-	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 FOTODOS = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto1, cuenta))
 End Sub
 
 Private Sub ImageView3_Click
-'	foto = 2
+
-	DateTime.DateFormat="ddMMyyyyHHmmss"
+	x = 3
 	InitializeCamera2
 	p_camara.Visible = True
-	nombrefoto2 = DateTime.Now & "_FOTO3.jpg"
+
-	teclado.HideKeyboard
-	fototomada = nombrefoto2
-	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 FOTOTRES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto2, cuenta))
 End Sub
 
 Private Sub ImageView4_Click
-'	foto = 2
+
-	DateTime.DateFormat="ddMMyyyyHHmmss"
+	x = 4
 	InitializeCamera2
 	p_camara.Visible = True
-	nombrefoto3 = DateTime.Now & "_FOTO4.jpg"
+
-	teclado.HideKeyboard
-	fototomada = nombrefoto3
-	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
-	c.Close
-	Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET FOTOCUATRO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto3, cuenta))
 End Sub
 
 Private Sub b_guardar_Click
@@ -1485,13 +1513,13 @@ 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, 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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))
@@ -1541,12 +1569,12 @@ 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, 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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))
@@ -1602,12 +1630,12 @@ 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, 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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))
@@ -1661,12 +1689,12 @@ 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, 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("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 & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & hora_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))
@@ -1719,6 +1747,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	
 	If p_camara.Visible Then
 		p_camara.Visible = False
+		StopCamera2
 	Else
 	
 		p_w1.Visible = False