CreateDocumentEx (TdbfDocument)

class function CreateDocumentEx(function CreateDocumentEx(const iName,iOidObject:string; iDocumentNature : integer; iCreationDateTimeStart : TDateTime):TabsCustomDocument;

Cette fonction crée un document et le rattache à un objet.

iName	Nom du document créé (avec l'extension)
iOidObject	Identifiant de l'objet auquel rattaché le document
iDocumentNature	Nature du document
iCreationDateTimeStart	Date de création

Exemple :

var
 doc : TdbfDocument;
 b : TBanque;
begin
 b := TBanque.Find('code=%1','',true,['13807FR']);
 Classmanager.Begintran;
 try
  doc := TdbfDocument.CreateDocumentEx('doc1.txt',b.instanceoid,DOCUMENTNATURE_ARCHIVE_ITEM,now);
  doc.LoadFromFile(s);
 except
  classmanager.RollBack;
  raise;
 end;
end;

Voir aussi:

— TdbfDocument — Développement DSM —