petit souci avec une dim_local

Application_Title "Mon Ecurie"
dlist 1001 :dlist 1002:dlist 1003:dlist 1004
Init()
Formulaire(0,1,"Mon Ecurie",800,600,0,0)
Menu(0,1,7)
Ss_Menu(9,2,4)
Ss_Menu(14,3,1)
Caption_Menu(1,14)
end
' ------------------------------------------------------------------------------
Sub Init()
    Init_Constantes()
    Init_Variables()
    Init_Etiquettes()
End_Sub
' ------------------------------------------------------------------------------
Sub Init_Constantes()
  Dim Doss$(7),x%,D$,file$(10),t$
  Doss$(1)=Dir_current$
  Doss$(2)=Doss$(1)+"\Bdd":Doss$(3)=Doss$(1)+"\Dlls":Doss$(4)=Doss$(1)+"\Img"
  Doss$(5)=Doss$(1)+"\Photos":Doss$(6)=Doss$(1)+"\DownLoad":Doss$(7)=Doss$(1)+"\UpLoad"
  for x%=1 to 7
      D$=Doss$(x%)
      if dir_exists(D$)=0 then dir_make D$
  next x%
  file$(1)=Doss$(2)+"\Chevaux.Bdd":file$(2)=Doss$(2)+"\Personnel.Bdd"
  file$(3)=Doss$(2)+"\Intervenants.Bdd"
  for x%=1 to 3
      t$=file$(x%)
      if file_exists(t$)=0
        file_open_write 1000,t$
        file_close 1000
      end_if
  next x%
  for x%=1 to 3 :file_load 1000+x%,file$(x%):next x%
End_Sub
' ------------------------------------------------------------------------------
Sub Init_Variables()
  Dim M%
End_Sub
' ------------------------------------------------------------------------------
Sub Init_Etiquettes()
  Label Clic
End_Sub
' ------------------------------------------------------------------------------
Clic:
  M%=number_click
  Select M%
      case 9
      Effectif()
      case 13
      Quitter()
      case 101
      Selection()
      case 104
      case 105
      case 107
      case 108
  End_Select
Return
' ------------------------------------------------------------------------------
Sub Effectif()
  dim_local x%,i$,n$
  if object_exists(100)=0
      Formulaire(100,1,"Effectif",500,300,0,0)
      command_target_is 100
      list 101:width 101,150:height 101,262:on_click 101,Clic
      Picture 103:Width 103,300:Height 103,200:Top 103,55:Left 103,175:color 103,220,220,220
      Button 104:Top 104,5 :Left 104,152:Width 104,15:Height 104,15:caption 104,"+":cursor_point 104
      font_bold 104:Hint 104,"Ajouter un cheval":on_click 104,Clic
      Button 105:Top 105,25:Left 105,152:Width 105,15:Height 105,15:caption 105,"-":cursor_point 105
      font_bold 105:Hint 105,"Supprimer un cheval":on_click 105,Clic
      Alpha 106:top 106,25:left 106,175:font_size 106,14:font_color 106,120,20,10
      Button 107:top 107,215:left 107,152:width 107,15:height 107,15:caption 107,"3":cursor_point 107
      Font_name 107,"Webdings":hint 107,"Photo Précédente":on_click 107,Clic
      button 108:top 108,235:left 108,152:width 108,15:height 108,15:caption 108,"4":cursor_point 108
      Font_name 108,"Webdings":hint 108,"Photo suivante":on_click 108,Clic
      check 109:top 109,10:left 109,385:caption 109,"Présent(e)"
      Command_target_is 0
  else
      show 100
  end_if
  Remp_List(101)
End_Sub
' ------------------------------------------------------------------------------
Sub Selection()
  dim_local t$,t1$,t2$,x%,sep%,ref%,
  t$=""
  t1$=item_index$(101)
  while t$<>t1$
  x%=x%+1
  t$=item_read$(1001,x%)
  end_while
  sep%=instr(t$,"\")
  ref%=val(left$(t$,sep%-1))
  Caption 106,item_index$(101)
  t2$=str$(ref%)
  Presence(t2$)
End_Sub
' ------------------------------------------------------------------------------
Sub Presence(ref$)
  dim_local x%,t$,t2$,sep%,ref%
  t$=""
  while t$<>ref$
  x%=x%+1
  t2$=item_read$(1004,x%)
  sep%=instr(t2$,"\")
  t$=left$(t2$,sep%-1)
  end_while
  if right$(t2$,len(t2$)-sep%)=1 then checked(109)=1
End_sub
' ------------------------------------------------------------------------------
Sub Ajout(Liste%)
  if message_input("Ajouter un cheval","Nom du Cheval","")=1
      T$=Str$(count(1001)+1)+"\"+Message_text$
      if Liste%=101 then item_add 1004,str$(count(1001)+1)+"\"+str$(1)
      Remp_List(101)
  end_if
End_Sub
' ------------------------------------------------------------------------------
Sub Remp_List(Liste%)
  dim_local item$
  if count(1001)>0
      for x%=1 to count(10001)
        item$=item_read$(10001,x%)
        sep%=instr(item$,"/")
        item_add Liste%,left$(Right$,len(item$)-sep%)
      next x%
  else
      if message_information_yes_no("La base est vide !"+chr$(13)+"Voulez vous ajouter un cheval ?")=1
        Ajout(101)
      else
        hide 100
      end_if
  end_if
End_Sub
' ------------------------------------------------------------------------------
Sub Quitter()
  Terminate
End_Sub
' ------------------------------------------------------------------------------
#include "Librairie_P.bas"
#include "Librairie_D.bas"
' ------------------------------------------------------------------------------

' ------------------------------------------------------------------------------
' Création d'un formulaire
' ------------------------------------------------------------------------------
Sub Formulaire(No%,V%,Titre$,W%,H%,T%,L%)
  if No% > 0 then Form No%
  If V%=0 then hide No%
  Width No%,W% :Height No%,H%
  if T%=0 :Top No%,(Screen_y-H%)/2 :else :Top No%,T% :end_if
  if L%=0 :Left No%,(Screen_x-W%)/2:else :Left No%,L%:end_if
  Font_Name No%,"Times new roman":Font_Size No%,10:Caption No%,Titre$
End_Sub
' ------------------------------------------------------------------------------
' Création de container
' ------------------------------------------------------------------------------
Sub Frame(No%,Titre$,W%,H%,T%,L%)
    Container No% :Caption No%,chr$(32)+Titre$+chr$(32):Width No%,W% :Height No%,H% :Top No%,T%:Left No%,L%
    Font_color No%,120,20,10
End_sub
' ------------------------------------------------------------------------------
' Création d'un Main_menu
' ------------------------------------------------------------------------------
Sub Menu(No%,Num%,Nbre%)
    Dim_local x%
    Command_target_is No%
    Main_menu Num%
    For x% =Num%+1 to Num%+Nbre% :Sub_menu x% :Parent x%,Num% :on_click x%,Clic
    Next x%
End_Sub
' ------------------------------------------------------------------------------
' Création de sous menus dans Main_menu
' ------------------------------------------------------------------------------
Sub Ss_Menu(dep%,Par%,Nbre%)
    Dim_local x%
    For x%= dep% to dep%+Nbre% :Sub_menu x% : Parent x%,Par% :on_click x%,Clic
    Next x%
End_Sub
' ------------------------------------------------------------------------------
' Attribution des captions du menu
' ------------------------------------------------------------------------------
Sub Caption_Menu(R%,N%)
  Dim_local M$,x%,def$(N%)
  trace_on "test.txt"
  Restore
  Read M$
  While M$<>"Menu"+str$(R%)
  Read M$
  End_While
  For x%=1 to N% :Read def$(x%): caption R%+x%,def$(x%):Next x%
  trace_off
End_Sub

Data "Menu1"
Data "Fichiers"
Data "Soins"
Data "Planning de travail"
Data "Internet"
Data "Outils"
Data "A Propos"
Data "Aide"
Data "Effectif"
Data "Personnel"
Data "Intervenants"
Data "__________________"
Data "Quitter"
Data "Journal"
Data "Ajouter"
Data "Menu101"
Data "Voir"
Data "Ajouter"
Data "Supprimer"

SUB Remp_list(Liste%)
  ...
  Ajout(101)
  ...
END_SUB
SUB Ajout(Liste%)
  ...
  Remp_list(101)
  ...
END_SUB

Application_Title "Mon Ecurie"
dlist 1001 :dlist 1002:dlist 1003:dlist 1004
Init()
Formulaire(0,1,"Mon Ecurie",800,600,0,0)
Menu(0,1,7)
Ss_Menu(9,2,4)
Ss_Menu(14,3,1)
Caption_Menu(1,14)
end
' ------------------------------------------------------------------------------
Sub Init()
    Init_Constantes()
    Init_Variables()
    Init_Etiquettes()
End_Sub
' ------------------------------------------------------------------------------
Sub Init_Constantes()
  Dim Doss$(7),x%,D$,file$(10),t$
  Doss$(1)=Dir_current$
  Doss$(2)=Doss$(1)+"\Bdd":Doss$(3)=Doss$(1)+"\Dlls":Doss$(4)=Doss$(1)+"\Img"
  Doss$(5)=Doss$(1)+"\Photos":Doss$(6)=Doss$(1)+"\DownLoad":Doss$(7)=Doss$(1)+"\UpLoad"
  for x%=1 to 7
      D$=Doss$(x%)
      if dir_exists(D$)=0 then dir_make D$
  next x%
  file$(1)=Doss$(2)+"\Chevaux.Bdd":file$(2)=Doss$(2)+"\Personnel.Bdd"
  file$(3)=Doss$(2)+"\Intervenants.Bdd"
  for x%=1 to 3
      t$=file$(x%)
      if file_exists(t$)=0
        file_open_write 1000,t$
        file_close 1000
      end_if
  next x%
  for x%=1 to 3 :file_load 1000+x%,file$(x%):next x%
End_Sub
' ------------------------------------------------------------------------------
Sub Init_Variables()
  Dim M%
End_Sub
' ------------------------------------------------------------------------------
Sub Init_Etiquettes()
  Label Clic
End_Sub
' ------------------------------------------------------------------------------
Clic:
  M%=number_click
  Select M%
      case 9
      Effectif()
      case 13
      Quitter()
      case 101
      Selection()
      case 104
      Ajout(101)
      case 105
      case 107
      case 108
  End_Select
Return
' ------------------------------------------------------------------------------
Sub Effectif()
  dim_local x%,i$,n$
  if object_exists(100)=0
      Formulaire(100,1,"Effectif",500,300,0,0)
      command_target_is 100
      list 101:width 101,150:height 101,262:on_click 101,Clic
      Picture 103:Width 103,300:Height 103,200:Top 103,55:Left 103,175:color 103,220,220,220
      Button 104:Top 104,5 :Left 104,152:Width 104,15:Height 104,15:caption 104,"+":cursor_point 104
      font_bold 104:Hint 104,"Ajouter un cheval":on_click 104,Clic
      Button 105:Top 105,25:Left 105,152:Width 105,15:Height 105,15:caption 105,"-":cursor_point 105
      font_bold 105:Hint 105,"Supprimer un cheval":on_click 105,Clic
      Alpha 106:top 106,25:left 106,175:font_size 106,14:font_color 106,120,20,10
      Button 107:top 107,215:left 107,152:width 107,15:height 107,15:caption 107,"3":cursor_point 107
      Font_name 107,"Webdings":hint 107,"Photo Précédente":on_click 107,Clic
      button 108:top 108,235:left 108,152:width 108,15:height 108,15:caption 108,"4":cursor_point 108
      Font_name 108,"Webdings":hint 108,"Photo suivante":on_click 108,Clic
      check 109:top 109,10:left 109,385:caption 109,"Présent(e)"
      Command_target_is 0
  else
      show 100
  end_if
  Test_1001()
End_Sub
' ------------------------------------------------------------------------------
Sub Selection()
  dim_local t$,t1$,t2$,x%,sep% ,ref$
  x%=1
  t$=item_index$(101)
  caption 106,t$
  t1$=item_read$(1001,x%)
  sep%=instr(t1$,"\")
  t2$=right$(t1$,len(t1$)-sep%)
  ref$=left$(t1$,sep%-1)
  while t$<>t2$
      x%=x%+1
      t1$=item_read$(1001,x%)
  end_while
  Presence(ref$)
End_Sub
' ------------------------------------------------------------------------------
Sub Presence(ref$)
  dim_local x%,t$,t2$,sep%
  x%=1
  t$=item_read$(1004,x%)
  sep%=instr(t$,"\")
  t2$=left$(t$,sep%-1)
  while ref$<>t2$
      x%=x%+1
      t$=item_read$(1004,x%)
  end_while
  if right$(t$,len(t$)-sep%)="1" then Mark_on 109
End_sub
' ------------------------------------------------------------------------------
Sub Ajout(Liste%)
  dim_local T$
  if message_input("Ajouter un cheval","Nom du Cheval","")=1
      T$=Str$(count(1001)+1)+"\"+Message_text$
      item_add 1001,T$
      if Liste%=101
        item_add 1004,str$(count(1001))+"\"+str$(1)
      end_if
      Remp_List(101)
  end_if
End_Sub
' ------------------------------------------------------------------------------
Sub Test_1001()
  if count(1001)>0
      Remp_List(101)
  else
      if message_information_yes_no("La base est vide !"+chr$(13)+"Voulez vous ajouter un cheval ?")=1
        Ajout(101)
      else
        hide 100
      end_if
  end_if
End_Sub
' ------------------------------------------------------------------------------
Sub Remp_List(Liste%)
  dim_local i$,x%,sep%
  for x%=1 to count(1001)
      i$=item_read$(1001,x%)
      sep%=instr(i$,"\")
      item_add Liste%,Right$(i$,len(i$)-sep%)
  next x%
End_Sub
' ------------------------------------------------------------------------------
Sub Quitter()
  Terminate
End_Sub
' ------------------------------------------------------------------------------
#include "Librairie_P.bas"
#include "Librairie_D.bas"
' ------------------------------------------------------------------------------

IF variable("item$") = 0 then DIM_LOCAL item$