Thread PDF::API2 Serienpdf erzeugen
(8 answers)
Opened by provisoft at 2017-07-07 11:22
Hallo ...
ich erzeuge mit dem Modul PDF::API2 öfter PDF-Files. Klappt alles ohne Probleme. Nun möchte ich per While Schleife Pdf erzeugen und dies gleich per Mail verschicken. Beim ertsen Durchgang klappt das, beim zweiten scheitere ich mit dem Fehler: Can't call method "val" on an undefined value at D:/Dev/Perl/perl/site/lib/PDF/API2/Resource.pm line 64. Muss ich irgendetwas initialisieren ? habe schon alles Mögliche versucht. Beispiel von Code-Schnipsel anbei... Der Fehler tritt bei ersten Schreiben einer Zeile in zweiten Durchlauf der Schleife auf .... Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 while (@a = $A->fetchrow_array) { #------------------------- # File öffnen #----------------------------- $pdfdir = $zeile[6]; $pdfpath = $zeile[5]; $filename = "xxxxxxx_" . $a[0] . ".pdf"; $pdfname = $filename; &newPage_Quer(); &head(); $seite = 1; $hoch = "490"; $abda = "30"; &writeLine ( $abda, $hoch, "Helvetica", 12, $a[0], "left"); $hoch = $hoch - 20; &writeLine ( $abda, $hoch, "Helvetica", 12, "xxxxxxxx", "left"); $pdf->saveas($pdfpath . $pdfname); $pdf->end; if ($a[1] ne '') { &sendEmail($a[1],$filename,$a[0]); }; }; Last edited: 2017-07-07 13:25:27 +0200 (CEST) |