' La primitiva WorkflowAddPersons inserisce uno o più utenti all'interno di una specificata fase di workflow di un qualsiasi documento QualiWare.
' È quindi possibile, partendo da una categoria documentale X, inserire persone all'interno del workflow di un documento ad essa appartenente.
' La funzione restituisce TRUE in caso di successo e FALSE in caso di fallimento.
' Parametri:
' FORM -> Oggetto chiamante.
' TIPO -> Codice della Categoria Documentale di QualiWare in cui risiede il documento target.
' TIPO_CONT -> Codice del documento target.
' NUMERO -> Numero del documento target.
' IND_REV -> Indice di Revisione del documento target.
' PHASE -> Fase del documento target in cui inserire l'elenco degli utenti specificati.
' PERSONS -> Array ad una sola dimensione che contiene l'elenco dei CODICI univoci degli utenti QualiWare da inserire nella fase di workflow.
' GG_RIT -> Giorni da aggiungere alla data corrente per calcolare la data di richiesta di completamento dell'attività.
Dim par As AssocArray = New AssocArray
dim msg as string
dim q1 as qwtable
q1=OpenTable(form,"SELECT CODICE FROM PERSON WHERE (DATAFINE is null)",par,false,false,msg) ' inserire qui la query che determina i codici degli utenti da aggiungere
if empty(msg) then
dim codam = New DBArray
do
codam.add(q1.rowset.fields(1).value)
loop until not q1.rowset.next()
dim esito as boolean
esito=WorkflowAddPersons(form,form.form_state.dmd_ref.DOCUMENT.rowset.fields("TIPO").Value,form.findcontrol("TIPO_CONT").Value,form.findcontrol("NUMERO").Value,0,"<codice fase>",codam,0)
if esito then
form.alert("OK")
else
form.alert("KO")
end if
else
form.alert("Errore: "+msg)
end if
CloseTable(form,q1)