IF Veranstaltung.GET(SegmentLine."Event No.") THEN BEGIN
  VerantwortlichePersonen.SETRANGE("Zuordnung zu Art",VerantwortlichePersonen."Zuordnung zu Art"::Veranstaltung);
  VerantwortlichePersonen.SETRANGE(Zuordnung,SegmentLine."Event No.");
  VerantwortlichePersonen.SETRANGE(Kommunikation,TRUE);
  IF VerantwortlichePersonen.FINDFIRST THEN
    IF VerantwortlichePerson.GET(VerantwortlichePersonen."Sachbearbeiter Code") THEN
      VerantwortlichePerson.CALCFIELDS(Signature);
  IF Veranstaltungsort.GET(Veranstaltung."Place of Event") THEN;
  IF CourseLeaderHeader.GET(SegmentLine."Event No.",SegmentLine."Contact No.") THEN BEGIN
    CourseLeaderLine.SETRANGE("Event No.",SegmentLine."Event No.");
    CourseLeaderLine.SETRANGE("Course Leader No.",SegmentLine."Contact No.");
    CourseLeaderLine.SETRANGE(Type,CourseLeaderLine.Type::Honorarium);
    IF CourseLeaderLine.FIND('-') THEN
      REPEAT
        Honorar += CourseLeaderLine."Total Amount";
        HonorarProTag += CourseLeaderLine."Amount per Unit";
      UNTIL CourseLeaderLine.NEXT = 0;
  END;
  IF Veranstaltungszeilen.GET(SegmentLine."Event No.",SegmentLine."Event Line No.") THEN
    IF Teilnehmer.GET(Veranstaltungszeilen."Participant No.") THEN BEGIN
      Formal_Salutation := Teilnehmer.GetSalutation(0,SegmentLine."Language Code");
      Informal_Salutation := Teilnehmer.GetSalutation(1,SegmentLine."Language Code");
    END;
  IF RecAnsprechpartner.GET(Veranstaltungszeilen.Ansprechpartner) THEN;
  IF Sachbearbeiter.GET(Veranstaltung."Salesperson Code") THEN
    Sachbearbeiter.CALCFIELDS(Signature);
  ServiceEvent.SETRANGE("Table Name",ServiceEvent."Table Name"::"Event");
  ServiceEvent.SETRANGE("Event No.",SegmentLine."Event No.");
  IF ServiceEvent.FIND('-') THEN
    REPEAT
      Gesamtbetrag += ServiceEvent."Amount (LCY) net";
      KostenproTag += ServiceEvent."Price (LCY) net";
    UNTIL ServiceEvent.NEXT = 0;
END;