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

2
B4A/Subs.bas
View File

@@ -823,7 +823,7 @@ Sub actualizaProductoConTicket(cedis As String, costoU As String, cant As Int, n
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_ticket is null and pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
Private pe As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(pe_cliente) as cuantosPedidos from pedido where pe_ticket is null and pe_cliente In (select cuenta from cuentaa)")
pe.Position = 0
If pe.GetString("cuantosPedidos") = 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pe_ticket is null and PC_CLIENTE In (select cuenta from cuentaa)")
If pe.GetString("cuantosPedidos") = 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") 'pe_ticket is null and
End If
Else
'INSERTAMOS