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

- VERSION 5.07.05

Browse Source 
- Se agregó Mazapa ... hay que probar!!!
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-07-05 22:11:10 -06:00
parent d83f5038b8
commit 257ab5018a
7 changed files with 333 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
B4A/B4XMainPage.bas
View File

@@ -86,6 +86,7 @@ Sub Class_Globals
Dim Intmex As C_Intmex
Dim Durakelo As C_Durakelo
Dim Marquez As C_Marquez
Dim Mazapa As C_Mazapa
Private l_version0 As Label
Private b_guardaRutaTodos As Button
Private b_guardaRuta As Button
@@ -117,7 +118,7 @@ Sub B4XPage_Created (Root1 As B4XView)
ime.Initialize("ime")
lv_DBRServer.AddSingleLine("http://keymon.lat:1781")
lv_DBRServer.AddSingleLine("http://keymon.lat:1782")
lv_DBRServer.AddSingleLine("http://40.123.36.38:1782")
lv_DBRServer.AddSingleLine("http://192.99.93.204:1782")
et_server.Text = "http://keymon.lat:1781"
B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2) 'Centramos B_SERVER
et_server.Left = (Root.Width / 2) - (et_server.Width / 2) 'Centramos et_server
@@ -128,10 +129,12 @@ Sub B4XPage_Created (Root1 As B4XView)
sp_empresa.Add("Intmex")
sp_empresa.Add("Mariana")
sp_empresa.Add("Marquez")
sp_empresa.Add("Mazapa")
i_engrane.Left = Root.Width - i_engrane.Width - 5dip
Intmex.Initialize
Durakelo.Initialize
Marquez.Initialize
Mazapa.Initialize
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -297,6 +300,11 @@ Sub B4XPage_Appear
b_valida.Text = "Validar Marquez"
b_enviar.Enabled = True
Log("Cargamos MARQUEZ")
else if empresa.ToUpperCase.Contains("MAZAPA") Then
b_enviar.Text = "Enviar Mazapa"
b_valida.Text = "Validar Mazapa"
b_enviar.Enabled = True
Log("Cargamos MAZAPA")
Else
p_empresa.Visible = True
b_enviar.Enabled = False
@@ -321,6 +329,8 @@ Sub b_enviar_Click
envioDurakelo
else if empresa.ToUpperCase.Contains("MARQUEZ") Then
envioMarquez
else if empresa.ToUpperCase.Contains("MAZAPA") Then
envioMazapa
End If
' Sleep(5000)
End If
@@ -733,6 +743,10 @@ Sub envioMarquez 'ignore
Marquez.envia
End Sub
Sub envioMazapa 'ignore
Mazapa.envia
End Sub
Sub envioGuna 'ignore
Private PASO As Int = 1
reqManager.reqsList.Initialize 'inicializamos lista de requests.
@@ -963,9 +977,11 @@ End Sub
Sub valida(identificador As String)
Log("Validamos " & identificador)
If empresa.ToUpperCase.Contains("GUNA") Then
reqManager.Initialize(Me, "http://keymon.lat:1782")
' reqManager.Initialize(Me, "http://keymon.lat:1782")
reqManager.Initialize(Me, "http://192.99.93.204:1782")
Else
reqManager.Initialize(Me, "http://keymon.lat:1781")
' reqManager.Initialize(Me, "http://keymon.lat:1781")
reqManager.Initialize(Me, "http://192.99.93.204:1781")
End If
d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
d.Position = 0