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

Se corrige un error que permitía meter promocijes de mas y dejaba inventario en negativo.

Browse Source 
- Cuando el producto fijo de una promocion tambien es parte de los productos variables de la misma, al aumentar la cantidad de promociones a comprar, el invenatrio del producto variable no se actualizaba.
  ej. Si la promo usa 3 productos fijos y quedan 10 para los variables, cuando pedimos 2 promociones, en lugar de usar 3 para los fijos, ahora vamos a necesitar 6, y en lugar de quedar 10 para los variables, ahora solo quedan 7.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-18 13:58:55 -06:00
parent 72bf3cae3b
commit 4da2d43177
6 changed files with 162 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
B4A/C_Principal.bas
View File

@@ -973,7 +973,7 @@ Sub JobDone(Job As HttpJob)
Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO"))
Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT"))
Dim HCCP_CANT_VENDIDA As String = records(RESULT.Columns.Get("HCCP_CANT_VENDIDA"))
If HCCP_CANT_VENDIDA = Null or HCCP_CANT_VENDIDA = "null" Then HCCP_CANT_VENDIDA = 0
If HCCP_CANT_VENDIDA = Null Or HCCP_CANT_VENDIDA = "null" Then HCCP_CANT_VENDIDA = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT, HCCP_CANT_VENDIDA) VALUES (?,?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT, HCCP_CANT_VENDIDA))
Next
Starter.skmt.TransactionSuccessful
@@ -2169,12 +2169,28 @@ Sub B_OK_PAS_Click
End If
P1.Visible = False
trabajar.Visible = True
' B_PROXIMA.Visible =True
' NUEVO.Visible =True
BUSCA.Visible=True
connecta.Visible=True
Resumen.Visible= True
img2.Visible=False
B_PROXIMA.Visible =True
NUEVO.Visible = True
BUSCA.Visible = True
connecta.Visible = True
Resumen.Visible = True
img2.Visible = False
' B_PROXIMA.Visible =False
' NUEVO.Visible =False
' BUSCA.Visible=False
' connecta.Visible=False
' Subir.Visible=False
' cargar.Visible=False
' L_P_1.Visible = False
' S_CC.Visible = False
' L_P_3.Visible = False
' S_CH.Visible = False
' PB1.Visible = False
' Resumen.Visible= False
P1.SendToBack
Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then
Msgbox("Tiene que subir de nuevo la información","Atención") 'ignore