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

promocion

Browse Source
This commit is contained in:
cvaldes1201
2024-06-21 12:22:12 -06:00
parent 38c779d01d
commit 202e565bea
8 changed files with 202 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
B4A/Subs.bas
View File

@@ -1139,4 +1139,65 @@ Sub guardaAppInfo 'ignore
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
End Sub
End Sub
Sub TraeMontoProd As Boolean
Private x As Boolean = False
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ifnull( SUM (PE_COSTO_TOT),0) As suma FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA)")
If c.RowCount > 0 Then
c.Position = 0
Private c2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT DISTINCT CAT_PE_MONTO FROM CAT_PROMO_ESP")
If c2.RowCount > 0 Then
c2.Position = 0
If c.GetString("suma") >= c2.GetString("CAT_PE_MONTO") Then
x = True
Log("verdadero")
Else
x = False
Log("Falso")
End If
End If
End If
Return x
End Sub
Sub InvSuficientePromoEsp As Boolean
Private y As Boolean = False
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, ifnull(CAT_GP_ALMACEN, 0) As CAT_GP_ALMACEN from CAT_DETALLES_PAQ left JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP)")
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
If c.GetString("CAT_GP_ALMACEN") >= c.GetString("CAT_DP_PZAS") Then
y = True
' Log("verdadero "& c.GetString("CAT_DP_IDPROD"))
' Log(c.GetString("CAT_GP_ALMACEN") &" "& c.GetString("CAT_DP_PZAS"))
Else
y = False
' Log("falso "& c.GetString("CAT_DP_IDPROD"))
' Log(c.GetString("CAT_GP_ALMACEN") &" "& c.GetString("CAT_DP_PZAS"))
Exit
End If
Next
End If
c.Close
Return y
End Sub
Sub vendidoPromoEsp As Boolean
Private w As Boolean = False
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("select HP_CLIENTE, HP_CODIGO_PROMOCION from HIST_PROMOS WHERE HP_CODIGO_PROMOCION IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND HP_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If c.RowCount > 0 Then
w = True
End If
Log(w)
c.Close
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("select PE_PROID from PEDIDO WHERE PE_PROID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If c.RowCount > 0 Then
w = True
End If
c.Close
Log(w)
Return w
End Sub