Discussion :

[Julioun]

Bonjour,

Avec un AdoQuery j'envoie une requête SQL à mon état (dans mon exemple des inventaires différents).

Quand je sélectionne un inventaire la génération de l'état marche parfaitement avec les bonnes données.

Malheureusement si je ferme l'état et que je vais ouvrir un autre inventaire je me retrouve avec le même état que précédemment... Les données ne sont pas mises à jour.

Si quelqu'un à la réponse, je suis fortement preneur, cela fait plusieurs heures que je me prend le chou avec ça...

Pour info voici le code quand je clique sur mon bouton pour générer l'état :
(rSql=AdoQuery, Etat=RvProject)

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
  rSql.Close;
  rSql.SQL.Clear;
  rSql.SQL.Add(''
  +'SELECT Inventaire.*, '
  +'       Article.AR_Ref, '
  +'       Article.AR_Design, '
  +'       ArtStock.AS_Emplacement, '
  +'       Depot.DE_Intitule, '
  +'       Utilisateur.nom, '
  +'       Utilisateur.prenom '
 
  +'FROM ArtPrep, '
  +'     Article, '
  +'     Inventaire, '
  +'     Utilisateur, '
  +'     ArtStock, '
  +'     Depot '
 
  +'WHERE ArtPrep.idArticle=Article.id '
  +'AND ArtPrep.idInventaire=Inventaire.id '
  +'AND ArtPrep.idUtilisateur=Utilisateur.id '
  +'AND ArtPrep.idArticle=ArtStock.idArticle '
  +'AND Inventaire.idDepot=Depot.id '
 
  +'AND ArtPrep.idInventaire='+IntToStr(monInventaire.id)+' '
  +'AND ArtPrep.idUtilisateur='+IntToStr(frmMain.uActif.id)+' '
  +'AND ArtStock.idDepot='+IntToStr(monInventaire.idDepot)+' '
 
  +';');
  rSql.Active:=true;
  rSql.Open;
 
  Etat.Open;
  Etat.ExecuteReport('report1');
  Etat.Close;

J'ai le même prototype de requête dans la propriété SQL du AdoQuery pour que Rave comprenne bien sur quelle donnée je veux travailler...

Merci d'avance

[Rayek]

Pour ma part je fais de la manière suivante pour la gestion des etats avec RaveReport

Code Delphi :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
  With DataModule1 do
  begin
    // récupération des informations du client.
    With AdoQMySQL do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select *');
      SQL.Add('From client as c inner join clientinfo as ci on c.nclient=ci.nclient');
      SQL.ADd('Where MemberId = ' + Data.Total.MemberId);
      Open;
 
      MemoMessage('Document pour : ' + FieldByName('NomClient').AsString);
      Application.ProcessMessages;
      Data.Email := FieldByName('Email').asString;
      With RvProject1,Data.Total do
      begin
        ProjectFile := GAPPPATH + 'Files\ListingPv.rav';
        // Ouverture du projet pour mettre les paramètres
        Open;
        SetParam('PADRNOM',FieldByName('NomClient').AsString);
        SetParam('PADRADR1',FieldByName('Adresse1').AsString);
        SetParam('PADRADR2',FieldByName('Adresse2').AsString);
        SetParam('PADRCP',FieldByName('CodePostal').AsString);
        SetParam('PADRVILLE',FieldByName('Ville').AsString);
        SetParam('PDATEDOCS',FormatDateTime('DD/MM/YYYY',CreateDate));
        SetParam('PMONTANTENCAISSE',FormatFloat('0.00',TotalAmount));
        SetParam('PDEVISE',CurrencyType);
        SetParam('PFRAIS',FormatFloat('0.00',DiscountFee));
        SetParam('PFRAISAUTRES',FormatFloat('0.00',OtherFees));
        SetParam('PPAIEMENT',FormatFloat('0.00',Payment));
        // Fermeture du projet
        Close;
      end;
 
      // Configuration pour la génération du PDF
      With RvSystem1 do
      begin
        SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
        DefaultDest := rdFile;
        RenderObject := RvRenderPDF1;
        DoNativeOutput := False;
        OutputFileName := GAPPPATH +
                          FormatDateTime('RPV-YYMMDD-',Data.Total.CreateDate) +
                          FormatDateTime('YYMMDDhhmmsszzz-',Now) +
                          FieldByName('Login').AsString + '.pdf';
        MemoMessage('Nom du document : ' + OutputFileName);
        Data.PDFName := OutputFileName;
       Application.ProcessMessages;
      end; // With
      RvProject1.ExecuteReport('Report1');
    end; // With
  end; // with

[Julioun]

La mise à jour marche
Après il me reste un problème je veux afficher dans l'inventaire tout les articles qui le concerne.. Avec cette méthode j'ai X fois le même article.

Je vois pas trop le truc pour avoir l'ensemble de mes articles

Merci pour la mise à jour en tout cas. Je continu de chercher en parralèle pour ce nouveau problème.