par abdoulay » Mar Sep 29, 2009 3:26 pm
Bonjour,
je reviens avec un autre truc :
La procédure est la suivante :
PROCEDURE SélectionDonnées()
SI TableImport1.Colonne1 = "" ALORS
Info ("Veuillez saisir le fichier excel ")
RepriseSaisie(Sais_Fic)
FIN
i est un entier
x est un booléen
x=ChaîneCompare(Détail_import.Num_de_lot,TableImport1.Colonne1)
SI x = Faux ALORS
POUR i = 1 A TableOccurrence(TableImport1)
Détail_import.Num_de_lot = Colonne1[i]
Détail_import.Date_reception = ChaîneVersDate(Colonne2[i])
Détail_import.Réf_mat = Colonne3[i]
Détail_import.Qte_importée = Colonne4[i]
Détail_import.nomspécificité = Colonne5[i]
Détail_import.Nom_société = Colonne6[i]
HAjoute(Détail_import)
FIN
SINON
Erreur("Attention !!, la saisie de ce lot à été bien éffectuée, Veuillez mettre à jour le fichier EXCEL... ")
Ferme()
FIN
et sur le bouton import le code est le suivant :
SELON gbSélectionDonnées
CAS Vrai
Info("La sélection à déjà été effectuée !")
RETOUR
CAS Faux
SélectionDonnées()
gbSélectionDonnées = Vrai
FIN
//Affichage de la table fichier
TableAffiche(Table_Détail_import)
j'ai réussi pour l'élimination de la saisie des doublons et même si je selectionne un autre lot il y a une erreur qui s'affiche tous ca marche à merveille mais :
mone problème est que je reselectionne un même lot, la procédure d'import fait toujours sans travail sans sous soucier de la présence des doublons.
s'il y a quelqu'un qui peut m'aider...
merci pour votre soutien
bon dev.