Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office SharePoint [SPS2003]WP : listing des nouveaux doc d'une documents library

[SPS2003]WP : listing des nouveaux doc d'une documents library

1 réponse
Avatar
FLP
n'etant pas satisfait de la webpart générée par SPS pour visualiser une bibliothèque documentaire (surtout quand on a plusieurs bibliothèques dans la même zone), j'ai donc fait ce qui suit
-objectifs
*elle est multilingues (ie elle s'adapte aux propriétés du site
*elle s'appuie sur la css sps.css de sharepoin
*elle affiche l'ensemble des bibliothèques documentaires d'une zone ainsi que les derniers documents modifiés/ajoutés dans celles-c
-ce qui est paramétrable
*le nbr de docs affichés par librairie
*l'affichage des descriptions des librairie
*le message annonçant une bibliothèque vide (le seul truc que je ne pouvais pas gérer en automatique pour la langue)

je n'ai pas vu de WP de ce style jusqu'à maintenant (on peut reproduire la même chose avec les vues mais il faut alors plusieurs WP, une pour chaque biblio) , donc voici le code
en esperant que cela puisse aider du monde, ça reste très simple à créer
dsl du rendu qui va suivre mais je n'ai rien a dispo pour heberger le projet

using System
using System.ComponentModel
using System.Web.UI
using System.Web.UI.WebControls
using System.Xml.Serialization
using Microsoft.SharePoint
using Microsoft.SharePoint.Utilities
using Microsoft.SharePoint.WebPartPages
using Microsoft.SharePoint.WebControls

namespace QuickLi

[ToolboxData("<{0}:LastDoc runat=server></{0}:LastDoc>")
XmlRoot(Namespace="QuickLib")
public class LastDoc : Microsoft.SharePoint.WebPartPages.WebPar

private const string defaultNoDoc = "No documents."
private string noDoc = defaultNoDoc
private const int defaultNumDoc = 3
private int numDoc = defaultNumDoc
private const bool defaultShowDescription = true
private bool showDescription = defaultShowDescription
[Browsable(true)
Category("Last Docs Property")
DefaultValue(defaultNoDoc)
WebPartStorage(Storage.Shared)
FriendlyName("No Documents")
Description("Default No documents text")
public string NoDo

ge

return noDoc


se

noDoc = value


[Browsable(true)
Category("Last Docs Property")
DefaultValue(defaultNumDoc)
WebPartStorage(Storage.Shared)
FriendlyName("Number of documents")
Description("select the number of documents to show")
public int NumDo

ge

return numDoc


se

numDoc = value


[Browsable(true)
Category("Last Docs Property")
DefaultValue(defaultShowDescription)
WebPartStorage(Storage.Shared)
FriendlyName("Show Description")
Description("indicate if the library's description is visible")
public bool ShowDescriptio

ge

return showDescription


se

showDescription = value


protected override void RenderWebPart(HtmlTextWriter output

base.RenderWebPart (output)
SPWeb CurrentWeb = SPControl.GetContextWeb(Context)
SPListCollection lists = CurrentWeb.Lists

output.Write("<table width=100% border=0 cellspacing=0 cellpadding=1>")
foreach(SPList list in lists

if(list.BaseTemplate == SPListTemplateType.DocumentLibrary

tr

SPQuery spq = new SPQuery()
spq.RowLimit = Convert.ToUInt32(this.NumDoc)
spq.ViewAttributes = "Scope='Recursive'"
spq.Query = "<OrderBy><FieldRef Name=\"Modified\" Ascending=\"FALSE\"/></OrderBy>"
SPListItemCollection LastDocs = list.GetItems(spq)

output.Write("<tr><td class=ms-smallheader colspan=4><a href=\""+list.DefaultViewUrl+"\">"+list.Title+"</a></td></tr>")
if(this.ShowDescription
output.Write("<tr><td class=\"ms-vh2\" colspan=4>"+list.Description+"</td></tr>")
if(list.ItemCount==0
output.Write("<tr><td width=10></td><td colspan=3>"+this.NoDoc+"</td></tr>")
els
output.Write("<tr><td width=10></td><td class=\"ms-vh2\">"+list.Fields["Type"].Title+"</td><td class=\"ms-vh2\">"+list.Fields["Name"].Title+"</td><td class=\"ms-vh2\">"+list.Fields["Modified"].Title +"</td></tr>")
foreach(SPListItem doc in LastDocs
{
output.Write("<tr><td width=10></td><td class=\"ms-vb-title\"><img src=\"/_layouts/images/"+doc.File.IconUrl+"\"></td><td class=\"ms-vb-title\"><a href=\""+doc.File.Url+"\" target=\"_new\">"+doc.File.Name+"</a>"+IsNew(doc.File.TimeCreated,CurrentWeb.Language.ToString())+"</td><td class=\"ms-vb-title\">"+SPUtility.FormatDate(CurrentWeb,doc.File.TimeLastModified,SPDateFormat.DateTime) +"</td></tr>");
}
}
catch(Exception ex)
{
output.Write(ex.Message) ;
}

}
}
output.Write("</table>");
}
private string IsNew(DateTime dDate,string Language)
{
TimeSpan dEcart = DateTime.Now.Subtract(dDate);
if(dEcart.Days<=7)
return "<img src=/_layouts/"+Language+"/images/new.gif>";
else
return "";
}
}
}
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
EROL [MVP SPS]
Bonjour,

Merci pour cette contribution, si vous êtes sur Paris il faudrait que vous
veniez au Club SPS :

http://www.clubsps.org


@bientôt sur les news de SharePoint.
Bonne fin de semaine.

EROL
[MVP SharePoint Microsoft France]
*****************************************
http://sharepointerol.blogspot.com/
=============================
"FLP" a écrit dans le message de
news:
n'etant pas satisfait de la webpart générée par SPS pour visualiser une


bibliothèque documentaire (surtout quand on a plusieurs bibliothèques dans
la même zone), j'ai donc fait ce qui suit :
-objectifs :
*elle est multilingues (ie elle s'adapte aux propriétés du site)
*elle s'appuie sur la css sps.css de sharepoint
*elle affiche l'ensemble des bibliothèques documentaires d'une zone


ainsi que les derniers documents modifiés/ajoutés dans celles-ci
-ce qui est paramétrable :
*le nbr de docs affichés par librairies
*l'affichage des descriptions des librairies
*le message annonçant une bibliothèque vide (le seul truc que je ne


pouvais pas gérer en automatique pour la langue)

je n'ai pas vu de WP de ce style jusqu'à maintenant (on peut reproduire la


même chose avec les vues mais il faut alors plusieurs WP, une pour chaque
biblio) , donc voici le code.
en esperant que cela puisse aider du monde, ça reste très simple à créer.
dsl du rendu qui va suivre mais je n'ai rien a dispo pour heberger le


projet.

using System;
using System.ComponentModel;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Xml.Serialization;
using Microsoft.SharePoint;
using Microsoft.SharePoint.Utilities;
using Microsoft.SharePoint.WebPartPages;
using Microsoft.SharePoint.WebControls;

namespace QuickLib
{
[ToolboxData("<{0}:LastDoc runat=server></{0}:LastDoc>"),
XmlRoot(Namespace="QuickLib")]
public class LastDoc : Microsoft.SharePoint.WebPartPages.WebPart
{
private const string defaultNoDoc = "No documents.";
private string noDoc = defaultNoDoc;
private const int defaultNumDoc = 3;
private int numDoc = defaultNumDoc;
private const bool defaultShowDescription = true;
private bool showDescription = defaultShowDescription;
[Browsable(true),
Category("Last Docs Property"),
DefaultValue(defaultNoDoc),
WebPartStorage(Storage.Shared),
FriendlyName("No Documents"),
Description("Default No documents text")]
public string NoDoc
{
get
{
return noDoc;
}

set
{
noDoc = value;
}
}
[Browsable(true),
Category("Last Docs Property"),
DefaultValue(defaultNumDoc),
WebPartStorage(Storage.Shared),
FriendlyName("Number of documents"),
Description("select the number of documents to show")]
public int NumDoc
{
get
{
return numDoc;
}

set
{
numDoc = value;
}
}
[Browsable(true),
Category("Last Docs Property"),
DefaultValue(defaultShowDescription),
WebPartStorage(Storage.Shared),
FriendlyName("Show Description"),
Description("indicate if the library's description is visible")]
public bool ShowDescription
{
get
{
return showDescription;
}

set
{
showDescription = value;
}
}
protected override void RenderWebPart(HtmlTextWriter output)
{
base.RenderWebPart (output);
SPWeb CurrentWeb = SPControl.GetContextWeb(Context);
SPListCollection lists = CurrentWeb.Lists;

output.Write("<table width0% border=0 cellspacing=0 cellpadding=1>");
foreach(SPList list in lists)
{
if(list.BaseTemplate == SPListTemplateType.DocumentLibrary)
{
try
{
SPQuery spq = new SPQuery();
spq.RowLimit = Convert.ToUInt32(this.NumDoc);
spq.ViewAttributes = "Scope='Recursive'";
spq.Query = "<OrderBy><FieldRef Name="Modified"


Ascending="FALSE"/></OrderBy>";
SPListItemCollection LastDocs = list.GetItems(spq);

output.Write("<tr><td class=ms-smallheader colspan=4><a


href=""+list.DefaultViewUrl+"">"+list.Title+"</a></td></tr>");
if(this.ShowDescription)
output.Write("<tr><td class="ms-vh2"


colspan=4>"+list.Description+"</td></tr>");
if(list.ItemCount==0)
output.Write("<tr><td width></td><td


colspan=3>"+this.NoDoc+"</td></tr>");
else
output.Write("<tr><td width></td><td


class="ms-vh2">"+list.Fields["Type"].Title+"</td><td
class="ms-vh2">"+list.Fields["Name"].Title+"</td><td
class="ms-vh2">"+list.Fields["Modified"].Title +"</td></tr>");
foreach(SPListItem doc in LastDocs)
{
output.Write("<tr><td width></td><td class="ms-vb-title"><img


src="/_layouts/images/"+doc.File.IconUrl+""></td><td
class="ms-vb-title"><a href=""+doc.File.Url+""
target="_new">"+doc.File.Name+"</a>"+IsNew(doc.File.TimeCreated,CurrentWeb
.Language.ToString())+"</td><td
class="ms-vb-title">"+SPUtility.FormatDate(CurrentWeb,doc.File.TimeLastMod
ified,SPDateFormat.DateTime) +"</td></tr>");
}
}
catch(Exception ex)
{
output.Write(ex.Message) ;
}

}
}
output.Write("</table>");
}
private string IsNew(DateTime dDate,string Language)
{
TimeSpan dEcart = DateTime.Now.Subtract(dDate);
if(dEcart.Days<=7)
return "<img src=/_layouts/"+Language+"/images/new.gif>";
else
return "";
}
}
}