cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-18 13:19:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 6.03.16

Browse Source 
- Cambios en validador para enviar el pedido enun solo paquete y no produto producto.
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-03-19 16:26:38 -06:00
parent fbb76fed9b
commit 028d200cc2
10 changed files with 311 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/C_Cliente.bas
View File

@@ -598,7 +598,7 @@ Sub Guardar_Click
Log(">>>>> PONEMOS SIG TICKET")
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set PE_TICKET = ${Subs.traeTicketConsecutivo(Subs.traeCliente)}, PE_GUARDADO = 1 where PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_TICKET is Null"$)
End If
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set PE_GUARDADO = 1, PE_ENVIO_OK = 1 where PE_CLIENTE IN (Select CUENTA from cuentaa)"$)
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set PE_GUARDADO = 1, PE_ENVIO_OK = 0 where PE_CLIENTE IN (Select CUENTA from cuentaa)"$)
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido_cliente set PC_GUARDADO = 1 where PC_CLIENTE IN (Select CUENTA from cuentaa)"$)
c.Close
DateTime.TimeFormat = "HHmmss"
@@ -626,6 +626,12 @@ Sub Guardar_Click
' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
Subs.actualizaTET(la_cuenta.text)
DateTime.TimeFormat = "HH:mm:ss"
' B4XPages.MainPage.principal.enviaPedidoBatch(Subs.traeCliente)
' Sleep(2000)
mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! - Solo envia clientes nuevos, no comentar lo que yo descomente --- javier (por que Guerra lo comento) ... ¿Que descomentaste?? --- Guerra
mandapiezas
B4XPages.MainPage.productos.reiniciarlistaProds = True