Si un dossier doit être créé, NE sélectionnez PAS de catégorie. Cliquez sur le bouton Parcourir en regard de Script et utilisez le script ci-dessous.
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
' Créez un objet Données d'index.
set IxDataCaseHeader = CreateThereforeObject(CreateParamsVar)
' Définissez la définition de dossier à utiliser (CaseDefNo ou CaseDefName).
' Notez que si le nom de la définition de dossier n'est pas unique (cas de figure géré dans TF2014), la première définition de dossier détectée est utilisée.
IxDataCaseHeader.SetCaseDef("TestCase")
' Définissez les champs de l'en-tête du dossier - opération à exécuter avec la fonction SetField uniquement.
' Définissez vos propres champs.
'IxDataCaseHeader.SetField "<nom de colonne>", "<valeur à définir>"
IxDataCaseHeader.SetField "CaseHeaderData1", "My case header data 1"
IxDataCaseHeader.SetField "CaseHeaderData2", "My case header data 2"
IxDataCaseHeader.SetField "CaseNumberData1", 9001
' SearchCase(true) : renverra soit 0 si aucun dossier n'est détecté, soit le numéro du dossier si un dossier a été détecté. Si plusieurs dossiers sont détectés, il renverra le numéro du premier dossier.
' SearchCase(false) : mêmes valeurs que précédemment, mais renverra -1 si plusieurs dossiers sont détectés au lieu du numéro du premier dossier détecté.
nCaseNo = IxDataCaseHeader.SearchCase(true)
if nCaseNo > 0 then
' Il existe déjà un dossier associé à ces données d'index.
' Ne créez pas de nouveau dossier, utilisez le dossier existant.
SetCaseNo(nCaseNo)
elseif nCase = 0 then
' Aucun dossier associé à ces données d'index n'a été détecté.
' Créez un dossier.
nCreatedCaseNo = IxDataCaseHeader.CreateCase
SetCaseNo(nCreatedCaseNo)
elseif nCase = -1 then
' Ne se produit que si vous utilisez SearchCase(false) au lieu de SearchCase(true).
' Signifie que plusieurs dossiers associés à ces données d'index ont été détectés.
' Vous pourriez renvoyer une erreur dans ce cas de figure, comme par exemple
ScriptError("Plusieurs dossiers détectés.")
end if
|
Le fichier en tant que tel doit être mémorisé.
