From d80f1d8831410ce6ca3f4503d44ebaf655eb108a Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 14 Dec 2023 17:03:38 -0600 Subject: [PATCH] Ruta Super-Q --- colonia2.bas | 33 ++++++++++++++++++++++++++------- durakelo.b4a | 2 +- durakelo.b4a.meta | 4 ++-- 3 files changed, 29 insertions(+), 10 deletions(-) diff --git a/colonia2.bas b/colonia2.bas index 6d4bd81..23f28ec 100644 --- a/colonia2.bas +++ b/colonia2.bas @@ -351,17 +351,36 @@ Sub HACER_PEDIDO l_desc.Text = c.GetString("CAT_GP_NOMBRE") If PERFIL = "V-SUPER" Then - c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '10' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") - c2.Position=0 - l_precio.Text = c2.GetString("PRECIO") - c2.Close - - Else IF ALMACEN = "6" And cl_ruta = "16" Then - c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '11' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") + + + + c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '10' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") c2.Position=0 l_precio.Text = c2.GetString("PRECIO") c2.Close + Else IF ALMACEN = "6" And cl_ruta = "16" Then +' c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '11' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") +' c2.Position=0 +' l_precio.Text = c2.GetString("PRECIO") +' c2.Close + c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") + LV_PRECIOS.Clear + Dim label1 As Label + label1 = LV_PRECIOS.TwoLinesLayout.Label + label1.TextSize = 10 + label1.TextColor = Colors.Black + Dim label2 As Label + label2 = LV_PRECIOS.TwoLinesLayout.SecondLabel + label2.TextSize = 10 + label2.TextColor = Colors.Black + + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + LV_PRECIOS.AddTwoLines(c.GetString("NLISTA"),c.GetString("PRECIO")) + Next + End If Else l_precio.Text = c.GetDouble("CAT_GP_PRECIO") diff --git a/durakelo.b4a b/durakelo.b4a index 8a31973..3457d8b 100644 --- a/durakelo.b4a +++ b/durakelo.b4a @@ -1079,7 +1079,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Durakelo-Venta #VersionCode: 1 - #VersionName: 3.11.24 + #VersionName: 3.12.12 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/durakelo.b4a.meta b/durakelo.b4a.meta index daaa4ac..33b6455 100644 --- a/durakelo.b4a.meta +++ b/durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37 -NavigationStack=Visual Designer,seleccion.bal,-100,6,seleccion,Activity_Create,236,0,seleccion,Resumen_Click,2483,2,seleccion,traeVenta,2771,3,seleccion,b_e_resumen_Click,2758,0,seleccion,SUBIR_P_Click,2750,0,seleccion,JobDone,1110,6,seleccion,cargar_Click,1101,0,MAPA_RUTAS,MapFragment1_Ready,109,0,MAPA_RUTAS,Activity_Create,106,0 +NavigationStack=MAPA_RUTAS,Activity_Create,106,0,Visual Designer,productos.bal,-100,1,seleccion,Resumen_Click,2483,2,seleccion,traeVenta,2771,3,seleccion,b_e_resumen_Click,2758,0,seleccion,SUBIR_P_Click,2750,0,seleccion,JobDone,1110,6,MAPA_RUTAS,MapFragment1_Ready,109,0,seleccion,cargar_Click,1101,0,colonia2,HACER_PEDIDO,360,0 SelectedBuild=0 -VisibleModules=21,20,24,14 +VisibleModules=21,20,24,14,5