Domino 9 und frühere Versionen > Administration & Userprobleme

Eintrag in ein Feld ändert ein anderes mit ab!

(1/7) > >>

Bellerophon:
*greetz* @ ALL!

Habe mal wieder ein kleines Problem für Euch, aber ein großes für mich, da ich nicht der Entwickler in Lotus Notes bin. Sitze nun schon seit zwei Stunden inkl. Lotus Notes Designer Hilfe und "Try&Error"-Taktik an folgendem Problem:

Ich habe ein Datumsfeld, eine Optionsschaltfläche und ein Kombinationsfeld in einer Maske. (neben weiteren 167 Feldern)
Wenn eine oder auch beide gefüllt werden, soll das ein drittes oder gar ein drittes UND viertes Feld gleichzeitig oder beim abspeichern  mit abändern!

Dies habe ich mit vielerlei Formeln probiert, weil ich in Script nicht so Firm bin, und bin nun an dieser hängen geblieben, weil sie gerade mal das macht was ich ungefär haben will:

FIELD fldKategorie:=fldKategorie;
@If(Dat_Bera_IV_BewerbAbgAM!="";@SetField("fldKategorie";"Nach Abgabe der Bewerbung");Dat_Bera_IV_BewerbAbgAM)

So, in das Feld "fldKategorie" trägt er nun das ein was ich haben will, aber im Feld "Dat_Bera_IV_BewerbAbgAM" nimmt er den Eintrag raus, und im Feld "Diaolog_Bera_ArtGespr" steht noch garnichts drin, weil ich nicht weiß wie ich es noch ansprechen kann!! ;-((

Ich möchte aber haben, dass wenn ein Datum in diesem Feld (Dat_Bera_IV_BewerbAbgAM) steht, der "Kartenstatus" (fldKategorie) auf "Nach Abgabe der Bewerbung" gesetzt wird, und in ein weiteres Feld (Diaolog_Bera_ArtGespr) aus einer "Beratung" eine "Bewerbung" wird!

Hoffe man hat einen Lösungsansatz?

By the Way:

Ich bin kein "Scriptschnorrer" oder Ähnliches, da ich das nun schon öfter hier gelesen habe, das viele sich ausgenutzt fühlen oder so! Wenn man das hier von denen meint die ein Problem haben, dann ignoriert den Threat einfach..................nur warum gibt es denn ein Forum?

So nun genug davon...........hoffe auf Hilfe!

TMC:
Hi,

ich konzentriere mich jetzt mal auf die Formel, Deinen restlichen Text hab ich nur überflogen :-)

FIELD fldKategorie:=fldKategorie;
@If(Dat_Bera_IV_BewerbAbgAM!="";
          @SetField("fldKategorie";"Nach Abgabe der Bewerbung");
          Dat_Bera_IV_BewerbAbgAM
)

Hier wirst Du wohl, wenn die If - Bedingung nicht erfüllt ist, auf einen Fehler stossen.

Die Formelsprache kann ja nicht wissen, was Du mit der Zeile "Dat_Bera_IV_BewerbAbgAM" meinst.

Willst Du dass das Feld so bleibt wie es ist, wenn die If-Bedingung nicht erfüllt?

Dann setze einfach ein "" ein statt dem "Dat_Bera_IV_BewerbAbgAM".

Wo läuft denn die Formel, im Querysave-Event?

Matthias

Bellerophon:
Hi!

Danke! ;-)

Die Formel soll beim Eintrag im Feld laufen, oder ím Queryclose / -save, das ist egal. Im Querysave habe ich folgenden Script schon stehen:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
   Dim Session As New notessession
   Dim workspace As New notesuiworkspace
   Dim uidoc As notesuidocument
   Dim db As notesdatabase
   Dim doc  As notesdocument
   Dim doc_save   As notesdocument
   Dim view    As notesview
   Dim item As NotesItem
   Dim dc As NotesDocumentCollection
   Dim Str_Suchdoc As String
   Dim Str_Suchuidoc As String
   Dim SaveFlag As String
   
   Set uidoc=workspace.currentdocument
   Set doc_Save= uidoc.Document
   Set db=Session.currentdatabase
   
' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
' Fehler PK
   If Len(uidoc.fieldgettext("Text_PK")) <> 14 Then
      Messagebox "Die PK muß wie folgt geschlüsselt sein:" & Chr(13) & "010166-A-12345" & Chr(13) & "oder" & Chr(13) & "010166-A-XXXXX" , MB_OK + MB_ICONINFORMATION , "Falsche PK !"
      lastName = uidoc.FieldGetText("fldNachname")
      GebDatTag = uidoc.FieldGetText("fldGebDatTag")
      GebDatMon = uidoc.FieldGetText("fldGebDatMon")
      GebDatJahr = uidoc.FieldGetText("fldGebDatJahr")
      PK = GebDatTag+ GebDatMon+Right$ ( GebDatJahr , 2)+ "-"+Left$ ( lastName , 1)+"-"+"XXXXX"
      Call uidoc.FieldSetText("Text_PK", PK)
      
      uidoc.gotofield("Text_PK")
      continue = False
      Exit Sub
   End If
' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
' Fehler EMail   
   If Len(uidoc.fieldgettext("fldEMail")) > 0 Then
      If positionOfChar& = Instr(1, uidoc.fieldgettext("fldEMail"), "@") = True Then
         Messagebox "Die E-Mail-Adresse beinhaltet kein ' @ ' !" , MB_OK + MB_ICONINFORMATION , "Falsche E-Mail-Adresse !"
         uidoc.gotofield("fldEMail")
         continue = False
      '   Exit Sub
      End If
   End If
' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
' Fehler PLZ
   If Len (uidoc.FieldGetText("fldPLZ")) <> 5 Then
      Messagebox "Die PLZ darf nur 5-stellig sein !" , MB_OK + MB_ICONINFORMATION , "Falsche PLZ !"
      uidoc.gotofield("fldPLZ")
      continue = False
   '   Exit Sub
   End If   
' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
   
End Sub

Das mit dem einfach ein "" einsetzen habe ich auch Probiert, aber das ignoriert er einfach, da kennt der nix! ;-)

TMC:
Sollte so in der Art gehen:

If uidoc.FieldGetText("Dat_Bera_IV_BewerbAbgAM") = "" Then
   uidoc.FieldSetText("fldKategorie", "Nach Abgabe der Bewerbung")
Endif

Bellerophon:
Hui, wie schnell!

Teste es gerade mal aus!
Melde mich dann wieder, sitze nämlich immer noch an der Scheiße im Büro....;-( *grins*

Navigation

[0] Themen-Index

[#] Nächste Seite