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

- Se agregaron las columnas para ordenar por prioridades

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-29 22:02:16 -06:00
parent 255374dca0
commit 79a9113d1f
6 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -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")

1
B4A/C_Principal.bas
View File

@@ -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

2
B4A/KelloggsV4.b4a
View File

@@ -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

6
B4A/KelloggsV4.b4a.meta
View File

@@ -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

10
B4A/Subs.bas
View File

@@ -1733,3 +1733,13 @@ Sub traeDiaSemana As String
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

2
B4A/kms_helperSubs.bas
View File

@@ -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)"$)