- Se regresaron cambios de correciones a carga local y encuestas que se habian borrado por error

B4A/Subs.bas

@@ -1681,4 +1681,27 @@ 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