Vue web categorisée avec checkbox

[Ermo]

Bonjour,

Je voudrais sous Web faire une vue catégorisée avec des cases a cocher avec un bouton d'action permettant de faire un traitement sur les documents sélectionnés.

Ça marche pas trop mal mais je suis pas sur d'utiliser la bonne méthode et je suis limité par la taille de ma sélection en la passant en argument a mon agent de traitement.
Est ce que quelqu'un a déjà fait ce type de dev ? De plus quand je change de catégorie, la sélection de mes cases a cocher est perdue ce qui est génant si je fait un sélection multiple dans différentes catégories.

Suis en v6.5 avec IE6 et >

Merci de votre aide en me donnat des petits exemples.
Bonne journée

[Michael DELIQUE]

salut

pour le passage d'argument a ton agent tu le faire en ajax via la méthode post

voila un exemple

Code : Tout sélectionner

var XHRequest = null;

   if(window.XMLHttpRequest){
      // Firefox et autres
      XHRequest = new XMLHttpRequest();
      if (XHRequest.overrideMimeType){XHRequest.overrideMimeType('text/xml')}
   }else if(window.ActiveXObject){
      // Internet Explorer
         try { XHRequest = new ActiveXObject("Msxml2.XMLHTTP");
         }
         catch(e) {XHRequest = new ActiveXObject("Microsoft.XMLHTTP");
         }
   }else{
      //non supporté par le navigateur
      alert("Ajax Formula Error 2 : XMLHttpRequest non supporté par le navigateur");
      return null;
   }

   var urlRequeste = server+"/"+pathfile+"/agtFormule?OpenAgent";
   

   XHRequest.open("POST", urlRequeste , false);
   XHRequest.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
//   XHRequest.async="false";
   XHRequest.send(sFormule);
   
   if (XHRequest.status == 200) {
         return XHRequest.responseText;
      }else{
         alert("Ajax Formula Error 3 : "+ XHRequest.statusText+"\n "+XHRequest.status+"\nURL = "+urlRequeste);
         return null;
      }
}

et le code de l'agent

Code : Tout sélectionner

   Dim Session As NotesSession
   Dim doc As NotesDocument
   Dim formule As String
   
   On Error Goto ErreurHandle
   
   Set Session = New NotesSession
   Set Doc = session.DocumentContext
   
   formule = doc.GetItemValue("request_content")(0)
   Set doc = Nothing
   
   'Print "<Data>"+Retour+"</Data>"
   Print "Content-Type: text/javascript"
   Print "Cache-Control: private"
   Print formule
   formule = ""
   Exit Sub
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Print "Content-Type: text/javascript"
   Print "Cache-Control: private"
   Print "ERREUR"   
   Exit Sub