Therefore™ Help

Zoom Window Out
Larger Text | Smaller Text
Hide Page Header
Show Expanding Text
Printable Version
Save Permalink URL

Tutoriales > Solution Designer > Diseñar > Perfiles de indexación

Definir lo que se debe guardar

Una vez definida la extracción de datos de índice, el paso siguiente consiste en definir qué debe guardarse en Therefore™.

Debe guardarse el archivo propiamente dicho

Esto se realiza de forma predeterminada y, por tanto, solo es necesario definir la categoría en la que debe guardarse el documento.

Los archivos para guardar se definen mediante un archivo de datos XML o de texto

Elija la categoría en la que debe guardarse el documento y, a continuación, haga clic en el botón Examinar del Script e introduzca el script:

FilesToSave = ExtractList ("FileName")

info

Filename es la etiqueta que define los archivos que constituyen el contenido del documento.

Para aclarar este paso, ofrecemos a continuación ejemplos de scripts incorrectos:

FilesToSave = Extract(“FileName”): solo extraerá el PRIMER archivo de cada documento. Si hay varios archivos, no funcionará.

FilesToSave = Extract(“FileNames”): no importará ningún archivo.

FilesToSave = ExtractList(“FileNames”): no importará ningún archivo.

Los archivos para guardar están en una carpeta accesible

En caso de que deba guardarse otro archivo, elija la categoría donde debe guardarse el documento. Haga clic en el botón Examinar del Script e introduzca el script: FilesToSave = "<ruta o ruta relativa del archivo>"

No se debe guardar ningún archivo

En caso de que no deba guardarse ningún archivo (formulario de Therefore™), elija la categoría donde debe guardarse el documento. Haga clic en el botón Examinar del script e introduzca el script: FilesToSave = empty

Debe crearse un nuevo expediente

Cuando deba crearse un nuevo expediente, NO seleccione una categoría. Haga clic en el botón Examinar del Script e introduzca el script:

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 objeto de datos de índice

set IxDataCaseHeader = CreateThereforeObject(CreateParamsVar)

' Establece qué definición de expediente queremos usar. O bien CaseDefNo, o bien CaseDefName.

' Nota: si el nombre de definición de expediente no es único (puede ser con TF2014), tomará la primera definición de expediente encontrada.

IxDataCaseHeader.SetCaseDef("TestCase")

' establece los campos de encabezado del expediente - solo puede hacerse con la función SetField.

' Cambie esto por sus campos

'IxDataCaseHeader.SetField "<el nombre de columna>", "<el valor a establecer>"

IxDataCaseHeader.SetField "CaseHeaderData1", "Mis datos de encabezado del expediente 1"

IxDataCaseHeader.SetField "CaseHeaderData2", "Mis datos de encabezado del expediente 2"

IxDataCaseHeader.SetField "CaseNumberData1", 9001

' SearchCase(true) - Devolverá 0 si no se encuentra ningún expediente o el CaseNo si se encuentra un expediente. Cuando se encuentran varios expedientes, devolverá el CaseNo del primero.

' SearchCase(false) - Igual que el anterior, pero devolverá -1 cuando se encuentren varios en lugar del CaseNo del primer expediente encontrado.

nCaseNo = IxDataCaseHeader.SearchCase(true)

if nCaseNo > 0 then

' Ya existe un expediente con estos datos de índice

' No cree un nuevo expediente - utilice el existente

SetCaseNo(nCaseNo)

elseif nCase = 0 then

' No se ha encontrado ningún expediente con estos datos de índice

' Crea un nuevo expediente

nCreatedCaseNo = IxDataCaseHeader.CreateCase

SetCaseNo(nCreatedCaseNo)

elseif nCase = -1 then

' Esto solo puede suceder si utiliza SearchCase(false) en lugar de SearchCase(true)

' Esto significa que se han encontrado varios expedientes con estos datos de índice.

' Puede lanzar un error en este caso, por ejemplo,

ScriptError("Encontrados varios expedientes.")

end if