diff --git a/B4A/AREstrategias.b4a.meta b/B4A/AREstrategias.b4a.meta index eadda53..919115b 100644 --- a/B4A/AREstrategias.b4a.meta +++ b/B4A/AREstrategias.b4a.meta @@ -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 diff --git a/B4A/C_principal.bas b/B4A/C_principal.bas index 506f11d..925cd6d 100644 --- a/B4A/C_principal.bas +++ b/B4A/C_principal.bas @@ -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 diff --git a/B4A/CameraExClass2.bas b/B4A/CameraExClass2.bas index cf3a43e..ad5fc46 100644 --- a/B4A/CameraExClass2.bas +++ b/B4A/CameraExClass2.bas @@ -395,5 +395,4 @@ End Sub Public Sub StopFaceDetection Dim jo As JavaObject = nativeCam jo.RunMethod("stopFaceDetection", Null) -End Sub - +End Sub \ No newline at end of file diff --git a/B4A/c_datos.bas b/B4A/c_datos.bas index 29a8a9c..ffc54fc 100644 --- a/B4A/c_datos.bas +++ b/B4A/c_datos.bas @@ -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)