Discussion :

[nanouille56]

Bonjour,

Je suis très nul en code mais j'ai un petit programme à faire en CR9.
J'explique:

J'ai un champ numéro de série qui normalement s'incrémente de 1 pour chaque produit d'une commande. Il arrive qu'il y a des trous pour la commande, c'est à dire qu'on passe du numéro 2 au 4 directement.
J'ai besoin d'afficher la valeur minimale et maximale de chaque numéro de série entre chaque trou;
exemple:
J'ai les numéros de 1 à 20 puis 22à 26
Et bien il faut que j'affiche 1 à 20, 22 à 26

Il faut donc que je fasse un petit code qui teste si le numéro de série s'incrémente bien de 1, si ce n'est pas le cas je dois afficher la première et dernière valeur de l'intervalle.
J'ai fait des essais mais j'y arrive pas. Y'aurait il un sauveur dans le coin SVP

Merci

[cdu]

salut,
en syntax crystal ça pourrait donner ça:

formule initvar, à placer un entête de groupe produit_par_commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
numbervar debut;
numbervar fin;
stringvar res;
debut:=0;
fin:=0;
res:="";

formule incremente, à placer dans le detail du groupe produit_par_commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
numbervar debut;
numbervar fin;
stringvar res;
if debut=0
   (debut:=detaildecommande.serie;
    fin:=detaildecommande.serie;
   )
else
  if (fin+1)=detaildecommande.serie
     fin:=detaildecommande.serie
  else
     (res:=totext(debut)+" à "+totext(fin)+"  ";
      debut:=detaildecommande.serie;
      fin:=detaildecommande.serie;)

il ne te reste qu'à afficher

[L.nico]

Impeccable Cdu , il manquait juste les Then.
j'ai ajouté un petit iif pour mettre la virgule entre chaque élément de réponse ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
numbervar debut; 
numbervar fin; 
stringvar res; 
if debut=0 then
   (debut:=detaildecommande.serie; 
    fin:=detaildecommande.serie; 
   ) 
else 
  if (fin+1)=detaildecommande.serie then
     fin:=detaildecommande.serie 
  else 
     (res:= iif(res="",""," , ") + totext(debut)+" à "+totext(fin)+"  "; 
      debut:=detaildecommande.serie; 
      fin:=detaildecommande.serie;)

[nanouille56]

Tout d'abord merci pour ton aide

Mais j'y arrive pas. En faites j'ai un seul groupe c'est ma commande . j'ai donc mis mon initvar dans mon entête de groupe et mon incrvar dans mon détail. j'ai ensuite créer une fonction affvar qui reprend la variable res pour l'afficher. mais ca ne fonctionne pas et quand je regarde le code j'ai l'impression que ça ne peut pas fonctionner comme ça .
Est ce qu'il faut que je crée une fonction affichage?

[cdu]

c'est possible que ça ne marche pas

j'ai mal compris ton attente, que veux-tu afficher et où ?

quand tu dis que ça ne marche pas, qu'est-ce qui ne marche pas et où? pour tester affiche les différentes variables à chaque ligne de ta section détail

[nanouille56]

Alors en faites ça marche à moitié.

J'ai donc créer une fonction affres:
stringvar res;
stringvar essai;
whileprintingrecords;
essai:=res;

Je l'ai mise dans mon détail et ça me donne bien le 1er interval 'De 1 à 284' mais ne me donne pas les autre intervals, qui doit être de '286 à 401'.
Si je mets mon n0série dans mon détail avec les 3 variables: res, debut, fin il me donne toujours la même chose pour n'importe quel n° de série sur les 3 variables c'est à dire res='De 1 à 284', debut ='286', fin='401'
Ai je bien placé l'initvar?

Donc ce que je veux afficher c'est pour ma commande avec des trous, visualiser en dessous:
min:1 max: 284
min:285 max:401. (Chaque numéro doit être indépendant car en format code à barre)
Pour une commande sans trou:
min:1 max:401 (aussi en code barre)

Il me semble qu'il me manque un groupe, l'idéal serait d'avoir affres en groupe mais c'est pas possible.

J'espère que je suis suffisament clair.

[cdu]

ma faute ....
il ya des erreurs dans les formules que je t'ai données :
1) je n'incrémente pas res mais le remplace donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

res:=res+totext(debut)+" à "+totext(fin)+"  ";

2) ensuite il faut aussi à penser à forcer l'incrémentation de res une fois arrivé en pied de groupe dans une formule séparée ou dans la formule d'affichage

[nanouille56]

Je ne comprends pas ta formule, c'est quoi ton et
Comment tu forces l'incrémentation?

Je suis désolé pour toutes ces questions mais je ne fais pas du tout de code donc des grosses lacunes.

[nanouille56]

salut, Me revoila

Bon ben après maintes et maintes essai, je n'y arrive toujours pas, est ce que quelqu'un pense que c'est possible de le faire ou pas?

Merci d'avance pour votre aide

[say]

hello...
j'espèrais trouvé une réponse ici, vu que le sujet porte le tag ..

mais non..

quelqu'un a-t-il une solution? une bon tuto sur la gestion des événements en CR? une méthode éprouvée de la gestion des formules et variables?

Merci d'avance