0

PDF Datei kopieren in andere Tabelle

Hallo liebe Forumsgemeinde,

ich habe eine Tabelle wo ich erzeugte PDF Berichte mit ablege dies funktioniert auch alles gut,

Nun möchte ich aber dies noch erweitern und die erzeugte PDF in eine andere Dokumenten Tabelle kopieren. Und dies über einen Button.

Welchen Code muss ich dort eintragen? oder evtl den bestehenden Code erweitern?

let antwort := dialog("Bericht als Anhang", "Soll dieser Bericht als Dateianhang erstellt werden?", ["Ja", "Nein"]);
if antwort = "Ja" then
    let DateiName := replacex("Messebericht_" + Kunden.Firma + "_" + Kunden.Kundennummer + "_" + today(), "[~""#%&*:<>?/\{|}.]+", "_") +
        ".pdf";
    let DateiAnhang := importFile(this, printAndSaveRecord(this, "Bericht Messe"), DateiName);
    PDFBericht := DateiName;
    [Versandbereit := 1];
    alert("Der Bericht wurde angehängt. Nicht vergessen ihn dann zu versenden!")
end

Dieser Code erstellt mir den Bericht und legt ihn in das Feld PDFBericht ab klappt wunderbar. Nun soll er aber auch gleichzeitig in eine andere Tabelle kopiert werden.

Jemand eine Idee?

5 Antworten

null
    • Rafael_Sanchis
    • vor 10 Monaten
    • Gemeldet - anzeigen

    let newrec := (crear 'Informes del historial').Id;
    var compartir := shareFile('I_Informe de progreso');
    var fileName := extractx(text('I_Progress Report'), "\/(.*)", "$1");
    newrec.('Informe de progreso' := importFile(newrec, share, fileName));
    unshareFile('I_Informe de progreso')

    .I use this code to copy my PDF to the History Report table from the Progress Report table.  Maybe it will help you.  The code is on button.

      • Heinrich Frey Maschinenbau GmbH
      • Christian_Rott
      • vor 10 Monaten
      • Gemeldet - anzeigen

       Thanks i will try it. But i think i have a solution finsh

      • Lamping & Reisig Gmbh & Co.KG
      • LuRLorenz
      • vor 9 Monaten
      • Gemeldet - anzeigen

        Ich habe gerade ein sehr ähnliches Problem, wie sieht Ihre Lösung aus, wenn ich fragen darf?

      • Heinrich Frey Maschinenbau GmbH
      • Christian_Rott
      • vor 9 Monaten
      • Gemeldet - anzeigen

       Bei mir ist es nun so das ich einen Bericht zum einen erstelle diesen in ein Bild Feld ablege weil dieser dann später noch gesendet wird. Im Anschluß wird dieser auch  gleichzeitig in eine Dokumenten Tabelle abgelegt. der Code liegt auch einen Button der den Code erhält.

      let antwort := dialog("Bericht als Anhang", "Soll dieser Bericht als Dateianhang erstellt werden?", ["Ja", "Nein"]);
      if antwort = "Ja" then
          let me := this;
          let meTempPdf := printAndSaveRecord(me, "Messe Bericht");
          let DateiName := replacex(text(Messe) + "_" + "Messebericht_" + Kunden.Firma + "_" + Kunden.Kundennummer +
              "_" +
              today(), "[~""#%&*:<>?/\{|}.]+", "_") +
              ".pdf";
          let DateiAnhang := importFile(this, printAndSaveRecord(this, "Bericht Messe"), DateiName);
          PDFBericht := DateiName;
          [Versandbereit := 1];
          let new := (create MesseBerichte);
          new.(Messen := me);
          new.(Datum := today());
          new.(Datei := file(me, me.DateiName));
          new.(Status := 1);
          new.('Messe Name' := Messen.xfMesseName);
          new.('Messe Datum' := Messen.xfDatum);
          importFile(new, meTempPdf, me.DateiName);
          'Bericht exportiert' := 1;
          'Exportiert am' := now();
          alert("Der Bericht wurde angehängt. Nicht vergessen ihn dann zu versenden!")
      end

      • Lamping & Reisig Gmbh & Co.KG
      • LuRLorenz
      • vor 9 Monaten
      • Gemeldet - anzeigen

       Ah okay vielen Dank. Habe jetzt eine Lösung für meinen Anwendungsfall gefunden, ich muss eine Unterschrift in eine andere Tabelle kopieren.

      let file := shareFile(Unterschrift);
      let arbeit := 'Letzte Arbeit';
      let name := join(["Unterschrift", text(Datum), substring(Projekte.'Oberbegriff-AS', 0, 4), text(number(this.Nr))], "_") +
          ".png";
      arbeit.(Unterschrift := importFile(arbeit, file, name));
      unshareFile(Unterschrift)