Buchbild im Mahnschreiben

Mehr
11 Jahre 4 Wochen her #476 von Steinmauern
COM_KUNENA_MESSAGE_CREATED_NEW
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.

Mehr
11 Jahre 4 Wochen her - 11 Jahre 4 Wochen her #477 von sglodek
COM_KUNENA_MESSAGE_REPLIED_NEW
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:
COM_KUNENA_EDITING_LASTEDIT_ON_BY

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Ladezeit der Seite: 0.109 Sekunden

Warenkorb

0 Produkte- 0.00 EUR
Zum Warenkorb

Login

Links

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.