From 98acc3e702e948031e95aa8cf84d3612a140d9b4 Mon Sep 17 00:00:00 2001 From: jalarakmt Date: Tue, 14 Apr 2026 15:34:19 -0600 Subject: [PATCH] =?UTF-8?q?Se=20actualiza=20la=20versi=C3=B3n=206.04.01=20?= =?UTF-8?q?Se=20cambia=20el=20cargar=20a=20carga=20se=20cambia=20el=20l=5F?= =?UTF-8?q?ruta=20por=20e=5Fruta?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit y se agrega el deshabilitar validaciones con el KMTP --- B4A/C_Principal.bas | 4 +++- B4A/Profina_reparto.b4a | 2 +- B4A/Profina_reparto.b4a.meta | 4 ++-- B4A/Subs.bas | 17 +++++++++++++++++ 4 files changed, 23 insertions(+), 4 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 3e9a2ce..fc7c196 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1197,7 +1197,7 @@ Sub cargar_Click Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_drop_rep_PROFINA_VN2" - cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGAR",Application.VersionName) + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName) reqManager.ExecuteCommand(cmd , "inst_drop") ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) @@ -1992,10 +1992,12 @@ Sub connecta_Click Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT)) B4XPages.MainPage.rutaPreventa = e_ruta.TEXT + If e_ruta.Text = "KMTP" Then Subs.deshabilitaValidaciones ' cmd.Name = "selectAgrupadorAlmacen" ' cmd.Parameters = Array As Object(ALMACEN) ' Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$) ' reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen") + End If End Sub diff --git a/B4A/Profina_reparto.b4a b/B4A/Profina_reparto.b4a index b7ea4e3..e74f641 100644 --- a/B4A/Profina_reparto.b4a +++ b/B4A/Profina_reparto.b4a @@ -285,7 +285,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Profina Reparto #VersionCode: 1 - #VersionName: 6.03.25 + #VersionName: 6.04.01 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Profina_reparto.b4a.meta b/B4A/Profina_reparto.b4a.meta index 596baf1..30bb0af 100644 --- a/B4A/Profina_reparto.b4a.meta +++ b/B4A/Profina_reparto.b4a.meta @@ -94,6 +94,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,StartPrinter,2835,0,C_Cliente,Guardado,810,6,B4XMainPage,Class_Globals,1208,0,Starter,Process_Globals,40,0,Starter,ENVIA_ULTIMA_GPS,123,0,appUpdater,Service_Start,126,0,C_Principal,cargar_Click,1194,0,C_Principal,e_ruta_EnterPressed,2018,0,C_Principal,Subir_Click,812,0,C_Principal,envioinfo,1085,2 +NavigationStack=Starter,ENVIA_ULTIMA_GPS,123,0,C_Principal,e_ruta_EnterPressed,2018,0,C_Principal,Subir_Click,812,0,C_Cheklist,Class_Globals,0,0,appUpdater,Service_Start,134,0,C_Principal,envioinfo,1085,2,C_Principal,cargar_Click,1188,1,Subs,guardaAppInfo,1165,0,Subs,deshabilitaValidaciones,1182,0,C_Principal,connecta_Click,1987,0 SelectedBuild=0 -VisibleModules=1,2,3,4,5,6,7,8,9,10,16 +VisibleModules=1,2,3,4,5,6,7,8,9,10,16,30 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 6eb6abd..797a83d 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1170,3 +1170,20 @@ Sub guardaAppInfo 'ignore Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$) Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$) End Sub + +Sub deshabilitaValidaciones + Log("Deshabilitamos VERIFY_DEVICE") + Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VERIFY_DEVICE")) + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("VERIFY_DEVICE", 0)) + Log("Deshabilitamos VALIDA_VERSION") +' Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VALIDA_VERSION")) +' Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("VALIDA_VERSION", 0)) + Log("Espeificamos LIGADO") + Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("LIGADO")) + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LIGADO", 1)) +' B4XPages.MainPage.principal.Btn_CheckList.Enabled = True +' B4XPages.MainPage.principal.trabajar.Enabled = True +' B4XPages.MainPage.principal.Resumen.Enabled = True +' B4XPages.MainPage.principal.BUSCA.Enabled = True + ToastMessageShow("REALIZADO", False) +End Sub