https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=PushShareContext_%28CM%29
PushShareContext (CM) - Historique des versions
2026-04-26T06:30:51Z
Historique pour cette page sur le wiki
MediaWiki 1.18.6
https://frp.sage.fr/wiki1000/index.php?title=PushShareContext_(CM)&diff=3187&oldid=prev
Syfre le 20 janvier 2010 à 13:16
2010-01-20T13:16:02Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr valign='top'>
<td colspan='2' style="background-color: white; color:black;">← Version précédente</td>
<td colspan='2' style="background-color: white; color:black;">Version du 20 janvier 2010 à 13:16</td>
</tr><tr><td colspan="2" class="diff-lineno">Ligne 10 :</td>
<td colspan="2" class="diff-lineno">Ligne 10 :</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>'''Exemple :'''</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>'''Exemple :'''</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div><source lang='delphi'></div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div><source lang='delphi'></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">{Procedure _executerSociete(aTiersSociete:TTiersSociete);}</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>begin</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>begin</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  ProgressMessage(' ');</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  ProgressMessage(Format(_TP('TRAITEMENT SOCIETE %s'),[aTiersSociete.Code]));</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  if ClassManager.ShareEnable then ClassManager.PushShareContext;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  try</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    if ClassManager.ShareEnable then</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    begin</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">      ClassManager.ShareRestitutionMode := False;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">      ClassManager.ShareSociety := aTiersSociete.oidPerimetreSociete;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    end;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    //... process this society ....</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  </ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  finally</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    if ClassManager.ShareEnable then ClassManager.PopShareContext;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  end;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">end;</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>end;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>end;</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></source></div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></source></div></td></tr>
</table>
Syfre
https://frp.sage.fr/wiki1000/index.php?title=PushShareContext_(CM)&diff=3185&oldid=prev
Syfre : Page créée avec « <source lang='delphi'>procedure PushShareContext;</source> Cette procédure empile le contexte de partage. {|class="wikitable" |- |Pas de paramètre |} '''Exemple :''' <s… »
2010-01-20T13:11:28Z
<p>Page créée avec « <source lang='delphi'>procedure PushShareContext;</source> Cette procédure empile le contexte de partage. {|class="wikitable" |- |Pas de paramètre |} '''Exemple :''' <s… »</p>
<p><b>Nouvelle page</b></p><div><source lang='delphi'>procedure PushShareContext;</source><br />
<br />
Cette procédure empile le contexte de partage. <br />
<br />
{|class="wikitable"<br />
|-<br />
|Pas de paramètre<br />
|}<br />
<br />
'''Exemple :'''<br />
<source lang='delphi'><br />
begin<br />
end;<br />
</source><br />
<br />
Voir aussi :<br />
*[[PopShareContext (CM)|PopShareContext]]<br />
<br />
{{Footer|Gestion du contexte de partage (CM)}}<br />
[[category:ClassManager]]<br />
[[category:CMSC]]<br />
[[category:Partage]]</div>
Syfre