Procedure WS_FormulaBandeirada(LOCAL Porcentagem)

TotalCorrida is string = ""

rBandeiraInicial is real = 6.80

VlrBandeira01 is real = 2.30

VlrBandeira02 is real = 2.80

rVlrHoraParada is real = 24.00 //0.40 min parado

VlrMinutoParado is real = 0.40 //valor do minuto

rVlrMinutoParado30 is real = 0.30 //valor do minuto

VelocidadeMedia is real = 30 // 30km/h


// VM = D/T
//GloDistanciaDestino = WS_CEP_ConfereOrigDestRotaKmGps(O,D)
//GloTempoDestino = WS_CEP_ConfereOrigDestRotaKmGps(O,D)

IF GloDistanciaDestino > 0

Tempo is real = 0

IF GloTempoDestino > 0 THEN
Tempo = GloTempoDestino
ELSE
Tempo = ((GloDistanciaDestino/1000) / VelocidadeMedia) * 60 // Calculo da velocidade media
END

GloValorBandeira01 = rBandeiraInicial + (((VlrBandeira01 * GloDistanciaDestino)/1000) + ((VlrMinutoParado * Tempo)/60))

gloValorBandeira02 = rBandeiraInicial + (((VlrBandeira02 * GloDistanciaDestino)/1000) + ((VlrMinutoParado * Tempo)/60))

IF Porcentagem > 0 THEN

IF gloTaxaRetorno = 0
GloValorBandeira01 = GloValorBandeira01 + (GloValorBandeira01 * (Porcentagem/100))
ELSE
GloValorBandeira01 = (GloValorBandeira01 + (GloValorBandeira01 * (Porcentagem/100)))
GloValorBandeira01 = (GloValorBandeira01 + (GloValorBandeira01 * (gloTaxaRetorno/100))) // + 30% de taxa de retorno
END

IF gloTaxaRetorno = 0
gloValorBandeira02 = gloValorBandeira02 + (gloValorBandeira02 * (Porcentagem/100))
ELSE
gloValorBandeira02 = gloValorBandeira02 + (gloValorBandeira02 * (Porcentagem/100))
gloValorBandeira02 = gloValorBandeira02 + (gloValorBandeira02 * (gloTaxaRetorno/100)) // + 30% de taxa de retorno
END

END

GloValorBandeira01 = RoundDown(GloValorBandeira01)

gloValorBandeira02 = RoundUp(gloValorBandeira02)

IF GloValorBandeira01 = gloValorBandeira02 THEN
gloValorBandeira02 += 1
END

TotalCorrida = "Bandeira 1: " + GloValorBandeira01 +", Bandeira 2: "+ gloValorBandeira02 +", Distancia: "+ GloDistanciaDestino +", Tempo: "+ Tempo

//Info(TotalCorrida)

END

RESULT(TotalCorrida)