cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-20 06:09:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

Ultima version By Javi jajajaja

Browse Source
This commit is contained in:
cvaldes1201
2025-08-06 15:57:52 -06:00
parent dca4e98fb1
commit 2f68301690
6 changed files with 27 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
B4A/Subs.bas
View File

@@ -1188,21 +1188,27 @@ Sub traeMaxPromos(pm As Map) As Int
Dim totalActual As Float = 0
Dim maxPromosXCreditoDisponible As Int
'Traemos el total del pedido actual.
Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS TOT_ACTUAL FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'")
fg.Position = 0
totalActual = fg.GetString("TOT_ACTUAL")
'Calculamos el credito que tenemos disponible.
Dim creditoDisponible As Float = creditoOtorgado - totalActual
'Calculamos las promos disponibles deacuerdo a lo que nos alcanza con el credito disponible.
maxPromosXCreditoDisponible = creditoDisponible / precioPromo
Log("Maximo de promos disponibles: " & maxPromosXCreditoDisponible)
Log((fg.GetString("TOT_ACTUAL")) & " Monto Actual<-------")
If fg.GetString("TOT_ACTUAL") + precioPromo > creditoOtorgado Then
maxPromosXCreditoDisponible = 0
If B4XPages.MainPage.tipo_venta = "PREVENTA_CREDITO" Then
Dim checacredito As Cursor = Starter.skmt.ExecQuery("Select CAT_CL_BCREDITO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
checacredito.Position = 0
If checacredito.GetString("CAT_CL_BCREDITO") = "1" Then
Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS TOT_ACTUAL FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'")
fg.Position = 0
totalActual = fg.GetString("TOT_ACTUAL")
'Calculamos el credito que tenemos disponible.
Dim creditoDisponible As Float = creditoOtorgado - totalActual
'Calculamos las promos disponibles deacuerdo a lo que nos alcanza con el credito disponible.
maxPromosXCreditoDisponible = creditoDisponible / precioPromo
Log("Maximo de promos disponibles: " & maxPromosXCreditoDisponible)
Log((fg.GetString("TOT_ACTUAL")) & " Monto Actual<-------")
If fg.GetString("TOT_ACTUAL") + precioPromo > creditoOtorgado Then
Log("PENDEJADAS DE ISAAC")
maxPromosXCreditoDisponible = 0
End If
maxPromos.Add(maxPromosXCreditoDisponible.As(String)) 'Agregamos Maxpromos X Credito Disponible
End If
Log(maxPromos)
End If
maxPromos.Add(maxPromosXCreditoDisponible.As(String)) 'Agregamos Maxpromos X Credito Disponible
maxPromos.Sort(True)
' Log($"|${pm.Get("id").As(String).trim}|${traeCliente.Trim}|"$)