[C.R .8.5] doublons de référence sur groupes différents

**leuke** · 13/10/2005, 12h58

Bonjour à tous,

Bon voila je viens de rencontrer un probléme sur un état que je suis en train de dévolopper.
Par rapport au fonctionnement de l'entreprise on peut affecter un article à 1 ou plusieurs clients, mais avec une seule quantité commune. Donc cet article peut "exister" chez un client x et un autre client Y. L'état que je réalise doit me donner, pour chaque client les références articles et leur quantité(un groupement sur la référence Client). Mon probléme est qu'en passant d'un groupe à un autre si l'article est affecté à plus d'un client, il sortira sur les différents clients auquels il est affecté avec donc la meme quantité. ce qui faussera mon calcul général car la quantité de cet article est ajouté autant de fois que le nombre de client. je voudrais si c'est possible détecter la référence de l'article et dés qu'il apparaît plus d'une fois dans l'état mettre sa quantité à zéro.

Merci de votre aide

**leuke** · 13/10/2005, 18h36

Bonjour,

Merci d'avoir répondu.
J'ai pas trés bien compris car le fait d'utiliser "MAX" me donnera quoi?:la somme de toutes les quantités exceptés les doublons?
J'avais pensé à un tableau , ensuite à chaque passage dans ma boucle pour lire le tableau je vérifie si l'article y est déjà si tel est le cas je met la quantité à zero et ensuite avec deux formules j'incrémente les quantités.

Sauf que suis débutant et ne maîtrise pas trés bien les tableaux.

Qu'en penses tu ?

merci

**L.nico** · 13/10/2005, 18h44

tu as raison, j'ai supprimé mon message précédent car j'ai répondu un peu trop vite !!

On peut effectivement arriver à faire un cumul selectif par une formule, en ne cumulant que les articles qui n'ont pas encore été cumulés.
Je n'ai pas le temps de détailler la solution aujourd'hui (je le ferai dès que possible !)

**leuke** · 14/10/2005, 12h29

Bonjour,

Merci ce serait vraiment trés sympa.
Sinon j'ai essayer de creer un tableau et ça marche mais étant donné que la taille d'un tableau crystal est limitée à 1000 j'ai essayer de rajouter 2 tableaux upplémentaires et çà marche plus. Ca marche qu'avec un tableau et dés que j'en rajoute un autre ça marche plus.

Merci de votre aide

**L.nico** · 17/10/2005, 10h27

Si j'ai bien compris ce que tu veux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Client X
    Article A   :   10
    Article B   :   20
    Article C   :   30
    Somme       :   60	
Client Y
    Article D   :   40
    Article E   :   50 
    Article A   :   10 (0)
    Article B   :   20 (0)
    Somme       :   90
 
    Somme Générale : 150

Est-ce bien là ce que tu veux

: . Pas qu'on parte sur une fausse piste !!

Quel est le nombre de clients maximum possible pour ton edition ?
parce qu'il est vrai que les tableaux de Crystal sont limités à 1000 !!

**leuke** · 19/10/2005, 17h58

Bonjour,

Oui c'est exactement ce que je voudrais. Depuis j'essaye mais en vain.
Si t'as une idée?
Sinon voici mon code qui marche pour un tableau:

WhilePrintingRecords;
stringvar array Tableau;
numbervar compte;

Code :

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

1
2
3
4
5
6
7
8
9
10
if not({Table.REF} in Tableau) then
         (
             compte:=compte+1;
                if compte<=1000 then
                    (
                        redim preserve tableau[compte];
                        Tableau[compte]:={Table.REF}
                    )
 
        )

Merci encore

Balises [code] ajoutées par l.nico merci d'y penser à l'avenir

**L.nico** · 19/10/2005, 18h46

Bonjour,
On va juste faire ensemble le cas pour moins de 1000 clients !!
le reste sera juste une extrapolation de cette solution.

En début de groupe Client formule InitClient (Basic) :

Code :

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

1
2
3
4
5
 
WhilePrintingRecords
Global SumClient  as Number
SumClient = 0
Formula = ""

A la place de ton champ Valeur Quantité de Article, il faut créer une formule un peu du même genre que celle que tu as (Basic) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
WhilePrintingRecords
Global SumClient as Number
Global SumG as Number
Global TabArticle() as Number
Dim I as Number
If Not {Article.Code} IN  TabArticle then
   I = Ubound(TabArticle) + 1
   Redim Preserve TabArticle(I)
   TabArticle(I) = {Article.Code}
   Formula = {Article.Quantite}
   SumG = Sumg + {Article.Quantite}
   SumClient = SumClient + {Article.Quantite}
Else
   Formula = 0
End if

En fin de groupe Client, une nouvelle formule pour afficher la
qté article client :

Code :

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

1
2
3
WhilePrintingRecords
Global SumClient as Number
Formula = SumClient

En fin d'edition, une nouvelle formule pour afficher la
qté article générale :

Code :

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

1
2
3
WhilePrintingRecords
Global SumG as Number
Formula = SumG

Je me suis peut-être trompé dans le code, je ne l'ai pas testé, mais la solution est là !!

Bonne continuation.

Mon code est en syntaxe basic

L'idée générale est :
On arrive sur une ligne détail

si la référence article a déjà été rencontrée précédemment, elle figure dans le tableau sinon elle n'y est pas

si elle est dans le tableau, on met la valeur quantité pour cette ligne à 0

si elle n'y est pas, on cumule la quantité client et la quantité générale et on la met dans le tableau

**leuke** · 19/10/2005, 18h51

Merci de ton aide. Je vais essayer de l'adapter à mon cas. Je te tiendrais au courant.

Merci

**leuke** · 26/10/2005, 17h56

Bonjour,

J'ai utilisé la solution donnée et ça marche pas pour le calcul des sous/totaux et du Total général.
j'ai toujour zéro.

Voici mon code qui incrémente les variables SumClient et SumG;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
WhilePrintingRecords;
stringvar array Tableau;
numbervar compte;
shared numbervar SumClient;  
shared numbervar SumG;
 
if not({Table.REF} in Tableau) then
         (
             compte:=compte+1;
                if compte<=1000 then
                    (
                        redim preserve tableau[compte];
                        Tableau[compte]:={Table.REF};
                        SumG:=SumG+{Table.QTY};
                        SumClient:=SumClient+{Table.QTY}
                    )
 
         )

J'aimerai également mettre la quantité de chaque article, déjà présent dans mon tableau, à zéro.[/code]

**L.nico** · 26/10/2005, 18h06

Envoyé par leuke

J'aimerai également mettre la quantité de chaque article, déjà présent dans mon tableau, à zéro.

C'est ce que fait pourtant la formule que j'ai mis plus haut ...
J'ai relu mon code, il devrait fonctionner !!
Pourrais-tu me montrer egalement les formules d'affichage de Cumul Général et de Cumul Client.
J'aimerai aussi que tu rajoutes dans ton message précédent les balises Code pour mettre en evidence le code des formules crystal !

Règles du forum

**leuke** · 26/10/2005, 18h11

Bonjour,

Voici la formule d'affichage de SumClient:

Code :

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

1
2
3
 
shared numbervar SumClient;
SumClient;

et celle d'affichage de SumG:

Code :

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

1
2
3
 
shared numbervar SumG;
SumG;

Merci

**L.nico** · 26/10/2005, 18h23

Où sont les WhilePrintingRecords

:
Merci pour la correction des balises

**leuke** · 26/10/2005, 18h31

Bonjour,
Même en elvevant les WhilePrintingRecords; j'ai toujours Zéro.

**L.nico** · 26/10/2005, 18h34

Il ne s'agit pas de les enlever mais de les mettre partout pour lui préciser le contexte d'evaluation de chaque formule que tu utilises et dans l'exemple de tes formules d'affichage de total, elle n'y sont pas, pourtant dans mon exemple elles y sont !

**leuke** · 26/10/2005, 18h34

J'ai rajouté WhilePrintingRecords;
dans mes formules d'affichage mais j'ai toujour zéro. Je me demande si ca viendrait pas de ma formule d'incrémentation?

**L.nico** · 26/10/2005, 18h39

Tu devrais peut-être faire ta formule principale en syntaxe basic, ca sera plus clair et on se plante moins facilement avec les fins d'instructions !!

**leuke** · 26/10/2005, 18h45

Merc L.Nico

J'ai uilisé le code Basic que tu m'avais envoyé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
WhilePrintingRecords 
Global SumClient as Number 
Global SumG as Number 
Global TabArticle() 
Dim I as Number 
If Not {Table.REF} IN  TabArticle then 
   I = Ubound(TabArticle) + 1 
   Redim Preserve TabArticle(I) 
   TabArticle(I) = {Table.REF}
   Formula = {Table.QTY}
   SumG = SumG + {Table.QTY}
   SumClient = SumClient + {Table.QTY} 
Else 
   Formula = 0 
 
end if

et j'ai comme message d'erreur :
Un Opérateur Booléen est nécessaire ici.
C'est à dire juste devant

Code :

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

{Table.REF}

Merci

**L.nico** · 27/10/2005, 10h19

Oui il faut préciser le type du tableau ex :

Code :

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

Global TabArticle() as Number

**leuke** · 27/10/2005, 17h39

Bonjour,

Voici le code recorrigé mais il marche toujours pas, j'ai toujour le même probléme de Booléen

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
WhilePrintingRecords 
Global SumClient as Number 
Global SumG as Number 
Global TabArticle() as String 
Dim I as Number 
If Not {Table.REF} IN  TabArticle then 
   I = Ubound(TabArticle) + 1 
   Redim Preserve TabArticle(I) 
   TabArticle(I) = {Table.REF} 
   Formula = {Table.QTY} 
   SumG = SumG + {Table.QTY} 
   SumClient = SumClient + {Table.QTY}
Else 
   Formula = 0 
End if

Merci encore une fois