Syfre : Nouvelle page : procedure Assign(anObject:TitObject; const iExcludePropList:string); Cette procédure affecte les attributs d'une instance d'objet à cette instance. ...

2009-07-25T09:08:43Z

Nouvelle page : <source lang='delphi'>procedure Assign(anObject:TitObject; const iExcludePropList:string);</source> Cette procédure affecte les attributs d'une instance d'objet à cette instance. ...

Nouvelle page

<source lang='delphi'>procedure Assign(anObject:TitObject; const iExcludePropList:string);</source>

Cette procédure affecte les attributs d'une instance d'objet à cette instance.

{|class="wikitable"
|-
|anObject
|Une instance d'objet d'une classe compatible avec cette instance.
|-
|iExcludePropList
|Une liste d'attribut, séparés par des virgules, à exclure durant l'affectation
|}

Exemple
<source lang='delphi'>
//Procedure DupliquerDetail(const oidDDE:TOID);
Var
vDetailEngagement : TDetailEngagement;
vDESrc : TDetailEngagement;
begin
// Ce code duplique un détail dd'engagement (DE)
//
if oidDDE = '' then Exit;
if not Assigned(DemandeEngagement) then Exit;

// Recherche l'objet DE a dupliquer.
vDESrc := ClassManager.FindObject('TDetailEngagement', 'oid=%1','oid', false, [oidDDE]);
if Not Assigned(vDESrc) then Exit;

// Assure une transaction
If ClassManager.TranCount = 0 then ClassManager.BeginTran;

// Créer une instance de DE
vDetailEngagement := ClassManager.CreateInstance('TDetailEngagement');

// Affecte l'objet DE à dupliquer en excluant les attributs d'état
vDetailEngagement.Assign(vDESrc,'estComplet,estBloque,estRefuse');

// Ajoute le DE duppliqué à la liste des détails d'engagement.
DemandeEngagement.DetailEngagementList.AddRef(vDetailEngagement);
end;
</source>

Voir aussi

{{Footer|Objets métiers (tech)}}
[[category:Objets métiers]]

Assign (Instance) - Historique des versions

Syfre : Nouvelle page : procedure Assign(anObject:TitObject; const iExcludePropList:string); Cette procédure affecte les attributs d'une instance d'objet à cette instance. ...