diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index aedcdb9..0d070b3 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -817,7 +817,7 @@ End Sub Sub i_engrane_Click p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2) lv_server.Clear - lv_server.AddSingleLine("http://keymon.lat:1782") + lv_server.AddSingleLine("http://keymon.net:1782") If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782") l_server.Text = Starter.server et_server.Text = Starter.server diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 263526b..fd32320 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1491,64 +1491,64 @@ End Sub Sub gest_Click If B_IMP.Visible = True Then If Not(Subs.revisaImpreso) Then - c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") - c.Position = 0 - If c.GetString("encuesta") = "0" Then - Dim Intent1 As Intent - Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta - Log(enviorutas) - Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas) - Try - Starter.encuesta = 1 - Dim cmd As DBCommand - skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1)) - StartActivity(Intent1) - compra - Catch - Starter.encuesta = 0 - Dim cmd As DBCommand - skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2)) - ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True) - compra - End Try - cmd.Initialize - cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA" - cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA") - B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA") - Else +' c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") +' c.Position = 0 +' If c.GetString("encuesta") = "0" Then +' Dim Intent1 As Intent +' Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta +' Log(enviorutas) +' Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas) +' Try +' Starter.encuesta = 1 +' Dim cmd As DBCommand +' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1)) +' StartActivity(Intent1) +' compra +' Catch +' Starter.encuesta = 0 +' Dim cmd As DBCommand +' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2)) +' ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True) +' compra +' End Try +' cmd.Initialize +' cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA" +' cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA") +' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA") +' Else compra - End If +' End If Else p_transparenteTicketImpreso.Visible = True End If Else - c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") - c.Position = 0 - If c.GetString("encuesta") = "0" Then - Dim Intent1 As Intent - Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta - Log(enviorutas) - Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas) - Try - Starter.encuesta = 1 - Dim cmd As DBCommand - skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1)) - StartActivity(Intent1) - compra - Catch - Starter.encuesta = 0 - Dim cmd As DBCommand - skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2)) - ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True) - compra - End Try - cmd.Initialize - cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA" - cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA") - B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA") - Else +' c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") +' c.Position = 0 +' If c.GetString("encuesta") = "0" Then +' Dim Intent1 As Intent +' Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta +' Log(enviorutas) +' Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas) +' Try +' Starter.encuesta = 1 +' Dim cmd As DBCommand +' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1)) +' StartActivity(Intent1) +' compra +' Catch +' Starter.encuesta = 0 +' Dim cmd As DBCommand +' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2)) +' ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True) +' compra +' End Try +' cmd.Initialize +' cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA" +' cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA") +' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA") +' Else compra - End If +' End If End If End Sub diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 6c30838..9d9a4f4 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1263,7 +1263,7 @@ Sub JobDone(Job As HttpJob) If n = "OKActivo" Then Dim cmd As DBCommand cmd.Initialize - cmd.Name = "select_ruta_GV2_70_10" + cmd.Name = "select_ruta_GV2_70_11" cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta") 'Log("Usuario guardado en BD es 'Valido'") diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index 6bdee75..fe9a144 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -266,7 +266,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Guna Preventa #VersionCode: 1 - #VersionName: 5.03.24 + #VersionName: 5.03.25_NS 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 44ee934..1d77619 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=5,6,8,9,10,11 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,cuentaProds,615,0,C_Principal,Subir_Click,648,0,C_Principal,JobDone,1378,0,C_Cliente,B4XPage_Created,516,0,C_Cliente,Cuestionario,4675,0,C_Cliente,ImageView4_Click,5743,6,C_Cliente,Label19_LongClick,5734,0,C_Cliente,b_comentarios_Click,5658,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,B4XPage_Appear,1104,6 +NavigationStack=C_Cliente,b_comentarios_Click,5658,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,B4XPage_Appear,1104,6,Starter,Process_Globals,15,3,B4XMainPage,i_engrane_Click,813,0,Main,Globals,23,0,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,2240,0,C_Principal,JobDone,1259,0,B4XMainPage,i_engrane_LongClick,1067,0,C_Cliente,gest_Click,1544,0 SelectedBuild=0 VisibleModules=25,2,14,26,5,10,15,11,20,19 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 82e9d67..6da4344 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -19,7 +19,7 @@ Sub Process_Globals Public FLP As FusedLocationProvider ' Private flpStarted As Boolean Dim reqManager As DBRequestManager - Dim server As String = "http://187.189.244.154:1782" + Dim server As String = "http://keymon.net:1782" ' Dim server As String = "http://10.0.0.205:1782" Dim Timer1 As Timer Dim Interval As Int = 300