LoadFileFormatFromRepository (rtl)
De Wiki1000
(Différences entre les versions)
| 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. | ||
| Ligne 19 : | Ligne 19 : | ||
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 du 10 avril 2012 à 12:45
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.
| 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:
