- Se corrigio condicion para que mande mensaje de error cuando no se especifican coordenadas.

This commit is contained in:
2024-04-25 01:56:26 -06:00
parent c6a5220797
commit d18a1d7fbd
3 changed files with 3 additions and 3 deletions

View File

@@ -51,7 +51,7 @@ Sub Process_Globals
' Dim coords As List ' Dim coords As List
' Dim estePunto() As String ' Dim estePunto() As String
Dim error As String = "" Dim error As String = ""
dim msg as string = "" Dim msg As String = ""
End Sub End Sub
Sub AppStart (Args() As String) Sub AppStart (Args() As String)

View File

@@ -16,6 +16,6 @@ ModuleClosedNodes2=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5= ModuleClosedNodes5=
NavigationStack=Main,generaMatrizOSRM,275,0,Main,tiempos,424,5,Mapa,generaMatrizRuteoTiempos,85,0,Mapa,tiempos,108,0,rutaCompleta,generaMatrizRuteoTiempos,85,0,rutaCompleta,tiempos,105,0,Main,calculateDistance3,607,0,Ruteador,tiempos,166,0,Ruteador,generaMatrizRuteoTiempos,103,6,Main,creaTablas,155,6,Main,ruteo,308,0 NavigationStack=Mapa,generaMatrizRuteoTiempos,85,0,Mapa,tiempos,108,0,rutaCompleta,generaMatrizRuteoTiempos,85,0,rutaCompleta,tiempos,105,0,Main,calculateDistance3,607,0,Ruteador,tiempos,166,0,Ruteador,generaMatrizRuteoTiempos,103,6,Main,ruteo,308,0,Ruteador,Handle,38,0,Main,creaTablas,129,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=5,3,4,1,2 VisibleModules=5,3,4,1,2

View File

@@ -38,11 +38,11 @@ Sub Handle(req As ServletRequest, resp As ServletResponse)
Private matriz As String = req.GetParameter("m") Private matriz As String = req.GetParameter("m")
Main.inicio = req.GetParameter("i") Main.inicio = req.GetParameter("i")
Main.final = req.GetParameter("f") Main.final = req.GetParameter("f")
If Main.final <> "" Then coords = coords & ";" & Main.final
If matriz <> "" And matriz <> "OSRM" Then matriz = "" If matriz <> "" And matriz <> "OSRM" Then matriz = ""
Log($"r: ${ruta}, a: ${almacen}, Coords: ${coords}"$) Log($"r: ${ruta}, a: ${almacen}, Coords: ${coords}"$)
Private urlParams As Map Private urlParams As Map
If ruta <> "" And almacen <> "" And coords <> "" Then If ruta <> "" And almacen <> "" And coords <> "" Then
If Main.final <> "" Then coords = coords & ";" & Main.final
ruta = "R" & ruta ruta = "R" & ruta
urlParams.Initialize urlParams.Initialize
urlParams.Put("almacen", almacen) urlParams.Put("almacen", almacen)