cheveguerra/AREstrategicas
1
0
Fork 0
mirror of https://github.com/KeymonSoft/AREstrategicas.git synced 2026-04-21 21:29:18 +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

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)