Lieferschein mit Sets und Bildern: Unterschied zwischen den Versionen

Version vom 23. November 2020, 10:37 Uhr

1 Allgemeines

Hier wird die Verwendung eines Reports für einen Lieferschein beschrieben, der Sets besonders hervorheben soll und Artikel-Bilder anzeigt.

2 Ergebnis

So soll der Lieferschein aussehen:

(1) Position mit dem Set-Häuptling in Fettschrift

(2) Position mit den Set-Positionen eingerückt nicht fett

(3) Position ohne Set nicht eingerückt, nicht fett

(4) Artikel-Bilder

3 Der Report dazu

Beschreibung der Bänder (Bereiche):

MasterData1

Kopf des Lieferscheins mit Lieferschein- und Auftragsdaten, wie Empfänger, Produktion (Veranstaltung) und die Überschrift für die Postionen.

DetailData1

Positionen des Lieferscheins mit Positionsnummer, Menge, Bezeichnung und Inventar-Nummer.

Per Code (s.u.) wird dieses Band ausgeschaltet, wenn es sich um eine Set-Unterposition handelt. In diesem Fall wird das Child-Band "ChildDetailSetpos" eingeschaltet, das sonst unsichtbar ist.

ChildDetailSetpos

Wenn die Position eine Set-Unterposition ist, wird hier eingerückt Positionsnummer, Menge, Bezeichnung und Inventar-Nummer ausgegeben.

Per Code (s.u.) wird dieses Band ausgeschaltet, wenn es sich um eine "normale" Position handelt. In diesem Fall wird das Band "DetailData1" eingeschaltet.

SubdetailData1

Hier wird ein Artikel-Bild angezeigt, wenn es ein Bild bei dem Artikel gibt.

Per Code (s.u.) wird dieses Band nur dann eingeschaltet, wenn es ein Bild zu dem Artikel gibt.

4 Das Ereignis OnBeforePrint

Damit der Report die gewünschten Bänder ein- bzw. ausschalten kann, wird dieses Ereignis verwendet:

Es wird ausgelöst, bevor das Detail-Band gedruckt (also auch angezeigt, exportiert usw.) wird. Somit kann man per Code reagieren, um die gewünschten Effekte zu erreichen.

5 Der Code dazu

Mit diesem Code wird das Ein- und Ausblenden der Bänder gesteuert:

procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
 // Erst mal Grundstellung für alles, was unten verändert werden kann:                                                                                                                                                            
 DetailData1.Visible := True;
 ChildDetailSetPos.Visible := False;
 memoLieferscheinPositionenBezeichnung.Font.Style := 0;

 // Besonderheiten bei Set's:
 if <AuftrPosZuLieferschPos."SetNr"> > 0 then
 begin
   // Position kommt aus einem Set! Schrift in Fett:                                     
   if StrToInt( <AuftrPosZuLieferschPos."SetNrHauptArtikel"> ) > 0 then
   begin
     // Es ist der Hauptartikel des Set's:
     memoLieferscheinPositionenBezeichnung.Font.Style := fsBold; // Fett                  
   end
   else
   begin
     // Es ist NICHT der Hauptartikel des Set's:
     DetailData1.Visible := False;       // Das eigentliche Detail-Band ausschalten. Dazu Option "Child drucken wenn unsichtbar!" einschalten!                                                                                                                                                                                                                                      
     ChildDetailSetPos.Visible := True;  // Das Child-Band mit den Einrückungen einschalten.                                                                                                                
   end;
 end;
end;

Die Kommentare hinter "//" sollten eigentlich alles erklären!

6 Die Bilder

Auf dem Band liegt eine Image-Komponente auf einem Band, das mit diesem Code bei dem Ereignis "OnBeforePrint" versehen ist:

procedure SubdetailData1OnBeforePrint(Sender: TfrxComponent);
begin
 if <ArtikelBild."DateiName"> >  then
 begin
   if ( Pos( '.JPG',Uppercase(<ArtikelBild."DateiName">) ) > 0 )
   or ( Pos( '.JPEG',Uppercase(<ArtikelBild."DateiName">) ) > 0 )
   or ( Pos( '.PNG',Uppercase(<ArtikelBild."DateiName">) ) > 0 )
   or ( Pos( '.BMP',Uppercase(<ArtikelBild."DateiName">) ) > 0 )
   or ( Pos( '.WMF',Uppercase(<ArtikelBild."DateiName">) ) > 0 )
   or ( Pos( '.EMF',Uppercase(<ArtikelBild."DateiName">) ) > 0 )
   or ( Pos( '.ICO',Uppercase(<ArtikelBild."DateiName">) ) > 0 ) then
      PictureArtikel.Picture.LoadFromFile( trim(<ArtikelBild."Pfadname">) + trim(<ArtikelBild."Dateiname">) )
   else
     PictureArtikel.Picture := Nil;
 end
 else
   PictureArtikel.Picture := Nil;
end;

if ( Pos( '.JPG',Uppercase(<ArtikelBild."DateiName">) ) > 0 )

"Pos" ist eine eingebaute Funktion, die in einem String (Text) nach einem anderen String sucht.

Wenn "Pos" größer als 0 ist, wurde der String gefunden!

Uppercase()

wandelt den String in Großbuchstaben um.

Da die Datei-Erweiterungen im Code (".JPG" usw.) in Großbuchstaben angegeben sind, ist es unerheblich, ob die Dateinamen in Groß- oder Kleinbuchstaben stehen.

7 Standard-Reports

• REFLEX Standard-Report Angebot/Auftrag

• REFLEX Standard-Report Ladeliste

• REFLEX Standard-Report Lieferschein

• REFLEX Standard-Report Fehlmaterial

• REFLEX Standard-Report Bestellung

• REFLEX Standard-Report Rechnung

• REFLEX Standard-Report Werkstatt KV

• REFLEX Standard-Report Werkstatt-Auftrag

• REFLEX Standard-Report Werkstatt-Reparatur-Lieferschein

• REFLEX Standard-Report Werkstatt-Rueck-Lieferschein

• REFLEX Standard-Basis-Report

8 Links

• FastReport Seitenformat

• FastReport Daten, Tabellen und Felder

• FastReport Tabellen der Reports

• FastReport Bands

• FastReport Objekte und Elemente eines Reports

• FastReport: Abhängige Formatierung von Feldern

• FastReport: Standard-Formular-Texte

• FastReport: Steuerung des Report mit Auftragskennzeichen

• FastReport: Summen im Report bilden

• FastReport Farb-Konstanten

• FastReport Namensgebung der Datenbank-Tabellen und -Felder

• FastReport Tipps und Tricks

• Ladeliste/Packliste mit FastReport

• Etikettendruck Allgemeines

• GEVITAS Label-Print Installation

• GEVITAS-Carnet

• Videos zu FastReport