LoadFileFormatFromRepository (rtl)

De Wiki1000
(Différences entre les versions)
 
(Une révision intermédiaire par un utilisateur est masquée)
Ligne 1 : Ligne 1 :
<source lang="delphi">procedure LoadFileFormatFromRepository(aFormat:TitObject; const aCodeFormat:string; aHeaderOnly:boolean);</source>
+
<source lang="delphi">procedure LoadFileFormatFromRepository(var aFormat:TitObject; const aCodeFormat:string; aHeaderOnly:boolean);</source>
  
 
Cette méthode permet de charger un format de fichier depuis le référentiel.
 
Cette méthode permet de charger un format de fichier depuis le référentiel.
  
 
{|class="wikitable"
 
{|class="wikitable"
 +
|-
 +
!Paramètre
 +
!Usage
 +
|-
 
|aFormat
 
|aFormat
 
|object métier de type TFormatDefinitionFichier
 
|object métier de type TFormatDefinitionFichier
Ligne 19 : Ligne 23 :
 
Les balises existantes liées au format sont supprimées et placées dans la transaction
 
Les balises existantes liées au format sont supprimées et placées dans la transaction
 
Aucun commit n'est effectué
 
Aucun commit n'est effectué
 +
 +
Si la variable aFormat a pour valeur nil, alors le format est crée, sinon aFormat est utilisé pour lire la sérialisation (utilise pour déployer un format dont seule l'en tête a été créée).
  
 
Exemple
 
Exemple
  
 
<source lang="delphi">
 
<source lang="delphi">
 +
var aFormat : TFormatDefinitionFichier;
 
begin
 
begin
 +
aFormat := nil;
 +
ClassManager.BeginTran
 +
try
 +
  LoadFileFormatFromRepository(aFormat,'GEN_VIRNAT_320',{header only}false);
 +
  Classmanager.Commit;
 +
except
 +
  Classmanager.RollBack;
 +
end;
 
end;
 
end;
 
</source>
 
</source>

Version actuelle en date du 4 novembre 2017 à 11:02

procedure LoadFileFormatFromRepository(var aFormat:TitObject; const aCodeFormat:string; aHeaderOnly:boolean);

Cette méthode permet de charger un format de fichier depuis le référentiel.

Paramètre Usage
aFormat object métier de type TFormatDefinitionFichier
aCodeFormat code du format dans le référentiel
aHeaderOnly vrai : ne charger que l'en tête du format ; faux : charger tout le format

Notes

Si une transaction est ouverte, elle est utilisée, sinon une transaction est ouverte Les balises existantes liées au format sont supprimées et placées dans la transaction Aucun commit n'est effectué

Si la variable aFormat a pour valeur nil, alors le format est crée, sinon aFormat est utilisé pour lire la sérialisation (utilise pour déployer un format dont seule l'en tête a été créée).

Exemple

var aFormat : TFormatDefinitionFichier;
begin
 aFormat := nil;
 ClassManager.BeginTran
 try
  LoadFileFormatFromRepository(aFormat,'GEN_VIRNAT_320',{header only}false);
  Classmanager.Commit;
 except
  Classmanager.RollBack;
 end;
end;

Voir aussi:

Développement DSMDéveloppement DSM

Outils personnels