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

15/11/23 - Cambio de puertos para los nuevos servidores.

Browse Source 
- Se cambiaron los puertos para reflejar a Guna y Danvit en el 1782 y los demás en el 1781
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-15 23:03:34 -06:00
parent aeb7798b18
commit 7822b5e2e9
2 changed files with 46 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
soporteKMS.b4a
View File

@@ -34,7 +34,7 @@ Version=12.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Soporte Keymonsoft #ApplicationLabel: Soporte Keymonsoft
#VersionName: 3.08.27 #VersionName: 3.11.15
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
@@ -63,10 +63,10 @@ Version=12.5
Sub Process_Globals Sub Process_Globals
'These global variables will be declared once when the application starts. 'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules. 'These variables can be accessed from all modules.
Dim DBRSGuna1872 As String = "http://keymon.lat:1782" Dim DBRS_1782 As String = "http://keymon.lat:1782"
Dim DBRSMards1873 As String = "http://keymon.lat:1782" Dim DBRS_1781 As String = "http://keymon.lat:1781"
' Dim DBRSGuna1872 As String = "http://11.0.0.231:1783" 'Para pruebas locales ' Dim DBRS_1782 As String = "http://11.0.0.231:1783" 'Para pruebas locales
' Dim DBRSGuna1872 As String = "http://187.189.244.154:1782" 'Para pruebas locales ' Dim DBRS_1782 As String = "http://187.189.244.154:1782" 'Para pruebas locales
Dim conexionDBRS As String = "externa" Dim conexionDBRS As String = "externa"
Dim DBRChecked As Boolean = False Dim DBRChecked As Boolean = False
Dim atrasPresionado As Boolean = False Dim atrasPresionado As Boolean = False
@@ -183,7 +183,7 @@ Sub Globals
Dim laEmpresa As String = "" Dim laEmpresa As String = ""
Private l_tipoVentaBV As Label Private l_tipoVentaBV As Label
Private p_tipoVentaBV As Panel Private p_tipoVentaBV As Panel
dim elTipoDeVenta as string Dim elTipoDeVenta As String
End Sub End Sub
Sub Activity_Create(FirstTime As Boolean) Sub Activity_Create(FirstTime As Boolean)
@@ -201,9 +201,9 @@ Sub Activity_Create(FirstTime As Boolean)
Subs.centraPanelEnPanel(p_backLogin, p_login) Subs.centraPanelEnPanel(p_backLogin, p_login)
l_version.text = "Version " & Application.VersionName l_version.text = "Version " & Application.VersionName
ProgressDialogShow("Descargando información") ProgressDialogShow("Descargando información")
Log("DBServer: " & DBRSGuna1872) Log("DBServer: " & DBRS_1782)
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1782)
' ToastMessageShow("Probando: " & DBRSGuna1872, False) ' ToastMessageShow("Probando: " & DBRS_1782, False)
cmd.Initialize cmd.Initialize
cmd.Name = "select_soporte" 'Intentamos conectarnos al servido publico y si no responde cambiamos al interno. cmd.Name = "select_soporte" 'Intentamos conectarnos al servido publico y si no responde cambiamos al interno.
reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 750) 'request con timeout corto en ms. reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 750) 'request con timeout corto en ms.
@@ -242,10 +242,19 @@ Sub Activity_Create(FirstTime As Boolean)
s_empresaBV.AddAll(Array As String("-= Seleccione =-", "Danvit", "Guna", "Kelloggs", "Mards", "Salma")) s_empresaBV.AddAll(Array As String("-= Seleccione =-", "Danvit", "Guna", "Kelloggs", "Mards", "Salma"))
s_tipoVentaBV.AddAll(Array As String("VENTA", "ABORDO")) s_tipoVentaBV.AddAll(Array As String("VENTA", "ABORDO"))
s_tipoVentaBV.SelectedIndex = 0 s_tipoVentaBV.SelectedIndex = 0
reqManager.Initialize(Me, DBRS_1782)
'Traemos los almacenes de Guna 'Traemos los almacenes de Guna
cmd.Initialize cmd.Initialize
cmd.Name = "select_almacenes_GUNA" cmd.Name = "select_almacenes_GUNA"
reqManager.ExecuteQuery(cmd , 0, "almacenesGuna", 0) reqManager.ExecuteQuery(cmd , 0, "almacenesGuna", 0)
'Traemos los almacenes de Danvit
' cmd.Initialize
cmd.Name = "select_almacenes_DANVIT"
reqManager.ExecuteQuery(cmd , 0, "almacenesDanvit", 0)
reqManager.Initialize(Me, DBRS_1781)
'Traemos los almacenes de Kelloggs 'Traemos los almacenes de Kelloggs
' cmd.Initialize ' cmd.Initialize
cmd.Name = "select_almacenes_KELL" cmd.Name = "select_almacenes_KELL"
@@ -254,12 +263,8 @@ Sub Activity_Create(FirstTime As Boolean)
' cmd.Initialize ' cmd.Initialize
cmd.Name = "select_almacenes_SALMA" cmd.Name = "select_almacenes_SALMA"
reqManager.ExecuteQuery(cmd , 0, "almacenesSalma", 0) reqManager.ExecuteQuery(cmd , 0, "almacenesSalma", 0)
'Traemos los almacenes de Danvit
' cmd.Initialize
cmd.Name = "select_almacenes_DANVIT"
reqManager.ExecuteQuery(cmd , 0, "almacenesDanvit", 0)
'Traemos los almacenes de Mards 'Traemos los almacenes de Mards
reqManager.Initialize(Me, DBRSMards1873) reqManager.Initialize(Me, DBRS_1781)
cmd.Name = "select_almacenes_Mards" cmd.Name = "select_almacenes_Mards"
reqManager.ExecuteQuery(cmd , 0, "almacenesMards", 0) reqManager.ExecuteQuery(cmd , 0, "almacenesMards", 0)
kb.Initialize("kb") kb.Initialize("kb")
@@ -267,11 +272,11 @@ Sub Activity_Create(FirstTime As Boolean)
gv_bicho.SetGif(File.DirAssets, "ew.gif") gv_bicho.SetGif(File.DirAssets, "ew.gif")
timerBicho.Initialize("timerBicho", 5000) timerBicho.Initialize("timerBicho", 5000)
timerBicho.Enabled = True timerBicho.Enabled = True
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1782)
End Sub End Sub
Sub Activity_Resume Sub Activity_Resume
' reqManager.Initialize(Me, DBRSGuna1872) ' reqManager.Initialize(Me, DBRS_1782)
If Starter.mayusculasDesbloqueo = "1" Then cb_usrMayusc.Checked = True If Starter.mayusculasDesbloqueo = "1" Then cb_usrMayusc.Checked = True
Dim label1 As Label = lv_resultadosBusqueda.TwoLinesLayout.Label Dim label1 As Label = lv_resultadosBusqueda.TwoLinesLayout.Label
label1.TextSize = 13 label1.TextSize = 13
@@ -306,8 +311,8 @@ Sub timerBicho_Tick
' Log("Bicho visible = " & rand) ' Log("Bicho visible = " & rand)
End Sub End Sub
Sub WobbleMenu1_Tab1Click Sub WobbleMenu1_Tab1Click 'Guna
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1782)
' Log("Tab 1") ' Log("Tab 1")
' sv_kelloggs.Visible = False ' sv_kelloggs.Visible = False
WobbleMenu1.RemoveBadge(4) WobbleMenu1.RemoveBadge(4)
@@ -325,9 +330,9 @@ Sub WobbleMenu1_Tab1Click
Subs.centraPanelEnPanel(p_botones1, Panel1) Subs.centraPanelEnPanel(p_botones1, Panel1)
End Sub End Sub
Sub WobbleMenu1_Tab2Click Sub WobbleMenu1_Tab2Click 'Kelloggs
' Log("Tab 2") ' Log("Tab 2")
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1781)
WobbleMenu1.RemoveBadge(4) WobbleMenu1.RemoveBadge(4)
' sv_kelloggs.Top = 0 ' sv_kelloggs.Top = 0
' sv_kelloggs.Left = 0 ' sv_kelloggs.Left = 0
@@ -355,8 +360,8 @@ Sub WobbleMenu1_Tab2Click
' Subs.centraBotonEnPanel(b_borrarPagare, PanelKelloggs) ' Subs.centraBotonEnPanel(b_borrarPagare, PanelKelloggs)
End Sub End Sub
Sub WobbleMenu1_Tab3Click Sub WobbleMenu1_Tab3Click 'Salma
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1781)
WobbleMenu1.RemoveBadge(4) WobbleMenu1.RemoveBadge(4)
Subs.panelVisible(Panel3, 0, 0, Activity) Subs.panelVisible(Panel3, 0, 0, Activity)
Subs.panelOculto(Panel1) Subs.panelOculto(Panel1)
@@ -373,10 +378,10 @@ Sub WobbleMenu1_Tab3Click
Subs.centraPanelEnPanel(p_botones3, Panel3) Subs.centraPanelEnPanel(p_botones3, Panel3)
End Sub End Sub
Sub WobbleMenu1_Tab4Click Sub WobbleMenu1_Tab4Click 'Danvit
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1782)
WobbleMenu1.RemoveBadge(4) WobbleMenu1.RemoveBadge(4)
Subs.panelVisible(Panel4, 0, 0, Activity) Subs.panelVisible(Panel4, 0, 0, Activity) 'Danvit
Subs.panelOculto(Panel1) Subs.panelOculto(Panel1)
' Subs.panelOculto(PanelKelloggs) ' Subs.panelOculto(PanelKelloggs)
' sv_kelloggs.Visible = False ' sv_kelloggs.Visible = False
@@ -391,9 +396,9 @@ Sub WobbleMenu1_Tab4Click
Subs.centraPanelEnPanel(p_botones4, Panel4) Subs.centraPanelEnPanel(p_botones4, Panel4)
End Sub End Sub
Sub WobbleMenu1_Tab5Click Sub WobbleMenu1_Tab5Click 'Borrar Venta
' WobbleMenu1.RemoveBadge(4) ' WobbleMenu1.RemoveBadge(4)
' reqManager.Initialize(Me, DBRSMards1873) reqManager.Initialize(Me, DBRS_1781)
Subs.panelVisible(p_borrarVenta, 0, 0, Activity) Subs.panelVisible(p_borrarVenta, 0, 0, Activity)
Subs.panelOculto(Panel1) Subs.panelOculto(Panel1)
Subs.panelOculto(Panel2) Subs.panelOculto(Panel2)
@@ -427,9 +432,9 @@ End Sub
' lv_resultadosBusqueda.Height = Activity.Height - lv_resultadosBusqueda.Top - 200 ' lv_resultadosBusqueda.Height = Activity.Height - lv_resultadosBusqueda.Top - 200
'End Sub 'End Sub
Sub WobbleMenu1_Tab6Click Sub WobbleMenu1_Tab6Click 'Facturacion
' Log("Tab Facturacion") ' Log("Tab Facturacion")
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1781)
l_cita.Text = Subs.dameCita(Starter.citas) l_cita.Text = Subs.dameCita(Starter.citas)
Subs.panelVisible(PanelFacturacion, 0, 0, Activity) Subs.panelVisible(PanelFacturacion, 0, 0, Activity)
' Subs.panelOculto(PanelKelloggs) ' Subs.panelOculto(PanelKelloggs)
@@ -446,9 +451,9 @@ Sub WobbleMenu1_Tab6Click
Subs.centraBotonEnPanel(b_libBanderaCargaForanea, PanelFacturacion) Subs.centraBotonEnPanel(b_libBanderaCargaForanea, PanelFacturacion)
End Sub End Sub
Sub WobbleMenu1_Tab7Click Sub WobbleMenu1_Tab7Click 'About
' Log("Tab Otro") ' Log("Tab Otro")
reqManager.Initialize(Me, DBRSGuna1872) ' reqManager.Initialize(Me, DBRS_1782)
' WobbleMenu1.RemoveBadge(4) ' WobbleMenu1.RemoveBadge(4)
l_cita.Text = Subs.dameCita(Starter.citas) l_cita.Text = Subs.dameCita(Starter.citas)
Subs.panelVisible(Panel5, 0, 0, Activity) Subs.panelVisible(Panel5, 0, 0, Activity)
@@ -664,10 +669,10 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow("Venta Eliminada.", False) 'El request de eliminar venta (Stored Procedure) siempre regresa error, asi que asumimos que SI se borro la venta. ' ToastMessageShow("Venta Eliminada.", False) 'El request de eliminar venta (Stored Procedure) siempre regresa error, asi que asumimos que SI se borro la venta.
'/////////////////// Si hay error de conexion con keymon.lat nos cambiamos a 10.0.0.205 /////////////////////// '/////////////////// Si hay error de conexion con keymon.lat nos cambiamos a 10.0.0.205 ///////////////////////
else If Job.Tag = "pruebaConexion" And Job.ErrorMessage.IndexOf("Failed to connect to keymon.lat") = -1 Then else If Job.Tag = "pruebaConexion" And Job.ErrorMessage.IndexOf("Failed to connect to keymon.lat") = -1 Then
DBRSGuna1872 = "http://10.0.0.205:1782" DBRS_1782 = "http://10.0.0.205:1782"
Dim DBRSMards1873 As String = "http://10.0.0.205:1782" Dim DBRS_1781 As String = "http://10.0.0.205:1782"
' DBRSGuna1872 = "http://11.0.0.231:1783" 'Para pruebas locales ' DBRS_1782 = "http://11.0.0.231:1783" 'Para pruebas locales
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1782)
conexionDBRS = "interna" conexionDBRS = "interna"
pruebaPaso = pruebaPaso + 1 pruebaPaso = pruebaPaso + 1
Toast("Cambiando a servidor interno. 🕵🏼", 0) Toast("Cambiando a servidor interno. 🕵🏼", 0)
@@ -704,7 +709,7 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then 'Traemos info de soporte. If Job.JobName = "DBRequest" Then 'Traemos info de soporte.
Dim result As DBResult = reqManager.HandleJob(Job) Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "pruebaConexion" Then 'query tag If result.Tag = "pruebaConexion" Then 'query tag
Log($"Conectado a ${DBRSGuna1872} - ${conexionDBRS}"$) Log($"Conectado a ${DBRS_1782} - ${conexionDBRS}"$)
For Each records() As Object In result.Rows For Each records() As Object In result.Rows
' For Each k As String In result.Columns.Keys ' For Each k As String In result.Columns.Keys
' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) ' Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
@@ -1120,6 +1125,7 @@ End Sub
'Revisamos que la contraseña ingresada sea la correcta para el día y hora. 'Revisamos que la contraseña ingresada sea la correcta para el día y hora.
Private Sub et_login_TextChanged (Old As String, New As String) Private Sub et_login_TextChanged (Old As String, New As String)
Private contrasenaHoy As String = pass1 & DateTime.GetDayOfMonth(DateTime.Now) & DateTime.GetHour(DateTime.now) Private contrasenaHoy As String = pass1 & DateTime.GetDayOfMonth(DateTime.Now) & DateTime.GetHour(DateTime.now)
Log($"${contrasenaHoy}"$)
If New = contrasenaHoy Then If New = contrasenaHoy Then
p_login.Visible = False p_login.Visible = False
Sleep(80) Sleep(80)
@@ -1417,9 +1423,9 @@ Private Sub s_empresaBV_ItemClick (Position As Int, Value As Object)
p_tipoVentaBV.Visible = False p_tipoVentaBV.Visible = False
End If End If
If laEmpresa = "Mards" Then If laEmpresa = "Mards" Then
reqManager.Initialize(Me, DBRSMards1873) reqManager.Initialize(Me, DBRS_1781)
Else Else
reqManager.Initialize(Me, DBRSGuna1872) reqManager.Initialize(Me, DBRS_1782)
End If End If
spinnerEmpresaMap = empresasMap.Get(Value) spinnerEmpresaMap = empresasMap.Get(Value)
' Log(empresasMap & "|" & Value) ' Log(empresasMap & "|" & Value)

4
soporteKMS.b4a.meta
View File

@@ -6,10 +6,10 @@ ModuleBreakpoints0=
ModuleBreakpoints1= ModuleBreakpoints1=
ModuleBreakpoints2= ModuleBreakpoints2=
ModuleBreakpoints3= ModuleBreakpoints3=
ModuleClosedNodes0=2,6,7,8,18,19,20,26,29,30,31,32,33 ModuleClosedNodes0=2,7,8,18,19,20,26,31,32,33
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes2=1 ModuleClosedNodes2=1
ModuleClosedNodes3=1,8,9,10,11 ModuleClosedNodes3=1,8,9,10,11
NavigationStack=Main,b_revisaVentaMards_Click,1258,0,Main,s_empresaBV_ItemClick,1341,4,Main,b_borrarVenta2_Click,498,0,Main,b_borrarVentaBV_Click,1309,6,Main,borrarVentaForzadaGuna,534,6,Main,borrarVentaForzadaKelloggs,517,2,Visual Designer,layout1.bal,-100,6,Main,Activity_Create,158,0,Main,Process_Globals,21,0,DBRequestManager,ExecuteQuery,35,0,DBRequestManager,Initialize,22,0 NavigationStack=Main,borrarVentaForzadaGuna,561,0,Main,b_borrarVenta2_Click,517,0,Main,b_borrarVenta1_Click,498,0,Main,WobbleMenu1_Tab3Click,326,0,Main,WobbleMenu1_Tab7Click,416,0,Main,WobbleMenu1_Tab2Click,293,0,Main,WobbleMenu1_Tab1Click,274,0,Main,WobbleMenu1_Tab6Click,399,1,Main,Globals,47,0,Main,Activity_Create,198,0,Main,et_login_TextChanged,1093,5
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,3,1 VisibleModules=2,3,1