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

- Se agregaron botones para imprimir resumen de ordenes y resumen de grupos

Browse Source 
- Se agregó código para mostrar las categorias y subcategorias
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-13 13:22:32 -06:00
parent 35da4c6e23
commit 4caf1ca389
6 changed files with 185 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
B4A/Subs.bas
View File

@@ -1392,7 +1392,22 @@ End Sub
'Regresa las categorias de los productos en una lista
Sub traeCategorias As List
Private c As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_CLASIF from CAT_GUNAPROD order by CAT_GP_CLASIF"$)
Private c As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_TIPO from CAT_GUNAPROD order by CAT_GP_TIPO"$)
Private l As List
If c.RowCount > 0 Then
l.Initialize
For i = 0 To c.RowCount - 1
c.Position = i
l.Add(c.GetString("CAT_GP_TIPO"))
' Log(c.GetString("CAT_GP_CLASIF"))
Next
End If
Return l
End Sub
'Regresa las subcategorias de los productos en una lista
Sub traeSubCategorias(cat As String) As List
Private c As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_CLASIF from CAT_GUNAPROD where CAT_GP_TIPO = '${cat}' order by CAT_GP_CLASIF"$)
Private l As List
If c.RowCount > 0 Then
l.Initialize