Buchbild im Mahnschreiben

Steinmauern
Autor
Offline
COM_KUNENA_SAMPLEDATA_RANK1

Mehr

10 Jahre 10 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.

sglodek
Offline
COM_KUNENA_SAMPLEDATA_RANK_ADMIN

Mehr

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

Powered by Kunena Forum

Warenkorb

0 Produkte	-	0.00 EUR
Zum Warenkorb

Buchbild im Mahnschreiben

Dateianhang:

Anhang:

Warenkorb

Login

Links