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

...

Browse Source
This commit is contained in:
Javier
2025-12-04 12:08:43 -06:00
parent 9d9cb3d2a4
commit 509fd9a85c
4 changed files with 30 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
B4A/Subs.bas
View File

@@ -920,17 +920,17 @@ Sub guardaProductoSinGestion3(cedis As String, costoU As String, cant As String,
' B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
' End If
Private abor As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD2 where CAT_GP_ID = '${prodId}'"$)
If abor.RowCount = 0 Then
Log("aQUI")
Private abor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD3 where CAT_GP_ID = '${prodId}'"$)
abor2.Position=0
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID, CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1,CAT_DP_PRECIO1,CAT_DP_PRECIO2,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (abor2.GetString("CAT_GP_ID"), abor2.GetString("CAT_GP_NOMBRE"), abor2.GetString("CAT_GP_IMP1"), abor2.GetString("CAT_GP_IMP2"), abor2.GetString("CAT_GP_PRECIO"), abor2.GetString("CAT_GP_CLASIF"), abor2.GetString("CAT_GP_STS"), abor2.GetString("CAT_GP_TIPO"), abor2.GetString("CAT_GP_SUBTIPO"), abor2.GetBlob("CAT_GP_IMG"), cant, abor2.GetString("CAT_GP_TIPOPROD"), abor2.GetString("CAT_GP_INICIATIVA"), abor2.GetString("CAT_DP_PRECIO10"), abor2.GetString("CAT_DP_CONVERSION1"), abor2.GetString("CAT_DP_PRECIO1"), abor2.GetString("CAT_DP_PRECIO2"), abor2.GetString("CAT_DP_PRECIO3"), abor2.GetString("CAT_DP_PRECIO4"), abor2.GetString("CAT_DP_PRECIO9")))
Else
Log("aQUI")
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + ${cant} where cat_gp_id = '${prodId}' "$)
End If
' Private abor As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD2 where CAT_GP_ID = '${prodId}'"$)
'
' If abor.RowCount = 0 Then
' Log("aQUI")
' Private abor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from CAT_GUNAPROD3 where CAT_GP_ID = '${prodId}'"$)
' abor2.Position=0
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID, CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO10,CAT_DP_CONVERSION1,CAT_DP_PRECIO1,CAT_DP_PRECIO2,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (abor2.GetString("CAT_GP_ID"), abor2.GetString("CAT_GP_NOMBRE"), abor2.GetString("CAT_GP_IMP1"), abor2.GetString("CAT_GP_IMP2"), abor2.GetString("CAT_GP_PRECIO"), abor2.GetString("CAT_GP_CLASIF"), abor2.GetString("CAT_GP_STS"), abor2.GetString("CAT_GP_TIPO"), abor2.GetString("CAT_GP_SUBTIPO"), abor2.GetBlob("CAT_GP_IMG"), cant, abor2.GetString("CAT_GP_TIPOPROD"), abor2.GetString("CAT_GP_INICIATIVA"), abor2.GetString("CAT_DP_PRECIO10"), abor2.GetString("CAT_DP_CONVERSION1"), abor2.GetString("CAT_DP_PRECIO1"), abor2.GetString("CAT_DP_PRECIO2"), abor2.GetString("CAT_DP_PRECIO3"), abor2.GetString("CAT_DP_PRECIO4"), abor2.GetString("CAT_DP_PRECIO9")))
' Else
' Log("aQUI")
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + ${cant} where cat_gp_id = '${prodId}' "$)
' End If
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
c.Position=0
@@ -960,19 +960,19 @@ 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}'"$)
' 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
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
' End If
Log("aQUI")
Log(cant)
Log(antCant)
Log(difCant)
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + (${difCant}) where cat_gp_id = '${prodId}' "$)
' 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
'' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
'' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
'' End If
'
' Log("aQUI")
' Log(cant)
' Log(antCant)
' Log(difCant)
'' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + (${difCant}) where cat_gp_id = '${prodId}' "$)
' Log($"CANT=${cant}"$)
If cant = 0 Then
Log("BORRAMOS PROD")