Eintrag in ein Feld ändert ein anderes mit ab!

[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*

[Bellerophon]

Hi TMC!

Nö, macht er nicht, kann im Querysave das ganze noch nicht mal speichern. Sagt mir folgendes:

"Illegale Use of Parantheses"

[TMC]

In welcher Zeile hängt der Debugger?

Sind die gewählten Felder alle Textfelder oder Datum ?

Matthias

[cococo69]

Hi,

um was für Felder handelt es sich bei "fldKategorie" und "Diaolog_Bera_ArtGespr"?

Bei berechneten Feldern kannst du das doch mit einer einfachen If-Formel machen, oder habe ich das falsch verstanden?

>>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!<<

Bsp:
@If(Dat_bera_IV..... != ""; "Nach Abgabe...."; "")

Gruß
cococo69

[TMC]

Noch was:

Baue in den Options des Scripts ein "Option Declare" ein, ist eigentlich immer Pflicht.

Und gib an, wo genau Du meinen Scriptbestandteil platziert hast.

[TMC]

@cococo69, er will ja das ganze im bestehenden Querysave - Event machen, was auch Sinn macht, und das ist bereits Script und nicht Formelsprache.

Matthias

[Bellerophon]

Hi TMC!

In den Options steht ; Option Declare ;-)

Das Script habe ich vor dem End Sub zum Schluß eingebaut!

[Bellerophon]

Hier geht es ja Schlag auf Schlag!

@cococo69---> Siehe oben! Wollte ich Dir auch gerade schreiben.......*grins*

Thanx

[cococo69]

@TMC

>>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!<<

Das verstehe ich anders!?

[TMC]

Und in welcher Zeile hängt der Debugger?

[TMC]

@coco

Er gibt uns ja die Option vor: gleichzeitig, ODER aber beim Speichern.

Ich plädiere daher für den Querysave Event aus Performancegründen.

Sonst läuft es ja auch auf ein Script hinaus, wenn man da was im Exiting - Event der Feldes einbaut, denn da geht keine Formelsprache.

@Bell:
Sind das alles Textfelder die Du verwendest?

[TMC]

Ups, das hab ich jetzt überlesen.

Sorry, coco.

Handelt es sich um berechnete Felder, dann geht das natürlich auch mit Formelsprache!

Bell sollte mal die Randdaten posten
 - welche Feldart (berechnet / bearbeitbar)
 - Feldtyp (Text / Richtext? / Datum
 - in welcher Zeile hängt der Debugger
etc.


Matthias

[Bellerophon]

@TMC:

Ich habe ein Datumsfeld (Dat_Bera_IV_BewerbAbgAM), eine Optionsschaltfläche (Dialog_Bera_IV_BewerbWeiterAN) und ein Kombinationsfeld (Diaolog_Bera_ArtGespr + fldKategorie) in einer Maske. (neben weiteren 167 Feldern)

Der Script debugger hängt sich bei mir immer auf und bringt den Rechner mit "LookUpHandle" zum Absturz! *;-(*

Sorry, würde Dir ja gerne mehr info geben!

[TMC]

sind die berechnet oder bearbeitbar?

[Bellerophon]

@ALL:

Sind alles bearbeitbare Felder!

[TMC]

OK

Sollte dann auch funktionieren das Script von mir:
If uidoc.FieldGetText("Dat_Bera_IV_BewerbAbgAM") = "" Then
  uidoc.FieldSetText("fldKategorie", "Nach Abgabe der Bewerbung")
Endif

Auch der Typ sollte egal sein:

String. The value you want to give to the field. If the fieldName$ is not of type text, this value is converted from text to the appropriate data type when you save the document.

Der Debugger wäre da imho schon sehr hilfreich.

Ist die DB vertraulich? Ansonsten kann ich Dir anbieten, dass Du die mir mal schnell zumailst: atnotes@gmx.de

Dann schau ich mir das an.


Matthias