cheveguerra/AREstrategicas
1
0
Fork 0
mirror of https://github.com/KeymonSoft/AREstrategicas.git synced 2026-04-20 12:49:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

arreglo de camara

Browse Source
This commit is contained in:
cvaldes1201
2023-10-09 17:37:23 -06:00
parent f84b7c0e9b
commit 37f05257b0
4 changed files with 32 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/AREstrategias.b4a.meta
View File

@@ -34,6 +34,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
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
NavigationStack=c_datos,Camera1_PictureTaken,1775,0,DBRequestManager,HandleJob,195,0,C_principal,JobDone,528,2,C_principal,Class_Globals,32,0,C_principal,B4XPage_Appear,103,0,C_principal,b_enviar_Click,569,6,CameraExClass2,TakePicture,102,0,CameraExClass2,GetColorEffect,151,0,CameraExClass2,GetSupportedPreviewSizes,164,0,CameraExClass2,GetSupportedPicturesSizes,178,0,CameraExClass2,StopFaceDetection,391,0
SelectedBuild=0
VisibleModules=9,2,4,3,10,7,6,11,1,5

43
B4A/C_principal.bas
View File

@@ -35,6 +35,8 @@ Sub Class_Globals
Private paneltop As Panel
Private Panel4 As Panel
Dim IME As IME
Dim trabajos2 As Int = 0
End Sub
'You can add more parameters here.
@@ -510,6 +512,7 @@ Sub JobDone(Job As HttpJob)
Dim resultado As DBResult = reqManager.HandleJob(Job)
If resultado.Tag.As(String).IndexOf("ins_ENUEVOSPendientes_head_") > -1 Then
trabajos2 = trabajos2 -1
Private cliente As String= resultado.Tag
cliente = cliente.SubString(cliente.IndexOf("_")+24)
Log($"Cliente1:${cliente}"$)
@@ -528,6 +531,11 @@ Sub JobDone(Job As HttpJob)
Starter.skmt.ExecNonQuery2("UPDATE CARGADO SET CARGADO = ?",Array As String("1"))
ProgressDialogHide
End If
Log(trabajos2)
If trabajos2 = 0 Then
ProgressDialogHide
End If
End If
End Sub
@@ -546,22 +554,27 @@ Private Sub b_enviar_Click
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1")
Log(c.RowCount)
For i = 0 To c.RowCount - 1
c.Position = i
foto1 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOUNO")))
foto2 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTODOS")))
foto3 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOTRES")))
foto4 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOCUATRO")))
If c.RowCount > 0 Then
ProgressDialogShow("Enviando datos.")
For i = 0 To c.RowCount - 1
c.Position = i
foto1 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOUNO")))
foto2 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTODOS")))
foto3 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOTRES")))
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"))
reqManager.ExecuteCommand(cmd , $"ins_ENUEVOSPendientes_head_${c.GetString("CREDITO")}"$)
Next
MsgboxAsync("Datos enviados.","")
c.Close
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"))
reqManager.ExecuteCommand(cmd , $"ins_ENUEVOSPendientes_head_${c.GetString("CREDITO")}"$)
trabajos2 = trabajos2 + 1
Next
c.Close
Else If c.RowCount = 0 Then
MsgboxAsync("No hay datos por enviar.","Atención.")
End If
End Sub

3
B4A/CameraExClass2.bas
View File

@@ -395,5 +395,4 @@ End Sub
Public Sub StopFaceDetection
Dim jo As JavaObject = nativeCam
jo.RunMethod("stopFaceDetection", Null)
End Sub
End Sub

6
B4A/c_datos.bas
View File

@@ -1751,7 +1751,6 @@ Sub Camera1_PictureTaken (Data()As Byte)
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")
@@ -1760,8 +1759,8 @@ Sub Camera1_PictureTaken (Data()As Byte)
Dim Dir As String
Dim Dir2 As String
Try
File.MakeDir(Dirp,"/nuevotorrado")
Dir = "/nuevotorrado"
File.MakeDir(Dirp,"/Arestrategicas")
Dir = "/Arestrategicas"
Log("creado en promotoria " & Dirp & Dir)
Catch
Dir = ""
@@ -1777,7 +1776,6 @@ 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)