- Pedido sugerido

- ABordo habiitado despues de las 12:00
- Parcial de proyecto GPS

B4A/Subs.bas

@@ -1664,27 +1664,4 @@ Sub sumaPedido(cliente As String) As String 'ignore
 	Next
 	x.Close
 	Return NumberFormat2(total, 1, 2, 2, False)
-End Sub
-
-'Regresa el dia de la semana como string.
-Sub traeDiaSemana As String
-	Private hoyNum As Int = DateTime.GetDayOfWeek(DateTime.Now)
-	Private diaSemana As String = ""
-	Select Case hoyNum
-		Case 1
-			diaSemana = "DOMINGO"
-		Case 2
-			diaSemana = "LUNES"
-		Case 3
-			diaSemana = "MARTES"
-		Case 4
-			diaSemana = "MIERCOLES"
-		Case 5
-			diaSemana = "JUEVES"
-		Case 6
-			diaSemana = "VIERNES"
-		Case 7
-			diaSemana = "SABADO"
-	End Select
-	return diaSemana
 End Sub