This commit is contained in:
2023-09-27 11:33:47 -06:00
parent 589d7ab87e
commit e998fdd37f
3 changed files with 8 additions and 6 deletions

View File

@@ -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