CreateDocumentEx (TdbfDocument)
De Wiki1000
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: