Schulverwaltungssoftware NRW

Code: Alles auswählen

[Queries]
__gryFunktionen
__qryFunktionenLehrerAktuellerAbschnitt

;-------------------------------------------------------------------------------------
; Schulinterne Funktionen
;
[Query__qryFunktionen]
Name=__qryFunktionen
InitCommand=select ID, Bezeichnung from K_Schulfunktionen where ID=-1
Command1=select S.ID, S.Bezeichnung
Command2=from K_Schulfunktionen as S
Command3=where S.SchulnrEigner=$SCHULNR$ 
Command4=order by S.Sortierung

[Datasource__qryFunktionen]
Name=__dsFunktionen

[Pipeline__qryFunktionen]
Name=__pplnFunktionen
OpenDatasource=1
CloseDatasource=1
SkipWhenNoRecords=0
UserName=xxFunktionsdaten

;-------------------------------------------------------------------------------------
; Lehrerdaten mit gegebener Funktion im aktuellem Abschnitt
;

[Query__qryFunktionenLehrerAktuellerAbschnitt]
Name=__qryFunktionenLehrerAktuellerAbschnitt
InitCommand=select '' as NameVorname, Kuerzel from K_Lehrer where ID=-1
Command1=select L.Nachname + ', ' + L.Vorname, L.Kuerzel
Command2=from K_Lehrer as L, EigeneSchule as ES
Command3=where L.Sichtbar = '+' and L.SchulnrEigner=$SCHULNR$ and
Command4=exists (select 1 from LehrerFunktionen as F where F.Funktion_ID=:ID
Command5=and F.Lehrer_ID=L.ID and F.Jahr=ES.Schuljahr and F.Abschnitt=ES.SchuljahrAbschnitt)
Command6=order by L.Nachname
MasterSource=__dsFunktionen

[Datasource__qryFunktionenLehrerAktuellerAbschnitt]
Name=__dsFunktionenLehrerAktuellerAbschnitt

[Pipeline__qryFunktionenLehrerAktuellerAbschnitt]
Name=__pplnFunktionenLehrerAktuellerAbschnitt
OpenDatasource=1
CloseDatasource=1
SkipWhenNoRecords=0
UserName=xxFunktionenLehrerAktuellerAbschnittsdaten

Code: Alles auswählen

procedure ReportBeforePrint;
var emailsp, emailsd, vnames, nnames, emails, emailp, emaild, nname, vname, mail : String;
  i : Integer;
  lLabel: TppLabel;
begin
  emailsp := DatenListe(DQ_Lehrer, 'EMail', ';', true);  
  emailsd := DatenListe(DQ_Lehrer, 'EMailDienstlich', ';', true);
  nnames := DatenListe(DQ_Lehrer, 'Nachname', ';', true);
  vnames := DatenListe(DQ_Lehrer, 'Vorname', ';', true);
  emails := '';
  for i := 1 to AnzahlElemente(vnames, ';') do
  begin
    emailp := EinzelElement(emailsp, ';', i);
    emaild := EinzelElement(emailsd, ';', i);
    nname := EinzelElement(nnames, ';', i);
    vname := EinzelElement(vnames, ';', i);
    mail := '';
    If emaild <> '' Then
      mail := emaild
    Else
      If emailp <> '' Then
        mail := emailp;
    If mail <> '' Then
    Begin
      emails := emails + vname + ' ' + nname + ' <' + mail + '>';
      if (i < AnzahlElemente(vnames, ';')) Then
        emails := emails + ', ';
    End;
  End;
  Label2.HyperLink := 'mailto:' + emails
end;