Reply to this topicStart new topicStart Poll

> Premier numéro disponible dans une liste, Premier numéro disponible dans une liste
ChV17
Posted: 18/04/18 15:22
Quote Post


Ultra User
****

Group: Membre
Posts: 366
Member No.: 1213
Joined: 18/09/06
Submissions: None Submitted
Downloads: No Files Downloaded



Bonjour,

WABAL 1.1

Fichiers

Je voudrais créer une PROC qui me retournerait le premier numéro disponible parmi une liste existante dans un fichier.
J'ai un fichier client qui comporte un champ :

DCL CLE_CLI$=5

Les numéros vont de 0001 à 3000 actuellement avec plusieurs numéros absents (suppression au fil des années).

Je cherche une procédure simple qui permettrait de renvoyer une liste de quelques numéros disponibles (par exemple les 5 premiers) dans un tableau et l'utilisateur sélectionnerait le numéro désiré avec les touches de direction du clavier et validerait par entrée.

Le fichier étant déjà ouvert pour l’insertion d'un nouveau client par le programme.
C'est certainement simple, mais je ne voudrais pas tout planter...

J'aimerais avoir une piste à suivre.
Merci d'avance.

Christian

This post has been edited by ChV17 on 18/04/18 15:24
PM
Top
LLC
Posted: 18/04/18 15:57
Quote Post


Hyper User
*****

Group: Membre
Posts: 594
Member No.: 30
Joined: 18/06/02
Submissions: None Submitted
Downloads: 1



on peut deja commencer par le tableau des 5 valeurs :

CODE


proc 5firstclelibre():$=100
 dcl e%,valkle%,nbval%,valkle2%
dcl resultat$=100
 field=m,resultat
    dcl tabval$=5(20)

endloc
initlocal

cle_cli=chr$(0)
search=numlog,cle_cli....
down=numlog:next,e,...
valkle2=conv(cle_cli)
while (e=0) and (nbval<=5)

valkle=conv(cle_cli)
if abs(valkle-valkle2)>1
 nbval=nbval+1
 tabval(nbval)=valkle
endif
valkle2=conv(cle_cli)

down=numlog:next,e,...
wend
exit(resultat)
endproc


@+ ;-)
PMEmail PosterUsers Website
Top
ChV17
Posted: 19/04/18 12:04
Quote Post


Ultra User
****

Group: Membre
Posts: 366
Member No.: 1213
Joined: 18/09/06
Submissions: None Submitted
Downloads: No Files Downloaded



Merci, je vais étudier et essayer ça.
PM
Top
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

Topic Options Reply to this topicStart new topicStart Poll

 

webcron.org Get Firefox! prologue-community.org est monitoré par ikoula.fr Referenceur Gratuit www.prologue-community est mis en évidence sur internet grace à daubresse.fr
moteur de recherche - referencement
Conformément à l'article 34 de la loi "Informatique et Liberté" vous disposez d'un droit d'accès, de modification, de rectification et de suppression des données qui vous concernent.
Pour l'exercer, merci de nous contacter : CONTACT US

www.prologue-community.org n'est pas enregistré à la CNIL
www.prologue-community.org est hébergé sur visit.fr

www.prologue-community.org est indépendant de la société Prologue
Une grande partie des logiciels et outils cités sur www.prologue-community.org sont des produits et marques déposées par la société Prologue


MKPortal M1.1 Rc1 ©2003-2005 All rights reserved
Page generated in 0.03649 seconds with 2 queries