IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Rave Discussion :

CustomConnection comment réinitialiser ?


Sujet :

Rave

  1. #1
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 021
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 021
    Points : 40 935
    Points
    40 935
    Billets dans le blog
    62
    Par défaut CustomConnection comment réinitialiser ?
    Bonjour,

    une fois n'est pas coutume, je bloque sur un point. Voilà mon problème :
    j'ai un programme qui doit me permettre d'éditer un certain nombre de lignes en fonction d'un tableau.

    un exemple simple :
    produit--------c1-c2-c3-c4-c5
    PRODUIT A ----1 0 1 0 1
    PRODUIT B ----0 0 1 0 1
    PRODUIT C -----0 0 0 1 0
    si je sélectionne le produit B alors j'aurais 2 lignes , une avec c3 l'autre avec c5
    le produit A me fournirais 3 lignes c1,c3,c5
    et le produit c une ligne c4

    cela fonctionne parfaitement, via une CustomConnection si je sors et ré-execute le programme par contre rien ne va plus si je demande les produits les uns à la suite des autres

    par exemple si je sors d'abord A j'aurais bien les 3 lignes , si ensuite je sors B j'ai une page blanche à l'inverse si je sors B avant A alors l'état concernant A n'a qu'un seule ligne

    pour bien comprendre, un peu de code

    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
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
     
    // avant l'ouverture de l'état je récupère le nombre de ligne 
    procedure TFormReparer.RvUneReparationOpen(Connection: TRvCustomConnection);
    begin
    Connection.DataRows:=ZRQUneReparation.FieldByName('TOT').asInteger;   // ok cela change bien selon le produit
    end;
     
    // initialisation de variables 
    procedure TFormReparer.RvUneReparationFirst(
      Connection: TRvCustomConnection);
    begin
     reparationi:=1; 
     q:=0;
    end;
     
    // définition de champs 
    procedure TFormReparer.RvUneReparationGetCols(
      Connection: TRvCustomConnection);
    begin
    Connection.WriteField('Lancement', dtString,16, '', '');
    Connection.WriteField('Commande', dtString,16, '', '');
    Connection.WriteField('Modele', dtString, 15, '', '');
    Connection.WriteField('Assortiment', dtString, 40, '', '');
    Connection.WriteField('Pointure', dtString, 3, '', '');
    Connection.WriteField('Ordre',dtString,12,'','');
    Connection.WriteField('Envoi',dtDate,0,'','');
    end;
     
    // envoi des données à Rave
    procedure TFormReparer.RvUneReparationGetRow(
      Connection: TRvCustomConnection);
    var O : String;
        i : Word;
    begin
    Connection.WriteStrData('',format('%s-%d-%dR',[ZRQUneReparation.FieldByName('SAISON').AsString,
                                                  ZRQUneReparation.FieldByName('NUMERO').AsInteger,
                                                  ZRQUneReparation.FieldByName('LIGNE').asInteger]));
    Connection.WriteStrData('',format('%s-%d-%d',[ZRQUneReparation.FieldByName('CMDE_SAISON').AsString,
                                                  ZRQUneReparation.FieldByName('CMDE_NUMERO').AsInteger,
                                                  ZRQUneReparation.FieldByName('CMDE_LIGNE').asInteger]));
    Connection.WriteStrData('',ZRQUneReparation.FieldByName('MODELE').asString);
    Connection.WriteStrData('',format('%s %s',[ZRQUneReparation.FieldByName('ASSORTIMENT').AsString,
                                               ZRQUneReparation.FieldByName('DESCRIPTION').AsString]));
    // Partie qui me permet de naviguer dans le tableau 
    for i:=reparationi to 24 do
     begin
      if ZRQUneReparation.FieldByName('QT'+inttoStr(i)).asInteger>q then
       begin
          inc(q);
          reparationi:=i;
          Connection.WriteStrData('',ZRQUneReparation.FieldByName('PT_'+inttoStr(i)).asString);
          if (q=ZRQUneReparation.FieldByName('QT'+inttoStr(i)).asInteger) AND (i<24)
            then begin
               inc(reparationi);
               q:=0;
            end;
          break;
       end;
     end;
     
    O:=FormatFloat('000000000000',((ZRQUneReparation.FieldByName('NUMEROORDRE').asInteger*100)+i));
    Connection.WriteStrData('',O);
    Connection.WriteDateTime(ZRQUneReparation.FieldByName('DATE_ENVOI').AsDateTime);
    end;
    d'où ma question : il y a certainement une réinitialisation que je ne fais pas
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 021
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 021
    Points : 40 935
    Points
    40 935
    Billets dans le blog
    62
    Par défaut
    Et comme d'habitude, après avoir poser le problème vient la solution

    il "suffisait" de repositionner le curseur sur la rvcustomconnection , ce qui se fait via la propriété DataIndex

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    // demande d''édition
    procedure TFormReparer.ReEditer1Click(Sender: TObject);
    var Data : PReparData;
    begin
     Data:=VSTReparation.GetNodeData(VSTReparation.FocusedNode); 
     ZRQUneReparation.ParamByName('N').AsInteger:=Data.recno;
     ZRQUneReparation.Active:=true;
     rvUneReparation.DataIndex:=0;   // <<<< repositionnement dans la customConnection 
     DataModule1.RvProject1.ExecuteReport('ReparationOrdre');
     DataModule1.RvProject1.Close;
     ZRQUneReparation.Active:=False;
    end;
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Comment réinitialiser un dbLookupListBox ?
    Par Carib58 dans le forum Bases de données
    Réponses: 3
    Dernier message: 15/10/2008, 20h37
  2. Comment réinitialiser tous les états d'OpenGL
    Par igala.net dans le forum OpenGL
    Réponses: 1
    Dernier message: 20/08/2008, 17h11
  3. Comment réinitialiser un lecteur de DATA Matrix ?
    Par Geache dans le forum Composants
    Réponses: 2
    Dernier message: 05/03/2008, 09h09
  4. Réponses: 8
    Dernier message: 18/10/2007, 10h06
  5. [tableau] comment réinitialiser un tabeau
    Par shirya dans le forum C++
    Réponses: 2
    Dernier message: 22/11/2005, 00h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo