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

,,,

Browse Source
This commit is contained in:
cvaldes1201
2025-02-17 16:39:25 -06:00
parent 98bb3d5eb7
commit b6cb802c2c
5 changed files with 114 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/Subs.bas
View File

@@ -1241,6 +1241,26 @@ Sub TraeMontoProd As Boolean
Return x
End Sub
Sub TraeMontoProd2 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") >= 300 and c.GetString("suma") <= 499.99 Then
x = True
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 ${traeTablaProds(traeTipoVentaDeBD)} ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP)"$)