Dateinamenliste in Archivfeld übergeben

Scripting
Antworten
Benutzeravatar
Dennis Balzuweit
Administrator
Administrator
Beiträge: 3387
Registriert: Freitag 12. Oktober 2007, 23:37
Firma: CTO Balzuweit GmbH
Wohnort: Stuttgart
Kontaktdaten:

Donnerstag 10. November 2011, 12:32

:arrow: Zum Beispiel für die Verwendung mit officeCapture.

Code: Alles auswählen

// ==================================================================================
// Info..............: Dateinamenliste in Archivfeld übergeben
// ----------------------------------------------------------------------------------
// Author............: Dennis Balzuweit
// Company...........: CTO Balzuweit GmbH
// ----------------------------------------------------------------------------------
// Creation..........: 08.11.2011
// Changed...........: 08.11.2011
// ----------------------------------------------------------------------------------
// 08.11.2011 - 1.0  : Creation
// ==================================================================================

Function GetBlobNameList : String;
begin
  Result := '';
  List   := TStringList.Create;
  try
    for i:=0 to ccDocument.BlobCount-1 do
    begin
      BlobName  := ccDocument.GetBlobName(i);
      Extension := lowercase(ExtractFileExt(ccDocument.GetFileName(i)));
      if pos(Extension,lowercase(BlobName)) <= 0
        then BlobName := BlobName + Extension;
      List.Add(BlobName);
    end;

    List.Sort;
    Result := trim(List.Text);
  finally
    List.Free;
  end;
end;

// ----------------------------------------------------------------------------------

begin
  ccDocument.SetFieldValue('Dateinamen',GetBlobNameList);
  ccDocument.AllowProcessing := true;
end;

// ==================================================================================
// eof
In dringenden Fällen wenden Sie sich bitte an Ihren zuständigen Partner-Support.

CLARC Website
CLARC Online-Help
CLARC Merchandising Shop
Antworten