Forum

Thema ohne neue Antworten

Zitierform Archivalien


Autor Nachricht
Verfasst am: 01. 06. 2017 [09:27]
aprenn
Themenersteller
Dabei seit: 05.07.2012
Beiträge: 9
Betriebssystem: Windows 10
Litlink-Version: 5.01.011

Hallo,
Ich wollte die Zitierform für Archivalien ändern und eine spezielle Form für Interviews hinzufügen, die so aussieht:
"Archiv, Bestand, Akte, Interview mit [Autor = der/die Interviewte], Interviewerin: [Adressat = Interviewer/in], Ort, Datum."
Die Definition einer Archivalie als Interview habe ich als Eintrag in "Art" vorgenommen.
Leider funktioniert die veränderte Zitierform noch nicht. Ich wäre sehr dankbar, wenn Sie den Fehler finden.
lg

//Definition für Archivalien, Nachname zuerst
//N. Busch 02.09.2008
//A. Prenninger 31.05.2017


Let(
[
$Autor = Trim(
d_AutorVorname_t &
" " & d_AutorNachname_t &
Case( not IsEmpty( d_AutorKörperschaft_t ) ;
Case( not IsEmpty( d_AutorNachname_t ) ; " (") &
d_AutorKörperschaft_t &
Case( not IsEmpty( d_AutorNachname_t ) ; ")")
) //end case
) //end trim
;
$Adressat = Trim(
d_AdressatVorname_t &
" " & d_AdressatName_t &
Case( not IsEmpty( d_AdressatKörperschaft_t ) ;
Case( not IsEmpty( d_AdressatName_t ) ; " (") &
d_AdressatKörperschaft_t &
Case( not IsEmpty( d_AdressatName_t ) ; ")")
) //end case
) //end trim
]
;
Case(
d_Datentyp2_t = "Brief";
"Schreiben von " & $Autor &
Case( not IsEmpty( $Adressat ) ; " an " & $Adressat) &
Case( not IsEmpty( d_Titel_t ) ; " betr. " & d_Titel_t ) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu ) &
", " & xCalc_SignaturKomplett_cti ;
// end typ "Brief"

d_Datentyp2_t = "Notar/Vertrag";
"Notariatsakte " & $Autor &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu ) &
", " & xCalc_SignaturKomplett_cti ;
// end typ "Notar"

d_Datentyp2_t = "Gerichtsentscheid";
Case( not IsEmpty( DTitel.Körperschaft::d_Abkürzung_t ) ; DTitel.Körperschaft::d_Abkürzung_t ; DTitel.Körperschaft::d_Nachname_t ) & ", " &
Case(
not IsEmpty(DTitel::d_Titel_t); //Var 1 : Titelfeld gefüllt
DTitel::d_Titel_t ;
not IsEmpty( d_AutorNachname_t) and not IsEmpty( d_AdressatName_t); //Var 2: Es gibt keinen Titel, aber Kläger und Beklagte
$Autor & " c. " & $Adressat ;
not IsEmpty( d_AutorNachname_t) ; //Var 3: Es gibt keinen Titel und keinen Beklagten
"i.S. " & $Autor ) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu )
// end typ "Gerichtsentscheid"

d_Art_t = "Interview";
xCalc_SignaturKomplett_cti
d_Titel_t
Case( not IsEmpty( d_AutorOrt_t) ; $d_AutorOrt_t) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu ) &
", " & ;
// end typ "Interview"


;

// Typ Allgemein und der Rest
$Autor &
Case( not IsEmpty( $Adressat ) ; " an " & $Adressat) &
Case( not (IsEmpty( $Autor ) and IsEmpty ( $Adressat )) ; ": ") &
d_Titel_t & ". " &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; " " & xCalc_DatierungDeutsch_ctu ) &
Case( not IsEmpty( xCalc_SignaturKomplett_cti ) ; ", " & xCalc_SignaturKomplett_cti )
) // End Case

& DGlobals::v_ZitFormSchlusszeichen_tg
) //end let

Verfasst am: 01. 06. 2017 [13:35]
nicolausbusch
Dabei seit: 26.04.2012
Beiträge: 679
So etwa:

// end typ "Gerichtsentscheid"

;
d_Art_t = "Interview";
xCalc_SignaturKomplett_cti & "," &
"Interview mit " & $Autor &
Case( not IsEmpty( $Adressat ) ; ", Interviewerin: " & $Adressat) &
Case( not IsEmpty( d_AutorOrt_t) ; $d_AutorOrt_t) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu )
// end typ "Interview"

Allerdings wird so ein evtl. vorhandener Titel des Interviews nicht berücksichtigt, ist das gewollt? Sonst würde ich eher so konstruieren:


// end typ "Gerichtsentscheid"

;
d_Art_t = "Interview";
Case( not IsEmpty( d_Titel_t ) ; d_Titel_t & ". ") &
xCalc_SignaturKomplett_cti & "," &
"Interview mit " & $Autor &
Case( not IsEmpty( $Adressat ) ; ", Interviewerin: " & $Adressat) &
Case( not IsEmpty( d_AutorOrt_t) ; $d_AutorOrt_t) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu )
// end typ "Interview"
Verfasst am: 01. 06. 2017 [15:48]
aprenn
Themenersteller
Dabei seit: 05.07.2012
Beiträge: 9
Hallo Herr Busch,
Vielen Dank! Mit einigen kleinen Änderungen hat's nun geklappt. Der Teil sieht nun so aus:

// end typ "Gerichtsentscheid"

;
d_Art_t = "Interview";
xCalc_SignaturKomplett_cti & ", " &
Case( not IsEmpty( d_Titel_t ) ; d_Titel_t ) &
Case( not IsEmpty( $Adressat ) ; ", Interviewerin: " & $Adressat & “, “) &
Case( not IsEmpty( d_AutorOrt_t) ; d_AutorOrt_t) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu )
// end typ "Interview"

;

// Typ Allgemein und der Rest

Verfasst am: 02. 06. 2017 [10:23]
nicolausbusch
Dabei seit: 26.04.2012
Beiträge: 679
"aprenn" schrieb:

xCalc_SignaturKomplett_cti & ", " &
Case( not IsEmpty( d_Titel_t ) ; d_Titel_t ) &
Case( not IsEmpty( $Adressat ) ; ", Interviewerin: " & $Adressat & “, “) &
Case( not IsEmpty( d_AutorOrt_t) ; d_AutorOrt_t) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu )
// end typ "Interview"


Das würde ich noch ein wenig optimieren, was die Interpunktion betrifft. Es ist wichtig eine Systematik einzuhalten, welches Element ein Komma beisteuert. In Ihrem Beispiel gibt es zwischen Signatur und Adressat zwei Kommata, wenn der Titel leer ist, dafür keines zwischen Titel und Autor, wenn es keinen Adressaten gibt. Diese Form fängt das auf, indem jedes Element bei Bedarf ein Komma mitbringt:

xCalc_SignaturKomplett_cti &
Case( not IsEmpty( d_Titel_t ) and not IsEmpty( xCalc_SignaturKomplett_cti ) ; ", ") &
Case( not IsEmpty( d_Titel_t ) ; d_Titel_t ) &
Case( not IsEmpty( $Adressat ) ; ", Interviewerin: " & $Adressat) &
Case( not IsEmpty( d_AutorOrt_t) ; ", " & d_AutorOrt_t) &
Case( not IsEmpty( xCalc_DatierungDeutsch_ctu ) ; ", " & xCalc_DatierungDeutsch_ctu )
// end typ "Interview"



Benutzeranmeldung

Geben Sie Ihren Benutzernamen und Ihr Passwort ein, um sich an der Website anzumelden:
Anmelden

Kennwort vergessen?