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

para subir la ultima

Browse Source
This commit is contained in:
cvaldes1201
2024-05-23 13:41:30 -06:00
parent b001dcaa7d
commit 7701d68e63
3 changed files with 14 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_Principal.bas
View File

@@ -588,6 +588,13 @@ Sub Subir_Click
f.Close
End If
'FIN TABULADOR
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_mards"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub
@@ -1183,14 +1190,7 @@ Sub JobDone(Job As HttpJob)
Starter.skmt.ExecNonQuery2("insert into CHECADO_CHECK (CHECADO) VALUES(?)", Array As String("0"))
Else If c.GetString("CUANTOS") = 1 Then
' b = Starter.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
' b.Position = 0
' If b.GetString("CHECADO") = 0 Then
' b_check.Visible = True
' Else If b.GetString("CHECADO") = 1 Then
' b_check.Visible =False
' End If
' b.Close
End If
c.Close
' Log(reqs.size)