cheveguerra/Guna_Preventa_Diseno_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa_Diseno_Viejo.git synced 2026-04-20 14:19:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

se quita lo del app 360

Browse Source
This commit is contained in:
cvaldes1201
2025-07-09 13:04:44 -06:00
parent 8e5d084e2d
commit f646cfe1b8
6 changed files with 57 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -817,7 +817,7 @@ End Sub
Sub i_engrane_Click Sub i_engrane_Click
p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2) p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2)
lv_server.Clear 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") If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
l_server.Text = Starter.server l_server.Text = Starter.server
et_server.Text = Starter.server et_server.Text = Starter.server

104
B4A/C_Cliente.bas
View File

@@ -1491,64 +1491,64 @@ End Sub
Sub gest_Click Sub gest_Click
If B_IMP.Visible = True Then If B_IMP.Visible = True Then
If Not(Subs.revisaImpreso) 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=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 ' c.Position = 0
If c.GetString("encuesta") = "0" Then ' If c.GetString("encuesta") = "0" Then
Dim Intent1 As Intent ' Dim Intent1 As Intent
Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta ' Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
Log(enviorutas) ' Log(enviorutas)
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas) ' Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
Try ' Try
Starter.encuesta = 1 ' Starter.encuesta = 1
Dim cmd As DBCommand ' Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1)) ' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
StartActivity(Intent1) ' StartActivity(Intent1)
compra ' compra
Catch ' Catch
Starter.encuesta = 0 ' Starter.encuesta = 0
Dim cmd As DBCommand ' Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2)) ' 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) ' ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
compra ' compra
End Try ' End Try
cmd.Initialize ' cmd.Initialize
cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA" ' cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA") ' cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA") ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
Else ' Else
compra compra
End If ' End If
Else Else
p_transparenteTicketImpreso.Visible = True p_transparenteTicketImpreso.Visible = True
End If End If
Else 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=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 ' c.Position = 0
If c.GetString("encuesta") = "0" Then ' If c.GetString("encuesta") = "0" Then
Dim Intent1 As Intent ' Dim Intent1 As Intent
Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta ' Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
Log(enviorutas) ' Log(enviorutas)
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas) ' Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
Try ' Try
Starter.encuesta = 1 ' Starter.encuesta = 1
Dim cmd As DBCommand ' Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1)) ' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
StartActivity(Intent1) ' StartActivity(Intent1)
compra ' compra
Catch ' Catch
Starter.encuesta = 0 ' Starter.encuesta = 0
Dim cmd As DBCommand ' Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2)) ' 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) ' ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
compra ' compra
End Try ' End Try
cmd.Initialize ' cmd.Initialize
cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA" ' cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA") ' cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA") ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
Else ' Else
compra compra
End If ' End If
End If End If
End Sub End Sub

2
B4A/C_Principal.bas
View File

@@ -1263,7 +1263,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then If n = "OKActivo" Then
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize 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) cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta") B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
'Log("Usuario guardado en BD es 'Valido'") 'Log("Usuario guardado en BD es 'Valido'")

2
B4A/Guna Vistas V3.1.b4a
View File

@@ -266,7 +266,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Guna Preventa #ApplicationLabel: Guna Preventa
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.03.24 #VersionName: 5.03.25_NS
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=5,6,8,9,10,11 ModuleClosedNodes7=5,6,8,9,10,11
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=25,2,14,26,5,10,15,11,20,19 VisibleModules=25,2,14,26,5,10,15,11,20,19

2
B4A/Starter.bas
View File

@@ -19,7 +19,7 @@ Sub Process_Globals
Public FLP As FusedLocationProvider Public FLP As FusedLocationProvider
' Private flpStarted As Boolean ' Private flpStarted As Boolean
Dim reqManager As DBRequestManager 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 server As String = "http://10.0.0.205:1782"
Dim Timer1 As Timer Dim Timer1 As Timer
Dim Interval As Int = 300 Dim Interval As Int = 300