cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Agregamos meta

Browse Source 
- Se agrego codigo en "productos" para que la busqueda de RMIs funcione.
This commit is contained in:
cheveguerra
2023-09-20 02:01:33 -06:00
parent 169daa74b3
commit d913a85e77
10 changed files with 15 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -521,7 +521,7 @@ Sub B4XPage_Appear
Else
Cuestionario
End If
' Log(Subs.revisaImpresa)
Log("IMPRESO:" & Subs.revisaImpresa)
If YA_IMPRIMIO2 = 0 Then
Guardar.Visible = False
Else

2
B4A/C_Principal.bas
View File

@@ -1957,7 +1957,7 @@ Sub connecta_Click
cmd.Initialize
cmd.Name = "select_ruta3_KELL"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario)
Log($"******* RUTA: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$)
Log($"******* Almacen: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
e_ruta.Enabled = False
If e_ruta.Text = "KMTSKLL1" Then e_ruta.Enabled = True

10
B4A/C_Productos.bas
View File

@@ -1073,6 +1073,16 @@ Sub Busca_TextChanged (Old As String, New As String)
ToastMessageShow("No hay promociones disponibles.", False)
End If
cPromo.Close
else if lfila.text = "RMI" Then
Dim p As ResultSet = Starter.db.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, '1000' as CAT_GP_ALMACEN from CAT_RMI where CAT_GP_NOMBRE like '%${New}%' order by CAT_GP_NOMBRE"$)
Log($"Llamamos LlenaProdsLL con ${p.RowCount} prods."$)
lfila.Text = "RMI"
b_rmi.Visible = False
lv_catalogos.Visible = False
LlenaProdsLL(p, "rmi")
clv_prods_ll.AsView.BringToFront
clv_prods_ll.AsView.Visible = True
l_mDisponible.Visible = True
Else
If Not(clv_prods_ll.AsView.Visible) Then clv_prods_ll.AsView.Visible = True
clv_prods_ll.Clear

6
B4A/KelloggsV4.b4a.meta
View File

@@ -60,7 +60,7 @@ ModuleClosedNodes0=
ModuleClosedNodes1=
ModuleClosedNodes10=
ModuleClosedNodes11=
ModuleClosedNodes12=
ModuleClosedNodes12=1
ModuleClosedNodes13=
ModuleClosedNodes14=
ModuleClosedNodes15=
@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Subs,dbInit,25,0,Starter,Service_Create,61,0,B4XMainPage,B4XPage_Appear,353,0,Starter,Service_Start,88,0,Starter,Subs_dbOk,90,0,C_Principal,B4XPage_Created,192,1,C_Principal,B4XPage_Appear,376,0,C_Principal,B_OK_PAS_Click,2145,1,B4XMainPage,Class_Globals,35,0,C_Principal,JobDone,1131,5
NavigationStack=C_Productos,Initialize,96,0,C_Historico,B_RMI_Click,111,0,C_Productos,clv_prods_ll_VisibleRangeChanged,1047,0,C_Productos,Busca_TextChanged,1068,3,C_Principal,JobDone,1123,0,C_Principal,cargar_Click,809,0,C_Principal,connecta_Click,1908,1,Visual Designer,productos.bal,-100,2,Visual Designer,cliente.bal,-100,1,C_Cliente,B4XPage_Appear,511,3
SelectedBuild=0
VisibleModules=1,26,11,14,27,3,4,13,12,2
VisibleModules=1,26,11,14,27,3,4,13,12,2,5