WDForge.org

[Résolu] Problème verrouilllage fichier en Wdscript

Posté par mopc le 15/2/2008 10:31:33

Bonjour,

J'ai un problème dans une page ou j'utilise 2 Fichiers utilisés aussi dans notre appli Windev.
Lorsque que je lance la page, elle verrouille les fichiers et les utilisateurs de l'appli non plus accès au données.
Si quelqu'un a une solution.
Je met mon code pour être plus clair.

<HTML>
 <BODY bgcolor="white">
  <CENTER><H1>PLAGES LIBRES FONGEPLAN</H1></CENTER>
  <P>

   <WDSCRIPT>
HDéclareExterne("\\MonServeur\Rep1\Rep2\DATA\CONSEILLER.FIC","CONSEILLER")
HDéclareExterne("\\MonServeur\Rep1\Rep2\DATA\TACHE.FIC","TACHE")

    <out>
     <center>
      <TABLE width="80%" border="1">
       <TR>
        <TD><strong>Conseiller</strong></TD>
        <TD><strong>Première plage libre</strong></TD>
        <TD><strong>Nombre de plage libre</strong></TD>
       </TR>
     </out>

     DATE est une chaine
     DATE=DateDuJour
     req_cons est une source de donnees 
     sql_cons est une chaîne 
     sql_cons = "SELECT * FROM CONSEILLER"
     HExecuteRequeteSQL(req_cons,sql_cons)
     HLitPremier(req_cons)
     TANTQUE HTrouve
      CONS est une chaîne
      CONS=req_cons.CON_CODE
      req_consultation est une source de donnees 
      sql_consultation est une chaîne 

      sql_consultation = "SELECT * FROM TACHE WHERE TAC_PER ='" + CONS'" ...
                   + " AND TAC_TYP ='L' " ...
                   + " AND TAC_JOUR>='" + DATE + "'" ...
                   + " AND TAC_NBE<=TAC_NBEMAXI " ...
                   + " ORDER BY TAC_PER, TAC_JOUR" 
      HExecuteRequeteSQL(req_consultation,sql_consultation) 
      HLitPremier(req_consultation)

      req_compte est une source de donnees 
      sql_compte est une chaîne 
      sql_compte = "SELECT COUNT(TAC_PER) as total FROM TACHE " ...
             + " WHERE TAC_PER ='" + CONS + "'" ...
             + " AND TAC_TYP ='L'" ...
             + " AND TAC_JOUR>='" + DATE + "'" ...
             + " AND TAC_NBE<=TAC_NBEMAXI"
 
      HExecuteRequeteSQL(req_compte,sql_compte) 
      HLitPremier(req_compte)

      SI req_consultation.TAC_HEUREDEBUT<>"0000" ALORS
       <out>
        <TR>
         <TD><strong>[%req_cons.CON_LIBELLE%]</strong></TD> 
         <TD><strong>[%DateVersChaine( req_consultation.TAC_JOUR,"JJJJ JJ MMMM AAAA")%] [%Gauche(HeureVersChaine(req_consultation.TAC_HEUREDEBUT),5)%] [%Gauche(HeureVersChaine(req_consultation.TAC_HEUREFIN),5)%]</strong></TD>
         <TD><strong>[%req_compte.total%]</strong></TD>
        </TR>
       </out> 
       FIN
 
       HLitSuivant(req_cons)
      FIN
      HFerme("*")
     </WDSCRIPT>
   </TABLE>
  </center>
 </BODY>
</HTML>

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5697&post_id=23226