Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
5029 connectés 

  FORUM HardWare.fr
  Programmation

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

 
 


Dernière réponse
Sujet : [LotusScript] Pb sur collection de documents...M@nou si t là ^_^
dirakocha 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

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
dirakocha 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

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)