Kai Mentrop Ordner-ähnliche Strukturen sind, wie Florian schon sagte, nur möglich, wenn man die Dateien nicht als Anhang des jeweiligen Datensatzes, sondern in einer Extra-Tabelle speichert.

Das hat aber noch weitere Vorteile: Dateianhänge blähen die Datenbank auf und lassen den verfügbaren Speicherplatz schrumpfen. Will man vor diesem Hintergrund mal nichtmehr benötigte Dateianhänge löschen, muss man nicht jeden Stammdatensatz aufrufen und dort das Büroklammer-Register öffnen, um die darin befindlichen Dateien zu löschen, sondern kann das sehr viel schneller und einfacher in der Tabelle mit den Dateianhängen tun. Außerdem müssen gleiche Dateien/Dokumente, die in mehreren Datensätzen benötigt werden (z. B. AGB o. ä.), nicht mehr redundant bei jedem betreffenden Datensatz gespeichert werden. Auch das kann den Speicherbedarf deutlich reduzieren. Und wenn sich so ein Standard-Dokument mal ändert, muss man es nicht neu in jeden einzelnen Datensatz laden, sondern nur ein mal in der zentralen Dateiablage.

PS: Und in einer Extra-Tabelle lassen sich zu jeder Datei noch weitere Infos wie bspw. Dateiname, -art und -größe sowie Anmerkungen speichern, nach denen auch gesucht und gefiltert werden kann.

Hallo planox. pro ,

ich suche gerade nach dieser Möglichkeit. Also Datensatzanhänge, die mit Create TextFile erzeugt wurden und nun unter der Büroklammer hängen mit weiteren MetaDaten in eine weitere Tabelle zu speichern, da innerhalb der Büroklammernablage keine Sortierung möglich ist.

Die zusätzliche Tabelle ist da, die neuen Metadaten auch aber ich bekomme den Dateianhang nicht rüber.

Die Anhänge befinden sich in der Tabelle Rechnungsläufe und ich hätte sie gerne in der Tabelle Zahlungsträger.

let myBNK := 'BNK-Lauf-ID';
let myZLDat := format(now(), "YYYY-MM-DD_HHmm";
    let myChoise := dialog("Buchungs-ID", "Ist die Buchungs-ID: " + myBNK + " noch die aktuelle?", ["ja", "nein"]);
    if myChoise = "nein" then
        alert("Bitte zuerst die Banklauf-ID manuell aktualisieren!")
    else
        if 'Zahlaufträgedatei erstellt?' = 1 then
            alert("Bitte noch nicht übertragene Dateien auswählen!")
        else
            let myZDatei := 'Zahlaufträgedatei erstellt?';
            let myArray := (select Zahllauf where 'Status Freigabe' = 1 and 'Embargo-Prüfung' = 1 and 'Z-Datei erstellt' = 0 and Gesperrt != 1);
            let myRow1 := "Transferart;Ausgabeart;Eigenkontoname;Auftragsunterart;Eigenkonto-BLZ/BIC;Eigenkonto-Nummer;Fremdkonto-BLZ/BIC;Eigenkonto-Inhaber;Fremdkontoname;Fremdkonto-Nummer;Fremdkonto-Inhaber;Verwendungszweck;DM-Betrag;Angelegt;Geplant;Späteste Ausführung;Ausgeführt;Skonto bis;Gebucht;Wertstellung;Fremdkonto-Inhaber;Skonto DM;Mehrfachausführung;Anzahl Ausführungen;Modus;Zusatzdaten;Ausstellungsort;Schecknummer;Textschlüssel;Memotext;Gesperrt;TAN1;TAN2;Angelegt von;Zuletzt geändert von;zuletzt geändert am;Primanota;Kategorisierungen;Betrag EUR;Auftragswährung;Skonto EUR;Umsatztext;1. Ausführung;externe AuftragsID;letzte Ausführung;Ende-zu-Ende-Referenz" + "
";
            let myRows := for i in myArray do
                    i.Transferart + ";" + i.Ausgabeart + ";" + i.Eigenkontoname + ";" + i.text(Auftragsunterart) + ";" + i.'Eigenkonto-BLZ/BIC' + ";" + i.'Eigenkonto-Nummer' + ";" + i.'Fremdkonto-BLZ/BIC' + ";" + i.'Eigenkonto-Inhaber' + ";" + i.Fremdkontoname + ";" + i.'Fremdkonto-Nummer' + ";" + i.'Fremdkonto-Inhaber' + ";" + i.Verwendungszweck + ";" + i.'DM-Betrag' + ";" + i.Angelegt + ";" + i.Geplant + ";" + i.'Späteste Ausführung' + ";" + i.'Ausgeführt' + ";" + i.'Skonto bis' + ";" + i.Gebucht + ";" + i.Wertstellung + ";" + i.'Fremdkonto-Inhaber' + ";" + i.'Skonto DM' + ";" + i.'Mehrfachausführung' + ";" + i.'Anzahl Ausführungen' + ";" + i.Modus + ";" + i.Zusatzdaten + ";" + i.Ausstellungsort + ";" + i.Schecknummer + ";" + i.'Textschlüssel' + ";" + i.Memotext + ";" + i.text(Gesperrt) + ";" + i.TAN1 + ";" + i.TAN2 + ";" + i.'Angelegt von' + ";" + i.'Zuletzt geändert von' + ";" + i.'Zuletzt geändert am' + ";" + i.PrimaNota + ";" + i.Kate + ";" + i.'Betrag EUR' + ";" + i.'Auftragswährung' + ";" + i.'Skonto EUR' + ";" + i.Umsatztext + ";" + i.'1. Ausführung' + ";" + i.'externe AuftragsID' + ";" + i.'letzte Ausführung' + ";" + substr(i.'Ende-zu-Ende-Referenz', 0, 32) + "
"
                end;
            let myFileName := format(now(), "YYYY-MM-DD_HHmm") + " " + myBNK + " " + "Zahllauf" + ".csv";
            let myCSV := createTextFile(this, myRow1 + myRows, myFileName);
            'Anzahl der Zahlungstransfers' := cnt(myArray);
            'Letzter ZL am' := now();
            Gesamtwert := sum(myArray.'Betrag EUR');
            let newBLP := (create 'Bankenlauf-Protokoll');
            newBLP.(Datum := today());
            newBLP.(Positionen := cnt(myArray));
            newBLP.(Gesamtbetrag := sum(myArray.'Betrag EUR'));
            newBLP.(ID := myBNK);
            alert("Es wurden " + cnt(myArray) + " Datensätze mit einem Transfervomumen von " + sum(myArray.'Betrag EUR') + " EUR verarbeitet. Bitte die Zahlungsträgerdatei herunterladen und im Filesysem <Dokumente/Zahlungsträgertransfer> ablegen, damit MacGiro sie importieren kann.");
            let newZT := (create 'Zahlungsträger');
            newZT.(Dateierstellung := today());
            newZT.('BNK-ID' := myBNK);
            newZT.(Dateinamen := myFileName);
            newZT.(Datei := importFile(this, printAndSaveRecord(this, myFileName)));
            newZT.(Anzahl := cnt(myArray));
            newZT.(Datei := myFileName);
            newZT.(Wert := sum(myArray.'Betrag EUR'))
        end;
        ...

Hast Du eine Idee wie das geht?

Habe es mit printandsafe probiert aber nicht hinbekommen.

VG

Michael

Michael 

Hallo Michael, ohne mir dein Script jetzt genauer angesehen zu haben: Bei createTextFile(), importFile() und printAndSaverecord() wird als erster Parameter jeweis die ID des Datensatzes angegeben, in dem die Datei erstellt bzw. gespeichert werden soll. Meistens ist es die des aktuellen Datensatzes, also"this". Es kann aber auch eine beliebige andere ID sein, z. B. die eines gerade neu erzeugten Datensatzes.

Desweiteren stellt sich die Frage, in welchem Format die Datei erstellt werden soll. Mit printAndSaveRecord() bekommt man ein PDF-File, mit createTextFile() eben eine Textdatei mit beliebiger Erweiterung (.txt, .csv, .htm ...).

Will man also bspw. aus dem aktuellen Datensatz ein PDF erzeugen, aber in einer anderen Tabelle speichern, könnte das so aussehen (reduziert auf den Vorgang des Erzeugens und Speicherns der Datei):

let me := this;
let myFileName := "Trallala.pdf":
let newRecord := create TABELLE;
importFile(newRecord, printAndSaveRecord(me, "DRUCKLAYOUT"), myFileName)

Als Ergebnis würde sich im Anhang des neu erzeugten Datensatzes in TABELLE eine Datei namens "Trallala.pdf" befinden. Will man die Datei nicht im Anhang, sondern in einem Bildfeld speichern, setzt man in der letzten Zeile einfach die ID und den betreffenden Feldnamen vor das "importFile":

newRecord.BILDFELD := importFile(newRecord, ...)