Procedure GPS_Intinerario15Pontos_Iniciar(LOCAL ControleMapa, LOCAL EnderecoSaida, LOCAL EndInt01, LOCAL EndInt02, LOCAL EndInt03, LOCAL EndInt04, LOCAL EndInt05, LOCAL EndInt06, LOCAL EndInt07, LOCAL EndInt08, LOCAL EndInt09, LOCAL EndInt10, LOCAL EndInt11, LOCAL EndInt12, LOCAL EndInt13, LOCAL EndInt14, LOCAL EndInt15, LOCAL EnderecoChegada, LOCAL ModoCBMP, LOCAL CorRed, LOCAL CorGreen, LOCAL CorBlue, LOCAL Transparencia, LOCAL Pixels)

////CBMP = Carro, Bicicleta, Manual, Pedestre
////CorRed, CorGreen, CorBlue = Cor do Intinerario = RGB
////Transparencia = 0 a 100 - padrao = 60
////Pixel padrao = 8
////15 pontos de intinerário

Retorno is string = ""

IF ControleMapa = "" THEN
ControleMapa = gloControleMapa
END


IF ModoCBMP = "Carro" THEN
ModoCBMP = itineraryCar
ELSE IF ModoCBMP = "Bicicleta" THEN
ModoCBMP = itineraryCyclist
ELSE IF ModoCBMP = "Manual" THEN
ModoCBMP = itineraryManual
ELSE IF ModoCBMP = "Bicicleta" THEN
ModoCBMP = itineraryPedestrian
ELSE
ModoCBMP = itineraryCar
END

//RGB
CorIntinerario is int = RGB(CorRed, CorGreen, CorBlue)
IF CorIntinerario = 0 THEN
CorIntinerario = RGB(255, 0, 0)
END

//Transparencia
IF Transparencia = "" THEN
Transparencia = 60
END

//Pixels
IF Pixels = "" THEN
Pixels = 8
END

IF EndInt01 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE
IF EndInt01 <> "" AND EndInt02 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt02 <> "" AND EndInt03 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt03 <> "" AND EndInt04 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt04 <> "" AND EndInt05 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt05 <> "" AND EndInt06 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt06 <> "" AND EndInt07 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt07 <> "" AND EndInt08 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt08 <> "" AND EndInt09 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt09 <> "" AND EndInt10 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt10 <> "" AND EndInt11 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt11 <> "" AND EndInt12 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt12 <> "" AND EndInt13 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt13 <> "" AND EndInt14 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EndInt13, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt14 <> "" AND EndInt15 = ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EndInt13, EndInt14, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
ELSE IF EndInt15 <> ""
gloGPS_IntinerarioID = MapAddItinerary(WIN_OS_04GPS.ControleMapa, [ EnderecoSaida, EndInt01, EndInt02, EndInt03, EndInt04, EndInt05, EndInt06, EndInt07, EndInt08, EndInt09, EndInt10, EndInt11, EndInt12, EndInt13, EndInt14, EndInt15, EnderecoChegada ], ModoCBMP, CorIntinerario, Transparencia, Pixels)
END
END

IF gloGPS_IntinerarioID = "" THEN
Info("Ocorreu um erro ao gerar o intinerario.",ErrorInfo())
Retorno = False
ELSE
Retorno = True
END

RESULT(Retorno)