cheveguerra/ADM
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM.git synced 2026-04-19 20:29:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.10.03

Browse Source 
- Se cambio com ose enviaban las imagenes, antes blob, ahora solo nombre.
- Se agregaron 2 columnas a FOTOINICIAL para poner el nombre de las fotos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-10-09 17:22:37 -06:00
parent b4010f2d7b
commit a7c890a612
10 changed files with 120 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Principal.bas
View File

@@ -827,7 +827,7 @@ Sub b_subir_Click
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close
' NOVENTA
' FOTOINICIAL
c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM FOTOINICIAL")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
@@ -837,7 +837,7 @@ Sub b_subir_Click
foto2 = c.GetBlob("FOTO2")
cmd.Initialize
cmd.Name = "insert_foto_ADM"
cmd.Parameters = Array As Object(C.GetString("RUTAA"),C.GetString("USUARIO"),C.GetString("LONGITUD"),C.GetString("ALMACEN"),C.GetString("FECHAHORA"),C.GetString("LATITUD"),foto1,foto2)
cmd.Parameters = Array As Object(C.GetString("RUTAA"),C.GetString("USUARIO"),C.GetString("LONGITUD"),C.GetString("ALMACEN"),C.GetString("FECHAHORA"),C.GetString("LATITUD"),Subs.traeCliente&"_"&c.GetString("FOTO_NOM"),Subs.traeCliente&"_"&c.GetString("FOTO_NOM2"))
reqManager.ExecuteCommand(cmd , "inst_FOTO")
Next
End If