Buchbild im Mahnschreiben

Mehr
- #477 von sglodek
Hallo,

Sie können die Berichtvorlage aus dem Anhang verwenden, die kann Bilder anzeigen. Aber ACHTUNG: wenn Sie Ihre Vorlage bereits angepasst haben, müssen Sie die Anpassungen in der neuen Vorlage nochmals durchführen.

Dateianhang:

Dateiname: Mahnungen.fr3
Dateigröße:9 KB



Alternativ können Sie die notwendigen Änderunga an Ihrer Vorlage durchführen:
- platzieren Sie eine "Bild"-Komponente neben dem Titel
- tragen Sie im Feld "filelink" des Bildes den Wert [filename] ein (mit den eckigen Klammern)
- ersetzen Sie den Code des Reports durch folgenden Code:
Code:
procedure Band4OnBeforePrint(Sender: TfrxComponent); var Datum:String; Dauer:extended; tage,Wochen:Integer; ISBN_DB, ISBN:String; i:integer; begin Datum := [frDSDruck."Datum"]; // Das Ausleihdatum des Buchs Dauer := StrToDate([vor])-StrToDate(Datum); // Tage Ausleihdatum bis gebührenfreier Zeitpunkt Wochen := trunc(Dauer) div 7; // Anzahl der Wochen ermitteln Tage := trunc(dauer) mod 7; // Anzahl der darüber hinaus noch verbleibenden Tage Zeilensumme:=Tage*[geb_tag] + Wochen*[geb_woche]; // daraus die Gebühr rechnen ISBN :=''; ISBN_DB := [frDSDruck."ISBN"]; for i:=1 to length(ISBN_DB) do if (ISBN_DB[i] <>' ') and (ISBN_DB[i] in['0'..'9']) then ISBN := ISBN+ISBN_DB[i]; if length(ISBN) >9 then filename := 'C:\Programdata\bisam\daten\jpg\'+ISBN+'.jpg'; end; begin end.
Anhänge:
Letzte Änderung: von sglodek.

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Mehr
#476 von Steinmauern
Hallo,

es wäre schön, wenn man in dem Mahnschreiben auch ein kleines Bild des Buches sehen könnte - der Sehsinn ist ja der am besten ausgeprägte, und die Suche im häuslichen Regal wäre etwas leichter... ;)

Oder geht das etwa schon?

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Ladezeit der Seite: 0.154 Sekunden
Powered by Kunena Forum