Utilizzato per gli snippet relativi allo script da eseguire quando l’esecuzione di una attività è completata
‘ La primitiva DW_Elimina consente l’eliminazione definitiva di un documento, con rimozione dei file e di tutte le registrazioni relative tranne l’AuditTrail e il Log dim ris as string=DW_Elimina(form.GetDataBase(),”BPM”,”2017″,”00001A”) if ris<>”” form.alert(ris) End If
‘ Questo script invia mail di notifica ai redattori del documento (fase R), o agli utenti coinvolti in altre fasi. ‘ NB Tali fasi devono essere iniziate o concluse, non da cominciare dim tipo, tipo_cont, numero as string dim ind_rev as integer Unpackcode(“DW”,CODDOC,tipo,tipo_cont,numero,ind_rev) Dim par1 As AssocArray = New AssocArray dim q1 as qwtable Dim…
‘ Il seguente frammento di codice può essere collegato ad un pulsante di un form per apporre la firma dell’utente su una fase (in questo caso la redazione) e chiudere conseguentemente il form form.save() if not form.IsNew() dim tipo, tipo_cont, numero as string dim ind_rev as integer UnPackCode(“DW”,form.form_state.dmd_ref.DOCUMENT.rowset.fields(“_CODDOC”).value,tipo,tipo_cont,numero,ind_rev) BPMWorkflowSign(form.GetDataBase(),tipo,tipo_cont,numero,ind_rev,1,form.GetUserCode(),today(),true,false,””) ‘ 1 è l’attività di redazione…
‘ Il seguente frammento, assegnato post attività, assegna alla attività nr. 2 i redattori della attività 1 e i responsabili dell’ente in CUSTOM3, nonché di tutti gli enti da cui questi dipendono dim tipo, tipo_cont, numero as string dim ind_rev as integer UnPackCode(“DW”,CODDOC,tipo,tipo_cont,numero,ind_rev) dim codam = New DBArray codam = BPMWorkflowGetPersons(DB,tipo,tipo_cont,numero,ind_rev,ACTIVITY) if formfields(“CUSTOM3”).value <> “”…
‘ Il seguente frammento di codice mostra come sia possibile definire una nuova funzione o una nuova procedura che può essere riutilizzata nell’ambito di uno script all’interno di un evento, un plugin o un task dim f = Function(byval cod as string) ‘ qui si può inserire il corpo della funzione ‘ si possono inserire…
‘ Il seguente frammento di codice invia il file del documento e quelli dei documenti collegati in unico zip a destinatari appartenenti ad uno specifico ente. ‘ Va a cercare i destinatari con ente specifico, in esempio MD Dim par3 As AssocArray = New AssocArray q3=OpenTable(DB,”SELECT mail FROM PERSON WHERE mail is not null and…
‘ La funzione BPMSendMail effettua l’invio di una email agli utenti oppure all’elenco di indirizzi di posta elettronica specificati. ‘ Parametri: ‘ DB -> Oggetto database. ‘ CODDOC -> Codice univoco del documento. ‘ DEST -> Array degli indirizzi è mail dei destinatari ‘ SUBJECT -> Oggetto dell’email. ‘ TEXT -> Testo dell’email. ‘ ATTACH ->…
‘ La primitiva DW_Pubblica consente la pubblicazione di un documento ‘ I primi due parametri contengono rispettivamente il database e il codice univoco del documento, il terzo la data di pubblicazione da inserire ‘ Il seguente esempio può essere utilizzato nello script di post esecuzione dell’ultima attività del flusso per effettuare la pubblicazione automatica ‘…
‘La funzione BPMWorkflowWriteEvent registra un evento utente nella tabella degli eventi del Workflow WF_EVENTS e nella tabella LOGDOC ‘Parametri: ‘DB -> Database ‘CODDOC -> Codice del documento ‘ACTIVITY -> ID dell’attività dalla quale eliminare le persone. ‘Description -> Descrizione dell’evento ‘ NOTA: le variabili DB, CODDOC, ACTIVITY sono già definite BPMWorkflowWriteEvent(DB,CODDOC,ACTIVITY,<descrizione dell’evento>)
‘ Tramite la funzione OpenTable è possibile aprire una tabella sul database. ‘ La funzione restituisce un oggetto di tipo recordset QualiWare per la lettura oppure la scrittura di dati da o nel database. ‘ Parametri: ‘ DB -> Oggetto database ‘ SQL -> È necessario specificare l’esatta stringa SQL di lettura/scrittura. Eventualmente comprensiva di…