Domino 9 und frühere Versionen > ND6: Entwicklung

Problem mit zeitgesteuerten Agenten

<< < (2/4) > >>

LuckyNotes2004:
sorry, ich stelle auch hier den zugehörigen Code hinzu.... und wäre echt dankbar für Tips.....



--- Code: ---REM {Versand einer Info-SMS an Vorgesetzte, wenn Mitarbeiter Geburtstag haben!!!} ;
REM {Wenn Logging = "Ja" - Ausgabe von Debug-Prompts!} ;
Logging := "" ;

db := @DbTitle ;
server := @Subset( @DbName ; 1 ) ;
pfad := @Subset( @DbName ; -1 ) ;

anrede := Salutation ;
vorname := FirstName ;
nachname := LastName ;
geburtstag := @Text( Birthday ; "D0" ) ;
region := SalesBranch_3 ;
abteilung := @Word(Position; " "; 2) ;
position := @Word(Position; " "; 1) ;

key := region + "," + "Leiter" + "," + abteilung ;
SendenAnA := @DbLookup( "" : "NoCache" ; server : pfad ; "PersonHeads" ; key ; 2 ; [FailSilent] ) ;
REM {SendenAnA := "0172xxxxxxx@SMS"} ;
keyHead := region + "," + "Leiter" + "," + "Region(en)" ;
SendenAnB := @DbLookup( "" : "NoCache" ; server : pfad ; "PersonHeads" ; keyHead ; 2 ; [FailSilent] ) ;
REM {SendenAnB := "0163xxxxxxx@SMS" };
Empfänger := SendenAnA : SendenAnB ;

thema := "Info. aus " + db + ": >>" + anrede + " " + vorname + " " + nachname + " hat heute Geburtstag ! <<" ;
inhalt := " Geburtsdatum ist der: " + geburtstag + " !" ;

@If(Logging = "Ja" ;
@Prompt([Ok]; "anrede vorname nachname" ; anrede + " " + vorname + " " + nachname ) &
@Prompt([Ok]; "geburtstag" ; geburtstag ) &
@Prompt([Ok]; "region,position,abteilung" ; region + "," + position + "," + abteilung ) &
@Prompt([Ok]; "key" ; key ) &
@Prompt([Ok]; "SendenAnA" ; @Implode( SendenAnA; " : " )) &
@Prompt([Ok]; "keyHead" ; keyHead ) &
@Prompt([Ok]; "SendenAnB" ; @Implode( SendenAnB ; " : " )) &
@Prompt([Ok]; "Empfänger" ; @Implode( Empfänger; " : " ) ) &
@Prompt([Ok]; "thema" ; thema ) &
@Prompt([Ok]; "inhalt" ; inhalt ) ;
""
   ) ;

REM {Versand nur, wenn Monat und Tag des Geburstages gleich Monat und Tag von Heute sind !! } ;
REM {@MailSend( SendenAn ; KopieAn ; BlindkopieAn ; Thema ; Anmerkung ; Haupttextfelder ; [Flags]) } ;
REM {Empfänger := "0172xxxxxxx@SMS" : "0163xxxxxxx@SMS" };

@If( Form = "Person" & Birthday != "" ;
@If( ( ( @Day( Birthday ) = @Day( @Now )) & (@Month( Birthday ) = @Month( @Now )) ) ;
@MailSend( Empfänger ; "" ; "" ; thema ; inhalt ; "" ; [IncludeDoclink] ) &
@If(Logging = "Ja" ; @Prompt([Ok] ; "Hinweis" ; "SMS an: " + @Implode( Empfänger ; " : ") + " versandt !") ; "" ) ;
"" ) ;
"" ) ;

SELECT @All
--- Ende Code ---

koehlerbv:
Na, da hat Tode ja Recht gehabt mit seinem letzten Posting.

Bernhard

Tode:
WOHIN soll ein Servergesteuerter Agent Prompten....

Tode

koehlerbv:

--- Zitat von: Tode am 04.03.05 - 15:54:14 ---WOHIN soll ein Servergesteuerter Agent Prompten....

--- Ende Zitat ---

Frag' Lucky  ;D

LuckyNotes2004:
die Prompts habe ich nur während der Entwicklung genutzt und die sind alle peinlichst auskommentiert.... ich bekäme ja ansonsten schon Probleme beim Speichern.....

gehe ich jetzt richtig in der Annahme, dass die Prompts selbst auskommentiert Probleme bereiten? und wenn ja warum ist das so....?

beste Grüße Lucky Notes

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete