Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

LotusScript

<< < (3/3)

koehlerbv:
Ein Datum in einem Textfeld ist ein absolutes NoNoNo. Aber das hatte ich oben schon geschrieben. Zur Erläuterung: In einem Datumsfeld wird das Datum als DT-Seriennummer gespeichert und kann in jedes landesspezifische Format durch entsprechende Routinen umgesetzt werden. Ist einDT-Wert ein String, geht international nix. Und wenn jemand sagt: Ja, hallo erstmal, wir sind nur in D-A-CH, dann nur folgendes: Ich habe schon genug Spassvögel erlebt, die ihr OS "spassenshalber" auf englisch oder US-amerikanisch umgesetzt haben.

Andreas' Code passe ich jetzt mal an mein vorheriges Posting an - und ACHTUNG: Sowas funktioniert nur innerhalb identischer OS-Ländereinstellungen:

Dim docCurrent As NotesDocument
Dim vDate As Variant
Dim strResult As String

'docCurrent instantiieren
vDate = CDat (docCurrent.DeinDatumsFeld (0))
strResult = Year (vDate) & Right$ ("0" & Month (vDate))

Bernhard (der Mann in der Suchoj knapp hinter und rechts neben Andreas' Maschine  ;D)

Semeaphoros:
Hinweis: Crossposting mit dem Forum auf OpenBC

koehlerbv:

--- Zitat von: koehlerbv am 08.06.05 - 17:01:09 ---Was ist eigentlich mit Deinen beiden anderen offenen Threads ?

--- Ende Zitat ---

Ich wiederhole meine Frage nochmals: Jetzt hast Du drei Fragen hier offen (innerhalb eines Tages), mehrere Leute haben sich bemüht, und von Dir kommt wenig oder kein Feedback. Das kommt nicht gut, Ernst.

Ich werde wieder antworten, wenn Du die offenen Fragen beantwortet hast.

Bernhard

MrSerious:
Vielen Dank erstmal,

das war so viel Input auf einmal gestern, das ich das erstmal alles ausprobieren musste. Und dann musste ich auch noch weg, so daß ich mich gar nicht mehr zurückmelden konnte.

Probier das hier geschriebene mal umzusetzen, und meine Lotus Script Grundkenntnisse mal anzuwenden.

Hoffe Euch nicht ganz verägert zu haben. War keine Absicht.
Ist alles Neuland für mich und mein erstes Projekt und ich weiß noch nicht, wie ich vorgehen muss!

Danke.

Ernst

MrSerious:
So habe jetzt weiter rumprobiert und bin auf folgende lauffähige Lösung gekommen:

Sub Exiting(Source As Field)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim s As String
   
   Set uidoc = workspace.CurrentDocument
     '***************** Nur neues Dokument vorbelegen!!
   If Not uidoc.isnewdoc Then Exit Sub
   
     '************************** Felder vorbelegen
   's=uidoc.FieldGetText("fldDatum")
   
   
   Dim ndt As notesdatetime
   Set ndt = New NotesDateTime(uidoc.FieldGetText("fldDatum"))
   s=Cstr(Year(ndt.LSLocalTime))  & Right("0" & Cstr(Month(ndt.LSLocalTime)),2)
   
   Dim temp As String
   temp =  lookup("AdminPeriode",s,"fldPeriodefrei")
'   Call uidoc.fieldsetText("fldPeriode",temp)
   
   Dim zeit As String
   If temp = "ja"  Then      
      Print " Periode frei!"
   Else
      Print "Periode schon abgeschlossen!"
   End If
   
   Call uidoc.FieldSetText("tfldPeriodefrei",temp)
'Periodefrei
'   Call uidoc.fieldsetText("Periodefrei",lookup("AdminPeriode",s,"fldPeriodefrei"))
     'Stundensatz
'   Call uidoc.fieldsetText("dblStundensatz",Cstr(lookup("Intern\MitarbeiterAlternativ",s,"dblStundensatz")))
   
End Sub

Navigation

[0] Themen-Index

[*] Vorherige Sete