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) |