This commit is contained in:
cvaldes1201
2023-11-08 13:42:21 -06:00
parent 33c8a63674
commit c296f5ac20
4 changed files with 5 additions and 5 deletions

View File

@@ -82,7 +82,7 @@ Version=12.5
#AdditionalJar: com.google.android.gms:play-services-location
#ApplicationLabel: AREstrategicas
#VersionCode: 1
#VersionName: 3.10.09
#VersionName: 3.11.07
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

View File

@@ -34,6 +34,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_principal,b_enviar_Click,569,6,CameraExClass2,TakePicture,102,0,CameraExClass2,GetColorEffect,151,0,CameraExClass2,GetSupportedPreviewSizes,164,0,CameraExClass2,GetSupportedPicturesSizes,178,0,CameraExClass2,StopFaceDetection,391,0,c_datos,Class_Globals,0,0,c_datos,B4XPage_Created,159,0,Diseñador Visual,gestion.bal,-100,6,C_principal,CreateListItem2,221,0,C_principal,l_cuentasportrabajar_Click,208,0
NavigationStack=CameraExClass2,StopFaceDetection,391,0,c_datos,Class_Globals,0,0,c_datos,B4XPage_Created,159,0,Diseñador Visual,gestion.bal,-100,6,C_principal,CreateListItem2,221,0,C_principal,l_cuentasportrabajar_Click,196,0,B4XMainPage,b_iniciar_Click,110,0,Starter,Process_Globals,10,0,B4XMainPage,ImageView5_Click,166,0,B4XMainPage,JobDone,134,0,B4XMainPage,B4XPage_Appear,88,0
SelectedBuild=0
VisibleModules=9,2,4,3,10,7,6,11,1,5

View File

@@ -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:1783")
If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.196:1783")
' l_server.Text = Starter.server
et_server.Text = Starter.DBReqServer
l_version.Visible = False

View File

@@ -14,7 +14,7 @@ Sub Process_Globals
'These variables can be accessed from all modules.
Public rp As RuntimePermissions
Dim reqManager As DBRequestManager
Dim DBReqServer As String = "http://keymon.lat:1781" '"http://keymon.lat:1788" "http://11.0.0.196:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
Dim DBReqServer As String = "http://keymon.lat:1783" '"http://keymon.lat:1788" "http://11.0.0.196:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
' Dim server As String = "http://10.0.0.205:1782"
Dim rutaBD As String = File.DirInternal
Dim skmt As SQL