Filenet Visualizzare le queue (code) tramite .Net (VB.Net e C#)

Filenet: Visualizzare le queue (code) di Filenet tramite la tecnologia .Net (Vb.Net e C#)

Figura 1

Introduzione:

In questo articolo, vediamo come visualizzare i valori delle queue (code) tramite la tecnologia .Net (Vb.Net e C#), in particolare alcuni campi (denominati nome e cognome) creati in precedenza. Si crea una nuova form, nella quale si aggiunge tre label (per i vari titoli) due controlli listbox ed un pulsante, la finestra dovrà avere un aspetto simile alla figura 1.

Per la gestione delle code, utilizzeremo le classi library, per la gestione delle librerie, queue per la gestione delle code, QueueQuerySpecification per effettuare le operazioni di ricerca ed infine la classe QueueBrowseSet che restituisce il risultato della ricerca.

Gli oggetti dichiarati a livello di form.

Utilizzeremo un solo oggetto, di tipo library a livello di form, il resto degli oggetti (istanze delle classi precedentemente descritte) saranno inseriti nei rispettivi eventi.

Si crea un oggetto di tipo library nella form, subito dopo la dichiarazione della form, come riportato qui di seguito.

Vb.Net

'oggetto libreria

Dim objLibrary As New IDMObjects.Library

C#

//oggetto libreria

IDMObjects.Library ObjLibrary = new IDMObjects.Library();

A questo punto, modifichiamo il costruttore della nostra form, in modo che possiamo utilizzare l'oggetto library, utilizzato nella form precedente in cui si è effettuato il login, di seguito si riporta un frammento di codice di esempio.

VB.Net

Sub New(ByVal libreria As IDMObjects.Library)

InitializeComponent()

objLibrary = libreria

End Sub

C#

public FrmVisualizzaCode(IDMObjects.Library objlibreria)

{

InitializeComponent();

ObjLibrary = objlibreria;

}

Ricerca e visualizzazione delle code

Di seguito si riporta un frammento di codice da utilizzare nell'evento load della form, per la visualizzazione delle queue. Il metodo Browse dell'oggetto QueueQuerySpecification restituisce un insieme di queuebrowsset, ossia il risultato della ricerca effettuata. In effetti con l'oggetto QueueQuerySpecification, impostando alcune proprietà, possiamo eseguire determinate ricerche, mentre con l'oggetto QueueBrowseSet possiamo gestire le varie informazioni ottenute dalla ricerca, scorrere tra i vari dati, rilevare determinati valori, ed altro ancora sulle queue. Se il metodo Browse non trova nulla, restituisce un errore, ossia –2147208689 in questo caso bisogna gestire tale eccezione, altrimenti se qualora il metodo browse restituisce dei valori, possiamo fare un ciclo, per rilevare tali dati, come riportato nel frammento di codice di esempio.

Vb.Net

Try

'oggetto coda

Dim objQueue As New IDMObjects.Queue

objQueue = objLibrary.GetObject(IDMObjects.idmObjectType.idmObjTypeQueue, "ANAGRAFICA/DATI")

'oggetto per la ricerca delle code

Dim ObjQueueQuerySpecification As New IDMObjects.QueueQuerySpecification()

ObjQueueQuerySpecification = objQueue.CreateQuerySpecification()

''oggetto per la restituzione dei valori

Dim ObjQueueBrowseSet As New IDMObjects.QueueBrowseSet()

'flag per l'accesso al sistema di filenet

ObjQueueQuerySpecification.CheckUser = False

'Indica i valori delle code

ObjQueueQuerySpecification.EvenIfDelayed = False

'permette di impostare o restituire un valore in base allo stato delle queue inserite, ossia se il ritorno della query è incompleta.

ObjQueueQuerySpecification.Incomplete = IDMObjects.idmQueueIncompleteOpt.idmIncompleteOK

ObjQueueQuerySpecification.MinPriority = 0

'restituisce tutti gli entry anche se sono loccati ossia bloccati

ObjQueueQuerySpecification.Status = IDMObjects.idmQueueBusyOpt.idmBusyOK

'imposto l'oggetto per la ricerca

ObjQueueBrowseSet = ObjQueueQuerySpecification.Browse()

'ciclo per i valori

For intConta As Integer = 1 To ObjQueueBrowseSet.RecordCount

lstbNome.Items.Add(ObjQueueBrowseSet.Entry.Properties("Nome").Value)

lstCognome.Items.Add(ObjQueueBrowseSet.Entry.Properties("Cognome").Value)

'verifico la fine

If ObjQueueBrowseSet.MoreResults = True Then

ObjQueueBrowseSet.MoveNext()

End If

Next

Catch ex As Exception

Dim ObjErrorManager As New IDMError.ErrorManager

Dim ObjErrori As IDMError.Errors

Dim StrTestoErrore As String = ""

Dim objErrore As IDMError.Error

If ObjErrorManager.Errors.Count > 0 Then

ObjErrori = ObjErrorManager.Errors

'ciclo per tutti gli errori

For Each objErrore In ObjErrori

If objErrore.Number = -2147208689 Then

StrTestoErrore = "Non ci sono code"

Else

StrTestoErrore = objErrore.Description

End If

Next

Else

StrTestoErrore = ex.Message

End If

MsgBox(StrTestoErrore)

End Try

C#

try

{

//oggetto coda

IDMObjects.Queue objQueue = new IDMObjects.Queue ();

objQueue = (IDMObjects.Queue) ObjLibrary.GetObject(IDMObjects.idmObjectType.idmObjTypeQueue, "ANAGRAFICA/DATI",null,null,null);

//oggetto per la ricerca delle code

IDMObjects.QueueQuerySpecification ObjQueueQuerySpecification = new IDMObjects.QueueQuerySpecification();

ObjQueueQuerySpecification = objQueue.CreateQuerySpecification();

//oggetto per la restituzione dei valori

IDMObjects.QueueBrowseSet ObjQueueBrowseSet = new IDMObjects.QueueBrowseSet();

//flag per l'accesso al sistema di filenet

ObjQueueQuerySpecification.CheckUser = false;

//Indica i valori delle code

ObjQueueQuerySpecification.EvenIfDelayed =false ;

//permette di impostare o restituire un valore in base allo stato delle queue inserite, ossia se il ritorno della query è incompleta.

ObjQueueQuerySpecification.Incomplete = IDMObjects.idmQueueIncompleteOpt.idmIncompleteOK ;

ObjQueueQuerySpecification.MinPriority = 0;

//restituisce tutti gli entry anche se sono loccati ossia bloccati

ObjQueueQuerySpecification.Status = IDMObjects.idmQueueBusyOpt.idmBusyOK;

//imposto l'oggetto per la ricerca

ObjQueueBrowseSet = ObjQueueQuerySpecification.Browse();

//ciclo per i valori

for (int intconta = 1; intconta <= ObjQueueBrowseSet.RecordCount; intconta++ )

{

lstbNome.Items.Add(ObjQueueBrowseSet.Entry.Properties["Nome"].Value );

lstCognome.Items.Add(ObjQueueBrowseSet.Entry.Properties["Cognome"].Value);

//verifico la fine

if (ObjQueueBrowseSet.MoreResults == true)

{

ObjQueueBrowseSet.MoveNext();

}

}

}

catch (Exception ex)

{

IDMError.ErrorManager ObjErrorManager = new IDMError.ErrorManager();

IDMError.Errors ObjErrori;

string StrTestoErrore = "";

IDMError.Error ObjErrore;

//verifico che in filenet ci siano errori

if (ObjErrorManager.Errors.Count > 0)

{

ObjErrori = ObjErrorManager.Errors;

//ciclo per tutti gli errori

foreach (IDMError.Error objErrore in ObjErrori)

{

if (objErrore.Number = -2147208689)

{

StrTestoErrore ="Non ci sono code");

}

else

{

StrTestoErrore = objErrore.Description;

}

}

}

else

{

StrTestoErrore = ex.Message;

}

MessageBox.Show(StrTestoErrore, "FileNet");

}

Conclusioni:

In questo articolo, si è visto come visualizzare in un controllo listbox i valori delle queue, informazioni importanti relativi ai documenti, gli oggetti utilizzati (queue, QueueQuerySpecification e QueueBrowseSet) sono gli oggetti da utilizzare per la gestione delle queue. Tramite la parola download è possibile scaricare il progetto di esempio utilizzato nell'articolo.

Download esempio

Siti web di riferimento:

http://www.filenet.com/Italiano/index.asp Italia

http://www.filenetinfo.com/mk/get/feis_ita_reg Per richiedere gratuitamente il cd "FileNet is Essential"

http://www.filenet.com/ (Inglese)