Olá!
Tenho em mãos uma colecção de Discos Vinil que são para venda, com preços desde os 5€ (unidade). Lista Vinil em PDF
A colecção é composta por mais de 600 discos, que vão desde 1958 a 1990 e da qual constam nomes como Roberto Carlos, Bee Gees, Peter Gabriel, Bryan Adams, Dire Straits, UB40, Bruce Springsteen, Paul Mccartney, Duran Duran, entre muitos outros.
Todos os interessados, podem contactar-me que farei chegar a vossa proposta ao coleccionador.
A lista encontra-se em http://guilhermeferreira.files.wordpress.com/2010/05/vinil.pdf
Vendidos:
Obrigado a todos
Hi!
If you want to display events that happen right now, right this moment… this should be easy, I guess… WRONG! CAML and SharePoint find some problems working with Reocurring Items.
To go around this problem, you need to get all events that CAML get to this moment and after that, filter them using server code (In my sample I use C# )
Take a Look:
SPSite mySite = new SPSite(SPContext.Current.Site.Url);
SPWeb currentSite = mySite.AllWebs[web];
list = currentSite.Lists[listName];
currentSite.AllowUnsafeUpdates = true;
string datesQuery = "<DateRangesOverlap>"+
"<FieldRef Name='EventDate' />"+
"<FieldRef Name='EndDate' /> "+
"<FieldRef Name='RecurrenceID' /> "+
"<Value Type='DateTime' IncludeTimeValue='TRUE'>"+
"<Today />" +
"</Value>" +
"</DateRangesOverlap>";
string dates2Query = "<And><Leq><FieldRef Name='EventDate' />" +
"<Value Type='DateTime' IncludeTimeValue='TRUE'>"+
"<Today />" +
"</Value></Leq><Geq><FieldRef Name='EndDate' />" +
"<Value Type='DateTime' IncludeTimeValue='TRUE'>"+
"<Today />" +
"</Value></Geq></And>";
SPQuery quer = new SPQuery();
quer.CalendarDate = DateTime.Now;
quer.ExpandRecurrence = true;
quer.Query = "<Where><And><And>" + datesQuery + dates2Query + "</And>" + needAcceptQuery + "</And></Where>";
items = list.GetItems(quer);
if (items.Count.Equals(0))
{
//No Event
}
else
{
foreach (SPListItem item in items)
{
itemCurr = item.ParentList.GetItemById(item.ID);// ERROR "Value does not fall within the expected range."
if (((bool)itemCurr["Recurrence"]).Equals(true))
{
if(!DisplayToday(itemCurr))
continue;
}
//DO WHAT YOU WANT
}
}
private bool DisplayToday(SPListItem itemCurr)
{
DateTime dtEventDate = (DateTime)itemCurr["EventDate"];
DateTime dtEndDate = (DateTime)itemCurr["EndDate"];
XmlDocument xDoc = new XmlDocument();
xDoc.LoadXml(itemCurr["RecurrenceData"].ToString());
XmlNode xElem = xDoc.GetElementsByTagName("repeat")[0];
xElem = xElem.FirstChild;
if (xElem.Name.Equals("weekly"))
{
string todayAttrib = getTodayAttribute();
bool isToday = false;
if (xElem.Attributes[todayAttrib] != null)
isToday = Boolean.Parse(xElem.Attributes[todayAttrib].Value);
if (!isToday) return false;
}
else
{
if (xElem.Name.Equals("monthly"))
{
int day = 1;
if (xElem.Attributes["day"] != null)
day = Int32.Parse(xElem.Attributes["day"].Value);
if (!day.Equals(DateTime.Today.Day)) return false;
}
else
{
if (xElem.Name.Equals("yearly"))
{
int day = 1, month = 1;
if (xElem.Attributes["day"] != null)
day = Int32.Parse(xElem.Attributes["day"].Value);
if (xElem.Attributes["month"] != null)
month = Int32.Parse(xElem.Attributes["month"].Value);
if (!(month.Equals(DateTime.Today.Month) && day.Equals(DateTime.Today.Day))) return false;
}
}
}
if (dtEventDate.Date < DateTime.Now.Date || dtEndDate.Date > DateTime.Now.Date)
{
if (!(dtEventDate.TimeOfDay < DateTime.Now.TimeOfDay
&& dtEndDate.TimeOfDay > DateTime.Now.TimeOfDay))
return false;
else
return true;
}
return false;
}
private string getTodayAttribute()
{
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Monday))
return "mo";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Friday))
return "fr";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Saturday))
return "sa";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Sunday))
return "su";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Thursday))
return "th";
else
if (DateTime.Today.DayOfWeek.Equals(DayOfWeek.Tuesday))
return "tu";
else
return "we";
}
What is Windows Azure?
Microsoft OS Cloud Windows Azure Data Center
If you have install “Windows SharePoint Services 3.0 Language Pack” and you see some fails like this
Go to C:\inetpub\wwwroot\wss\VirtualDirectories\[Port]\App_GlobalResources
And check if you have wss.[Language].resx file.
Example:
I installed WSS 3.0 En-Us at 88 port and I want to install Portuguese language pack.
Go to C:\inetpub\wwwroot\wss\VirtualDirectories\88\App_GlobalResources
Check if “wss.pt-pt.resx” exists.
If not, just copy it.
You can find this file in an WSS 3.0 Portuguese installation.
| Name | Version |
| MOSS 2007 or WSS 3.0 August 2009 | 12.0.0.6514 |
| MOSS 2007 or WSS 3.0 June 2009 | 12.0.0.6510 |
| MOSS 2007 or WSS 3.0 April 2009 | 12.0.0.6504 |
| MOSS 2007 or WSS 3.0 SP2 | 12.0.0.6421 |
| MOSS 2007 or WSS 3.0 Feb 2009 | 12.0.0.6341 |
| MOSS 2007 or WSS 3.0 Dec 2008 | 12.0.0.6335 |
| MOSS 2007 or WSS 3.0 Aug 2008 | 12.0.0.6327 |
| MOSS 2007 or WSS 3.0 Infrastructure Update | 12.0.0.6318 |
| MOSS 2007 or WSS 3.0 post-SP1 hotfix (KB948945) | 12.0.0.6303 |
| MOSS 2007 or WSS 3.0 post-SP1 hotfix (KB941274) | 12.0.0.6301 |
| MOSS 2007 or WSS 3.0 post-SP1 hotfix (KB941422) | 12.0.0.6300 |
| MOSS 2007 or WSS 3.0 SP1 | 12.0.0.6219 |
| MOSS 2007 or WSS 3.0 October update | 12.0.0.6039 |
| MOSS 2007 or WSS 3.0 August 24, 2007 hotfix package | 12.0.0.6036 |
| MOSS 2007 or WSS 3.0 RTM | 12.0.0.4518 |
| MOSS 2007 or WSS 3.0 Beta 2 TR | 12.0.0.4407 |
| MOSS 2007 or WSS 3.0 Beta 2 | 12.0.0.4017 |
' Title: BackupCleanUp
' Description: Deletes SharePoint 2007 backups that are older than a specified
' number of days and then removes the backups from the backup history.
Setlocale(1033)
Dim nNumberOfDays
Dim strTOCFile
Dim dtDeleteDate
Dim sTemp
Set objXML = CreateObject("Microsoft.XMLDOM")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objLog = objFS.OpenTextFile("wssBackupCleanUp.log",8,true)
' Validate command line arguments and initialize data.
If WScript.Arguments.Count = 2 Then
If IsNumeric(WScript.Arguments(0)) Then
nNumberOfDays = CInt(WScript.Arguments(0))
dtDeleteDate = DateAdd("d",nNumberOfDays*-1,Now)
Else
WScript.Echo " must be an integer value."
End If
strTOCFile = WScript.Arguments(1)
Else
'WScript.Echo "Usage: BackupCleanUp "
'WScript.Quit
nNumberOfDays = 5
dtDeleteDate = DateAdd("d",nNumberOfDays*-1,Now)
strTOCFile = WScript.Arguments(1)
End If
objLog.WriteLine(Now() &vbTab& "Start: Clean up backups older than " &nNumberOfDays& " days from " &strTOCFile& ".")
' Load the SharePoint backup and restore the TOC file.
objXML.Async = false
objXML.Load(strTOCFile)
If objXML.ParseError.ErrorCode 0 Then
objLog.WriteLine(Now() &vbTab& "Error: Could not load the SharePoint Backup / Restore History." &vbCrLf&_
Now() &vbTab& "Reason: " &objXML.ParseError.Reason& ".")
WScript.Quit
End If
' Delete backup nodes that are older than the deletion date.
For Each objNode in objXML.DocumentElement.ChildNodes
If CDate(objNode.SelectSingleNode("SPFinishTime").Text) < dtDeleteDate Then
If objNode.SelectSingleNode("SPIsBackup").Text = "True" Then
sTemp = mid(objNode.SelectSingleNode("SPBackupDirectory").Text,1,len(objNode.SelectSingleNode("SPBackupDirectory").Text)-1)
'objFS.DeleteFolder(mid(objNode.SelectSingleNode("SPBackupDirectory").Text),1,len(objNode.SelectSingleNode("SPBackupDirectory").Text)-1)
objFS.DeleteFolder sTemp
objLog.WriteLine(Now() &vbTab& "Deleted: " &objNode.SelectSingleNode("SPBackupDirectory").Text& ".")
objXML.DocumentElement.RemoveChild(objNode)
End If
End If
Next
' Save the XML file with the old nodes removed.
objXML.Save(strTOCFile)
objLog.WriteLine(Now() &vbTab& "Finish: Completed backup clean up.")
@echo off
echo ===============================================================
echo Back up sites for the farm to "%1"
echo ===============================================================
cd %COMMONPROGRAMFILES%\Microsoft Shared\web server extensions\12\BIN
@echo off
stsadm.exe -o backup -directory "%1" -backupmethod full -overwrite
echo completed
Example: backup.bat c:\backup\