Domino 9 und frühere Versionen > ND6: Entwicklung

Optimierung Lotus Script

<< < (2/3) > >>

koehlerbv:

--- Zitat von: Wilhelm Weber am 04.02.09 - 12:44:06 ---Der Sinn der ganzen Sache ist für jeden Tag im Monat ein einzelnes Dokument in eine Klaenderansicht zu bringen.
--- Ende Zitat ---

Und wozu brauchst Du dazu 31 Felder??

Bernhard

Wilhelm Weber:
weil z.B. Sonntags keine Einträge gemacht werden sollen und sich hinter jedem tag je nach Verfügbarkeit andere werte zur Auswahl ergeben.

DAU-in:
im Script den Wochentag abfragen ?? ??  :o

Wilhelm Weber:
erstmal Danke an alle !!

Hab eine für mich gute Lösung zusammenbekommen..

Const AUTH = "[Konfig]"
   
   Dim i As Integer
   For i = 1 To 31
      If Trim(doc.GetItemValue("F" &Cstr(i))(0)) <> "" Then
         Set newdoc =New NotesDocument (db)
         newdoc.form = "xx"
         
         If i > 9 Then
            newdoc.startdatum = Cdat( Cstr(i) & "." & doc.GetItemValue("mon")(0) & "." & doc.GetItemValue("jahr")(0))
         Else
            newdoc.startdatum = Cdat( "0" &Cstr(i) & "." & doc.GetItemValue("mon")(0) & "." & doc.GetItemValue("jahr")(0))
         End If
         
         newdoc.ma = doc.GetItemValue("F" &Cstr(i))(0)
         Dim authorsitem As New NotesItem(newdoc, "autor", AUTH, AUTHORS)
         Call newdoc.ComputeWithForm(True, False)
         Call newdoc.save(True,False)
      End If
   Next 

Damit läuft es einwandfrei..

Thomas Schulte:
Ich will dir deine Lösung ja nicht verhageln, aber wie schaut es mit Feiertagen, dem Wechsel der AnzahlTage pro Monat und Schaltjahren aus?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete