Assign (Instance)

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

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

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

{{#if:Objets métiers (tech)|

{{#if:Objets métiers (tech)|— Objets métiers (tech) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}