Wiki1000 - Contributions [fr]

ImportByFormatDef (rtl)

2012-03-22T08:26:30Z

Thdym :

<source lang="delphi">Procedure IntegrateByFormatDef(const aCodeFormat:string; const aData:TStrings; aRefObject:TitObject; const aLogLevel:FormatLogLevel);</source>

Cette méthode permet d'importer un fichier en utilisant un format.

{|class="wikitable"
|-
|aCodeFormat
|Code du format à utiliser pour l'import.
|-
|aData
|Contenu du fichier à importer.
|-
|aRefObject
|Objet racine tous les objets qui seront créés.
|-
|aLogLevel
|Niveau de journalisation.
|}

Le journal généré se situe dans répertoire [container L1000]/logs

Trois niveaux de journalisation sont possibles :

*Format_Log_Level_None
:aucune trace
*Format_Log_Level_Data_Errors
:trace les erreurs d'accès au données (formule erronée...) utile pour la mise au point des nouveaux formats
*Format_Log_Level_Verbose
:trace l'exploration du fichier / du modèle (trace importante en taille) + Format_Log_Level_Data_Errors

Exemple

<source lang="delphi">
//Procedure _doImport;
var
vFormatCode : String;
vFormatIntegrationFichier : TFormatIntegrationFichier;
vidxRem : Integer;
vTimeOrg : LongInt;
vTimeInt : LongInt;
vTimeLst : LongInt;
vTimeCom : LongInt;
vTrackingMode : FormatLogLevel;
begin
// Locate the format definition
// Recherche du format en dur
vFormatCode := 'INT_VIRNAT_160';
vFormatIntegrationFichier := TFormatIntegrationFichier.Find('(code=%1)','',true,[vFormatCode]);

// Set logging mode
if estVerbeux then
vTrackingMode := Format_Log_Level_Verbose
else
vTrackingMode := Format_Log_Level_None;

if Assigned(vFormatIntegrationFichier) then
begin
// Start a long transaction
ClassManager.BeginLongTran(1,'TImportRemiseBancaire');
try
CreerSessionImport;

// Load the source file in a TStrings
ProgressMessage(Format(_TP('Chargement du fichier %s.'),[FichierImport]));
content.LoadFromFile(FichierImport);

vTimeOrg := GetTickCount;
ProgressMessage(Format(_TP('Intégration du fichier %s.'),[FichierImport]));

// Import the source file here
ImportbyFormatDef(vFormatIntegrationFichier.GetFileFormatNameRef,Content.Strings,self,vTrackingMode);

vTimeInt := GetTickCount;
ProgressMessage(Format(_TP('Intégration en %s ms.'),[TickToString(vTimeInt-vTimeOrg)]));

ProgressMessage(_TP('Fermeture de la transaction.'));

ClassManager.CommitlongTran;
vTimeCom := GetTickCount;
ProgressMessage(Format(_TP('Clôture transaction en %s Ms, sur un total de %s Ms.'),[TickToString(vTimeCom-vTimeLst),TickToString(vTimeCom-vTimeOrg)]));
except
ClassManager.RollBacklongTran;
ProgressMessage(Format(_TP('Erreur d''import : %s'),[e.Message]));
raise;
end;
end
else
ERule.Create(Format(_TP('Le format %s n''a pas été trouvé.'),[vFormatCode]));
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Framework]]
[[Category:RTL Format de fichier]]

ImportByFormatDef (rtl)

2012-01-11T10:52:24Z

Thdym :

<source lang="delphi">Procedure IntegrateByFormatDef(const aCodeFormat:string; const aData:TStrings; aRefObject:TitObject; const aLogLevel:FormatLogLevel);</source>

Cette méthode permet d'importer un fichier en utilisant un format.

{|class="wikitable"
|-
|aCodeFormat
|Code du format à utiliser pour l'import.
|-
|aData
|Contenu du fichier à importer.
|-
|aRefObject
|Objet racine tous les objets qui seront créés.
|-
|aLogLevel
|Niveau de journalisation.
|}

Le journal généré se situe dans répertoire [container L1000]/logs

Trois niveaux de journalisation sont possibles :

*Format_Log_Level_None
:aucune trace
*Format_Log_Level_Data_Errors
:trace les erreurs d'accès au données (formule erronée...) utile pour la mise au point des nouveaux formats
*Format_Log_Level_Verbose
:trace l'exploration du fichier / du modèle (trace importante en taille) + Format_Log_Level_Data_Errors

Exemple

<source lang="delphi">
//Procedure _doImport;
var
vFormatCode : String;
vFormatIntegrationFichier : TFormatIntegrationFichier;
vidxRem : Integer;
vTimeOrg : LongInt;
vTimeInt : LongInt;
vTimeLst : LongInt;
vTimeCom : LongInt;
vTrackingMode : Integer;
begin
// Locate the format definition
// Recherche du format en dur
vFormatCode := 'INT_VIRNAT_160';
vFormatIntegrationFichier := TFormatIntegrationFichier.Find('(code=%1)','',true,[vFormatCode]);

// Set logging mode
if estVerbeux then
vTrackingMode := Format_Log_Level_Verbose
else
vTrackingMode := Format_Log_Level_None;

if Assigned(vFormatIntegrationFichier) then
begin
// Start a long transaction
ClassManager.BeginLongTran(1,'TImportRemiseBancaire');
try
CreerSessionImport;

// Load the source file in a TStrings
ProgressMessage(Format(_TP('Chargement du fichier %s.'),[FichierImport]));
content.LoadFromFile(FichierImport);

vTimeOrg := GetTickCount;
ProgressMessage(Format(_TP('Intégration du fichier %s.'),[FichierImport]));

// Import the source file here
ImportbyFormatDef(vFormatIntegrationFichier.GetFileFormatNameRef,Content.Strings,self,vTrackingMode);

vTimeInt := GetTickCount;
ProgressMessage(Format(_TP('Intégration en %s ms.'),[TickToString(vTimeInt-vTimeOrg)]));

ProgressMessage(_TP('Fermeture de la transaction.'));

ClassManager.CommitlongTran;
vTimeCom := GetTickCount;
ProgressMessage(Format(_TP('Clôture transaction en %s Ms, sur un total de %s Ms.'),[TickToString(vTimeCom-vTimeLst),TickToString(vTimeCom-vTimeOrg)]));
except
ClassManager.RollBacklongTran;
ProgressMessage(Format(_TP('Erreur d''import : %s'),[e.Message]));
raise;
end;
end
else
ERule.Create(Format(_TP('Le format %s n''a pas été trouvé.'),[vFormatCode]));
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Framework]]
[[Category:RTL Format de fichier]]

Environnement des tests unitaires (testsuite)

2011-12-13T13:29:32Z

Thdym :

Une bonne pratique consiste à exécuter les tests unitaires dans un Dossier de test qui présente la particularité de n'être pas rattaché à une base de données.

A l'intérieur de ce dossier vos premiers tests enregistreront et créeront une base de données puis initialiseront cette base des données de test. Ainsi vos tests s'exécuteront dans un environnement isolé et stable qui garantira la reproductibilité.

Pour ce faire :

1. Créer un dossier de test dans l'administration en cochant l'option "Ce dossier est un dossier de test" sur la page de sélection de la base de données.

2. A l'intérieur de vos tests définissez une première classe de test dont la responsabilité est de :

:* Enregistrer une base de données dont le nom est unique et lié à votre session de test.
:* Supprimer cette base de données
:* Créer cette base de données
:* Synchroniser cette base de données
:* Exécuter un script d'initialisation sur cette base de données
:* Initialiser cette base de données

Créer ensuite vos donner de test.

Actuellement, il est recommandé d'intégrer à votre application le module "Module Test Suite - Core" si vous souhaiter utiliser cette fonctionnalité, ce module contenant la classe de test fourni dans cet article.

{{#images:image9.png|dsm\designer\testsuite}}

L'arborescence des tests doit être organisée de sorte que ces tests d'initialisation soient exécutés en premier, utilisé l'ordre du nom de test pour ceci.

Le code de ces tests sera le suivant :

<source lang="delphi">
//Procedure Test_0_RegisterDatabase;
var dbi:TDatabaseInfo;
begin
Abort(GlbTestSuiteEnvName<>'','Test environnement not set');
Abort(GlbTestSuiteDatabaseName<>'','Test database name not set');
dbi := ClassManager.RegisterTestDatabase(GlbTestSuiteEnvName,GlbTestSuiteDatabaseName);
Abort(Assigned(dbi),'Register database failed');
ClassManager.defDatabaseURL := dbi.URL;
end;

//Procedure Test_1_drop_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.DropDatabase(dbi),'Drop database failed');
end;

//Procedure Test_2_create_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.CreateDatabase(dbi),'Create database failed');
end;

//Procedure Test_3_sync_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.SyncDatabase(dbi),'Sync database failed');
end;

//Procedure Test_4_execute_script;
var dbi:TDatabaseinfo;errorMsg:string;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.ExecuteTestSuiteScript(dbi,GlbTestSuiteEnvName,errorMsg),errorMsg);
end;

//Procedure Test_5_init_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.InitDatabase(dbi),'Init database failed');
end;

</source>

Les paramètres GlbTestSuiteEnvName et GlbTestSuiteDatabaseName font référence à des paramètres du contexte qui peuvent être défini au niveau des préférences du concepteur de modèle :

{{#images:image10.png|dsm\designer\testsuite}}

GlbTestSuiteEnvName
:Nom d'un contexte de test, [[Contexte de test unitaire (testsuite)|le contexte]] défini les paramètres de la base de données.
A noter que cet environnement peut contenir le script nécessaire à l'initialisation de la base. Il est IMPÉRATIF de n'employer cette possibilité uniquement si c'est réellement nécessaire, auquel cas il doit être le plus court possible.

GlbTestSuiteDatabaseName
:Nom de la base de données

Voir aussi :

* [[Contexte de test unitaire (testsuite)|Contexte de test unitaire]]
* [[RegisterTestDatabase (CM)|RegisterTestDatabase]]
* [[DropDatabase (CM)|DropDatabase]]
* [[CreateDatabase (CM)|CreateDatabase]]
* [[SyncDatabase (CM)|SyncDatabase]]
* [[InitDatabase (CM)|InitDatabase]]
* [[SelectSociety (CM)|SelectSociety]]

[[Category:Tests unitaires]]

Environnement des tests unitaires (testsuite)

2011-12-13T13:26:32Z

Thdym :

Une bonne pratique consiste à exécuter les tests unitaires dans un Dossier de test qui présente la particularité de n'être pas rattaché à une base de données.

A l'intérieur de ce dossier vos premiers tests enregistreront et créeront une base de données puis initialiseront cette base des données de test. Ainsi vos tests s'exécuteront dans un environnement isolé et stable qui garantira la reproductibilité.

Pour ce faire :

1. Créer un dossier de test dans l'administration en cochant l'option "Ce dossier est un dossier de test" sur la page de sélection de la base de données.

2. A l'intérieur de vos tests définissez une première classe de test dont la responsabilité est de :

:* Enregistrer une base de données dont le nom est unique et lié à votre session de test.
:* Supprimer cette base de données
:* Créer cette base de données
:* Synchroniser cette base de données
:* Exécuter un script d'initialisation sur cette base de données
:* Initialiser cette base de données

Créer ensuite vos donner de test.

Actuellement, il est recommandé d'intégrer à votre application le module "Module Test Suite - Core" si vous souhaiter utiliser cette fonctionnalité, ce module contenant la classe de test fourni dans cet article.

{{#images:image9.png|dsm\designer\testsuite}}

L'arborescence des tests doit être organisée de sorte que ces tests d'initialisation soient exécutés en premier, utilisé l'ordre du nom de test pour ceci.

Le code de ces tests sera le suivant :

<source lang="delphi">
//Procedure Test_0_RegisterDatabase;
var dbi:TDatabaseInfo;
begin
Abort(GlbTestSuiteEnvName<>'','Test environnement not set');
Abort(GlbTestSuiteDatabaseName<>'','Test database name not set');
dbi := ClassManager.RegisterTestDatabase(GlbTestSuiteEnvName,GlbTestSuiteDatabaseName);
Abort(Assigned(dbi),'Register database failed');
ClassManager.defDatabaseURL := dbi.URL;
end;

//Procedure Test_1_drop_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.DropDatabase(dbi),'Drop database failed');
end;

//Procedure Test_2_create_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.CreateDatabase(dbi),'Create database failed');
end;

//Procedure Test_3_sync_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.SyncDatabase(dbi),'Sync database failed');
end;

//Procedure Test_4_execute_script;
var dbi:TDatabaseinfo;errorMsg:string;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.ExecuteTestSuiteScript(dbi,GlbTestSuiteEnvName,errorMsg),errorMsg);
end;

//Procedure Test_5_init_database;
var dbi:TDatabaseinfo;
begin
dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
Check(Assigned(dbi),'No database context');
Abort(ClassManager.InitDatabase(dbi),'Init database failed');
end;

</source>

Les paramètres GlbTestSuiteEnvName et GlbTestSuiteDatabaseName font référence à des paramètres du contexte qui peuvent être défini au niveau des préférences du concepteur de modèle :

{{#images:image10.png|dsm\designer\testsuite}}

GlbTestSuiteEnvName
:Nom d'un contexte de test, [[Contexte de test unitaire (testsuite)|le contexte]] défini les paramètres de la base de données.

GlbTestSuiteDatabaseName
:Nom de la base de données

Voir aussi :

* [[Contexte de test unitaire (testsuite)|Contexte de test unitaire]]
* [[RegisterTestDatabase (CM)|RegisterTestDatabase]]
* [[DropDatabase (CM)|DropDatabase]]
* [[CreateDatabase (CM)|CreateDatabase]]
* [[SyncDatabase (CM)|SyncDatabase]]
* [[InitDatabase (CM)|InitDatabase]]
* [[SelectSociety (CM)|SelectSociety]]

[[Category:Tests unitaires]]

CalCleIBan (rtl)

2011-11-15T10:05:00Z

Thdym :

<source lang='delphi'>Function CalCleIBan(const iCodePays:String; const iCodeCompte:String):String;</source>

Cette fonction calcule une clé de contrôle suivant la norme IBAN

IBAN est l'abréviation de International Bank Account Number. Il s'agit d'une norme développée
par l'ISO (International Organization for Standardization) et l'ECBS (European Committee for
Banking Standards) pour la représentation d'identifications de banques et de numéros de comptes.

L'IBAN est composée des éléments suivants :

code de pays à 2 positions alphabétiques (LL)
chiffre de contrôle (CC) à 2 positions numériques portant sur l'ensemble de l'IBAN
Basic Bank Account Number (BBAN) de 30 positions au maximum, renfermant l'identification de l'établissement financier (IID) et du Bank Account Number (BAN).

{|class="wikitable"
|-
|Result
|Retourne la valeur de la clé IBAN sous forme d'une chaîne de caractère.
|-
|iCodePays
|Code ISO du pays.
|-
|iCodeCompte
|Code compte IBAN.
|}

La valeur de CodeCompte doit être CodeBanque+CodeGuichet+CodeCompte+cleRIb pour calculé une clé IBAN française (ici alias de numéro de compte BBAN).

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Métier]]

Format de génération de fichier plat

2011-11-15T09:58:48Z

Thdym :

[[Fichier:def_format_genplat_5.jpg|formats]]

==Attributs du format spécifiques==

==Attributs de la balise spécifiques==

'''Fin de balise'''
* Séparateur : insère le caractère paramétré à l'issue de l'exploration de cette balise
* Fin de ligne : insère un retour chariot à l'issue de l'exploration de cette balise

Exemple :
[[Fichier:def_format_genplat_4.jpg|formats]]

==Attributs de la donnée spécifiques==

'''Mode padding droite''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à droite.

'''Mode padding gauche''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à gauche.

[[Category:RTL Format de fichier]]
[[Category:Tahoe]]

Fichier:Def format genplat 4.jpg

2011-11-15T09:58:03Z

Thdym : Exemple écran génération fichier plat avec annotation.

Exemple écran génération fichier plat avec annotation.

Format de génération de fichier plat

2011-11-15T09:39:26Z

Thdym :

[[Fichier:def_format_genplat_5.jpg|formats]]

==Attributs du format spécifiques==

==Attributs de la balise spécifiques==

'''Fin de balise'''
* Séparateur : insère le caractère paramétré à l'issue de l'exploration de cette balise
* Fin de ligne : insère un retour chariot à l'issue de l'exploration de cette balise

Exemple :
{{#images:def_format_4.png|formats}}

==Attributs de la donnée spécifiques==

'''Mode padding droite''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à droite.

'''Mode padding gauche''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à gauche.

[[Category:RTL Format de fichier]]
[[Category:Tahoe]]

Fichier:Def format genplat 5.jpg

2011-11-15T09:35:58Z

Thdym : Exemple format génération plat

Exemple format génération plat

Format de génération de fichier plat

2011-11-15T09:29:11Z

Thdym : Annulation des modifications 6005 de Thdym (discussion)

{{#images:def_format_5.png|formats}}

==Attributs du format spécifiques==

==Attributs de la balise spécifiques==

'''Fin de balise'''
* Séparateur : insère le caractère paramétré à l'issue de l'exploration de cette balise
* Fin de ligne : insère un retour chariot à l'issue de l'exploration de cette balise

Exemple :
{{#images:def_format_4.png|formats}}

==Attributs de la donnée spécifiques==

'''Mode padding droite''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à droite.

'''Mode padding gauche''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à gauche.

[[Category:RTL Format de fichier]]
[[Category:Tahoe]]

Format de génération de fichier plat

2011-11-15T09:28:20Z

Thdym :

{{#images:Def_format_genplat_5.png|formats}}

==Attributs du format spécifiques==

==Attributs de la balise spécifiques==

'''Fin de balise'''
* Séparateur : insère le caractère paramétré à l'issue de l'exploration de cette balise
* Fin de ligne : insère un retour chariot à l'issue de l'exploration de cette balise

Exemple :
{{#images:def_format_4.png|formats}}

==Attributs de la donnée spécifiques==

'''Mode padding droite''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à droite.

'''Mode padding gauche''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à gauche.

[[Category:RTL Format de fichier]]
[[Category:Tahoe]]

Fichier:Def format genplat 5.png

2011-11-15T09:27:40Z

Thdym : Exemple format de génération plat

Exemple format de génération plat

Format de génération de fichier plat

2011-11-15T09:18:51Z

Thdym :

{{#images:Def_format_5.png|formats}}

==Attributs du format spécifiques==

==Attributs de la balise spécifiques==

'''Fin de balise'''
* Séparateur : insère le caractère paramétré à l'issue de l'exploration de cette balise
* Fin de ligne : insère un retour chariot à l'issue de l'exploration de cette balise

Exemple :
{{#images:def_format_4.png|formats}}

==Attributs de la donnée spécifiques==

'''Mode padding droite''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à droite.

'''Mode padding gauche''' : si la donnée retournée est plus courte que la longueur paramétrée, elle complétée par le caractère de padding à gauche.

[[Category:RTL Format de fichier]]
[[Category:Tahoe]]

Fichier:Def format 5.png

2011-11-15T09:15:07Z

Thdym : Exemple écran génération fichier plat

Exemple écran génération fichier plat

ImportByFormatDef (rtl)

2011-11-15T09:04:32Z

Thdym :

<source lang="delphi">Procedure IntegrateByFormatDef(const aCodeFormat:string; const aData:TStrings; aRefObject:TitObject; const aLogLevel:FormatLogLevel);</source>

Cette méthode permet d'importer un fichier en utilisant un format.

{|class="wikitable"
|-
|aCodeFormat
|Code du format à utiliser pour l'import.
|-
|aData
|Contenu du fichier à importer.
|-
|aRefObject
|Objet racine tous les objets qui seront créés.
|-
|aLogLevel
|Niveau de journalisation.
|}

Le journal généré se situe dans répertoire [container L1000]/logs

Trois niveaux de journalisation sont possibles :

*Format_Log_Level_None
:aucune trace
*Format_Log_Level_Data_Errors
:trace les erreurs d'accès au données (formule erronée...) utile pour la mise au point des nouveaux formats
*Format_Log_Level_Verbose
:trace l'exploration du fichier / du modèle (trace importante en taille) + Format_Log_Level_Data_Errors

Exemple

<source lang="delphi">
//Procedure _doImport;
var
vFormatCode : String;
vFormatIntegrationFichier : TFormatIntegrationFichier;
vidxRem : Integer;
vTimeOrg : LongInt;
vTimeInt : LongInt;
vTimeLst : LongInt;
vTimeCom : LongInt;
vTrackingMode : Integer;
begin
// Locate the format definition
// Recherche du format en dur
vFormatCode := 'INT_VIRNAT_160';
vFormatIntegrationFichier := TFormatIntegrationFichier.Find('(code=%1)','',true,[vFormatCode]);

// Set logging mode
if estVerbeux then
vTrackingMode := Format_Log_Level_Verbose
else
vTrackingMode := Format_Log_Level_None;

if Assigned(vFormatIntegrationFichier) then
begin
// Start a long transaction
ClassManager.BeginLongTran(1,'TImportRemiseBancaire');
try
CreerSessionImport;

// Load the source file in a TStrings
ProgressMessage(Format(_TP('Chargement du fichier %s.'),[FichierImport]));
content.LoadFromFile(FichierImport);

vTimeOrg := GetTickCount;
ProgressMessage(Format(_TP('Intégration du fichier %s.'),[FichierImport]));

// Import the source file here
ImportbyFormatDef(vFormatIntegrationFichier.GetFileFormatNameRef,Content.Strings,self,vTrackingMode);

vTimeInt := GetTickCount;
ProgressMessage(Format(_TP('Intégration en %s ms.'),[TickToString(vTimeInt-vTimeOrg)]));

//<<Début section ancien modèle avant Tahoe, désormais inutile car la session est affectée automatiquement
//A noter que si l'on ne veut pas garder les données -: vider la liste & rollback
ProgressMessage(Format(_TP('Ajout des %s remises dans la session.'),[IntToStr(ListeRemise.Count]));
vTimeLst := GetTickCount;
for vIdxRem := 0 to ListeRemise.Count-1 do
SessionImportation.ImportDonneeList.Addref(ListeRemise.Refs[vIdxRem]);

listeRemise.Clear;
ProgressMessage(Format(_TP('Liste des données créées en %s ms.'),[TickToString(vTimeLst-vTimeInt)]));
//Fin de section optionnelle>>
ProgressMessage(_TP('Fermeture de la transaction.'));

ClassManager.CommitlongTran;
vTimeCom := GetTickCount;
ProgressMessage(Format(_TP('Clôture transaction en %s Ms, sur un total de %s Ms.'),[TickToString(vTimeCom-vTimeLst),TickToString(vTimeCom-vTimeOrg)]));
except
ClassManager.RollBacklongTran;
ProgressMessage(Format(_TP('Erreur d''import : %s'),[e.Message]));
raise;
end;
end
else
ERule.Create(Format(_TP('Le format %s n''a pas été trouvé.'),[vFormatCode]));
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Framework]]
[[Category:RTL Format de fichier]]

Guide des formats

2011-09-12T06:31:06Z

Thdym : /* Gestion des formats */

{{new|tahoe}}

Les formats de fichier permettent de décrire les correspondances entre une structure de données et un modèle métier. Une fois cette correspondance établie il est possible d'importer ou d'exporter les fichiers correspondants à cette structure.

==Vue globale==

{{#images:apres_tahoe.jpg|formats}}

==Administration==

Les formats sont stockés dans le référentiel.

{{#images:admin1.jpg|formats}}

===Filtres de caractères ===

{{#images:admin_format_gen_xml_2.png|formats}}

Pour les formats de génération, il est possible de filtrer les données écrites dans le fichier généré.

Pour cela, quatre choix sont possibles.

* Aucun
* CFONB : [[TextToCFONBText_(rtl)|Voir le fonctionnement du filtre]]
* EDI : [[TextToEDIText_(rtl)|Voir le fonctionnement du filtre]]
* Personnalisé : Pour chaque caractère de la chaîne à filtrer, si le caractère appartient à la liste des caractères autorisés il n’est pas filtré sinon on enlève ses éventuels accents, si le caractère sans accent n’appartient toujours pas à la liste des caractères autorisés, il est remplacé par un blanc.

Exemple de filtre personnalisé : Caractères autorisés « abcde »

« aa » --> « aa »

« azza » --> « a a »

« aéèêa » --> « aeeea »

===Schémas===

{{#images:admin_format_gen_xml_3.png|formats}}

Pour les formats de type xml, un schéma (fichier xsd) est requis à l'exécution.

Lorsque le schéma est chargé, il apparaît (lui ainsi que les schémas qu'il référence éventuellement)

{{#images:admin_format_int_xml_2.png|formats}}

==Mise en œuvre==

===Importer un fichier===

L'importation d'un fichier en utilisant un format de définition peut s'effectuer

* Dans un processus métier par script métier

Utiliser la méthode d'[[ImportByFormatDef (rtl)|importation de fichier en utilisant un format]].

* A partir de l'assistant d'importation
Cochez "Format de fichier" puis sélectionner le format de définition souhaité.

{{#images:format7.png|formats}}

{{tip|En général l'importation de fichier structuré complexe nécessite un processus pour transformer et compléter les informations de sorte que cette méthode utilisant l'assistant d'importation est rarement utilisable.}}

===Exporter un fichier===

Utiliser la méthode de [[ExportByFormatDef (rtl)|génération de fichier en utilisant un format]].

==Gestion des formats==

Si les formats sont stockés sous forme xml dans le référentiel pour des raisons de performance, la définition des formats s'effectue dans une base métier. (La conception d'un format peut ainsi s'effectuer en web).

Ainsi, il est nécessaire d'enregistrer le format dans le référentiel pour que les modifications apportées soient prises en compte lors de l'exécution.

{{#images:SCRFORMGENXML_ACTION.png|formats}}

Utiliser les interfaces utilisateurs situées dans le menu "Outils/Définition des formats"

{{#images:format1.png|formats}}

{{#images:format2.png|formats}}

Pour créer un format utilisez l'assistant de création de format :

{{#images:format6.png|formats}}

{{tip|La duplication est une solution simple pour apporter des modifications à format système}}

Voir aussi :

[[Reference_format_fichier|Référence des formats de fichiers]]

[[Category:RTL Format de fichier]]
[[Category:Tahoe]]

Fichier:SCRFORMGENXML ACTION.png

2011-09-12T06:28:56Z

Thdym :