Re: Gerer les doublon dans fichier HyperFile
Posté par drcharly93 le 16/6/2006 19:16:47
Bonjour,
Pour chaque produit à rentrer il faut d'abord tester si il n'existe pas.
Mon fichier est composé de
Nom Type Taille Cle
==================================================
ar_IdArticle IdAuto CleUnique
ar_CodeArticle Texte 20 Cle avec doublon
ar_Designation Texte 50 Cle avec doublon
Dans la déclaration de ma fenetre, on déclare une structure
Pour chaque produit à rentrer il faut d'abord tester si il n'existe pas.
Mon fichier est composé de
Nom Type Taille Cle
==================================================
ar_IdArticle IdAuto CleUnique
ar_CodeArticle Texte 20 Cle avec doublon
ar_Designation Texte 50 Cle avec doublon
Dans la déclaration de ma fenetre, on déclare une structure
StructureArticle est une structure
Code est une chaine
Designation est une chaine
//Renseigner ici si d'autre membre
Fin
sFichier est une chaine = "Article"
sCleParcours est une chaine = "ar_CodeArticle"
sUneLigne est une chaine
st est un StructureArticle
BOUCLE
sUneLigne = GetLigne(st) //Proc pour récupérer chaque ligne
//Cette procedure rempli la structure st
Si sUneLigne = EOT alors Sortir
Si HlitRecherche(sFichier, sCleParcours, st:Code) Alors
//On traite ici en mode modification
// ....
//Mise a jour des reubrique du fichier
{sFichier + ".ar_Designation"} = st:Designation
//....
HModifie(sFichier)
Sinon
//en mode ajout d'article
// Faire les affectations
{sFichier + ".ar_CodeArticle"} = st:Code
{sFichier + ".ar_Designation"} = st:Designation
HAjoute(sFichier)
Fin
Fin
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4221&post_id=17364