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

PROMO ESPECIAL2

Browse Source
This commit is contained in:
cvaldes1201
2024-07-01 10:00:42 -06:00
parent fd1fc6811d
commit d60f22b871
7 changed files with 73 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/Subs.bas
View File

@@ -764,7 +764,10 @@ Sub traePromo(promo As String, cliente As String) As Map
Else
promoMap.Put("resultado", "No hay datos de la promoción.")
End If
c = B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_STS, CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = '"& promo & "'") 'Obtenemos las piezas requeridas de productos variables para la promoción.
c.Position = 0
Private pvr As String = 0
If c.RowCount > 0 Then
@@ -1103,6 +1106,8 @@ End Sub
Sub traePromoIdDeBD As Map 'ignore
Private c As Cursor
Private m As Map
Log("ENTRE")
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_TIPO, CAT_GP_SUBTIPO from CAT_GUNAPROD where CAT_GP_NOMBRE In (Select PDESC from PROID) and CAT_GP_TIPO = 'PROMOS'")
If c.RowCount > 0 Then
c.Position = 0
@@ -1111,6 +1116,7 @@ Sub traePromoIdDeBD As Map 'ignore
m = CreateMap("id":"N/A", "nombre":"N/A", "tipo":"N/A", "subtipo":"N/A")
End If
c.Close
Return m
End Sub