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 5.12.3

Browse Source 
-Se agregaron las marcas por usuario.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-04 16:37:51 -06:00
parent 0a4483d93c
commit e40988de1c
6 changed files with 48 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
B4A/C_Principal.bas
View File

@@ -977,6 +977,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_cat_clientes2_INTMEX"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
Log("select_cat_clientes2_INTMEX: " & e_ruta.text & "|" & ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
cmd.Initialize
@@ -1070,11 +1071,11 @@ Sub cargar_Click
cmd.Name = "select_promo_comp_INTMEX"
cmd.Parameters = Array As Object(ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos")
' cmd.Initialize
' cmd.Name = "select_verificacion_INTMEX"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "cat_verificacion")
' cmd.Initialize
' cmd.Name = "select_verificacion_INTMEX"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "cat_verificacion")
cmd.Initialize
cmd.Name = "select_fecha"
@@ -1096,6 +1097,11 @@ Sub cargar_Click
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "marcas_rutas")
cmd.Initialize
cmd.Name = "select_marcas_Intmex"
cmd.Parameters = Array As Object(usuario)
reqManager.ExecuteQuery(cmd , 0, "marcas")
' cmd.Initialize
' cmd.Name = "select_CUEST_INTMEX"
' cmd.Parameters = Array As Object(ALMACEN)
@@ -1511,16 +1517,25 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "marcas_rutas" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA"))
Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES))
Next
End If
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "marcas_rutas" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA"))
Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES))
Next
End If
' Marcas
If RESULT.Tag = "marcas" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim MARCAS As String = records(RESULT.Columns.Get("MARCAS"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MARCAS"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MARCAS",MARCAS))
Next
End If
End If
'CUOTAS
@@ -2573,7 +2588,17 @@ Sub resdia_Click
End Sub
Sub hacer_ped_Click
B4XPages.ShowPage("Clientes")
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
c.Position = 0
If c.RowCount > 0 Then
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 &")" )
Starter.skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD))")
B4XPages.ShowPage("Clientes")
Else
If Starter.marcaCel <> "LGE" Then ToastMessageShow("No hay marcas en la base de datos ... ya se cargo ruta??", True)
End If
End Sub
Sub nvo_cliente_Click