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

25-09-23 App terminada

Browse Source
This commit is contained in:
cvaldes1201
2023-09-25 18:01:50 -06:00
parent b90343cf13
commit 116eb1aceb
11 changed files with 312 additions and 316 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
B4XMainPage.bas
View File

@@ -110,20 +110,20 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub b_iniciar_Click
' If Usuario.Text <> "" Then
'
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "select_usuario_torra"
' cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
' reqManager.ExecuteQuery(cmd , 0, "usuario")
' user = Usuario.Text
' Else
' MsgboxAsync("Llena los datos de acceso","Atención")
'' B4XPages.ShowPage ("principal")
' End If
If Usuario.Text <> "" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_usuario_torra"
cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario")
user = Usuario.Text
Else
MsgboxAsync("Llena los datos de acceso","Atención")
' B4XPages.ShowPage ("principal")
End If
'
B4XPages.ShowPage ("principal")
' B4XPages.ShowPage ("principal")
Log(Starter.latitud & Starter.longitud)
End Sub
@@ -169,8 +169,8 @@ End Sub
Private Sub ImageView5_Click
p_configuracion.Visible = True
lv_server.Clear
lv_server.AddSingleLine("http://keymon.lat:1788")
If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.196:1782")
lv_server.AddSingleLine("http://keymon.lat:1781")
If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.134:1782")
' l_server.Text = Starter.server
et_server.Text = Starter.DBReqServer
l_version.Visible = False
@@ -217,7 +217,7 @@ Private Sub b_enviarbd_Click
File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
Dim email As Email
email.To.Add("soporte@keymonsoft.com")
email.Subject = "Envio Base de dados AREstrategicas"
email.Subject = "Envio Base de dados Nuevo Torrado"
email.Attachments.Add(Provider.GetFileUri(FileName))
' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
Dim in As Intent = email.GetIntent