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

se modifica el servidor y se modifica los globos por que tronaba el app

Browse Source
This commit is contained in:
cvaldes1201
2026-04-13 11:43:31 -06:00
parent 48e975e23f
commit cd8bb9c784
5 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/B4XMainPage.bas
View File

@@ -168,7 +168,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("RECHAZOS", "R_IDALMACEN", "TEXT") Subs.agregaColumna("RECHAZOS", "R_IDALMACEN", "TEXT")
Subs.agregaColumna("VENTAS", "V_IDALMACEN", "TEXT") Subs.agregaColumna("VENTAS", "V_IDALMACEN", "TEXT")
' Dim server As String = "http://11.0.0.151:1782" ' Dim server As String = "http://11.0.0.151:1782"
Dim server As String = "http://187.189.244.154:1782" Dim server As String = "http://keymon.net:1782"
' Dim server As String = "http://11.0.0.12:1782" ' Dim server As String = "http://11.0.0.12:1782"
' server = "http://10.0.0.205:1782" ' server = "http://10.0.0.205:1782"
' server = "http://11.0.0.44:1782" ' server = "http://11.0.0.44:1782"
@@ -346,7 +346,7 @@ Private Sub i_engrane_Click
Subs.centraBoton(b_regesar, Root.Width) Subs.centraBoton(b_regesar, Root.Width)
Subs.centraBoton(b_server, p_serverList.Width) Subs.centraBoton(b_server, p_serverList.Width)
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 If user.Text = "KMTS1" Then
lv_server.AddSingleLine("http://11.0.0.222:1782") lv_server.AddSingleLine("http://11.0.0.222:1782")
p_ruteo.Visible = True p_ruteo.Visible = True

2
B4A/GUNA_Reparto.b4a
View File

@@ -2282,7 +2282,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: GUNA Reparto #ApplicationLabel: GUNA Reparto
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.01.25 #VersionName: 6.03.01
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/GUNA_Reparto.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Cliente,p_abonoPagare_Click,727,0,C_Cliente,p_transAbonoPagare_Click,703,0,C_Cliente,et_montoAbono_TextChanged,745,6,Subs,fechaKMT,67,0,Main,Activity_Create,27,0,C_Cliente,b_aceptaAbono_Click,711,6,C_Cliente,b_abonar_Click,694,0,C_DetalleVenta,Class_Globals,39,0,C_DetalleVenta,Initialize,43,0,Subs,Process_Globals,15,0,C_Clientes,Mods,2,0 NavigationStack=Main,Activity_Create,27,0,C_Cliente,b_aceptaAbono_Click,711,6,C_Cliente,b_abonar_Click,694,0,C_DetalleVenta,Class_Globals,39,0,C_DetalleVenta,Initialize,43,0,Subs,Process_Globals,15,0,C_Clientes,Mods,2,0,B4XMainPage,B4XPage_Created,164,3,B4XMainPage,i_engrane_Click,344,1,Starter,Process_Globals,29,2,MAPA_RUTAS,MapFragment1_Ready,130,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=27,2,16,5,8,28,6,17,12,25,26 VisibleModules=27,2,16,5,8,28,6,17,12,25

10
B4A/MAPA_RUTAS.bas
View File

@@ -154,9 +154,15 @@ Sub MapFragment1_Ready
If esteAzul = 1 Then esteAzul2= "marker-azul-"&NumSerie&".png" If esteAzul = 1 Then esteAzul2= "marker-azul-"&NumSerie&".png"
If esteAzul = 2 Then esteAzul2= "marker-azul1-"&NumSerie&".png" If esteAzul = 2 Then esteAzul2= "marker-azul1-"&NumSerie&".png"
If esteAzul = 3 Then esteAzul2= "marker-azul2-"&NumSerie&".png" If esteAzul = 3 Then esteAzul2= "marker-azul2-"&NumSerie&".png"
If esteAzul = 4 Then esteAzul2=gmap.HUE_AZURE+50 If esteAzul = 4 Then esteAzul2= "marker-azul-"&NumSerie&".png"
If esteAzul = 5 Then esteAzul2=gmap.HUE_AZURE+75 If esteAzul = 5 Then esteAzul2= "marker-azul1-"&NumSerie&".png"
' Log(ruta & "|" & esteAzul & "|" & esteAzul2) ' Log(ruta & "|" & esteAzul & "|" & esteAzul2)
Log(CODIGO)
Log(NumSerie)
Log(LatitudRu)
Log(LongitudRU)
Log(esteAzul2)
Log(esteAzul)
MARK_AZUL = gmap.AddMarker3(LatitudRu, LongitudRU, CODIGO, LoadBitmap(File.DirAssets, esteAzul2)) MARK_AZUL = gmap.AddMarker3(LatitudRu, LongitudRU, CODIGO, LoadBitmap(File.DirAssets, esteAzul2))
MARK_AZUL.Snippet = "R: " & ruta & " - " & Tienda MARK_AZUL.Snippet = "R: " & ruta & " - " & Tienda
rutaAnt = ruta rutaAnt = ruta

2
B4A/Starter.bas
View File

@@ -33,7 +33,7 @@ Sub Process_Globals
Dim cedisLocation As Location Dim cedisLocation As Location
Dim reqManager As DBRequestManager Dim reqManager As DBRequestManager
' Dim server As String = "http://11.0.0.12:1782" ' Dim server As String = "http://11.0.0.12:1782"
Dim server As String = "http://187.189.244.154:1782" Dim server As String = "http://keymon,net:1782"
' Dim server As String = "http://11.0.0.222:1782" ' Dim server As String = "http://11.0.0.222:1782"
Dim muestraProgreso = 0 Dim muestraProgreso = 0
Dim c As Cursor Dim c As Cursor