Se occorre creare un nuovo fascicolo, NON selezionare una categoria. Fare clic sul pulsante Script e utilizzare lo script seguente.
dim IxDataCaseHeader
dim CreateParams(0)
CreateParams(0) = "IndexData" ' we want an index data object - currently that's the only one supported
dim CreateParamsVar
CreateParamsVar = CreateParams
' Crea un oggetto dati indice
set IxDataCaseHeader = CreateThereforeObject(CreateParamsVar)
' Imposta la definizione fascicolo da utilizzare, CaseDefNo o CaseDefName.
' Nota: se il nome della definizione fascicolo non è univoco (è possibile con TF2014), verrà utilizzata la prima definizione fascicolo trovata.
IxDataCaseHeader.SetCaseDef("TestCase")
' imposta i campi di intestazione del fascicolo; può essere fatto solo con la funzione SetField.
' Sostituire con i propri campi
'IxDataCaseHeader.SetField "<nome colonna>", "<valore da impostare>"
IxDataCaseHeader.SetField "CaseHeaderData1", "My case header data 1"
IxDataCaseHeader.SetField "CaseHeaderData2", "My case header data 2"
IxDataCaseHeader.SetField "CaseNumberData1", 9001
' SearchCase(true) - Restituirà 0 se non viene trovato alcun fascicolo oppure il numero di fascicolo (CaseNo) se viene trovato un fascicolo; in caso di più fascicoli, restituisce il CaseNo del primo fascicolo.
' SearchCase(false) - Come sopra, ma restituisce -1 se vengono trovati più fascicoli anziché il CaseNo del primo fascicolo trovato.
nCaseNo = IxDataCaseHeader.SearchCase(true)
if nCaseNo > 0 then
' Esiste già un fascicolo con questi dati di indice
' Non creare un nuovo fascicolo - usa quello esistente
SetCaseNo(nCaseNo)
elseif nCase = 0 then
' Non è stato trovato nessun fascicolo con questi dati di indice
' Crea un nuovo fascicolo
nCreatedCaseNo = IxDataCaseHeader.CreateCase
SetCaseNo(nCreatedCaseNo)
elseif nCase = -1 then
' Può verificarsi solo se si usa SearchCase(false) invece di SearchCase(true)
' Significa che sono stati trovati più fascicoli con questi dati di indice.
' In questo caso si potrebbe, ad esempio, visualizzare un errore
ScriptError("Più fascicoli trovati.")
end if
|