REFLEX Angebot/Auftrag Styles Code - Versionsgeschichte

Gevitas: /* Kopf */

2016-07-15T22:46:17Z

‎Kopf

Gevitas: /* Kopf */

2016-07-15T09:58:10Z

‎Kopf

Gevitas: /* Kopf */

2016-07-15T09:57:34Z

‎Kopf

Gevitas: /* Allgemeines */

2016-07-15T09:43:02Z

‎Allgemeines

Gevitas am 15. Juli 2016 um 09:42 Uhr

2016-07-15T09:42:39Z

Gevitas: /* Code */

2016-07-15T09:38:05Z

‎Code

Gevitas: /* Fuss */

2016-07-15T09:34:15Z

‎Fuss

Gevitas: /* Code */

2016-07-15T09:33:46Z

‎Code

Gevitas: /* Code */

2016-07-15T09:28:56Z

‎Code

Gevitas: /* Code */

2016-07-15T09:03:18Z

‎Code

← Nächstältere Version		Version vom 15. Juli 2016, 22:46 Uhr
Zeile 33:		Zeile 33:

	* Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.		* Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.
		+	* Am Schluss wird der Länder-Name in das Memo eingefügt. Nach DIN 5008 soll der Länder-Name in Großbuchstaben angegeben werden. Deshalb wird das Feld mit der Funktion <Code>UpperCase(..)</Code> eingefügt. Diese Funktion wandelt alle Zeichen in Großbuchstaben um.

	* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.		* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen\|Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.

← Nächstältere Version		Version vom 15. Juli 2016, 09:58 Uhr
Zeile 64:		Zeile 64:


−	Im Style D gibt es auf der ersten und auf der letzten Seite einen Rabatt-~~bereich~~, deshalb lautet der Code hier:	+	Im '''Style D''' gibt es auf der '''ersten und auf der letzten''' Seite einen Rabatt-Bereich, deshalb lautet der Code hier:
	(weil von dem <code>if...then</code> nun mehrere Zeilen betroffen sein sollen, muss man diese Zeilen nun mit <code>begin</code> beginnen mit <code>end;</code> beenden!)		(weil von dem <code>if...then</code> nun mehrere Zeilen betroffen sein sollen, muss man diese Zeilen nun mit <code>begin</code> beginnen mit <code>end;</code> beenden!)

@@ Zeile 56: / Zeile 56: @@
     memoAnschrift.Lines.Add( UpperCase( <Adresse."Landname"> ) );
-    // Kennzeichen 3 = Rabatt im Fuss Ja/Nein
+Rabatt-Bereich(e) ausschalten, wenn es gar keinen Rabatt gibt:
     if <AuftragsKopf."KENNZ3"> = 'Nein' then
       ChildMaterialRabatt.Visible := False;
     // Kennzeichen 5 = Kapitelpreise Ja/Nein
@@ Zeile 183: / Zeile 200: @@
       MasterDataKopfVerkauf.Visible := True;
   end;
 === Positionen ===

@@ Zeile 3: / Zeile 3: @@
 Hier finden Sie den Programm-Code, der in den [[REFLEX Angebot/Auftrag Styles|Standard-Style-Reports für Angebot/Auftrag]] verwendet wird.
-Generell kann man die Syntax in FastReport für mehrere Programmier-Sprachen einstellen, wir verwenden die sog. "Pascal"-Syntax, weil die unserer Meinung für Ungeübte nach am Besten lesbar ist.
+Generell kann man die Syntax in FastReport für mehrere Programmier-Sprachen einstellen, wir verwenden die sog. "Pascal"-Syntax, weil die unserer Meinung nach für Ungeübte am Besten lesbar ist.
 * Achtung! Wenn Sie Syntax im Report-Code '''nachträglich''' ändern, werden alle Zeilen des Codes '''gelöscht'''!!!
 == Code ==

@@ Zeile 1: / Zeile 1: @@
 == Allgemeines ==
-Hier finden Sie den Programm-Code, der in den Standard-Style-Reports für Angebot/Auftrag verwendet wird.
+Hier finden Sie den Programm-Code, der in den [[REFLEX Angebot/Auftrag Styles|Standard-Style-Reports für Angebot/Auftrag]] verwendet wird.
 == Code ==

@@ Zeile 11: / Zeile 11: @@
 * Bereiche (Bänder) oder Felder ein- oder auszublenden
 * Felder (Memos, Textfelder) mit Inhalten zu füllen.
 === Kopf ===

@@ Zeile 418: / Zeile 418: @@
   begin
-−
   end.

@@ Zeile 225: / Zeile 225: @@
 Die relative große Prozedur wird '''vor dem Drucken''' einer Position aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen|Auftragskennzeichen]].
-Damit die Abfragen nicht zu kompliziert werden, werden die Felder am Anfang erst mal alle auf '''sichtbar''' gestellt (<code>Visible := True</code>). Abhängig von Kennzeichen, Inhalten usw. werden dann einzelne felder auf unsichtbar gestellt  (<code>Visible := False</code>):
+Damit die Abfragen nicht zu kompliziert werden, werden die Felder am Anfang erst mal alle auf '''sichtbar''' gestellt (<code>Visible := True</code>). Abhängig von Kennzeichen, Inhalten usw. werden dann einzelne Felder auf unsichtbar gestellt  (<code>Visible := False</code>):
   procedure DetailPositionenOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 352: / Zeile 352: @@
 <code>EOF</code> ergibt <code>True</code> (wahr), wenn das Ende der Datensätze erreicht ist, also keine Positionen mehr kommen.
-<code>EOF</code> ergibt <code>False</code> (wahr), wenn noch Positionen kommen.
+<code>EOF</code> ergibt <code>False</code> (falsch), wenn noch Positionen kommen.
   procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 366: / Zeile 366: @@
 === Fuss ===
 Diese Prozedur wird '''vor dem Drucken''' des Fuss-Bereichs aufgerufen. Hier werden z.B. Bereiche ausgeschaltet, abhängig von [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen|Auftragskennzeichen]].
-Im Fuss kann an den Gesamt-Rabatt auf das Material ausgeben. Da es ein solches Feld in der Datenbank nicht gibt, muss man den %-Wert berechnen und in einer Variablen <code>FussRabattProzent</code> ablegen.
+Im Fuss kann man den '''Gesamt-Rabatt auf das Material ausgeben'''. Da es ein solches Feld in der Datenbank nicht gibt, muss man den %-Wert berechnen und in einer Variablen <code>FussRabattProzent</code> ablegen.
   // FUSS:

@@ Zeile 20: / Zeile 20: @@
 * Das Memo-Feld (Text-Feld) für die Anschrift wird gefüllt. Hier werden also die Anschriften-Felder nicht direkt auf dem Report platziert, sondern es gibt ein Memo <code>memoAnschrift</code>, in das die Zeilen (Lines) angefügt werden. Das hat den Vorteil, dass z.B. das Ansprechpartner-Feld keine Leerzeile verursacht, wenn es gar keinen Ansprechpartner gibt.
-* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.
+* Abhängig von den [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen|Auftragskennzeichen]] werden Bänder ein- oder ausgeblendet.
@@ Zeile 75: / Zeile 75: @@
-Diese Prozedur kommt aus dem Basis-Report, das zeigt das Wort <code>_inherited</code> ("geerbt"). Abhängig vom [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen]] ein das Logo im Kopf ein- oder ausgeblendet.
+Diese Prozedur kommt aus dem Basis-Report, das zeigt das Wort <code>_inherited</code> ("geerbt"). Abhängig vom [[REFLEX_Standard-Report_Angebot/Auftrag#Auftragskennzeichen|Auftragskennzeichen]] wird das Logo im Kopf ein- oder ausgeblendet.
   procedure pictureBasisKopfLogoOnBeforePrint_inherited(Sender: TfrxComponent);
@@ Zeile 174: / Zeile 174: @@
 === Positionen ===
   // Positionen:
@@ Zeile 184: / Zeile 186: @@
       ChildDetailPositionen.Visible := True;
   end;
   procedure MemoTitelHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 193: / Zeile 198: @@
       HeaderSeitenNummer.Visible := True;
   end;
   procedure GroupHeaderKapitelOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 202: / Zeile 210: @@
   end;
-−
   procedure ChildGroupHeader1OnBeforePrint(Sender: TfrxComponent);
   begin
@@ Zeile 211: / Zeile 221: @@
       ChildGroupHeader1.Visible := True;
   end;
-−
   procedure DetailPositionenOnBeforePrint(Sender: TfrxComponent);
   begin
@@ Zeile 228: / Zeile 241: @@
     memoPosGesBetrag.Visible         := True;
     // Kennzeichen 4 = Einzelpreise sichtbar Ja/Nein:
@@ Zeile 257: / Zeile 269: @@
       memoHeaderRabattTitel.Visible := False;
       memoPositionenRabattProz.Visible := False;
     end;
@@ Zeile 333: / Zeile 344: @@
     end;
   end;
   procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 347: / Zeile 367: @@
 === Fuss ===
   // FUSS:
@@ Zeile 355: / Zeile 378: @@
     if <AuftragsKopf."KENNZ2"> = 'Nein' then
     begin
       MemoFooterGespreis.Visible:= False;
     end;
@@ Zeile 375: / Zeile 397: @@
   end;
   procedure AuftrStatistikAnzahlAlternativPosOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 384: / Zeile 411: @@
       AuftrStatistikAnzahlAlternativPos.Visible := True;
   end;
   begin

@@ Zeile 5: / Zeile 5: @@
 == Code ==
   procedure MasterDataAnschriftOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 56: / Zeile 74: @@
   end;
   procedure pictureBasisKopfLogoOnBeforePrint_inherited(Sender: TfrxComponent);
@@ Zeile 62: / Zeile 82: @@
       pictureBasisKopfLogo.Visible := False;
   end;
-−
-  procedure MemoNummerOnBeforePrint(Sender: TfrxComponent);
- begin
+Da die Seitennummer im Kopf der ersten Seite steht, wird dieser Bereich auf der ersten Seite unterdrückt:
   procedure HeaderSeitenNummerOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 77: / Zeile 95: @@
   end;
   procedure MasterDataVARaumOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 84: / Zeile 104: @@
       MasterDataVARaum.Visible := False;
   end;
   procedure MasterDataStandardTextKopfOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 92: / Zeile 115: @@
        MasterDataStandardTextKopf.Visible:= True;
   end;
   procedure MasterDataKopftextOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 100: / Zeile 126: @@
       MasterDataKopftext.Visible:= True;
   end;
   procedure MasterDataKopfMieteOnBeforePrint(Sender: TfrxComponent);
@@ Zeile 140: / Zeile 169: @@
       MasterDataKopfVerkauf.Visible := True;
   end;
-−
   // Positionen:
@@ Zeile 310: / Zeile 343: @@
   end;
   // FUSS: