ImportByFormatDef (rtl)

Procedure ImportbyFormatDef(const aCodeFormat:string; const aData:TStrings; aRefObject:TitObject; const aLogLevel:FormatLogLevel);

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

Paramètre	Usage
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

//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_SEPA_SCT_PAIN.001.001.03';
  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;

Voir aussi:

• ImportByFormatDefXmlSAX (rtl)

— Développement DSM — Développement DSM —