Correcciones a la carga local:

- Se agregó que cuando se hace CARGA LOCAL, se ponga en CAT_VARIABLES el dia de la semana de hoy, se borra la fecha de FIN DIA, se pone la contraseña de FIN DIA en "CL" y se pone en FECHA el dia de hoy, para que la aplicacion sepa la fecha correcta y permita ingresar con el usuario guardado sin necesidad de contraseña.

B4A/Subs.bas

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