• Advertisement

Probleme de doublons [RESOLU]

Tout ce qui concerne la version 9 de windev
**Windev est une marque déposée de Pcsoft**

Probleme de doublons [RESOLU]

Messagepar abdoulay » Mer Sep 23, 2009 7:16 pm

Bonjour,

Suite à une modification de mon application au lieu de saisir directement les données j'ai fait la modification d'importer des données depuis un fichier excel.

Tous marche à merveille suite à l'aide de plusieurs windevien (je vous remercie).

Mais, mon probleme lors de l'importation de données sur une table donné est qu'il y a des doublons ce qui entraine des mauvaises résultats à la fin.

je veux que chaque fois que j'importe les mêmes données (cliquer sur le bouton import) il m'affiche un message montrant qu'il y a des doublons.

Merci Pour votre coopération.

bon dev
Dernière édition par abdoulay le Mar Oct 13, 2009 7:22 am, édité 1 fois.
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Advertisement

Re: Probleme de doublons

Messagepar morodashi » Mer Sep 23, 2009 8:24 pm

quand tu fait hajoute tu utilise l'option hverifiedoublon:

HAjoute(TonFichier,hVérifieDoublon)
Ma devise: "potius mori quam foedari" ou en Breton: Kentoc'h mervel eget bezañ saotret
Avatar de l’utilisateur
morodashi
Membre Confirmé
 
Messages: 790
Inscription: Mar Nov 06, 2007 10:53 am
Localisation: tours

Re: Probleme de doublons

Messagepar abdoulay » Jeu Sep 24, 2009 8:45 am

bonjour,

oui j'ai utilisé cette syntaxe mais pas de résultats.

la structure de ma table est la suivante :

- id import (clé primaire).
- Num de lot (clé secondaire).
- date reception.
- ref mat.(clé secondaire)
- qte.
- unité.(clé secondaire)
- fournisseur.(clé secondaire).
le code du bouton import est le suivant :
i est un entier
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
//Affichage de la table fichier
TableAffiche(Table_Détail_import)

Merci pour votre aide.

Bon dev
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Re: Probleme de doublons

Messagepar abdoulay » Ven Sep 25, 2009 8:41 am

Bonjour

y-a-t-il pas une réponse Pour que je puisse avancer dans mon projet.

Merci

Bon dev
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Re: Probleme de doublons

Messagepar Samifred » Ven Sep 25, 2009 9:07 am

Salut,

Les doublons doivent êtres isolés sur quelle rubrique ?
Cordialement, en espérant que ma collaboration soit profitable. Fred Image
PS: Il est important d'indiquer, dans la question, la version WD utilisée.
Note: Pas de question par MP, merci.
Avatar de l’utilisateur
Samifred
 
Messages: 3558
Inscription: Sam Nov 26, 2005 12:16 pm
Localisation: 128.0.0.0

Re: Probleme de doublons

Messagepar abdoulay » Ven Sep 25, 2009 9:38 am

Re,

sur toutes les données importées,j'explique autrement :

sur un lot donné (Lot 12/09) lorsque je clique sur le bouton import il va m'importer les donnés qui figurent dans le fichier pris en considération.
même si je clique 1000 fois il va m'importer 1000 fois les données je veux faire un systeme pour empecher l'utilisateur si même il appuie 2 fois par erreur il y aura seulement une seule importation des données.

j'espère que c'était claire dans mon explication.

Bon dev.
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Re: Probleme de doublons

Messagepar Samifred » Ven Sep 25, 2009 9:51 am

Bon expliqué comme ça c'est pas une question de doublons mais une question de double sélection.

Code: Tout sélectionner
gbSélectionDonnées est un booléen  = Faux //Variable globale au projet ou fenêtre

SELON gbSélectionDonnées
   CAS Vrai 
     Info("La sélection à déjà été effectuée !")
     RETOUR
  CAS Faux
     SélectionDonnées() //Procédure locale/globale de sélection des données
     gbSélectioDonnées = Vrai
FIN
Cordialement, en espérant que ma collaboration soit profitable. Fred Image
PS: Il est important d'indiquer, dans la question, la version WD utilisée.
Note: Pas de question par MP, merci.
Avatar de l’utilisateur
Samifred
 
Messages: 3558
Inscription: Sam Nov 26, 2005 12:16 pm
Localisation: 128.0.0.0

Re: Probleme de doublons

Messagepar abdoulay » Ven Sep 25, 2009 11:19 am

re
je pense que c'est ok pour cette procédure merci bcp

Bon dev
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Re: Probleme de doublons

Messagepar abdoulay » Ven Sep 25, 2009 12:31 pm

Re

y-a-t-il une autre méthode plus simple ?

sinon, pourrais-je avoir le code de la procédure SelectionDonnées je suis un peu débordé

Merci pour vous tous

Bon dev
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Re: Probleme de doublons

Messagepar abdoulay » Ven Sep 25, 2009 12:46 pm

re

Je vous demande cette aide car j'ai eu le probleme suivant :
Quand la fenetre est présente, la procédure marche trés bien mais quand je sors et je reprend la fenetre en question la procédure ne marche pas, cad l'utilisateur peut se tromper


bon dev
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Re: Probleme de doublons

Messagepar TheDuke » Ven Sep 25, 2009 1:00 pm

En ce moment c'est à toi de jouer sur ta variable : gbSélectionDonnées

La mettre à faux à l'ouverture de ta fenêtre par exple
TheDuke
SUPER MEMBRE
 
Messages: 1268
Inscription: Mer Nov 22, 2006 8:24 pm

Re: Probleme de doublons

Messagepar Samifred » Ven Sep 25, 2009 4:14 pm

abdoulay a écrit:Re

y-a-t-il une autre méthode plus simple ?

sinon, pourrais-je avoir le code de la procédure SelectionDonnées je suis un peu débordé

Merci pour vous tous

Bon dev


Le code de la procédure "SelectionDonnées" c'est à toi de l'écrire. Le code de ton deuxième post il me semble, non !
Cordialement, en espérant que ma collaboration soit profitable. Fred Image
PS: Il est important d'indiquer, dans la question, la version WD utilisée.
Note: Pas de question par MP, merci.
Avatar de l’utilisateur
Samifred
 
Messages: 3558
Inscription: Sam Nov 26, 2005 12:16 pm
Localisation: 128.0.0.0

Re: Probleme de doublons

Messagepar abdoulay » Lun Sep 28, 2009 7:59 am

Bonjour,

voici le code de la procédure :

PROCEDURE SélectionDonnées()
i est un entier
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]

SI ChaîneCompare(TableImport1.Colonne1,Détail_import.Num_de_lot)ALORS
TableImport1.Colonne1 =Détail_import.Num_de_lot
Erreur("Attention !!, la saisie de ce lot à été bien éffectuée ")
RETOUR
FIN
HAjoute(Détail_import)
FIN

et le code du bouton import :
SELON gbSélectionDonnées
CAS Vrai
Info("La sélection à déjà été effectuée !")
RETOUR
CAS Faux
SélectionDonnées() //Procédure locale/globale de sélection des données
gbSélectionDonnées = Vrai
FIN
//Affichage de la table fichier
TableAffiche(Table_Détail_import).

ca marche comme je veux.

Pouver me dire si la syntaxe est correcte.
Merci et bon dev
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Re: Probleme de doublons

Messagepar ouchehad » Lun Sep 28, 2009 5:00 pm

Bonjour,

Utilise la fonction "hlitrecherche" avant de faire Hajoute.

trouve est un boolen
trouve=Hlitrecherche(TabasedeDonnées,Taclé_dansLabase,ColonneExcel)
// NB : ColonneExcel : c'est la colonne qui contient les données identique à la rubrique clé dans ta base de données
if not trouve
// fait les affectation des rubrique ici
Hajoue(TabasedeDonnées)
else
// problème de doublons à gérer
// soit tu passe à l'enregistrement suivant soit tu mets un message de doublons
end

bon dév
ouchehad
Nouveau Membre
 
Messages: 28
Inscription: Dim Mai 27, 2007 11:34 pm

Re: Probleme de doublons

Messagepar 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.
abdoulay
Membre
 
Messages: 60
Inscription: Lun Jan 16, 2006 3:51 pm

Suivante


  • Advertisement

Retourner vers Forum windev 9

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Google [Bot] et 0 invités