mirror of
https://github.com/KeymonSoft/Mariana_Censos.git
synced 2026-04-22 07:00:08 +00:00
..
This commit is contained in:
@@ -443,18 +443,18 @@ Sub b_subir_Click
|
||||
B4XPages.MainPage.nuevoCliente.mandaPendientesNuevosClientes
|
||||
B4XPages.MainPage.cliente.mandarTodo = False
|
||||
B4XPages.MainPage.nuevoCliente.mandarTodo = False
|
||||
|
||||
|
||||
Dim sDate, sTime As String
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name ="insert_drop_MARDS_2"
|
||||
cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,"CENSOS",sTime,"","","","","ENVIO",ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_drop")
|
||||
mapTiempos.Put($"ins_drop"$, DateTime.now)
|
||||
|
||||
|
||||
ProgressDialogHide
|
||||
ToastMessageShow("Información enviada", True)
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user