Buchbild im Mahnschreiben
- Steinmauern
- Autor
- Offline
- COM_KUNENA_SAMPLEDATA_RANK1
Weniger Mehr
- Beiträge: 14
- Dank erhalten: 0
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?
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.
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.
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:
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.
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.
COM_KUNENA_EDITING_LASTEDIT_ON_BY
Bitte Anmelden oder Registrieren um der Konversation beizutreten.