« LoadFileFormatFromRepository (rtl) » : différence entre les versions
Aucun résumé des modifications |
Aucun résumé des modifications |
||
| 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 à 11:45
<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.
| 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
<source lang="delphi"> var aFormat : TFormatDefinitionFichier; begin
aFormat := nil;
ClassManager.BeginTran
try
LoadFileFormatFromRepository(aFormat,'GEN_VIRNAT_320',{header only}false);
Classmanager.Commit;
except
Classmanager.RollBack;
end;
end; </source>
Voir aussi:
{{#if:Développement DSM|
{{#if:Développement DSM|— Développement DSM |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}