cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-19 19:19:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.10.21

Browse Source 
- Se comentaron logs.
- Se corrigio que cuando se metia promo especial se borraban todas las promos especiales del pedido.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-10-29 13:42:23 -06:00
parent 5b38546cb7
commit d2de3ef658
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -3877,7 +3877,7 @@ Sub metePromoEspecial(idProd As String, idPromo As String, cantProd As Int, nomb
query = "cat_gunaprod"
If Starter.tipov = "VENTA" Then query = "cat_gunaprod2"
' Falta nombre de producto en el insert
Starter.skmt.ExecNonQuery2("DELETE from PEDIDO where PE_CEDIS = ?", Array As String (idPromo)) ' HAY QUE AGREGAR EL CLIENTE PARA QUE NO BORRE TODAS LAS PROMOS!!
Starter.skmt.ExecNonQuery2("DELETE from PEDIDO where PE_CLIENTE = ? and PE_CEDIS = ?", Array As String (idUsuario, idPromo)) ' HAY QUE AGREGAR EL CLIENTE PARA QUE NO BORRE TODAS LAS PROMOS!!
'Metemos encabezado de la promo.
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (idPromo, 0, 0, cantProd, promoDescr, idPromo, idCliente, sDate & sTime, idUsuario, idRuta, Starter.tipov, 0))
'Metemos el producto de regalo.