http://wiki.sage.fr/index.php?action=history&feed=atom&title=Assign_%28Instance%29 2026-05-25T06:43:35Z Historique des versions pour cette page sur le wiki MediaWiki 1.41.1 http://wiki.sage.fr/index.php?title=Assign_(Instance)&diff=912&oldid=prev 2009-07-25T09:08:43Z

<p>Nouvelle page : &lt;source lang=&#039;delphi&#039;&gt;procedure Assign(anObject:TitObject; const iExcludePropList:string);&lt;/source&gt; Cette procédure affecte les attributs d&#039;une instance d&#039;objet à cette instance. ...</p> <p><b>Nouvelle page</b></p><div>&lt;source lang=&#039;delphi&#039;&gt;procedure Assign(anObject:TitObject; const iExcludePropList:string);&lt;/source&gt;<br /> <br /> Cette procédure affecte les attributs d&#039;une instance d&#039;objet à cette instance.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |anObject<br /> |Une instance d&#039;objet d&#039;une classe compatible avec cette instance.<br /> |-<br /> |iExcludePropList<br /> |Une liste d&#039;attribut, séparés par des virgules, à exclure durant l&#039;affectation<br /> |}<br /> <br /> Exemple<br /> &lt;source lang=&#039;delphi&#039;&gt;<br /> //Procedure DupliquerDetail(const oidDDE:TOID);<br /> Var<br /> vDetailEngagement : TDetailEngagement;<br /> vDESrc : TDetailEngagement;<br /> begin<br /> // Ce code duplique un détail dd&#039;engagement (DE)<br /> //<br /> if oidDDE = &#039;&#039; then Exit;<br /> if not Assigned(DemandeEngagement) then Exit;<br /> <br /> // Recherche l&#039;objet DE a dupliquer.<br /> vDESrc := ClassManager.FindObject(&#039;TDetailEngagement&#039;, &#039;oid=%1&#039;,&#039;oid&#039;, false, [oidDDE]);<br /> if Not Assigned(vDESrc) then Exit;<br /> <br /> // Assure une transaction<br /> If ClassManager.TranCount = 0 then ClassManager.BeginTran;<br /> <br /> // Créer une instance de DE<br /> vDetailEngagement := ClassManager.CreateInstance(&#039;TDetailEngagement&#039;);<br /> <br /> // Affecte l&#039;objet DE à dupliquer en excluant les attributs d&#039;état<br /> vDetailEngagement.Assign(vDESrc,&#039;estComplet,estBloque,estRefuse&#039;);<br /> <br /> // Ajoute le DE duppliqué à la liste des détails d&#039;engagement.<br /> DemandeEngagement.DetailEngagementList.AddRef(vDetailEngagement);<br /> end;<br /> &lt;/source&gt;<br /> <br /> Voir aussi<br /> <br /> <br /> {{Footer|Objets métiers (tech)}}<br /> [[category:Objets métiers]]</div>

Syfre