cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.11.30.MV

Browse Source 
- Se modificaron los queries del config.properties "select_cat_gunaprod_INTMEX" y "select_cat_gunaprod2_INTMEX" para que traigan tambien las columnas precio8, precio9 y precio10.
- Se agrego el query "select_tipoRuta_Intmex", para traer la columna "CAT_RU_CATEGORIA" y guardarla en CAT_VARIABLES.
- Se agregó codigo para que cuando el tipoRuta sea igual a "MAYOREO", muestre el precio10 en lugar del precio regular.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-12-03 05:27:03 -06:00
parent 590e36bee4
commit 8c51dc00c5
5 changed files with 112 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
B4A/C_Principal.bas
View File

@@ -921,7 +921,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_hist_datos_INTMEX_2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
cmd.Initialize
@@ -939,7 +939,20 @@ Sub cargar_Click
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
' esto es para sacar el perfil y marcas del usuario
cmd.Initialize
cmd.Name = "select_perfil_INTMEX"
cmd.Parameters = Array As Object(usuario)
reqManager.ExecuteQuery(cmd , 0, "perfil")
'Tipo de ruta
cmd.Initialize
cmd.Name = "select_tipoRuta_Intmex"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "tipoRuta")
' cmd.Initialize
' cmd.Name = "select_HIST_MARCAS_CUOTAS_INTMEX"
' cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
@@ -990,7 +1003,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_fecha"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "fecha")
cmd.Initialize
@@ -1111,7 +1124,7 @@ Sub JobDone(Job As HttpJob)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_INTMEX_7"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
Else
@@ -1443,6 +1456,9 @@ Sub JobDone(Job As HttpJob)
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
Dim CAT_GP_PRECIO8 As String = records(RESULT.Columns.Get("CAT_GP_PRECIO8"))
Dim CAT_GP_PRECIO9 As String = records(RESULT.Columns.Get("CAT_GP_PRECIO9"))
Dim CAT_GP_PRECIO10 As String = records(RESULT.Columns.Get("CAT_GP_PRECIO10"))
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
@@ -1454,7 +1470,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
' CAT_GP_INICIATIVA = 5
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_GP_PRECIO8,CAT_GP_PRECIO9,CAT_GP_PRECIO10) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_GP_PRECIO8,CAT_GP_PRECIO9,CAT_GP_PRECIO10))
Next
Listo2=1
If PB2.Progress = 0 Then
@@ -1487,6 +1503,9 @@ Sub JobDone(Job As HttpJob)
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_DP_IMP1"))
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_DP_IMP2"))
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
Dim CAT_GP_PRECIO8 As String = records(RESULT.Columns.Get("CAT_DP_PRECIO8"))
Dim CAT_GP_PRECIO9 As String = records(RESULT.Columns.Get("CAT_DP_PRECIO9"))
Dim CAT_GP_PRECIO10 As String = records(RESULT.Columns.Get("CAT_DP_PRECIO10"))
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_DP_STS"))
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
@@ -1498,7 +1517,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_DP_INICIATIVA"))
' CAT_GP_INICIATIVA = 5
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_GP_PRECIO8,CAT_GP_PRECIO9,CAT_GP_PRECIO10) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_GP_PRECIO8,CAT_GP_PRECIO9,CAT_GP_PRECIO10))
Next
Listo2=1
If PB2.Progress = 0 Then
@@ -1871,7 +1890,31 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
End If
End If
'Perfil
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "perfil" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim PERFIL As String = records(RESULT.Columns.Get("PERFIL"))
B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("PERFIL"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("PERFIL", PERFIL))
Next
End If
End If
'Tipo Ruta
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "tipoRuta" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim TIPO_RUTA As String = records(RESULT.Columns.Get("CAT_RU_CATEGORIA"))
B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("TIPO_RUTA"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("TIPO_RUTA", TIPO_RUTA))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)