Domino 9 und frühere Versionen > ND7: Entwicklung

Select über @IF-Formel

<< < (2/2)

thomson666:
Lass dir mal nach jedem Codeabschnitt mit @Prompt die Werte ausgeben und vorallem dann vor dem Mailsend, dann siehst sicher leichter wo es hackt.
Kann es sein das es sich beim Feld Email_Message um ein Text und nicht um ein Zahlenfeld handelt?
Mir scheint als ob du einen Wert in den IF Bedingunge abfragst der nicht so ist wie glaubst.

Darum stimmen die Bedingungen nicht und das Subject bleibt leer.

Dazu solltest du auch ein @Prompt für language und Email_Message machen dann siehst gleich ob die Werte so stimmen.

Jörg:
Danke Euch....

der Fehler ist gefunden. hier waren 2 Punkte die Ursache:

- Felddefinition
Telweise waren die Felder als Textfelder angelegt

- Contains
Fehler in dem Aufbau der Abfrage

Hier nun der complette Code:

--- Code: ---Subject := "Neues oder überarbeitetes Dokument in Service-Datenbank";
Remark := "Ein Dokument wurde neu in die Datenbank eingestellt oder wurde überarbeitet."+ @Char(13)  + "";
Remark_neu := "Ein Dokument wurde neu in die Datenbank eingestellt."  + @Char(13)  + "" ;
Remark_1 := "Das Dokument  mit der  " ;
Remark_2 := " Es  kann in der ServiceInfoBase" + @Char(13) + " über den nachfolgenden Link ausgewählt werden." + @Char(13) + "  ->Link :   " ;
Remark_3 := "Beschreibung :  " + @Text(titel);

Subject_GB := "New or over worked document in the Service-Info-Base";
Remark_GB := "A document in the database are new insert or overworked .";
Remark_GBneu := "A document are insert new in the database.";
Remark_GB1 := "The dokument with the  " ;
Remark_GB2 := " can be found in the" + @Char(13) + " database over the followed link."  + @Char(13) +  "  ->Link :   " ;
Remark_GB3 := "Discription :  " + @Text(titel);

Subject_FR := "Document nouveau ou modifié dans la base de données";
Remark_FR := "Un document a été à nouveau enregistré ou modifié dans la base de données.";
Remark_FRneu := "Un document a été à nouveau enregistré dans la base de données.";
Remark_FR1 := "Le document avec le";
Remark_FR2 := "  dans la base de données  Service Info Base" + @Char(13) + " peut être séléctionner avec le lien."  + @Char(13) +  "  ->Lien :   " ;
Remark_FR3 := "Déscription :  " + @Text(titel);

Message_sel:=@If(
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="deutsch";Remark_1 + Remark_3 + Remark_2;
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="englisch";Remark_GB1 + Remark_GB3 + Remark_GB2;
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="französisch";Remark_FR1 + Remark_FR3 + Remark_FR2;
@Text(Doc_Freigabe)= "0"&(!@Contains(dcreaders;"Service"));"Ein Dokument wurde evtl. ohne eine richitge Vergabe der LeseRechte eingestellt"  + @Char(13) +  "  ->Link :   " + Remark_3;
@Text(Doc_Freigabe)= "1";Remark_neu + Remark_3 + Remark_2;
"Error");

Subject_sel:=@If(
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="deutsch"; Subject;
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="englisch";Subject_GB;
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="französisch";Subject_FR;
@Text(Doc_Freigabe)= "0"&(!@Contains(dcreaders;"Service"));"Neuer Eintrag Serviceinfobase evtl. mit Rechteproblem";
@Text(Doc_Freigabe)= "1";"Neues Dokument ohne Freigabe in Servicedatenbank";
"Error");

Remark_sel:=@If(
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="deutsch"; Remark;
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="englisch";Remark_GB;
@Text(Email_Message)= "1"&@Text(MainDoc_Language)="französisch";Remark_FR;
@Text(Doc_Freigabe)= "0"&(!@Contains(dcreaders;"Service"));"Neuer Eintrag Serviceinfobase evtl. mit Rechteproblem";
@Text(Doc_Freigabe)= "1";"Neues Dokument ohne Freigabe in Servicedatenbank";
"Error");

Receiver_Sel:=@If(
@Text(Email_Message)= "1";@Text(Emailempfaenger);
@Text(Doc_Freigabe)= "1"&(!@Contains(@DbTitle;"WKT"));"Weiss-ServiceAdmin";
@Text(Doc_Freigabe)= "1"&(@Contains(@DbTitle;"WKT"));"WKT-ServiceAdmin";
@Text(Doc_Freigabe)= "0"&(!@Contains(dcreaders;"Service"))&(@Contains(@DbTitle;"WKT"));"WKT-ServiceAdmin";
@Text(Doc_Freigabe)= "0"&(!@Contains(dcreaders;"Service"))&(!@Contains(@DbTitle;"WKT"));"Weiss-ServiceAdmin";
"Error");

@If(
Receiver_Sel="Error";"";
Remark_sel="Error";"";
Subject_sel="Error";"";
Message_sel="Error";"";
@MailSend(Receiver_Sel;"";""; Subject_sel; Remark_sel ;Message_sel;[IncludeDoclink]:[Sign]))

--- Ende Code ---

So und nun mache ich mich an die Texte selber.....
Herzlichen Dank für die Antworten denn die waren nur mal so schnell getippt.

Gruss Jörg

Navigation

[0] Themen-Index

[*] Vorherige Sete