cheveguerra/Tortillas_Guerreras
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Tortillas_Guerreras.git synced 2026-04-20 22:29:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

v5.12.15

Browse Source
This commit is contained in:
Javier
2025-12-26 10:46:05 -06:00
parent a06b688e0b
commit 6a0e127bc4
15 changed files with 1345 additions and 859 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/Subs.bas
View File

@@ -787,6 +787,17 @@ Sub traeUsuarioDeBD As String 'ignore
Return u
End Sub
Sub traetIPOCliente2 As String 'ignore
Private c As Cursor
Private cl As String
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_TIPO_CLIENTE FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
c.Position=0
cl = c.GetString("CAT_CL_TIPO_CLIENTE")
c.Close
Return cl
End Sub
'Inserta un producto en la tabla "pedido" y "pedido_cliente".
'Actualiza "cat_gunaprod" y la columna "gestion" en la tabla "kmt_info".
Sub guardaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
@@ -960,7 +971,7 @@ Sub actualizaProducto3(cedis As String, costoU As String, cant As Int, nombre As
Private difCant As Int = cant - antCant
' B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${0}, PE_CANTC = ${cantc}, PE_BCAJAS = ${bcajas} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${0}, PE_CANTC = ${cantc}, PE_BCAJAS = ${bcajas} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
'' If B4XPages.MainPage.tipo_venta = "VENTA" Then
'' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
'' Else