IF ABx == 1 // fr ohne Mail (nur Druck) und ohne Formular/Briefbogen cFileodt := Stuff(cFilehtml,At(".html",cFilehtml),5,".odt") COPY FILE (cDatver + "F\ODT\KSOXleer.odt") TO (cFileodt) // leere Datei ohne Briefkopf/Formular cFilerdr := Stuff(cFilehtml,At(".html",cFilehtml),5,".rdr") cFilehtml := Stuff(cFilehtml,At(".html",cFilehtml),5,".html") //? cFormpath := "" ELSEIF ABx == 2 // fr ohne Mail (nur Druck) aber mit Formular oder Briefbogen cFileodt := Stuff(cFilehtml,At(".html",cFilehtml),5,".odt") //28.03.2026 13:37 Druck-Version mit Briefbogen/Formular IF "KSOX_BB"$cFormular .OR. !".png"$Lower(cFormular) //Empty(cFormular) COPY FILE (cDatver + "F\ODT\KSOXleer.odt") TO (cFileodt) // leere Datei cFormpath := cDatver + "F\KSOX_BB.png" // plus Briefbogen ELSE // wenn nicht der Briefbogen erwartet wird COPY FILE (cDatver + "F\ODT\KSOXleer.odt") TO (cFileodt) // leere Datei ohne Briefkopf/Formular cFormpath := cFormpath // plus Formular ( noch ohne ../../../../ ) ENDIF cFilerdr := Stuff(cFilehtml,At(".html",cFilehtml),5,".rdr") //28.03.2026 13:37 Druck-Version mit Briefbogen/Formular cFilehtml := Stuff(cFilehtml,At(".html",cFilehtml),5,".html") //28.03.2026 13:37 Druck-Version mit Briefbogen/Formular ELSEIF ABx == 3 // fr Mail cFileodt := Stuff(cFilehtml,At(".html",cFilehtml),5,"_M.odt") //28.03.2026 13:37 Mail-Version mit Briefbogen/Formular IF "KSOX_BB"$cFormular .OR. !".png"$Lower(cFormular) //Empty(cFormular) COPY FILE (cDatver + "F\ODT\KSOXleer.odt") TO (cFileodt) // leere Datei cFormpath := cDatver + "F\KSOX_BB.png" // plus Briefbogen ELSE // wenn nicht der Briefbogen erwartet wird COPY FILE (cDatver + "F\ODT\KSOXleer.odt") TO (cFileodt) // leere Datei ohne Briefkopf/Formular cFormpath := cFormpath // plus Formular ( noch ohne ../../../../ ) ENDIF cFilerdr := Stuff(cFilehtml,At(".html",cFilehtml),5,"_M.rdr") //28.03.2026 13:37 Mail-Version mit Briefbogen/Formular cFilehtml := Stuff(cFilehtml,At(".html",cFilehtml),5,"_M.html") //28.03.2026 13:37 Mail-Version mit Briefbogen/Formular ELSEIF ABx == 4 // fr Leerbrief/leeres Formular cFileodt := Stuff(cFilehtml,At(".html",cFilehtml),5,".odt") //28.03.2026 13:37 Druckversion 'leer' IF "KSOX_BB"$cFormular .OR. !".png"$Lower(cFormular) //Empty(cFormular) COPY FILE (cDatver + "F\ODT\KSOXleer.odt") TO (cFileodt) // leere Datei cFormpath := cDatver + "F\KSOX_BB.png" // plus Briefbogen ELSE // wenn nicht der Briefbogen erwartet wird COPY FILE (cDatver + "F\ODT\KSOXleer.odt") TO (cFileodt) // leere Datei ohne Briefkopf/Formular cFormpath := cFormpath // Ur, bevor ../../..... // nur leeres Formular ENDIF cFilerdr := "" //Stuff(cFilehtml,At(".html",cFilehtml),5,".rdr") //28.03.2026 13:37 Mail-Version mit Briefbogen/Formular cFilehtml := Stuff(cFilehtml,At(".html",cFilehtml),5,".html") //28.03.2026 13:37 Mail-Version mit Briefbogen/Formular ENDIF