CreateDocumentFromDesc (TdbfDocument)

De Wiki1000
Version du 24 avril 2026 à 14:46 par Syfre (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
class function CreateDocumentEx(desc:TJsonStruct; var aReason:string):TabsCustomDocument;

Cette fonction crée un document à partir d'un descripteur json.

desc Descripteur structure json
aReason Raison de l'erreur en cas d'échec
Reesult L'objet document créé ou nil

Descripteur

name Chaine Nom du document
title Chaine Libellé associé au document
contentType Chaine Type de contenu du document
nature Entier Nature du document
oidObject Chaine Oid de l'objet auquel est associé le document
lastModified Datetime Date heure de modification du document

Le nom du document peut être :

En Webtop

  1. Un chemin vers un fichier accessible à partir de la sandbox du service
  2. Le nom d'un document téléchargé dans la session de l'utilisateur.

En Destop

  1. Un chemin vers un fichier accessible à partir de l'application
  2. Le nom d'un document téléchargé dans le répertoire cache des documents (cache\documents\uploaded).

La nature du document peut être une valeur de l'énuméré Nature de document:

Autre DOCUMENTNATURE_OTHER
Archive DOCUMENTNATURE_ARCHIVE
Elément d'archive DOCUMENTNATURE_ARCHIVE_ITEM
Facture DOCUMENTNATURE_INVOICE
Visuel PDF de facture DOCUMENTNATURE_INVOICE_PDF
Facture UBL DOCUMENTNATURE_INVOICE_UBL
Validation UBL DOCUMENTNATURE_INVOICE_UBL_SCH
Facture CII DOCUMENTNATURE_INVOICE_CII
Validation CII DOCUMENTNATURE_INVOICE_CII_SCH

Exemple :

//function ExecuteAction(req:TJson; resp:TJson):boolean;
var fileData:TJsonStruct; aReason:string; 
begin
  // Executed if beforeExecute returns True
  //
  Result := False; 
  aReason := '';
  // 
  fileData := GetFileData(req);
  if not Assigned(fileData) then Exit; // no expected
  //
  if (fileData.name<>'') then
   begin
     fileData.title := titleDocument; 
     fileData.comment := commentaire.value;
     //.... 
     //showMessage('fileData'#13'%s',[fileData]); 
     // 
     withP transaction do
      begin
        TdbfDocument.CreateDocumentFromDesc(fileData,aReason);
      end; 
   end; 
  // 
  Result := (aReason=''); 
end;

Voir aussi:


TdbfDocumentDéveloppement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels