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

- VERSION 4.11.20

Browse Source 
- Se modificó el codigo de carga local (proyecto recuperacion) para que por default restaure el respaldo del día ANTERIOR
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-28 15:13:47 -06:00
parent 9cc4023549
commit 0240086367
5 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_Cliente.bas
View File

@@ -656,8 +656,9 @@ Sub B4XPage_Appear
' If Logger Then Log(mPromoEspecial.Get("esValida"))
If Subs.traeUltimaActividadBD = "Productos" Then 'Venimos de "Productos"
If logger Then Log("Venimos de Productos")
If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And l_total.Text > ((mPromoEspecial.Get("montoPromo") * (100 - mPromoEspecial.Get("rangoPromo")))/100) And _
l_total.Text <= mPromoEspecial.Get("montoPromo") Then 'El monto de la venta esta dentro del rango para la promo.
If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And _
l_total.Text > ((mPromoEspecial.Get("montoPromo") * (100 - mPromoEspecial.Get("rangoPromo")))/100) And _ 'El total es el porcentaje de rango MENOR al total de la venta
l_total.Text <= mPromoEspecial.Get("montoPromo") Then 'El monto de la venta esta dentro del rango para la promo.
If logger Then Log("Promo dentro del rango")
Msgbox($"Si la venta sobrepasa los $${mPromoEspecial.Get("montoPromo")} se activa la promoción '${mPromoEspecial.Get("descrPromo")}'"$, "CASI EN RANGO DE PROMO ESPECIAL") 'ignore
Else