Buchbild im Mahnschreiben

Mehr
11 Jahre 5 Monate 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 5 Monate her - 11 Jahre 5 Monate 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.090 Sekunden

Warenkorb

0 Produkte- 0.00 EUR
Zum Warenkorb

Login

Links