1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

probleme lecteur des enrigestrement avec windev 22

Discussion dans 'Résolution problème & conseils' créé par DRDEV, Avr 17, 2018.

  1. DRDEV

    DRDEV New Member

    Inscrit:
    Jan 22, 2018
    Messages:
    4
    J'aime reçus:
    0

    1. jai un probleme avec la lecteur des enrgistrement de fichier piece

    2. windev a associer un mots de pas au fichier piece jai utilise ce mots de passe dans un autre logiciel

    3. mai le probleme qui jai pas associer un mots de passe a lanaylyse ou au fichier


    4. je parcours le fichier avec le code suivant
      HFiltre(PIECE,MATRICULE,SansEspace(SAI_Matricule),SansEspace(SAI_Matricule)) HLitPremier(PIECE,MATRICULE) TANTQUE HTrouve ET PAS HEnDehors SI SansEspace(PIECE.MATRICULE)=SansEspace(SAI_Matricule) ALORS xFraisp=xFraisp+PIECE.TOTAL FIN HLitSuivant(PIECE,MATRICULE) FIN

    5. aider mois

    6. le fichier piece et en lecteur ecriteur

    jai supprimer le mots de passe de fichier
     
    Tags:
  2. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    657
    J'aime reçus:
    232

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ,
    Avec les Filtres, tu ne peux pas filtrer et changer la clé de parcours.
    Srubriqueparcours est une chaine=HFiltre(PIECE,MATRICULE,SansEspace(SAI_Matricule),SansEspace(SAI_Matricule))
    HLitPremier(PIECE,Srubriqueparcours)


    Mais je préfère écrire à l'ancienne

    sfiltre est une chaine="MATRICULE="+"'"+SansEspace(SAI_Matricule)+"'"

    Srubriqueparcours est une chaine=HFiltre(PIECE,sfiltre)
    HLitPremier(PIECE,Srubriqueparcours)

    Evidement, tu changes Hlitsuivant aussi.
    LAPIPE2018
     
    joker apprécie ceci.
  3. DRDEV

    DRDEV New Member

    Inscrit:
    Jan 22, 2018
    Messages:
    4
    J'aime reçus:
    0
    tous les fichier fonction bien avec ma methode le probleme il n entre pas dans la boucle tanque

    jai pas changer la cle sai_matricule si un champ de saisie
     
  4. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    657
    J'aime reçus:
    232

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    jai pas changer la cle sai_matricule si un champ de saisie
    Cliquez pour agrandir...
    Voici ton code corrigé:



    sfiltre est une chaine="MATRICULE="+"'"+SansEspace(SAI_Matricule)+"'"

    Srubriqueparcours est une chaine=HFiltre(PIECE,sfiltre)
    HLitPremier(PIECE,Srubriqueparcours)
    TANTQUE PAS HEnDehors

    xFraisp=xFraisp+PIECE.TOTAL

    HLitSuivant(PIECE,Srubriqueparcours)
    FIN
     
    WX1331 et joker aiment ça.
  • DRDEV

    DRDEV New Member

    Inscrit:
    Jan 22, 2018
    Messages:
    4
    J'aime reçus:
    0
    le meme probleme
     
  • LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    657
    J'aime reçus:
    232
    Essaies de debuger

    Ou mieux, reduis la taille du fichier tu le poses ici
     
  • DRDEV

    DRDEV New Member

    Inscrit:
    Jan 22, 2018
    Messages:
    4
    J'aime reçus:
    0
    jai envoyer le fich

    je travail avec la version 22
     

    Fichiers attachés:

    • 2018.rar
      Taille de fichier:
      4.5 KB
      Affichages:
      13
  • LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    657
    J'aime reçus:
    232
    le fichier un enregistrement, j'ai dit 50
     
  • gapplicat

    gapplicat Well-Known Member
    MEMBRE WX

    Inscrit:
    Mar 8, 2018
    Messages:
    399
    J'aime reçus:
    708
    Et voila ton code optimisé - il sera 10 fois plus rapide comme cela.
    Code (Text):

    MaRequete est une source de donnes
    sMaReq est une chaine

    sMaReq - "SELECT * FROM PIECE WHERE MATRICULE='"+SansEspace(SAI_Matricule)+"' "

    SI PAS HExécuteRequêteSQL(MaRequete, hRequêteDéfaut, sMaReq) ALORS
       Erreur(HErreurInfo())
    SINON
       Hlitpremier(MaRequete)
       TantQue pas hendehors()
             xFraisp+=MaRequete.TOTAL
          hlitsuivant(MaRequete)
       FIN
    FIN
     
    ou encore mieux avec le SUM

    Code (Text):

    MaRequete est une source de donnes
    sMaReq est une chaine

    sMaReq - "SELECT SUM(TOTAL) AS TOTALGENERAL FROM PIECE WHERE MATRICULE='"+SansEspace(SAI_Matricule)+"' "

    SI PAS HExécuteRequêteSQL(MaRequete, hRequêteDéfaut, sMaReq) ALORS
       Erreur(HErreurInfo())
    SINON
       Hlitpremier(MaRequete)
       si pas hendehors()
             xFraisp=MaRequete.TOTALGENERAL
        FIN
    FIN
     
     
    LAPIPE2018, aminej76 et joker aiment ça.
  • Partager cette page

    Chargement...