Autor Thema: Feiertage die Zweite  (Gelesen 1383 mal)

Offline morpheus2002

  • Frischling
  • *
  • Beiträge: 17
  • I love YaBB 1G - SP1!
Feiertage die Zweite
« am: 21.05.02 - 13:04:32 »
Hallo ich hab auch ein Porb wegen den Feiertagen
die stehen bei mir nur bis 2001 im Adressbuch muß ich die von hand weiterführen oder kann ich da ein update fahren
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Feiertage die Zweite
« Antwort #1 am: 21.05.02 - 13:35:40 »
Hi,

mir ist im Moment kein Automatismus bekannt. Meines Erachtens ist Handarbeit angesagt.
Ein Teil der Feiertage kann man ja wiederholend eintragen, z.B. Weihnachten oder Neujahr.

Axel
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: Feiertage die Zweite
« Antwort #2 am: 21.05.02 - 13:55:10 »
Wir haben momentan auch das Problem, dass der Import der Feiertage mal wieder unheimlich zuverlässig funktioniert.

Habe hier ein Stück Code gefunden, mit dem man den Import selbst steuern kann. Werde mir das die tage manl genauer ansehen und wohl eine kleine Appl. stricken

Sub Click(Source As Button)
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim session As New NotesSession
Dim dateTime1 As NotesDateTime
Dim dateTime2 As NotesDateTime
Set db = session.CurrentDatabase

' The following code must be repeated for each Holiday:

Set doc = New NotesDocument(db)
Set dateTime1 = New NotesDateTime("01/01/99 12:01:01 AM")
Set dateTime2 = New NotesDateTime("01/01/99 12:01:01 AM")


doc.Subject = "New Year's Day"
doc.Form = "Appointment"
doc.AppointmentType = "2"
Set doc.CalendarDateTime = dateTime1
Set doc.StartDateTime = dateTime1
Set doc.EndDateTime = dateTime2
doc.CHAIR = session.UserName
doc.Duration = 1
doc.From = session.UserName
doc.ExcludefromView = "D"
doc.ORGTABLE = "P0"
doc.Broadcast = " "
doc.Categories = " "
Call doc.AppendItemValue("_ViewIcon", 9)
doc.BookFreeTime = " "
Call doc.AppendItemValue("$BusyName", session.UserName)
Call doc.AppendItemValue("BusyPriority", "1")
Call doc.AppendItemValue("NoPurge", dateTime1)
Call doc.AppendItemValue("$PurgeAccess", "1")
doc.Save True, True
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz