//H. Stoppel 25.03.2009
// basierend auf Definition für Suhrkamp, Nachname zuerst: N. Busch 18.04.2009
Let(
[$Periodikum =
Case(
DGlobals::d_SigleBenutzen_n = 1 and not IsEmpty( DTitel.Periodikum::d_Sigle_t );
DTitel.Periodikum::d_Sigle_t;
DTitel.Periodikum::d_Titel_t
);
$Sammelband =
Case(
not IsEmpty( DTitel.Titel.Sammelband::d_Sigel_t );
DTitel.Titel.Sammelband::d_Sigel_t;
DTitel.Titel.Sammelband::d_Titel_t
)
]
;
Case(
d_Datentyp2_t = "Artikel";
// Zitform für Artikel
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_ctu &
Case( not IsEmpty( d_CoAutoren_t ) ; "; " & d_CoAutoren_t ) & ": " & d_Titel_t & ", in: " &
TextStyleAdd( $Periodikum ; Italic ) &
Case(
not IsEmpty( d_AusgabeVol_t ) ; " "& TextStyleAdd( d_AusgabeVol_t ; Italic) & Case( not IsEmpty( d_Datierung_t ) ; " (" & d_Datierung_t & ")" ) ;
Case(not IsEmpty(d_Datierung_t) ; ", " & d_Datierung_t & "," )
) // End Case
&
Case( not IsEmpty( d_AusgabeNr_t ); " Nr. " & d_AusgabeNr_t ) &
Case( not IsEmpty( d_AusgabeSeite_t) ; ", S. " & d_AusgabeSeite_t )
) // End trim
;
d_Datentyp2_t = "Aufsatz";
// Zitform für Aufsätze
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_ctu &
Case( not IsEmpty( d_CoAutoren_t ) ; ", " & d_CoAutoren_t ;
not IsEmpty( xCalc_NamenCoautorenVN_ctu) ; ", " & xCalc_NamenCoautorenVN_ctu) &
": " & d_Titel_t & ", in: " &
Case( IsEmpty( DTitel.Titel.Sammelband::d_Sigel_t) ;
Case( DTitel::_fk_Autor_ct <> DTitel.Titel.Sammelband::_fk_Autor_ct;
Trim( DTitel.Titel.Sammelband::d_AutorNachname_t & ", " & DTitel.Titel.Sammelband::d_AutorVorname_t);
"ders." ) &
Case( not IsEmpty(DTitel.Titel.Sammelband::d_CoAutoren_t) ; DGlobals::d_CoAutorTrenner_t & " "& DTitel.Titel.Sammelband::d_CoAutoren_t) &
Case( DTitel.Titel.Sammelband::d_Herausgeber_n = 1 ; " (" & DGlobals::d_HerausgeberKürzel_t & "), "; ", " )
) &
TextStyleAdd( $Sammelband ; Italic ) &
Case( not IsEmpty( d_AusgabeVol_t ); TextStyleAdd( " Bd."& d_AusgabeVol_t ; Italic) ) &
", " &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Ort_t ); DTitel.Titel.Sammelband::d_Ort_t& "," ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Auflage_t ) and d_Auflage_t <> 1 ; " " & DTitel.Titel.Sammelband::d_Auflage_t& ". Aufl." ) &
Case( not IsEmpty( DTitel.Titel.Sammelband::d_Datierung_t ) ; " " & DTitel.Titel.Sammelband::d_Datierung_t ) &
Case( not IsEmpty( d_AusgabeSeite_t ) ; ", S. " & d_AusgabeSeite_t )
) // End trim
;
// Zitform für Monographien
Trim(
d_AutorNachname_t &
Case( not IsEmpty( d_AutorVorname_t ) ; ", " & d_AutorVorname_t ) &
xCalc_Pseudonym_ctu &
Case( not IsEmpty( d_CoAutoren_t ) ; "; " & d_CoAutoren_t ;
not IsEmpty( xCalc_NamenCoautorenVN_ctu) ; ", " & xCalc_NamenCoautorenVN_ctu) &
Case( d_Herausgeber_n =1 ; " (" & DGlobals::d_HerausgeberKürzel_t & ")" ) &
": " & TextStyleAdd( d_Titel_t ; Italic ) & "," &
Case( not IsEmpty( d_Reihe_t); " "& d_Reihe_t & "," ) &
Case( not IsEmpty( d_Ort_t );" "& d_Ort_t& "," ) &
Case( not IsEmpty( d_Auflage_t ) and d_Auflage_t <> 1 ; " " & d_Auflage_t & ". Aufl." ) &
Case( not IsEmpty( d_Datierung_t ) ; " " & d_Datierung_t ) &
Case( not IsEmpty( d_BibliogrZusätze_t ) ; " (" & d_BibliogrZusätze_t & ")")
) // End trim
) //End Case
& DGlobals::v_ZitFormSchlusszeichen
)