Buchbild im Mahnschreiben

7 Jahre 8 Monate her #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.

7 Jahre 8 Monate her - 7 Jahre 8 Monate her #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:
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.
Anhang:

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Ladezeit der Seite: 0.109 Sekunden
Copyright © 2021 Büchereiverwaltung für Schulen. Alle Rechte vorbehalten.
Joomla! ist freie, unter der GNU/GPL-Lizenz veröffentlichte Software.
Unsere Seite verwendet Cookies zur Optimierung der Inhalte. Erfasste Informationen werden ausschließlich zur Optimierung der Inhalte verwendet. Insbesondere erfolgt keinerlei Werbung auf Basis verwendeter Cookies. Weitere Informationen finden Sie im Impressum. Mit Klick auf den OK-Schalter stimmen Sie der Verwendung von Cookies zu.