Bonjour à tous, j'ai un problème d'affichage, je vous explique, j'ai une procédure globale avec laquelle j'ai la possibilité d'importer un fichier, et les données de ce fichier doivent s'afficher dans des tables.
Mon problème je pense est due à un rafraichissement mais je ne trouve pas la solution.
Tout se passe bien mais rien ne s'affiche. En revanche si je ferme mon application et que je l'ouvre mes données s'affichent bien.
Voici le code de ma procédure globale, celle ci est appelé au clic du bouton importer.
En vous remerciant pour votre aide
PROCÉDURE RemplirPivot1() Info("Début de la procédure RemplirPivot") Sfichier est une chaîne = fSélecteur("", "", "Sélectionnez un fichier...", "Tous les fichiers (*.*)" + TAB + "*.*", "*.*") SI Sfichier = "" ALORS // Si l'utilisateur clique sur annuler l'explorateur de document se ferme RETOUR FIN bddImport est un xlsDocument = xlsOuvre(Sfichier) bddImport..Feuille = 1
//Récupération données table article
POUR i = 2 _À_ bddImport..NombreLigne IDArticle est une chaîne = xlsDonnée(bddImport, i,2) SI Articles.IDARTICLE <> "" ALORS HLitRecherchePremier(Articles, IDARTICLE, IDArticle) SI HTrouve() ALORS Articles.ENTITE = xlsDonnée(bddImport, i,1) Articles.OWNNUMBER_IDUNIQUE_ALIAS = xlsDonnée(bddImport, i, 3) Articles.FREQ = xlsDonnée(bddImport, i, 4) Articles.CODE_ARTICLE = xlsDonnée(bddImport, i, 5) Articles.NOM_ARTICLE = xlsDonnée(bddImport, i, 6) Articles.DESCRIPTION = xlsDonnée(bddImport, i, 7) Articles.MARQUE = xlsDonnée(bddImport, i, 9) Articles.LIB_MARQUE = xlsDonnée(bddImport, i, 11) Articles.REF_MARQUE = xlsDonnée(bddImport, i, 13) Articles.CAT1 = xlsDonnée(bddImport, i, 15) Articles.CAT2 = xlsDonnée(bddImport, i, 16) Articles.CAT3 = xlsDonnée(bddImport, i, 17) Articles.HAUTEUR = xlsDonnée(bddImport, i, 18) Articles.LARGEUR = xlsDonnée(bddImport, i, 19) Articles.PROFONDEUR = xlsDonnée(bddImport, i, 20) Articles.POIDS = xlsDonnée(bddImport, i, 21) Articles.IMAGE_FILENAME = xlsDonnée(bddImport, i, 22) Articles.CRE_DATE_TIME = xlsDonnée(bddImport, i, 23) Articles.UPD_DATE_TIME = xlsDonnée(bddImport, i, 24) Articles.DEL_DATE_TIME = xlsDonnée(bddImport, i, 25) Articles.PU_HT = xlsDonnée(bddImport, i, 26) HModifie(Articles) SINON Articles.ENTITE = xlsDonnée(bddImport, i,1) Articles.IDARTICLE = IDArticle Articles.OWNNUMBER_IDUNIQUE_ALIAS = xlsDonnée(bddImport, i, 3) Articles.FREQ = xlsDonnée(bddImport, i, 4) Articles.CODE_ARTICLE = xlsDonnée(bddImport, i, 5) Articles.NOM_ARTICLE = xlsDonnée(bddImport, i, 6) Articles.DESCRIPTION = xlsDonnée(bddImport, i, 7) Articles.MARQUE = xlsDonnée(bddImport, i, 9) Articles.LIB_MARQUE = xlsDonnée(bddImport, i, 11) Articles.REF_MARQUE = xlsDonnée(bddImport, i, 13) Articles.CAT1 = xlsDonnée(bddImport, i, 15) Articles.CAT2 = xlsDonnée(bddImport, i, 16) Articles.CAT3 = xlsDonnée(bddImport, i, 17) Articles.HAUTEUR = xlsDonnée(bddImport, i, 18) Articles.LARGEUR = xlsDonnée(bddImport, i, 19) Articles.PROFONDEUR = xlsDonnée(bddImport, i, 20) Articles.POIDS = xlsDonnée(bddImport, i, 21) Articles.IMAGE_FILENAME = xlsDonnée(bddImport, i, 22) Articles.CRE_DATE_TIME = xlsDonnée(bddImport, i, 23) Articles.UPD_DATE_TIME = xlsDonnée(bddImport, i, 24) Articles.DEL_DATE_TIME = xlsDonnée(bddImport, i, 25) Articles.PU_HT = xlsDonnée(bddImport, i, 26) HAjoute(Articles) FIN FIN // Récupération des données pour table pivot
RefFab est une chaîne = xlsDonnée(bddImport,i,13) // correspond à RefMarque corrigée MarqueFab est une chaîne = xlsDonnée(bddImport,i,9) // correspond à Marque corrigée Entite est une chaîne = xlsDonnée(bddImport,i,1) RefMag est une chaîne = "" RefDsh est une chaîne = "" RefNov est une chaîne = "" IdPiv est un entier = 2 SELON Entite CAS "Novelty" RefNov = xlsDonnée(bddImport,i,2) // la colonne 2 correspond à IdArticle CAS "Magnum" RefMag = xlsDonnée(bddImport,i,2) // la colonne 2 correspond à IdArticle CAS "Dushow" RefDsh = xlsDonnée(bddImport,i,2) // la colonne 2 correspond à IdArticle FIN SI RefFab <> "" //et MarqueFab <> "" alors // HLitRecherchePremier(Art_Pivot,MARQUE_REF,[MarqueFab,RefFab]) HLitRecherchePremier(Art_Pivot, REFERENCE, RefFab) SI HTrouve() = Vrai ALORS Art_Pivot.MARQUE = MarqueFab Art_Pivot.REFERENCE = RefFab SI RefNov <> "" ALORS Art_Pivot.ID_NOV = RefNov FIN SI RefMag <> "" ALORS Art_Pivot.ID_MAG = RefMag FIN SI RefDsh <> "" ALORS Art_Pivot.ID_DSH = RefDsh FIN HModifie(Art_Pivot) SINON Art_Pivot.MARQUE = MarqueFab Art_Pivot.REFERENCE = RefFab Art_Pivot.ID_NOV = RefNov Art_Pivot.ID_MAG = RefMag Art_Pivot.ID_DSH = RefDsh Art_Pivot.IDPiv = IdPiv HAjoute(Art_Pivot) FIN FIN FIN xlsFerme(bddImport) |