[LotusScript] Pb sur collection de documents...M@nou si t là ^_^

Pb sur collection de documents...M@nou si t là ^_^ [LotusScript] - Programmation

Marsh Posté le 28-06-2002 à 14:23:11    

Voilà j'ai un chtit pb dès lors que je veux effectuer une collection de doc. Le pb se situe o nivo du set collection = view1.GetView(selectionx,true)
Là il me jette et je n'arrive pas à comprendre pk ?? On peut bien passer en paramètre un array alors je ne sais pas ce qui cloche, so si vous trouvez une erreur ds le code suivant et bien faites moi signe :)
 
Thx

Code :
  1. saleslevelcode2  = Inputbox$ ("Veuillez saisir le Saleslevelcode2 svp : " )
  2. saleslevelcode1  = Inputbox$ ("Veuillez saisir le Saleslevelcode1 svp : " )
  3. salesman  = Inputbox$ ("Veuillez saisir le SalesmanNumber svp : " )
  4. custnum   = Inputbox$ ("Veuillez saisir le Custnum svp : " )
  6. If (custnum <> "" And salesman <> "" And saleslevelcode1 <> "" And saleslevelcode2 <> "" ) Then
  7.  Set view1 = db1.GetView("$custnum" )
  8.  Set view2 = db2.GetView("$custnum" )
  10.  selection1 (1) = custnum
  11.  selection1 (2) = salesman
  12.  selection1 (3) = saleslevelcode1
  13.  selection1 (4) = saleslevelcode2
  15.  Set collection = view1.GetAllDocumentsByKey(selection1,True)
  16. Else
  17.  If (salesman <> "" And saleslevelcode1 <> "" And saleslevelcode2 <> "" ) Then
  18.   Set view1 = db1.GetView("$salesm" )
  19.   Set view2 = db2.GetView("$salesm" )
  21.   selection2 (1) = salesman
  22.   selection2 (2) = saleslevelcode1
  23.   selection2 (3) = saleslevelcode2
  25.   Set collection = view1.GetAllDocumentsByKey(selection2,True)
  26.  Else
  27.   If (saleslevelcode1 <> "" And saleslevelcode2 <> "" ) Then
  28.    Set view1 = db1.GetView("$saleslvl1" )
  29.    Set view2 = db2.GetView("$saleslvl1" )
  31.    selection3 (1) = saleslevelcode1
  32.    selection3 (2) = saleslevelcode2
  34.    Set collection = view1.GetAllDocumentsByKey(selection3,True)
  35.   Else
  36.    If (saleslevelcode2 <>"" ) Then
  37.     Set view1 = db1.GetView("$saleslvl2" )
  38.     Set view2 = db2.GetView("$saleslvl2" )
  40.     Set collection = view1.GetAllDocumentsByKey(saleslevelcode2,True)
  41.    End If
  42.   End If
  43.  End If


Message édité par dirakocha le 28-06-2002 à 14:26:58

---------------
Q.G Tutoriaux ici
Reply

Marsh Posté le 28-06-2002 à 14:23:11   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed