Francesco Geri

Nel meraviglioso mondo di SharePoint!

Francesco Geri — Thu, 03 Jul 2008 10:59:30 GMT

Problema:

Se da codice imposto una proprietà di tipo data+ora di un documento contenuto in una Document Library di SharePoint mi ritrovo un valore diverso da quallo impostato. In particolare ho uno sfasamento di un'ora o due.

Soluzione:

Certo, direte voi, devi usare le date in formato UTC.

Allora vediamo coda succede in 2 casi, cioè se il file esiste e modifico la sua proprietà, oppure se il file è creato nuovo e la proprietà assegnata all'upload.

L'esempio suppone che:

ci sia un documento all'url http://myServer/mySite/myDocLib
la document library che contiene quel documento abbia una proprietà di nome myDateTimeProp

Il codice di esempio (inserito in un qualche button click) esegue l'update della proprietà del documento esistente, poi crea un nuovo documento (con il contenuto del precedente) assegnandogli un certo valore della proprietà di tipo Data.

Si noti che nel primo caso (update) si deve usare la data nel suo formato normale, nel secondo la si deve convertire in formato UTC.

Ogni altra combinazione non sembra funzionare.

    1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2     ' Esegue l'update della data:
    3     Dim urlDoc As String = "http://myServer/mySite/myDocLib/myDoc1.tif"
    4     Dim objSite As SPSite = Nothing
    5     Dim objWeb As SPWeb = Nothing
    6     Try
    7       Me.Cursor = Cursors.WaitCursor
    8       ' Crea gli oggetti SPSite ed SPWeb 
    9       objSite = New SPSite(urlDoc)
   10       objWeb = objSite.OpenWeb
   11       '' Cerca la document library
   12       Dim objItem As SPListItem = objWeb.GetListItem(urlDoc)
   13       objItem.Item("myDateTimeProp") = Now
   14       objItem.Update()
   15       Dim stream As IO.Stream = objItem.File.OpenBinaryStream()
   16       Dim props As New Hashtable
   17       props.Add("myDateTimeProp", Now.ToUniversalTime)
   18       objItem.File.ParentFolder.Files.Add("myDoc2.tif", stream, props)
   19       stream.Dispose()
   20     Catch ex As Exception
   21       MessageBox.Show(ex.ToString)
   22     Finally
   23       If Not objSite Is Nothing Then objSite.Dispose()
   24       If Not objWeb Is Nothing Then objWeb.Dispose()
   25       Me.Cursor = Cursors.Default
   26     End Try
   27   End Sub
 
Considerazioni finali
Si tratta di una mia personalissima ipotesi, ma secondo me i team di sviluppo della funzionalità di update e di quella di addnew sono distinti, separati e non comunicanti.

Testo che scompare dalle textbox multilinea in Windows Vista

Francesco Geri — Wed, 02 Jul 2008 07:08:39 GMT

Ho riscontrato in una mia applicazione uno strano comportamento.

Il testo di una textbox multilinea scompariva e riappariva passandogli sopra con il mouse. Oltre ad essere multilinea aveva anche una scrollbar verticale ed era inserita in un controllo SplitContainer che a sua volta era all'interno di una TabPage. Il comportamento si verificava solo con Windows Vista.

Per riprodurre il problema è sufficiente creare una applicazione Windows Forms, mettere un TabControl, dentro ad un suo TabPage mettere uno SplitContainer, dentro ad un pannello dello SplitContainer mettere un Textbox multilinea con Scrollbar verticale. Natuaralmente bisogna essere su un sistema con Windows Vista (su XP tutto OK...)

A questo punto basta mandare in esecuzione, scrivere del testo nella textbox muovere un po' il mouse ed osservare il comportamento.

Per risolvere il problema mi viene in auto questo post, in cui si suggeriscono due vie:

Impostare a False la proprietà UseVisualStyleBackColor del TabPage

Me.TabPage1.UseVisualStyleBackColor = False
Sostituire la textbox con una RichTextBox
Impostare la proprietà Backcolor del TabPage ad un valore diverso da Trasparent (nuova soluzione indicatami da Riccardo)

Da notare che per la prima soluzione occorre impostare la proprietà da codice, per esempio nella load della pagina, in quanto se la si imposta dalla finestra delle proprietà del TabPage la modifica non viene recepita da Visual Studio (succederà solo a me?).

Inoltre la prima soluzione funziona per l'esempio che ho proposto sopra, ma evidentemente non funziona sempre. Tant'è che per la mia applicazione originale non ha funzionato! Per cui ho adottato la seconda.

Tutte le soluzioni hanno delle conseguenze grafiche, nel senso che modificano l'aspetto originale della form (nel primo caso lo sfondo del TabPage diventa grigetto, nel secondo il bordo della RichTextBox ha una profondità più marcata rispetto a quello del textbox, nel terzo si deve impostare un colore di sfondo) per cui nessuna delle tre è "perfetta". Tuttavia meglio di niente...

Aggiungere un campo non nullo e senza default ad una tabella di SQL Server

Francesco Geri — Mon, 16 Jun 2008 15:45:27 GMT

Problema:

Abbiamo una tabella in un database SQL Server, vogliamo scrivere uno script che aggiunge un campo che sia non nullo e senza default.

Svolgimento:

Il semplice script seguente...

alter table MiaTabella
add MioCampo varchar(255) not null  
 
...potrebbe non funzionare se la tabella ha già dei record. Infatti Una volta aggiunta la nuova colonna, che valore avrà per i record già presenti? Non potrà essere nulla, ma non è specificato un valore di default.
Per cui dovremmo scrivere il seguente script:

alter table MiaTabella
add MioCampo varchar(255) not null default ('')  
 
In questo modo i vecchi record avranno come valore la stringa vuota e quindi lo script potrà essere eseguito. 
Però a questo punto abbiamo bisogno di rimuovere il defualt.
La cosa non è banale: in SQL Server non potremo scrivere uno script del tipo ALTER TABLE per rimuove il default (lo potremmo fare con SQL Server Compact Edition). L'unico modo è quello di rimuovere il CONSTRAINT che definisce il default.
Ma come si chiama questo constraint? Quel nome viene creato da SQL Server e nel caso dello script sopra sarà del tipo: 
DF__MiaTabella__MioCa__6E01572D

La soluzione che ho trovato io fa uso di un diverso script con sui viene definito esplicitamente il nome del CONSTRAINT, dandomi quindi la possibilità di rimuoverlo in modo molto semplice:

/* Aggiunge il campo MioCampo ed il constraint 
(DF_MiaTabella_MioCampo) per il default temporaneo */
alter table MiaTabella
add MioCampo varchar(255) not null, 
    constraint DF_MiaTabella_MioCampo default '' for MioCampo
go
 
/* Rimuove il default temporaneo */
alter table MiaTabella
drop constraint DF_MiaTabella_MioCampo
go

How to refresh the CRL cache on Windows Vista

Francesco Geri — Wed, 30 Apr 2008 10:42:10 GMT

Posto nel mio blog (perché così me lo ritrovo subito) un post (liberamente modificato) che mi è stato utile un paio di volte.

By default, Windows is caching Certificate Revocation Lists (CRL) and CA certificates to quickly verify certificate chains. The downside of this behavior is that a newer CRL is not picked up by the client until the locally cached CRL has expired.

Windows versions before Windows Vista do not support deletion or a forced update of the CRL cache.

You can view what is in your current CRL cache with the following command:
certutil -URLcache CRL

You can delete what is in your current CRL cache with the following command:
certutil -URLcache CRL delete

On Windows Vista, CAPI 2.0 has support to set a expiry date for the CRL and OCSP cache. You can use certutil to set a date and time when all cache entries become invalid. The following commands require administrative permission on the system.

To see when the cache was invalidated the last time, perform this command:
certutil –getreg chain\ChainCacheResyncFiletime

Note: If the ChainCacheResyncFiletime was never set manually before, the registry key does not exist and the following error message is shown:

CertUtil: -getreg command FAILED: 0x80070002 (WIN32: 2)
CertUtil: The system cannot find the file specified.

The error can be ignored because default CRL caching takes place in this case.

If the @now parameter is used, all cached entries are invalidated immediately.
certutil -setreg chain\ChainCacheResyncFiletime @now

To keep the cached entries for another 3 days and 6 hours, use this command:
certutil –setreg chain\ChainCacheResyncFiletime @now+3:6

To delete a registry value:
certutil –delreg chain\ChainCacheResyncFiletime

Open XML Format SDK

Francesco Geri — Fri, 18 Apr 2008 06:45:52 GMT

Pubblicato l'Open XML Format SDK (April CTP):

http://www.microsoft.com/downloads/details.aspx?FamilyId=AD0B72FB-4A1D-4C52-BDB5-7DD7E816D046&displaylang=en

Mentre la versione online dell'SDK è all'indirizzo:

http://msdn2.microsoft.com/en-us/library/bb448854.aspx

Fonte: Erika Ehrli

[OT] KBox Spring 2008

Francesco Geri — Fri, 11 Apr 2008 15:31:56 GMT

Faccio un po' di pubblicità per un evento organizzato dall'azienda per cui lavoro:

è un evnto in cui si parla di Knowledge Management
è organizzato in collaborazione con Microsoft
è gratuito

[OT] Romeo e La Trippa

Francesco Geri — Thu, 10 Apr 2008 13:12:10 GMT

Faccio un piacere ad un amico petulante ed invito i miei pochi lettori a compilare il sondaggio politico proposto da Romeo su facebook.

Nota: Romeo mi ha assicurato che, in accordo con le attuali normative in materia di par codiciio, il risultato del sondaggio sarà pubblicato solo dopo la conclusione delle votazioni.

Trasformazione di un file XML in un file HTML tramite un XSLT

Francesco Geri — Wed, 02 Apr 2008 14:55:08 GMT

La trasformazione via codice di un file XML in HTML tramite file XSLT è molto semplice (cito liberamente da MSDN):

' Load the style sheet.
Dim xslt As New XslCompiledTransform()
xslt.Load("output.xsl")
        
' Execute the transform and output the results to a file.
xslt.Transform("books.xml", "books.html")

Il codice riportato lavora su file fisici, messi da qualche parte.
Se però non si vuole sfruttare il file system, si può usare una funzione come la seguente, che consente di fare la trasformazione senza aver file fisici in gioco.

  Function TransformXML(ByVal xDoc As Xml.XmlDocument, ByVal xsltText As String) As String
    ' Carica l'xslt
    Dim xslt As New Xml.Xsl.XslCompiledTransform()
    Dim xsltStringReader As New IO.StringReader(xsltText)
    Dim xsltXmlReader As New Xml.XmlTextReader(xsltStringReader)
    xslt.Load(xsltXmlReader)
    ' Crea il reader per l'XML in XDOC
    Dim xDocStringReader As New IO.StringReader(xDoc.OuterXml)
    Dim xDocXmlReader As New Xml.XmlTextReader(xDocStringReader)
    ' Crea il writer per l'html
    Dim htmlStringBuilder As New Text.StringBuilder()
    Dim htmlStringWriter As New IO.StringWriter(htmlStringBuilder)
    Dim htmlXmlReaderWriter As New Xml.XmlTextWriter(htmlStringWriter)
    ' Esegue la trasformazione
    xslt.Transform(xDocXmlReader, htmlXmlReaderWriter)
    ' Retuisce il contenuto html
    Return htmlStringBuilder.ToString()
  End Function

Vista serve solo per la musica?

Francesco Geri — Mon, 31 Mar 2008 09:11:05 GMT

Ogni tanto devo fare un po' di yoga per non maledire Vista...

Come sapete Vista nasce per memorizzare file musicali e video. Non va bene per chi deve sviluppare o scrivere documenti di testo o altre cose.

La dimostrazione di ciò è il fatto che per Vista tutte le cartelle contengono file musicali. E' facile capirlo, visto che in ogni cartella (anche se uno fa duitutto per dimostrare il contrario!) i dettagli dei file sono: il rating, l'artista, la lunghezza del brano, il produttore!

Per questo è utilie avere sempre sottomano il link al post di Marc Clifton in cui è descritto il meccanismo per ripristinare una view più utile (con i tanto sospirati campi "data modifica", "size", etc).

Qualcun'altro ha già fatto un post su UgiDotNet con la stessa citazione, ma lo faccio anch'io, così quando mi servirà di nuovo (e so che mi servirà, perché Vista è subdolo e malefico: 1, 2, 3, 4, ... ), non dovrò perdere tempo a cercarlo.

Folder View Settings

8/16/2007 3:19:05 PM

From CPian Anton Afanasyev:

On a side note, my main beef with Vista has been that it tends to "forget" the view settings that I set for folders, and keeps trying to guess them - which in turn shows me my folder full of code files with large thumbnails of them, and columns like "rating", "length", "artist", "year" and some such.

The fix?

delete the following registry keys, and then save the following as a .reg file and apply it to the system. Works like a charm.

Keys to delete:

HKEY_CURRENT_USER\Software\Classes\LocalSettings\Software\Microsoft\Windows\Shell\Bags

HKEY_CURRENT_USER\Software\Classes\LocalSettings\Software\Microsoft\Windows\Shell\BagMRU

Add to the registry:

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Classes\LocalSettings\Software\Microsoft\Windows\Shell\Bags]
[HKEY_CURRENT_USER\Software\Classes\LocalSettings\Software\Microsoft\Windows\Shell\Bags\All Folders]
[HKEY_CURRENT_USER\Software\Classes\LocalSettings\Software\Microsoft\Windows\Shell\Bags\All Folders\Shell]
"FolderType"="NotSpecified"
"SniffedFolderType"="NotSpecified"
[HKEY_CURRENT_USER\Software\Classes\LocalSettings\Software\Microsoft\Windows\Shell\Bags\AllFolders]
[HKEY_CURRENT_USER\Software\Classes\LocalSettings\Software\Microsoft\Windows\Shell\Bags\AllFolders\Shell]
"FolderType"="NotSpecified"
"SniffedFolderType"="NotSpecified"

Errore nella creazione di un setup con VS2005 in Vista

Francesco Geri — Wed, 12 Mar 2008 10:06:56 GMT

Facendo la build di un progetto di setup con VS2005 in un pc con Vista, potrebbe saltar fuori questo errore:

L'errore è questo:

0:Watson 1:1304 2:StreamSupportFiles
3:streamBinaryToDisk 4:5
5:t:\yukon\sql\setup\darwin\sqlcastub\streamca.cpp
6:238 7:sqlcastub 8:sqlrun.msi

Premendo OK ne compare un altro:

Error writing to file: Access is denied
Verify that you have access to that directory

Questo può succedere se si ha Vista, Visual Studio 2005 Professional ed SQL Server 2005 Developer.

Soluzione:

Avviando VS2005 As Asdministrator non si ha l'errore
Installando una versione successiva della dll mergemod.dll che pare essere la causa del problema (come suggeriscono qui): la versione successiva di quella DLL la si può ottenere installando Orca.