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

- VERSION 5.03.11

Browse Source 
- Se completo el codigo para productos variables 3 en promos.
- Se cambio codigo de validador para contemplar la posibilidad de que se pongan "_" en el nombre de las promos.
- Se agregó columna VARREG3 a la tabla de cat_gunaprod2.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-12 21:48:32 -06:00
parent 0c84e1372d
commit 05acf1f855
9 changed files with 1390 additions and 593 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -597,7 +597,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 where PE_CLIENTE IN (Select CUENTA from cuentaa)"$)
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_cliente set PC_GUARDADO = 1 where PC_CLIENTE IN (Select CUENTA from cuentaa)"$)
c.Close
DateTime.TimeFormat = "HHmmss"
@@ -625,7 +625,7 @@ Sub Guardar_Click
' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
Subs.actualizaTET(la_cuenta.text)
DateTime.TimeFormat = "HH:mm:ss"
mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
mandapiezas
B4XPages.MainPage.productos.reiniciarlistaProds = True
B4XPages.MainPage.productos.prodsMap.Initialize
@@ -633,6 +633,8 @@ Sub Guardar_Click
B4XPages.ShowPage("Principal")
End Sub
'android.database.sqlite.SQLiteException: no such column: pe_ticket (code 1 SQLITE_ERROR): , while compiling: delete from pedido_cliente where pe_ticket is null and PC_CLIENTE In (select cuenta from cuentaa)
Sub NUEVO_Click
B4XPages.ShowPage("NuevoCliente")
End Sub