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: