envio

2026-04-22 21:50:11 +00:00 · 2023-10-09 14:56:52 -06:00
parent 02a3eb0eed
commit f84b7c0e9b
7 changed files with 145 additions and 104 deletions
--- a/B4A/AREstrategias.b4a
+++ b/B4A/AREstrategias.b4a
@@ -60,7 +60,7 @@ Library6=bitmapcreator
 Library7=byteconverter
 Library8=camera
 Library9=compressstrings
-ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="33"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'End of default text.~\n~~\n~AddApplicationText(~\n~<meta-data~\n~  android:name="com.google.android.geo.API_KEY"~\n~  android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~  <meta-data android:name="com.google.android.gms.version"~\n~   android:value="@integer/google_play_services_version" />~\n~)~\n~~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.ACCESS_FINE_LOCATION"~\n~  android:maxSdkVersion="33" />~\n~)~\n~~\n~AddManifestText(~\n~<uses-permission ~\n~ android:name="android.permission.ACCESS_COARSE_LOCATION"~\n~ android:maxSdkVersion="33" />~\n~  )~\n~~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~~\n~~\n~AddManifestText(<uses-permission~\n~android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~android:maxSdkVersion="33" />~\n~)~\n~'///////////////////////  App Updating ////////////////~\n~		AddManifestText(<uses-permission~\n~		   android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~		   android:maxSdkVersion="33" />~\n~		)~\n~		AddApplicationText(~\n~		  <provider~\n~		  android:name="android.support.v4.content.FileProvider"~\n~		  android:authorities="$PACKAGE$.provider"~\n~		  android:exported="false"~\n~		  android:grantUriPermissions="true">~\n~		  <meta-data~\n~		  android:name="android.support.FILE_PROVIDER_PATHS"~\n~		  android:resource="@xml/provider_paths"/>~\n~		  </provider>~\n~		)~\n~		CreateResource(xml, provider_paths,~\n~		<paths>~\n~		   <external-files-path name="name" path="" />~\n~		   <files-path name="name" path="" />~\n~		   <files-path name="name" path="shared" />~\n~		</paths>~\n~		)~\n~AddManifestText(<uses-feature android:name="android.hardware.telephony" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.flash" android:required="false" />)~\n~~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~
+ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="33"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'End of default text.~\n~~\n~AddApplicationText(~\n~<meta-data~\n~  android:name="com.google.android.geo.API_KEY"~\n~  android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~  <meta-data android:name="com.google.android.gms.version"~\n~   android:value="@integer/google_play_services_version" />~\n~)~\n~~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.ACCESS_FINE_LOCATION"~\n~  android:maxSdkVersion="33" />~\n~)~\n~~\n~AddManifestText(~\n~<uses-permission ~\n~ android:name="android.permission.ACCESS_COARSE_LOCATION"~\n~ android:maxSdkVersion="33" />~\n~  )~\n~~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~~\n~~\n~AddManifestText(<uses-permission~\n~android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~android:maxSdkVersion="33" />~\n~)~\n~'///////////////////////  App Updating ////////////////~\n~		AddManifestText(<uses-permission~\n~		   android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~		   android:maxSdkVersion="33" />~\n~		)~\n~		AddApplicationText(~\n~		  <provider~\n~		  android:name="android.support.v4.content.FileProvider"~\n~		  android:authorities="$PACKAGE$.provider"~\n~		  android:exported="false"~\n~		  android:grantUriPermissions="true">~\n~		  <meta-data~\n~		  android:name="android.support.FILE_PROVIDER_PATHS"~\n~		  android:resource="@xml/provider_paths"/>~\n~		  </provider>~\n~		)~\n~		CreateResource(xml, provider_paths,~\n~		<paths>~\n~		   <external-files-path name="name" path="" />~\n~		   <files-path name="name" path="" />~\n~		   <files-path name="name" path="shared" />~\n~		</paths>~\n~		)~\n~AddManifestText(<uses-feature android:name="android.hardware.telephony" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.flash" android:required="false" />)~\n~~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")
 Module1=appUpdater
 Module10=Subs
 Module11=Tracker
@@ -82,7 +82,7 @@ Version=12.5
 	#AdditionalJar: com.google.android.gms:play-services-location
 	#ApplicationLabel: AREstrategicas
 	#VersionCode: 1
-	#VersionName: 3.06.15
+	#VersionName: 3.10.09
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/AREstrategias.b4a.meta
+++ b/B4A/AREstrategias.b4a.meta
@@ -34,6 +34,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=c_datos,b_guardar_Click,2082,0,c_datos,B4XPage_Appear,423,0,B4XMainPage,b_actualizar_app_Click,218,0,appUpdater,Process_Globals,80,0,c_datos,Camera1_PictureTaken,1754,0,c_datos,ImageView1_Click,1869,0,c_datos,ImageView4_Click,1869,0,c_datos,Class_Globals,129,4,c_datos,B4XPage_Created,186,0,c_datos,B4XPage_CloseRequest,2182,1,c_datos,GPS_LocationChanged,2170,0
+NavigationStack=CameraExClass2,Camera_Ready,94,0,CameraExClass2,FindCamera,32,0,c_datos,Class_Globals,102,0,c_datos,cb_socioeconomico_SelectedIndexChanged,1640,0,c_datos,ImageView4_Click,1868,0,c_datos,ImageView1_Click,1838,0,c_datos,WobbleMenu1_Tab3Click,813,0,c_datos,InitializeCamera2,1643,0,c_datos,cb_vivienda_SelectedIndexChanged,1623,0,Main,Globals,25,0
 SelectedBuild=0
 VisibleModules=9,2,4,3,10,7,6,11,1,5
--- a/B4A/C_principal.bas
+++ b/B4A/C_principal.bas
@@ -508,6 +508,19 @@ Sub JobDone(Job As HttpJob)
 								
 			End If
 			
+			Dim resultado As DBResult = reqManager.HandleJob(Job)
+			If resultado.Tag.As(String).IndexOf("ins_ENUEVOSPendientes_head_") > -1 Then
+				Private cliente As String= resultado.Tag
+				cliente = cliente.SubString(cliente.IndexOf("_")+24)
+				Log($"Cliente1:${cliente}"$)
+				Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ENVIADO = ? WHERE CREDITO = ?", Array As String("1",cliente))
+				For Each records() As Object In resultado.Rows
+					For Each k As String In resultado.Columns.Keys
+						Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
+					Next
+				Next
+			End If
+	
 		End If

 		Log(trabajos)
@@ -544,8 +557,8 @@ Private Sub b_enviar_Click
 		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"))
-		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")))
+		reqManager.ExecuteCommand(cmd , $"ins_ENUEVOSPendientes_head_${c.GetString("CREDITO")}"$)
+		
 	Next
 	MsgboxAsync("Datos enviados.","")
 	c.Close
--- a/B4A/Files/mainpage.bal
+++ b/B4A/Files/mainpage.bal
--- 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://keymon.lat:1788" '"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: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 server As String = "http://10.0.0.205:1782"
 	Dim rutaBD As String = File.DirInternal
 	Dim skmt As SQL
--- a/B4A/c_datos.bas
+++ b/B4A/c_datos.bas
@@ -34,7 +34,7 @@ Sub Class_Globals
 	Dim cuenta As String
 	Dim device As Phone
 	Dim MES1 As ManageExternalStorage
-	
+	Dim x As Int = 0
 	'Datos generales
 	Private l_nombreg As Label
 	Private l_rfc As Label
@@ -268,6 +268,15 @@ 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
 	
 	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.Position = 0
@@ -1679,14 +1688,80 @@ 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
 	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 = ""
@@ -1702,14 +1777,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")
@@ -1717,7 +1797,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")
@@ -1725,7 +1805,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")
@@ -1733,7 +1813,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")
@@ -1763,88 +1843,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
@@ -2142,6 +2169,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	
 	If p_camara.Visible Then
 		p_camara.Visible = False
+		StopCamera2
 	Else
 	
 		p_w1.Visible = False