From 577f80dc8c8e68c56085e72fd030d8280521c2c4 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Thu, 4 Apr 2024 12:21:23 -0600 Subject: [PATCH] .. --- B4A/C_Cliente.bas | 11 ++++++++--- B4A/C_Principal.bas | 5 +++++ B4A/Durakelo.b4a | 4 ++-- B4A/Durakelo.b4a.meta | 4 ++-- 4 files changed, 17 insertions(+), 7 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 86549fa..d61afe0 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -208,7 +208,11 @@ Private Sub B4XPage_Created (Root1 As B4XView) End Sub Sub B4XPage_Appear - + c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS")) + c.Position =0 + Private MARCASQ As String = c.GetString("CAT_VA_VALOR") + c.Close + Starter.skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" ) B_VENTA.Enabled = True If Subs.traeCliente = 0 Then B_VENTA.Enabled = False c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP")) @@ -393,7 +397,7 @@ Sub gest_Click Return False End If ' If la_cuenta.Text <> "0" Then -' Dim queenc As String +' Dim queenc As String ' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local ' If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1" ' If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2" @@ -696,6 +700,7 @@ Sub B_IMP_Click TAMANO = 0 ESPACIO = 21 BLANCO = " " + End If Next End If @@ -1199,7 +1204,7 @@ Sub B_VENTA_Click Return False End If ' If la_cuenta.Text <> "0" Then -' Dim queenc As String +' Dim queenc As String ' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local ' If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1" ' If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2" diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index b061527..2625f9a 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1975,6 +1975,11 @@ Sub connecta_Click End Sub Sub BUSCA_Click + c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS")) + c.Position =0 + MARCASQ = c.GetString("CAT_VA_VALOR") + c.Close + skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" ) ' StartActivity(BUSCAR) B4XPages.ShowPage("TicketsDia") End Sub diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 47072f0..2729e58 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -1393,12 +1393,12 @@ Module9=C_NoVenta NumberOfFiles=667 NumberOfLibraries=31 NumberOfModules=24 -Version=12.8 +Version=12.5 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.02.05.ENCU + #VersionName: 4.04.02ENCU 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 637947d..3338b4d 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,b_terminar1_Click,872,0,C_Cuestionario,Initialize,19,0,C_Cuestionario,Class_Globals,0,0,C_Cliente,Class_Globals,0,0,C_Cuestionario,agregaColumna,171,0,C_Promos,muestraPromo,78,1,Main,Process_Globals,21,0,Main,Globals,25,0,C_Principal,JobDone,1914,2,C_Cliente,cuest_preguntaContestada,1730,0 +NavigationStack=C_Cliente,B_IMP_Click,675,0,C_Cliente,Class_Globals,132,0,C_Principal,Class_Globals,0,0,C_Principal,trabajar_Click,436,0,C_Principal,connecta_Click,1958,0,C_Principal,BUSCA_Click,1973,0,Diseñador Visual,principal.bal,-100,6,C_Cliente,B4XPage_Appear,213,2,C_Cliente,B_VENTA_Click,1194,0,C_Cliente,gest_Click,387,0 SelectedBuild=0 -VisibleModules=1,2,10,4,5,6,8,9,11,24,12 +VisibleModules=1,2,10,4,5,6,8,9,11,24