mirror of
https://github.com/KeymonSoft/Intmex_Reparto_2026.git
synced 2026-04-21 14:49:23 +00:00
VERSION 5.10.14
- Se agrego que mande la bandera de "reprogramado" - Se agrego que mande al tmp_drop fin dia, carga y envio.
This commit is contained in:
10
B4A/Subs.bas
10
B4A/Subs.bas
@@ -1170,3 +1170,13 @@ Sub guardaAppInfo 'ignore
|
||||
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
|
||||
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
|
||||
End Sub
|
||||
|
||||
'Manda a tmp_drop
|
||||
Sub mandadrop(evento As String, ruta As String)
|
||||
LogColor($"===> Mandamos a TMP_DROP - ${evento}"$, Colors.red)
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_INTMEX2"
|
||||
cmd.Parameters = Array As Object(dameUsuarioDeDB, ruta, traeAlmacen, B4XPages.MainPage.principal.l_ctast.text, traeEntregados, traeRechazados, evento, Application.VersionName)
|
||||
Starter.reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
End Sub
|
||||
Reference in New Issue
Block a user