Delphi - creation d'une collection d'enregistrements sage (tcollection)

Description

Au gré des fusions et acquisitions, différents logiciels de paie et de comptabilité peuvent coexister temporairement. Il faut alors développer des outils de type ETL. En l'occurrence, il s'agissait de convertir des fichiers plats Arcole pour créer un pont paie Sage. Pour des raisons évidentes de confidentialité, il ne m'est pas possible de fournir le projet en démo. Néamoins, hormis la connaissance du dessin d'enregistrement Sage, l'unité fournie est un exemple simple et concret de création d'une collection et peut être utile.

Source / Exemple :


...

implementation

{$R *.dfm}

uses
  SageUnit;

procedure ConvertToSage;
begin

  ...

  //Création de la collection d'enregistrements Sage
  with TSageRecords.Create(TSageRecord) do
    try
      // Ajout d'un enregistrement (item #0)
      Add;
      // Type de données
      Items[0].DataType:=COMPTA_GEN;
      // Nom de la société
      Items[0].Company:='DUMMY';        
      // Date de la pièce
      Items[0].Col_02:=Copy(sLineText, 7, 2) + Copy(sLineText, 5, 2) + Copy(sLineText, 1, 2);
      ...

    finally
      Free;
    end;
end;

...

end.

Conclusion :


Seul le fichier joint est utilisable. L'extrait de style elliptique publié dans la source est simplifé à l'extrême et ne doit servir que de modèle.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.