diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 8a82cde..ebbed60 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -168,7 +168,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Subs.agregaColumna("RECHAZOS", "R_IDALMACEN", "TEXT") Subs.agregaColumna("VENTAS", "V_IDALMACEN", "TEXT") ' 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" ' server = "http://10.0.0.205: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_server, p_serverList.Width) lv_server.Clear - lv_server.AddSingleLine("http://keymon.lat:1782") + lv_server.AddSingleLine("http://keymon.net:1782") If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.222:1782") p_ruteo.Visible = True diff --git a/B4A/GUNA_Reparto.b4a b/B4A/GUNA_Reparto.b4a index c3a517c..aa119aa 100644 --- a/B4A/GUNA_Reparto.b4a +++ b/B4A/GUNA_Reparto.b4a @@ -2282,7 +2282,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: GUNA Reparto #VersionCode: 1 - #VersionName: 5.01.25 + #VersionName: 6.03.01 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/GUNA_Reparto.b4a.meta b/B4A/GUNA_Reparto.b4a.meta index 624537d..c363e3a 100644 --- a/B4A/GUNA_Reparto.b4a.meta +++ b/B4A/GUNA_Reparto.b4a.meta @@ -88,6 +88,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= 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 -VisibleModules=27,2,16,5,8,28,6,17,12,25,26 +VisibleModules=27,2,16,5,8,28,6,17,12,25 diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index c736831..c2de97e 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -154,9 +154,15 @@ Sub MapFragment1_Ready If esteAzul = 1 Then esteAzul2= "marker-azul-"&NumSerie&".png" If esteAzul = 2 Then esteAzul2= "marker-azul1-"&NumSerie&".png" If esteAzul = 3 Then esteAzul2= "marker-azul2-"&NumSerie&".png" - If esteAzul = 4 Then esteAzul2=gmap.HUE_AZURE+50 - If esteAzul = 5 Then esteAzul2=gmap.HUE_AZURE+75 + If esteAzul = 4 Then esteAzul2= "marker-azul-"&NumSerie&".png" + If esteAzul = 5 Then esteAzul2= "marker-azul1-"&NumSerie&".png" ' 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.Snippet = "R: " & ruta & " - " & Tienda rutaAnt = ruta diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 0d0007c..4143426 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -33,7 +33,7 @@ Sub Process_Globals Dim cedisLocation As Location Dim reqManager As DBRequestManager ' 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 muestraProgreso = 0 Dim c As Cursor