//Th. Schmidt 20.01.2007
Case(
IsValid( DTitel.Periodikum::_pk_GUID.Periodikum );
// Zitform für Artikel
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case( not IsEmpty( d_CoAutoren_t ) ; Case( PatternCount( d_CoAutoren_t ; "&" ) = 1 ; " u.a." ; " & " & d_CoAutoren_t ) ) &
Case( not IsEmpty(d_DatumJahr_t) ; " (" & d_DatumJahr_t & ")") &
": " & TextStyleAdd( d_Titel_t ; Italic ) & ". In: " &
DTitel.Periodikum::d_Titel_t &
Case( not IsEmpty( d_AusgabeVol_t ); " " & d_AusgabeVol_t ) &
Case( not IsEmpty( d_AusgabeNr_t ); "/" & d_AusgabeNr_t ) &
Case( not IsEmpty( d_AusgabeSeite_t) ; ": S. " & d_AusgabeSeite_t )
) // End trim
;
IsValid( DTitel.Titel.Sammelband::_pk_GUID.Titel );
// Zitform für Aufsätze
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case( not IsEmpty( d_CoAutoren_t ) ; Case( PatternCount( d_CoAutoren_t ; "&" ) = 1 ; " u.a." ; " & " & d_CoAutoren_t ) ) &
Case( not IsEmpty(d_DatumJahr_t) ; " (" & d_DatumJahr_t & ")") &
": " & TextStyleAdd( d_Titel_t ; Italic ) & ". In: " &
Trim( DTitel.Titel.Sammelband::d_AutorVorname_t & " " & DTitel.Titel.Sammelband::d_AutorNachname_t ) &
", Hrsg.: " & DTitel.Titel.Sammelband::d_Titel_t & ", " &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Ort_t ); DTitel.Titel.Sammelband::d_Ort_t ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Ort_t ) and not IsEmpty( DTitel.Titel.Sammelband::d_Verlag_t ) ; ": ") &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Verlag_t ) ; DTitel.Titel.Sammelband::d_Verlag_t ) &
Case( not IsEmpty( d_AusgabeSeite_t ) ; ", " & d_AusgabeSeite_t )
) // End trim
;
// Zitform für Monographien
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_t &
Case( not IsEmpty( d_CoAutoren_t ) ; Case( PatternCount( d_CoAutoren_t ; "&" ) = 1 ; " u.a." ; " & " & d_CoAutoren_t ) ) &
Case( d_Sammelband_b ; ", Hrsg." ) &
Case( not IsEmpty( d_herausgeber_t ) ; Case( not IsEmpty( d_AutorNachname_t ) ; " (" ) & d_herausgeber_t & ", Hrsg." & Case( not IsEmpty( d_AutorNachname_t ) ; ")" ) ) &
Case( not IsEmpty(d_DatumJahr_t) ; " (" & d_DatumJahr_t & ")") &
": " & TextStyleAdd( d_Titel_t ; Italic ) & ". " &
Case( not IsEmpty( d_Ort_t ); d_Ort_t ) &
Case( not IsEmpty( d_Ort_t ) and not IsEmpty( d_Verlag_t ) ; ": ") &
Case( not IsEmpty( d_Verlag_t ) ; d_Verlag_t ) &
Case( not IsEmpty( d_BibliogrZusätze_t ) ; " (" & d_BibliogrZusätze_t & ")")
) // End trim
) //End Case
& DGlobals::v_ZitformSchlusszeichen