//P. Predatsch, 20. Dez. 2008
Case(IsValid( DTitel.Periodikum::_pk_GUID );
// Zitform für Artikel
Trim(
TextStyleAdd (d_AutorVorname_t; Italic) & " " & TextStyleAdd (d_AutorNachname_t; Italic) & TextStyleAdd (xCalc_Pseudonym_t; Italic) &
Case( not IsEmpty( d_CoAutoren_t ) ; TextStyleAdd ("/"; Italic) & TextStyleAdd (d_CoAutoren_t; Italic) ) & ", " &
d_Titel_t & ", in: " &
Case(DGlobals::d_SigleBenutzen_n = 1 and not isempty( DTitel.Periodikum::d_Sigle_t );
DTitel.Periodikum::d_Sigle_t;
DTitel.Periodikum::d_Titel_t) &
Case( not IsEmpty ( d_AusgabeVol_t ); " " & d_AusgabeVol_t ) &
Case( not IsEmpty ( d_Datierung_t ); ", " & d_Datierung_t ) &
Case( not IsEmpty ( d_AusgabeSeite_t ); ", " & d_AusgabeSeite_t )
) // End trim
; IsValid( DTitel.Titel.Sammelband::_pk_GUID );
// Zitform für Aufsätze
//Quellen
Case( not IsEmpty ( d_Quellenart_t );
Trim(
d_Titel_t &
Case( not isempty( d_BibliogrZusätze_t ); ". " & d_BibliogrZusätze_t ) &
", in: " &
Case( not IsEmpty (DTitel.Titel.Sammelband::d_Reihe_t);
Case( DGlobals::d_SigleBenutzen_n = 1 and not isempty(DTitel.Titel.Sammelband::d_Sigel_t); DTitel.Titel.Sammelband::d_Sigel_t & " "; DTitel.Titel.Sammelband::d_Reihe_t & ", Bd. ") &
DTitel.Titel.Sammelband::d_AusgabeVol_t;
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_Auflage_t ) ; TextStyleAdd ( DTitel.Titel.Sammelband::d_Auflage_t ; Superscript)) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Datierung_t ) ; DTitel.Titel.Sammelband::d_Datierung_t ) &
Case( not IsEmpty( d_AusgabeSeite_t ) ; ", " & d_AusgabeSeite_t )
) // End trim
;
//Literatur
Trim(
Case ( not isempty(d_Autornachname_t); TextStyleAdd (d_AutorVorname_t; Italic) & " " & TextStyleAdd (d_AutorNachname_t; Italic) & TextStyleAdd (xCalc_Pseudonym_t; Italic)) &
Case( not IsEmpty( d_CoAutoren_t ) ; TextStyleAdd ("/"; Italic) & TextStyleAdd (d_CoAutoren_t; Italic) ) &
", " & d_Titel_t & ", " &
Case( not IsEmpty (d_BibliogrZusätze_t); d_BibliogrZusätze_t) &
"in: " &
Case ( not isempty(DTitel.Titel.Sammelband::d_Autornachname_t) and IsEmpty (DTitel.Titel.Sammelband::d_Quellenart_t) ; DTitel.Titel.Sammelband::d_AutorVorname_t & " " & DTitel.Titel.Sammelband::d_AutorNachname_t & DTitel.Titel.Sammelband::xCalc_Pseudonym_t &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_CoAutoren_t ) ; "/" & DTitel.Titel.Sammelband::d_CoAutoren_t) & case( DTitel.Titel.Sammelband::d_herausgeber_n = 1 ; " (Hrsg.)" ) & ", " ) &
Case( DGlobals::d_SigleBenutzen_n = 1 and not isempty(DTitel.Titel.Sammelband::d_Sigel_t); DTitel.Titel.Sammelband::d_Sigel_t & Case( not IsEmpty (DTitel.Titel.Sammelband::d_AusgabeVol_t) and IsEmpty (DTitel.Titel.Sammelband::d_Reihe_t); " " & DTitel.Titel.Sammelband::d_AusgabeVol_t ) ; DTitel.Titel.Sammelband::d_Titel_t & Case( not IsEmpty (DTitel.Titel.Sammelband::d_AusgabeVol_t) and IsEmpty (DTitel.Titel.Sammelband::d_Reihe_t); ", Bd. " & DTitel.Titel.Sammelband::d_AusgabeVol_t )) &
". " &
Case( not IsEmpty (DTitel.Titel.Sammelband::d_Reihe_t) ; "(" & Case( DGlobals::d_SigleBenutzen_n = 1 and not isempty(DTitel.Titel.Sammelband::d_Sigel_t); DTitel.Titel.Sammelband::d_Sigel_t & " "; DTitel.Titel.Sammelband::d_Reihe_t & ", Bd. ") & DTitel.Titel.Sammelband::d_AusgabeVol_t & ".) ") &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_BibliogrZusätze_t ); DTitel.Titel.Sammelband::d_BibliogrZusätze_t & " ") &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Ort_t ); DTitel.Titel.Sammelband::d_Ort_t & " ") &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Auflage_t ) ; TextStyleAdd ( DTitel.Titel.Sammelband::d_Auflage_t; Superscript ) ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Datierung_t ) ; DTitel.Titel.Sammelband::d_Datierung_t ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_URL_t ) ; ", online: " & DTitel.Titel.Sammelband::d_URL_t ) &
Case( not IsEmpty( d_AusgabeSeite_t ) ; ", " & d_AusgabeSeite_t )
) // End trim
) //End Case Aufsätze
;
// Zitform für Monographien und Sammelbände
//Quelle
Case( not IsEmpty ( d_Quellenart_t );
Trim(
d_Titel_t & ". " &
Case( not isempty( d_BibliogrZusätze_t ); d_BibliogrZusätze_t &" " ) &
Case( not IsEmpty (d_Reihe_t);
"(" &
Case( DGlobals::d_SigleBenutzen_n = 1 and not isempty(d_Sigel_t); d_Sigel_t & " "; d_Reihe_t & ", Bd. ") &
d_AusgabeVol_t &
".) " ) &
Case( not IsEmpty( d_Ort_t ); d_Ort_t & " ") &
Case( not IsEmpty( d_Auflage_t ) ; TextStyleAdd ( d_Auflage_t; Superscript ) ) &
Case( not IsEmpty( d_Datierung_t ) ; d_Datierung_t )
) // End trim
;
//Literatur
Trim(
Case ( not isempty(d_Autornachname_t); TextStyleAdd (d_AutorVorname_t; Italic) & " " & TextStyleAdd (d_AutorNachname_t; Italic) & TextStyleAdd (xCalc_Pseudonym_t; Italic) &
Case( not IsEmpty( d_CoAutoren_t ) ; TextStyleAdd ("/"; Italic) & TextStyleAdd (d_CoAutoren_t; Italic)) & case( d_herausgeber_n = 1 ; " (Hrsg.)" ) &
", " ) &
Case( DGlobals::d_SigleBenutzen_n = 1 and not isempty(d_Sigel_t); d_Sigel_t & Case( not IsEmpty (d_AusgabeVol_t) and IsEmpty (d_Reihe_t); " " & d_AusgabeVol_t ) ; d_Titel_t & Case( not IsEmpty (d_AusgabeVol_t) and IsEmpty (d_Reihe_t); ", Bd. " & d_AusgabeVol_t )) &
". " &
Case( not IsEmpty (d_Reihe_t) ; "(" & Case( DGlobals::d_SigleBenutzen_n = 1 and not isempty(d_Sigel_t); d_Sigel_t & " "; d_Reihe_t & ", Bd. ") & d_AusgabeVol_t & ".) ") &
Case( not IsEmpty( d_BibliogrZusätze_t ); d_BibliogrZusätze_t & " ") &
Case( not IsEmpty( d_Ort_t ); d_Ort_t & " ") &
Case( not IsEmpty( d_Auflage_t ) ; TextStyleAdd ( d_Auflage_t; Superscript ) ) &
Case( not IsEmpty( d_Datierung_t ) ; d_Datierung_t ) &
Case( not IsEmpty( d_URL_t ) ; ", online: " & d_URL_t )
) // End trim
)//End Case Monographien
) //End Case
& "."