From e40988de1ca44a45f9263df40f187f9366a0175c Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 4 Dec 2025 16:37:51 -0600 Subject: [PATCH] - VERSION 5.12.3 -Se agregaron las marcas por usuario. --- B4A/C_NuevoCliente.bas | 7 +++-- B4A/C_Principal.bas | 55 +++++++++++++++++++++++++++++----------- B4A/Files/principal.bal | Bin 52030 -> 52030 bytes B4A/INTMEX.b4a | 2 +- B4A/INTMEX.b4a.meta | 4 +-- INTMEX_LL.lnk | Bin 1067 -> 0 bytes 6 files changed, 48 insertions(+), 20 deletions(-) delete mode 100644 INTMEX_LL.lnk diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index 411d80f..280ce57 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -162,6 +162,7 @@ Sub Class_Globals Private p_transparenteCN As Panel Private p_clientesNuevos As Panel Private b_clienteNuevo As Button + Private l_textoCN As Label End Sub 'You can add more parameters here. @@ -260,14 +261,16 @@ Sub B4XPage_Appear c.Close Log($"Permitidos: ${permitidos}, Actuales: ${cuantosNuevos}"$) Log((permitidos > 0) & "|" & (permitidos > cuantosNuevos)) - If permitidos <> 0 Then ' Si permitidos es CERO entonces SIN LIMITE de clientes nuevos. +' If permitidos <> 0 Then ' Si permitidos es CERO entonces SIN LIMITE de clientes nuevos. + l_textoCN.Text = "Llegó al límite de clientes nuevos, ya no es posible agregar mas clientes." + If permitidos = 0 Then l_textoCN.Text = "No tienes permitido dar de alta clientes nuevos." If permitidos > cuantosNuevos Then p_transparenteCN.Visible = False Else p_transparenteCN.BringToFront p_transparenteCN.Visible = True End If - End If +' End If CallSubDelayed(Tracker, "Track") CallSubDelayed(Tracker, "StartFLPSmall") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 3a7ede6..116aebe 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 19f9bcae56d4cbeb5faa9fbdc03cff9600ce1616..e27985632e747a178a84c816f6de9c576bf93a32 100644 GIT binary patch delta 37 scmdltjd|ZR<_)S_n65ESwpPrYJfU4^^Rg{M{7maWeCN%74?D6003*f@^#A|> delta 39 rcmdltjd|ZR<_)S_Cj0jYP4-rdojjpkX!EiyLi|txZ8)bN@xh!pQe#tWt#t|M6f+4a zBD5eX@D$X+I)u?F2s%U%MRe#O2py6R9fX8_&;B_(*gKv-@AE$UJ@4~--cJKyvQQKwepG3g{1f?V+OXYQT|U2MgU)=SDQ`-8(_}+q=zH*k<44!H<D_OGB8!Io^!w- z80b^M`R7)Gz>Y-D@tzXLEx zk+HqGT3*j65Mk_a`O|zzUCfN&5=SsiEq<6HkHF9I8*C%a_(hIq5>wodZyR8m6c-6; zgNwVP)W`W?j_r_JyxTC_BsCB9e7~58UASCubLQLT+FFx#-8XY&{?%e-Rn3Wy?e@C2 zKdmpCo(6L7LQ-r~;A QtB>vW^zu@NU*g5}7b8K