Domino 9 und frühere Versionen > Entwicklung

getdocumentcollection mit zwei schluesseln?

<< < (3/3)

ata:
... nicht fragen - geniessen  ;)

ata

koehlerbv:
@ata:
Besser nicht geniessen - nix ist schlimmer, als daß etwas funktioniert, und man weiß nicht, warum ;-)

@kathalena:
"Im Prinzip nichts gemacht" - also doch was gemacht ? Da könnte sich nachforschen lohnen, bevor das noch mal passiert ...
Kleiner Tip: Wenn etwas nicht funktioniert, was nach allem Anschein aber funktionieren sollte, dann den Designer beenden, die (geänderte) DB ebenfalls (in allen Instanzen) und es dann nochmal probieren. Manchmal bekommt der Client Änderungen im Designer nicht mit ...

Und - aus eigener Erfahrung - sicherstellen, daß man nicht im Designer in Replik A Änderungen macht und sie im Client in Replik B überprüft (ohne zu replizieren;-)

Ciao,
Bernhard

ata:

--- Zitat von: koehlerbv am 02.09.03 - 19:13:27 ---@ata:
Besser nicht geniessen - nix ist schlimmer, als daß etwas funktioniert, und man weiß nicht, warum ;-)

--- Ende Zitat ---

... na dann viel Spaß - ich forsche das eine oder andere Mal nach, aber einiges bleibt unerklärlich in den Tiefen von Notes begründet und hat nichts mit Logik oder System zu tun - und dann gilt das von mir gesagte...

ata

kathalena:
hehe. danke ihr zwei!

ich weiss inzwischen schon was ich gemacht habe, aber es ist unlogisch (zumindest meiner meinung nach, aber ich kenn mich ja net aus):

unten ein ausschnitt aus dem code... ich verwende eigentlich bei beiden abfragen die gleich art und weise (mit getdocumentbykey bzw getalldocumentsbykey). einmal setz ich dir "zaehl"variable auf null und einmal nicht. einmal funktionierts ohne (oben) und unten funktionierts nur mit und das obwohl ich den selben code in hellviolett auch wo anders OHNE das auf null setzen verwendet hab (und dort gehts).
kann mir das mal wer erklaeren?
   
mfg, kathalena


   Set ansicht=db.GetView("AZalle")
   
   If Isnull(ansicht) Then
      Msgbox "Die Ansicht 'AZalle' konnte nicht geöffnet werden"
      Exit Sub
   End If
   
   Set doc2=ansicht.GetDocumentByKey(ma, True)
   
   If doc2 Is Nothing Then
      Msgbox "Sie haben für diesen Tag keine Arbeitszeiten eingetragen."
      Exit Sub
   Else
      
      If  wday=2 Then
         az_dauer1=doc2.GetItemValue("AZ_Montag_Dauer")
      Elseif wday=3 Then
         az_dauer1=doc2.GetItemValue("AZ_Dienstag_Dauer")
      Elseif wday=4 Then
         az_dauer1=doc2.GetItemValue("AZ_Mittwoch_Dauer")
      Elseif wday=5 Then
         az_dauer1=doc2.GetItemValue("AZ_Donnerstag_Dauer")
      Elseif wday=6 Then
         az_dauer1=doc2.GetItemValue("AZ_Freitag_Dauer")
      Else
         az_dauer1(0)="0"
      End If   
      az_dauer=az_dauer + az_dauer1(0)
   End If
   

   
'bereits abgelieferte Arbeitsberichte von mitarbeiterIn an Datum finden
   
   Set ansicht1=db.GetView("ABalle")   
   
   If Isnull(ansicht1) Then
      Msgbox "Die Ansicht 'ABalle' konnte nicht geöffnet werden"
      Exit Sub
   End If
   
   keys(1) = uidoc.FieldGetText("ZIDMA")
   keys(2) = uidoc.FieldGetText("ABDatum")
   
   Set dc=ansicht1.getAllDocumentsByKey(keys)
   
   If dc.count = 0 Then
      Msgbox "Sie haben für den " & dat & " keine Arbeitszeiten eingetragen. Es fehlen Arbeitsberichte im Umfang von " & az_dauer & " Stunden."
      Exit Sub
   End If
   
   Set doc=dc.GetFirstDocument
   ab_dauer=0

   While Not doc Is Nothing
      ab_dauer1=doc.GetItemValue("ABStunden_1")
      
      If Isnumeric(ab_dauer1(0)) Then
         ab_dauer=ab_dauer+ab_dauer1(0)   
      End If   
      Set doc=dc.GetNextDocument(doc)
   Wend

Navigation

[0] Themen-Index

[*] Vorherige Sete