From 79a9113d1ff7924f98185258d4a7d21645919302 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 29 Apr 2024 22:02:16 -0600 Subject: [PATCH] - Se agregaron las columnas para ordenar por prioridades --- B4A/B4XMainPage.bas | 2 ++ B4A/C_Principal.bas | 3 ++- B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 6 +++--- B4A/Subs.bas | 10 ++++++++++ B4A/kms_helperSubs.bas | 2 +- 6 files changed, 19 insertions(+), 6 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index ca152a7..c06cb0d 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -157,6 +157,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) kh.agregaColumna(Starter.skmt, "USUARIOA", "FECHA", "TEXT") kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_PRECIO2", "TEXT") kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_TIPO_PROMONTO", "TEXT") + kh.agregaColumna(Starter.skmt, "CAT_GUNAPROD", "CAT_GP_TIPOPROD2", "TEXT") + kh.agregaColumna(Starter.skmt, "CAT_GUNAPROD2", "CAT_GP_TIPOPROD2", "TEXT") Root = Root1 ' Root.LoadLayout("MainPage") Root.LoadLayout("login") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index d2959f3..95a5c9e 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1125,6 +1125,7 @@ Sub JobDone(Job As HttpJob) If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "gunaprod" Then 'query tag +' Subs.logJobDoneResultados(RESULT) If logger Then Log("TIEMPO gunaprod : " & ((DateTime.Now-inicioContador)/1000)) S_CP.Text = "CARGANDO" Starter.skmt.BeginTransaction @@ -1175,7 +1176,7 @@ Sub JobDone(Job As HttpJob) End If End If End If - + 'CARGA DEL CATALOGO ABORDO If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 8f89ecd..bdae549 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -864,7 +864,7 @@ Module9=C_NuevoCliente NumberOfFiles=401 NumberOfLibraries=29 NumberOfModules=29 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Kelloggs Venta diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 5270eb2..b4b6ff1 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -62,7 +62,7 @@ ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11= -ModuleClosedNodes12=1 +ModuleClosedNodes12= ModuleClosedNodes13= ModuleClosedNodes14= ModuleClosedNodes15= @@ -88,6 +88,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,Subir_Click,505,0,C_Principal,SUBIR_INFO_PEDIDO,2878,0,C_Principal,B_PROXIMA_LongClick,3359,0,C_Principal,B_PROXIMA_Click,2508,1,C_Principal,e_ruta_EnterPressed,2089,0,C_Cliente,Guardar_Click,949,0,kms_helperSubs,RD_respaldoBatch,438,0,kms_helperSubs,RD_fechaRestauracionSQL,484,0,B4XMainPage,B4XPage_Created,136,6,kms_helperSubs,RD_Init,66,0 +NavigationStack=Subs,traeDiaSemana,1729,0,Subs,logJobDoneResultados,1731,0,C_Productos,b_prodMas_Click,624,0,Subs,traeFechaDeBD,1610,0,C_Productos,b_continuar_Click,897,0,kms_helperSubs,RD_Init,55,0,Tracker,flp_LocationChanged,230,0,C_Productos,lv_catalogos2_ItemClick,353,0,B4XMainPage,B4XPage_Created,154,2,C_Principal,JobDone,1140,4 SelectedBuild=0 -VisibleModules=1,27,11,3,12,4,28,17,23 +VisibleModules=1,27,11,3,12,4,28,17,23,29 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 4a0e626..59f12b9 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1732,4 +1732,14 @@ Sub traeDiaSemana As String diaSemana = "SABADO" End Select Return diaSemana +End Sub + +'Muestra en el Log los campos y valores que regresan en el JobDone. +Sub logJobDoneResultados(resultado As DBResult) + For Each records() As Object In resultado.Rows + LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0)) + For Each k As String In resultado.Columns.Keys + LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0)) + Next + Next End Sub \ No newline at end of file diff --git a/B4A/kms_helperSubs.bas b/B4A/kms_helperSubs.bas index f8bfaef..ef98905 100644 --- a/B4A/kms_helperSubs.bas +++ b/B4A/kms_helperSubs.bas @@ -70,7 +70,7 @@ Sub RD_Init If chkIfTableExists(skmt, "PEDIDO") Then rkmt.ExecNonQuery($"create table if not exists PEDIDO (${getTableColumnList(skmt, "PEDIDO")}, FECHA TEXT)"$) If chkIfTableExists(skmt, "CAT_DETALLES_PAQ") Then rkmt.ExecNonQuery($"create table if not exists CAT_DETALLES_PAQ (${getTableColumnList(skmt, "CAT_DETALLES_PAQ")}, FECHA TEXT)"$) If chkIfTableExists(skmt, "CAT_GUNAPROD") Then rkmt.ExecNonQuery($"create table if not exists CAT_GUNAPROD (${getTableColumnList(skmt, "CAT_GUNAPROD")}, FECHA TEXT)"$) - agregaColumna(rkmt,"CAT_GUNAPROD", "CAT_GP_TIPOPROD2", "TEXT") +' agregaColumna(rkmt,"CAT_GUNAPROD", "CAT_GP_TIPOPROD2", "TEXT") If chkIfTableExists(skmt, "CAT_GUNAPROD2") Then rkmt.ExecNonQuery($"create table if not exists CAT_GUNAPROD2 (${getTableColumnList(skmt, "CAT_GUNAPROD2")}, FECHA TEXT)"$) If chkIfTableExists(skmt, "kmt_info") Then rkmt.ExecNonQuery($"create table if not exists kmt_info (${getTableColumnList(skmt, "kmt_info")}, FECHA TEXT)"$) If chkIfTableExists(skmt, "PROMOS_COMP") Then rkmt.ExecNonQuery($"create table if not exists PROMOS_COMP (${getTableColumnList(skmt, "PROMOS_COMP")}, FECHA TEXT)"$)