TImportContext (tech)

De Wiki1000

versionlatest-32x32.png

TImportContext est un objet technique permettant de manipuler l'import de données par un descriptif d'importation (.dip).

Propriétés

ImportMode Mode et options d'importation
ImportModeAsString Mode et options d'importation (format chaîne)
ShareMode Mode de partage
RootPath Chemin des contenus binaires
RenameFolder Chemin utilisé pour renommer le fichier source
StopOnExcept S'arrêter à la première erreur.
InsertedCount Nombre d'objet insérés
UpdatedCount Nombre d'objet mis à jour
FailedCount Nombre d'objet en erreur
IgnoredCount Nombre d'objet ignorés
AdditionnalValues Valeurs additionnelles pouvant être importer dans la classe cible

Opérations

Execute Exécution de l'import

Exemple :

//Procedure TestImportContext;
var instB:WFClasseB; inst:TImportContext; ls:TStringList;
begin
  withP Transaction do
   begin
     instB := WFClasseB.Create;
     instB.unCode := 'B'+FormatDateTime('c',Now);
     instB.Caption := 'Session:'+instB.unCode;
   end;
 
  UserContext.BeginCapture;
  try
    inst := TImportContext.Create;
    inst.ShareMode.Value := ISM_DEFAULT;
    inst.ImportMode := miInsert+miUpdate+miDisableEvents;
    inst.AdditionalValues.Values['uneChaine'] := 'uneChaineValue';
    inst.AdditionalValues.Values['unEntier'] := 1;
    inst.AdditionalValues.Values['unEtat:AsVariant'] := WFCAState_Etat1;
    inst.AdditionalValues.Values['oidWFClasseBRef'] := instB.InstanceOID;
    //
    Result := inst.Execute('testimport-wfclassea.dip','c:\temp\exports\wfclassea.txt');
 
    ls := TStringList.Create;
    UserContext.GetMessages(ls);
    ShowMessage(ls.Text);
 
    ShowMessage(Format('%d objets importés',[inst.InsertedCount]));
  finally
  UserContext.EndCapture;
  end;
end;

Voir aussi:





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels