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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 10:57:28 -06:00
parent c296f5ac20
commit 3b51b193bb
5 changed files with 54 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_principal.bas
View File

@@ -546,13 +546,14 @@ Private Sub b_enviar_Click
Dim foto2() As Byte
Dim foto3() As Byte
Dim foto4() As Byte
Dim Dirp As String = File.DirRootExternal
Dim Dirp As String = File.DirInternal
Dim Dir As String
Dim Dir2 As String
Dir = "/Arestrategicas"
Dir2 = "/reduccion"
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1")
' c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1")
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA ")
Log(c.RowCount)
If c.RowCount > 0 Then
ProgressDialogShow("Enviando datos.")