cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-20 14:19:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

19/9/23 - Pruebas

Browse Source
This commit is contained in:
cheveguerra
2023-09-19 09:57:28 -06:00
parent 512f91b7ab
commit 510d0041d9
4 changed files with 26 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_Principal.bas
View File

@@ -1761,7 +1761,12 @@ Sub tickets_dia_LongClick
End Sub
Sub Subs_envioOk(succes As Boolean)
Log("###################### " & succes)
Log("###################### ENVIO OK - " & succes)
If Not(succes) Then
ToastMessageShow($"El envio no se completo con exito, por favor vuelva a enviar."$, True)
Else
ToastMessageShow($"¡El envio exitoso!."$, True)
End If
ProgressDialogHide
End Sub
'################################ Termina codigo de prueba #############################
@@ -1913,12 +1918,12 @@ Sub t1_tick
cmd.Name = "select_cuantos_pedido_MARDS"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
cmd.Initialize
cmd.Name = "select_cuantos_noventa_MARDS"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
cmd.Initialize
cmd.Name = "select_cuantos_pedidoc_MARDS"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)