cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-18 05:09:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se corrigio el codigo de mas y menos en productos qu ea v eces no dejaba sumar y a veces dejaba poner de mas!

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-15 18:46:40 -06:00
parent 6679e33d4a
commit 43256a930b
4 changed files with 36 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/Subs.bas
View File

@@ -789,7 +789,7 @@ Sub actualizaProducto(cedis As String, costoU As String, cant As String, nombre
Private difCant As Int = cant - antCant
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${(cant*c.GetString("PE_COSTOU"))} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
Log($"CANT=${cant}"$)
' Log($"CANT=${cant}"$)
If cant = 0 Then
Log("BORRAMOS PROD")
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)