Import de fiches d'immo d'une base access vers SAGE IMMO 100
Posté: Mer 28 Fév 2007 13:08
Salut,
J'ai fait des analyses et j'ai constaté que SAGE ne proposait aucun format parametrable pour les immos.Je me suis mis donc a developper une petite interface sous delphi pr importer mes données de ma abse access vers la Base d'immo de SAGE.
Mais lors de l'import il me dit à cahque fois viloation de clé meme si j'ai de doublons d'immos dans ma abse access.
J'ai lu la structure des fchiers de la ligne 100 mais je m'en sors je voudrais sa voir si' quelqu'un l'a déja fait de m'aider ou de me préciser les champs à renseigner obligatoirement lors du transfert.
Je mets egalement le bout de code pour analyse :table1 etant ma table access et table2 la table F_IMMOBILISATION de SAARI
J'ai fait des analyses et j'ai constaté que SAGE ne proposait aucun format parametrable pour les immos.Je me suis mis donc a developper une petite interface sous delphi pr importer mes données de ma abse access vers la Base d'immo de SAGE.
Mais lors de l'import il me dit à cahque fois viloation de clé meme si j'ai de doublons d'immos dans ma abse access.
J'ai lu la structure des fchiers de la ligne 100 mais je m'en sors je voudrais sa voir si' quelqu'un l'a déja fait de m'aider ou de me préciser les champs à renseigner obligatoirement lors du transfert.
Je mets egalement le bout de code pour analyse :table1 etant ma table access et table2 la table F_IMMOBILISATION de SAARI
- Code: Tout sélectionner
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Close;
table1.Open;
table2.Close;
table2.Open;
table1.First;
while not(table1.Eof) do
Begin
table2.Insert;
table2.FieldByName('im_code').Value:=table1.fieldbyname('im_code').AsString;
table2.FieldByName('im_intitule').Value:=table1.fieldbyname('im_intitule').AsString;
table2.FieldByName('fa_codefamille').Value:=table1.fieldbyname('fa_codefamille').AsString;
table2.FieldByName('li_no').Value:=table1.fieldbyname('li_no').AsString;
table2.FieldByName('im_valacq').Value:=table1.fieldbyname('im_valacq').AsFloat;
table2.FieldByName('im_dateacq').Value:=table1.fieldbyname('im_dateacq').AsDatetime;
table2.FieldByName('im_dateserv').Value:=table1.fieldbyname('im_dateserv').AsDatetime;
table2.FieldByName('im_quantite').Value:=table1.fieldbyname('im_quantite').AsInteger;
table2.FieldByName('im_qterestante').Value:=table1.fieldbyname('im_qterestante').AsInteger;
table2.FieldByName('im_natfisc').Value:=table1.fieldbyname('im_natfisc').AsInteger;
table2.FieldByName('im_natacq').Value:=1;
table2.FieldByName('im_etat').Value:=table1.fieldbyname('im_etat').AsInteger;
Table2.Post;
table1.next;
End;
showmessage('fin du traitement');
end;