GevitasFormPrint: Unterschied zwischen den Versionen

Aus GEVITAS
Wechseln zu: Navigation, Suche
(→‎Variablen)
Zeile 193: Zeile 193:
  
 
Um die Report-Erstellung zu vereinfachen, stellt das Programm einige Variablen zur Verfügung:
 
Um die Report-Erstellung zu vereinfachen, stellt das Programm einige Variablen zur Verfügung:
 +
 +
 +
Allgemeine Variablen:
  
 
{| class="wikitable" style="text-align: left;"
 
{| class="wikitable" style="text-align: left;"
Zeile 198: Zeile 201:
 
!Beschreibung
 
!Beschreibung
 
|- valign="top"
 
|- valign="top"
 +
|Copy
 +
|Nummer der gedruckten Kopie:
 +
0 = Original oder Vorschau
 +
1 = Erste Kopie
 +
2 = Zweite Kopie usw.
 +
|- valign="top"
 +
|
 +
|
 +
|- valign="top"
 +
|
 
|
 
|
 +
|- valign="top"
 
|
 
|
 +
|
 +
|- valign="top"
 +
|
 +
|
 +
|}
 +
 +
 +
Übersetzungsvariablen:
 +
 +
{| class="wikitable" style="text-align: left;"
 +
!Variablen-Name
 +
!Beschreibung
 +
|- valign="top"
 +
|TitlePageNumber
 +
|Sprache "D": "Seite", sonst "Page". Nur bei ANGEBOT, AUFTRAG,LADELISTE,ABHOLSCHEIN,RUECKSCHEIN
 
|- valign="top"
 
|- valign="top"
 
|
 
|
Zeile 213: Zeile 242:
 
|
 
|
 
|}
 
|}
 +
if CompareText(VarName, 'TitlePageNumberOf') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'von'
 +
else
 +
Value := 'of';
 +
end;
 +
if CompareText(VarName, 'TitleMenge') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Menge'
 +
else
 +
Value := 'Quantity';
 +
end;
 +
 +
if CompareText(VarName, 'TitleMiete') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Miete'
 +
else
 +
Value := 'Rental';
 +
end;
 +
if CompareText(VarName, 'TitleVon') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'von'
 +
else
 +
Value := 'from';
 +
end;
 +
if CompareText(VarName, 'TitleBis') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'bis'
 +
else
 +
Value := 'to';
 +
end;
 +
 +
 +
if CompareText(VarName, 'TitleArtNr') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Art.Nr.'
 +
else
 +
Value := 'PartNo.';
 +
end;
 +
if CompareText(VarName, 'TitleBezeichnung') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Bezeichnung'
 +
else
 +
Value := 'Description';
 +
end;
 +
if CompareText(VarName, 'TitleEinzelPreis') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Einzelpreis'
 +
else
 +
Value := 'Unit Price';
 +
end;
 +
if CompareText(VarName, 'TitlePosPreis') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Pos.Preis'
 +
else
 +
Value := 'Pos.Price';
 +
end;
 +
 +
if CompareText(VarName, 'TitleGesPreis') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Ges.Preis'
 +
else
 +
Value := 'Pos.Total';
 +
end;
 +
if CompareText(VarName, 'TitleRabatt') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Rabatt'
 +
else
 +
Value := 'Discount';
 +
end;
 +
 +
if CompareText(VarName, 'TitleBerechnEinheit') = 0 then
 +
begin
 +
IF (DM.qryMAufKoSPRACHE.AsString='D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Tage') then
 +
Value := 'Tage'
 +
else
 +
if (DM.qryMAufKoSPRACHE.AsString='D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Wochen') then
 +
Value := 'Woche'
 +
else
 +
if (DM.qryMAufKoSPRACHE.AsString='D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Monate')
 +
then
 +
Value := 'Monat'
 +
else
 +
if (DM.qryMAufKoSPRACHE.AsString <> 'D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Tage')
 +
then
 +
Value := 'Days'
 +
else
 +
if (DM.qryMAufKoSPRACHE.AsString <> 'D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Wochen')
 +
then
 +
Value := 'Weeks'
 +
else
 +
if (DM.qryMAufKoSPRACHE.AsString <> 'D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Monate')
 +
then
 +
Value := 'Months';
 +
end;
 +
 +
if CompareText(VarName, 'TitlePosSumme') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Pos.Summe'
 +
else
 +
Value := 'Pos.Sum';
 +
end;
 +
if CompareText(VarName, 'TitlePortoVerp') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Porto / Verp.'
 +
else
 +
Value := 'Ship / Packing';
 +
end;
 +
if CompareText(VarName, 'TitleNettoSumme') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Netto-Summe'
 +
else
 +
Value := 'Net-Sum';
 +
end;
 +
if CompareText(VarName, 'TitleMwst') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Mwst.'
 +
else
 +
Value := 'VAT';
 +
end;
 +
if CompareText(VarName, 'TitleGesBetrag') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Gesamtbetrag'
 +
else
 +
Value := 'Total Amount';
 +
end;
 +
 +
if CompareText(VarName, 'TitleZahlKond') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Zahlungskonditionen'
 +
else
 +
Value := 'Terms of payment';
 +
end;
 +
if CompareText(VarName, 'TitleSkontoBetr') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Skonto-Betrag'
 +
else
 +
Value := 'Cash discount value';
 +
end;
 +
if CompareText(VarName, 'TitleVersandArt') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Lieferbedingungen'
 +
else
 +
Value := 'Delivery';
 +
end;
 +
if CompareText(VarName, 'TitleLieferzeit') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Lieferzeit'
 +
else
 +
Value := 'Delivery time';
 +
end;
 +
if CompareText(VarName, 'TitleBindefrist') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Bindefrist'
 +
else
 +
Value := 'This offer is valid until';
 +
end;
 +
if CompareText(VarName, 'TitleKonditionen') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Konditionen'
 +
else
 +
Value := 'Terms of conditions';
 +
end;
 +
if CompareText(VarName, 'TitleMfg') = 0 then
 +
begin
 +
if DM.qryMAufKoSPRACHE.AsString='D' then
 +
Value := 'Mit freundlichen Grüßen'
 +
else
 +
Value := 'Best regards';
 +
end;
 +
 +
end;
 +
 +
 +
// Name des Reports:
 +
if CompareText(VarName, 'ReportName') = 0 then //JC//160222//
 +
begin
 +
if iFormularArt = FORM_BESTELLUNG then
 +
Value := StringReplace(cboDruckformularBestellung.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_ANGEBOT) or (iFormularArt = FORM_AUFTRAG) then
 +
Value := StringReplace(cboDruckformularAngAuftr1.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_LADELISTE) then
 +
Value := StringReplace(cboDruckformularLadeliste.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_RUECKSCHEIN) then
 +
Value := StringReplace(cboDruckformularLadeliste.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_LIEFERSCHEIN) then
 +
Value := StringReplace(cboDruckformularLieferschein.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_RECHNUNG) or (iFormularArt = FORM_GUTSCHRIFT) then
 +
Value := StringReplace(cboDruckformularRechnung1.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_MAHNUNG) then
 +
Value := StringReplace(cboDruckformularMahnung.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_WERKSTATT) then
 +
Value := StringReplace(cboDruckformularWerkstatt.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_FERTAUFTR) then
 +
Value := StringReplace(cboDruckformularFertAuftr.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
if (iFormularArt = FORM_SAMMRECHGPRO) then
 +
Value := StringReplace(cboDruckformularSammRechGPro.Text,'.fr3','', [rfReplaceAll, rfIgnoreCase]);
 +
 +
exit;
 +
end;
 +
 +
// Titel des Formulares ("Miet-Angebot", "Verkaufs-Auftrag" usw. Wird anhand Programm-Parametern geholt.)
 +
if CompareText(VarName, 'Titel') = 0 then
 +
begin
 +
Value := labTitel.Caption;
 +
exit;
 +
end;
 +
 +
if CompareText(VarName, 'AusgabeZiel') = 0 then
 +
begin
 +
Value := iAktuellesZiel;
 +
end;
 +
 +
if (iFormularArt = FORM_MAHNUNG) then
 +
begin
 +
if CompareText(VarName, 'MahngebuehrSumme') = 0 then // JC//160105//
 +
begin
 +
Value := fMahngebuehrSumme; // JC//160105// Summe Mahngebühr pro Mahnung, wird als Report-Variable an den Report übergeben.
 +
end;
 +
end;
 +
 +
if (iFormularArt = FORM_LIEFERSCHEIN) then
 +
begin
 +
if CompareText(VarName, 'DruckOptPosBetr') = 0 then // JC//151119//
 +
begin
 +
if chkLiefSch_DRUCKOPTPOSBETR.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
 +
if CompareText(VarName, 'DruckOptGesBetr') = 0 then // JC//151119//
 +
begin
 +
if chkLiefSch_DRUCKOPTGESBETR.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
 +
if CompareText(VarName, 'DruckOptBezeichnung') = 0 then // JC//151119//
 +
begin
 +
if chkLiefSch_DRUCKOPT_BEZEICHNUNGEN.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
 +
if CompareText(VarName, 'DruckOptUrsprLand') = 0 then // JC//151119//
 +
begin
 +
if chkLiefSch_DRUCKOPT_URSPRLAND.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
 +
if CompareText(VarName, 'DruckOptNachdruck') = 0 then // JC//151119//
 +
begin
 +
if chkLiefSch_Nachdruck.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
 +
end;
 +
 +
(* Ladeliste/Lieferschein: Jede Obergruppe auf eine neue Seite:
 +
 +
Der Report hat diesen Code:
 +
 +
procedure GroupObergruppeOnBeforePrint(Sender: TfrxComponent);
 +
begin
 +
if <ObergruppeNeueSeite>=1 then
 +
GroupObergruppe.StartNewPage := True
 +
else
 +
GroupObergruppe.StartNewPage := False;
 +
end;
 +
*) // JC//150905//
 +
if CompareText(VarName, 'ObergruppeNeueSeite') = 0 then
 +
begin
 +
if (iFormularArt = FORM_LADELISTE) then // JC//150904//
 +
begin
 +
if chkObergruppeNeueSeiteLadeliste.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
end;
 +
 +
if CompareText(VarName, 'KapitelNeueSeite') = 0 then // JC//150917//
 +
begin
 +
if (iFormularArt = FORM_LADELISTE) then
 +
begin
 +
if chkKapitelNeueSeiteLadeliste.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
if (iFormularArt = FORM_ANGEBOT) or (iFormularArt = FORM_AUFTRAG) then // JC//151223//
 +
begin
 +
if chkKapitelNeueSeiteAngebotAuftrag.Checked then
 +
Value := 1
 +
else
 +
Value := 0;
 +
end;
 +
 +
end;
 +
 +
// Ladeliste/Lieferschein: Sortierung: 0=Kapitel+Positionen 1=Artikelgruppen //JC//150906//
 +
if CompareText(VarName, 'Sortierung') = 0 then
 +
begin
 +
if (iFormularArt = FORM_LADELISTE) then // JC//150904//
 +
Value := cboSortLadeliste.ItemIndex;
 +
if (iFormularArt = FORM_MAHNUNG) then
 +
Value := cboSortMahnung.ItemIndex;
 +
end;
 +
 +
// Abteilungsnamen und Kennzeichen als Formeln übergeben:
 +
if CompareText(VarName, 'AbteilungName') = 0 then
 +
Value := GetParamText1(DM.qry1Ado, 'Abteilung', '1', ''); // Text3 --> 1. In 3 steht aber nur "Kostüm" (ohne "fundus") ???
 +
 +
if CompareText(VarName, 'AbteilungTelFax') = 0 then
 +
Value := GetParamText1(DM.qry1Ado, 'Abteilung', 'Tel', ''); // JC//160202// GetParamText1(DM.qry1Ado, 'Abteilung', '1', '');
 +
 +
if CompareText(VarName, 'AbteilungKurzzeichen') = 0 then
 +
Value := GetParamText2(DM.qry1Ado, 'Abteilung', '1', '');
 +
  
  
 
Diese müssen über Report ⇒ Variablen angelegt werden.
 
Diese müssen über Report ⇒ Variablen angelegt werden.
−
 
  
 
== Updates ==  
 
== Updates ==  

Version vom 10. März 2016, 22:09 Uhr

1 Allgemeines

Mit diesem Programm ("GevitasFormPrint.exe") werden Formulare gedruckt (bzw. angezeigt oder exportiert).

  • Angebot
  • Auftrag (auch Auftragsversionen!)
  • Ladeliste/Packliste
  • Lieferschein
  • Abholschein
  • Rechnung/Gutschrift
  • Sammelrechnung (GEVAS-Professional)
  • Mahnung
  • Bestellung
  • Werkstatt-Auftrag
  • Werkstatt-KV
  • Werkstatt-Lieferschein
  • Werkstatt-Abholschein
  • Fertigung

Damit GevitasFormPrint benutzt werden kann, müssen diese Voraussetzungen erfüllt sein:

  • Die Programmdatei "GevitasFormPrint.exe" muss sich im Programmverzeichnis befinden. Um die Programmdatei zu verteilen, kopiert man sie am Besten in das Update-Verzeichnis. Das Update-Verzeichnis wird in der INI-Datei festgelegt.
  • In den Programm-Parametern wurde die Report-Version für die Formular-Art auf FastReport eingestellt.
Hinweis
In REFLEX-Basic wird nur FastReport verwendet!

2 Aufruf des Programms

Das Programm wird "ganz normal" aus REFLEX bzw. GEVAS-Professional heraus aufgerufen, indem man im jeweiligen Programmteil auf Drucken klickt.

GevitasFormPrint wird gestartet und mit den notwendigen Parametern versorgt, z.B. zu druckende Auftragsnummer, Bestellnummer usw.

Je nachdem, was gedruckt werden soll, zeigt sich das zugehörige Druckfenster.


Beispiel:

GevitasFormPrint Bsp 01.png



3 Elemente des Druckfensters

3.1 Schaltflächen

3.1.1 Drucken

Druckt den ausgewählten Report auf den ausgewählten Drucker. Wenn kein Drucker ausgewählt wurde, wird auf dem Standard-Drucker ausgedruckt.


3.1.2 Voschau

Zeigt den ausgewählten Report im Vorschaufenster an.

Beispiel:

GevitasFormPrint Vorschau 01.png

Mit der Button-Leist oben gibt es die Möglichkeiten:

  • Report drucken
  • Exportieren, speichern
  • Mailen
  • PDF-Datei erzeugen
  • Zoomen (geht aus mit Strg+Mausrad)
  • Seiteneinstellungen ändern
  • Blättern in den Seiten


3.1.3 E-Mail

Sendet den ausgewählten Report per E-Mail.

Das Mail wird nicht vom Programm selbst verschickt sondern an den E-Mail-Client (z.B. Microsoft Outlook©) übergeben.


3.1.4 Export

Exportiert den Report in eines der unterstützten Formate:

GevitasFormPrint Export 01.png


3.1.5 Daten aktualisieren

Mit diesem Button

GevitasFormPrint Btn Refresh.png

werden die Daten für den Report aktualisiert. Das macht man z.B. wenn man das Druckfenster nicht schließt, sondern zum Programm REFLEX bzw. GEVAS-Professional zurückkehrt, dort Änderungen vornimmt und dann den Report mit den geänderten Daten ausdrucken will.


3.1.6 Designer

Hier kann man den Designer öffnen, um den Report zu ändern oder einen neuen Report anzulegen.

  • Abhängig von dem Benutzer-Recht "ReportDesigner" wird der Button Designer ein- oder ausgeblendet.
  • Geöffnet wird der Report, der in der Auswahl Formularname ausgewählt wurde. Im Designer kann man aber auch andere Reports öffnen.


3.2 Kennzeichen

In manchen Fenstern gibt es die Kennzeichen, mit denen man den Formulardruck steuern kann.

Einzelheiten werden unter Steuerung des Report mit Auftragskennzeichen beschrieben.


3.3 Auswahl Druckformular

Hiermit kann man das Druckformular (den Report) auswählen. Es werden alle Report-Dateien angezeigt, die sich im zugehörigen Formular-Verzeichnis befinden.

Die Report-Dateien haben die Datei-Endung "fr3".


3.4 Auswahl Drucker

Hier kann man den gewünschten Drucker auswählen.


3.5 Optionen

3.5.1 Kopien

Hier kann man abgeben, wie viele Kopien gedruckt werden sollen.

0 bedeutet, dass keine Kopie gedruckt wird. 1 bedeutet, dass eine Kopie gedruckt wird usw.

  • Funktioniert nur beim Drucken, nicht bei der Vorschau oder mailen.


3.5.2 Seiten

Hier kann man angeben, welche Seiten gedruckt werden sollen. Beispiele:

Eingabe Auswirkung
1,3,5 Druckt Seite 1,3 und 5
1-3 Druckt die Seiten 1 bis 3.
1-3,5 Druckt die Seiten 1 bis 3 und die Seite 5.


  • Funktioniert nur beim Drucken, nicht bei der Vorschau, beim exportieren oder beim mailen.


3.5.3 Schacht

Hier kann man die Schacht-Nummer angeben.


3.5.4 Dokument als PDF speichern

Wenn diese Option eingeschaltet ist, wird der Report beim Drucken als PDF-Datei exportiert.

Der Pfad für die Datei und der Dateiname wird in den Programmparametern festgelegt.

Siehe auch:


3.5.5 Dateiname

Hier wird der Name der Export-Datei angezeigt.

Der Pfad für die Datei und der Dateiname wird in den Programmparametern festgelegt.

Siehe auch:


4 Variablen

Um die Report-Erstellung zu vereinfachen, stellt das Programm einige Variablen zur Verfügung:


Allgemeine Variablen:

Variablen-Name Beschreibung
Copy Nummer der gedruckten Kopie:

0 = Original oder Vorschau 1 = Erste Kopie 2 = Zweite Kopie usw.


Übersetzungsvariablen:

Variablen-Name Beschreibung
TitlePageNumber Sprache "D": "Seite", sonst "Page". Nur bei ANGEBOT, AUFTRAG,LADELISTE,ABHOLSCHEIN,RUECKSCHEIN

if CompareText(VarName, 'TitlePageNumberOf') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'von' else Value := 'of'; end; if CompareText(VarName, 'TitleMenge') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Menge' else Value := 'Quantity'; end;

if CompareText(VarName, 'TitleMiete') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Miete' else Value := 'Rental'; end; if CompareText(VarName, 'TitleVon') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'von' else Value := 'from'; end; if CompareText(VarName, 'TitleBis') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'bis' else Value := 'to'; end;


if CompareText(VarName, 'TitleArtNr') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Art.Nr.' else Value := 'PartNo.'; end; if CompareText(VarName, 'TitleBezeichnung') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Bezeichnung' else Value := 'Description'; end; if CompareText(VarName, 'TitleEinzelPreis') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Einzelpreis' else Value := 'Unit Price'; end; if CompareText(VarName, 'TitlePosPreis') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Pos.Preis' else Value := 'Pos.Price'; end;

if CompareText(VarName, 'TitleGesPreis') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Ges.Preis' else Value := 'Pos.Total'; end; if CompareText(VarName, 'TitleRabatt') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Rabatt' else Value := 'Discount'; end;

if CompareText(VarName, 'TitleBerechnEinheit') = 0 then begin IF (DM.qryMAufKoSPRACHE.AsString='D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Tage') then Value := 'Tage' else if (DM.qryMAufKoSPRACHE.AsString='D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Wochen') then Value := 'Woche' else if (DM.qryMAufKoSPRACHE.AsString='D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Monate') then Value := 'Monat' else if (DM.qryMAufKoSPRACHE.AsString <> 'D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Tage') then Value := 'Days' else if (DM.qryMAufKoSPRACHE.AsString <> 'D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Wochen') then Value := 'Weeks' else if (DM.qryMAufKoSPRACHE.AsString <> 'D') and (DM.qryMAufKoBEREINHEIT.AsString = 'Monate') then Value := 'Months'; end;

if CompareText(VarName, 'TitlePosSumme') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Pos.Summe' else Value := 'Pos.Sum'; end; if CompareText(VarName, 'TitlePortoVerp') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Porto / Verp.' else Value := 'Ship / Packing'; end; if CompareText(VarName, 'TitleNettoSumme') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Netto-Summe' else Value := 'Net-Sum'; end; if CompareText(VarName, 'TitleMwst') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Mwst.' else Value := 'VAT'; end; if CompareText(VarName, 'TitleGesBetrag') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Gesamtbetrag' else Value := 'Total Amount'; end;

if CompareText(VarName, 'TitleZahlKond') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Zahlungskonditionen' else Value := 'Terms of payment'; end; if CompareText(VarName, 'TitleSkontoBetr') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Skonto-Betrag' else Value := 'Cash discount value'; end; if CompareText(VarName, 'TitleVersandArt') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Lieferbedingungen' else Value := 'Delivery'; end; if CompareText(VarName, 'TitleLieferzeit') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Lieferzeit' else Value := 'Delivery time'; end; if CompareText(VarName, 'TitleBindefrist') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Bindefrist' else Value := 'This offer is valid until'; end; if CompareText(VarName, 'TitleKonditionen') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Konditionen' else Value := 'Terms of conditions'; end; if CompareText(VarName, 'TitleMfg') = 0 then begin if DM.qryMAufKoSPRACHE.AsString='D' then Value := 'Mit freundlichen Grüßen' else Value := 'Best regards'; end;

end;


// Name des Reports: if CompareText(VarName, 'ReportName') = 0 then //JC//160222// begin if iFormularArt = FORM_BESTELLUNG then Value := StringReplace(cboDruckformularBestellung.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_ANGEBOT) or (iFormularArt = FORM_AUFTRAG) then Value := StringReplace(cboDruckformularAngAuftr1.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_LADELISTE) then Value := StringReplace(cboDruckformularLadeliste.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_RUECKSCHEIN) then Value := StringReplace(cboDruckformularLadeliste.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_LIEFERSCHEIN) then Value := StringReplace(cboDruckformularLieferschein.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_RECHNUNG) or (iFormularArt = FORM_GUTSCHRIFT) then Value := StringReplace(cboDruckformularRechnung1.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_MAHNUNG) then Value := StringReplace(cboDruckformularMahnung.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_WERKSTATT) then Value := StringReplace(cboDruckformularWerkstatt.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_FERTAUFTR) then Value := StringReplace(cboDruckformularFertAuftr.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

if (iFormularArt = FORM_SAMMRECHGPRO) then Value := StringReplace(cboDruckformularSammRechGPro.Text,'.fr3',, [rfReplaceAll, rfIgnoreCase]);

exit; end;

// Titel des Formulares ("Miet-Angebot", "Verkaufs-Auftrag" usw. Wird anhand Programm-Parametern geholt.) if CompareText(VarName, 'Titel') = 0 then begin Value := labTitel.Caption; exit; end;

if CompareText(VarName, 'AusgabeZiel') = 0 then begin Value := iAktuellesZiel; end;

if (iFormularArt = FORM_MAHNUNG) then begin if CompareText(VarName, 'MahngebuehrSumme') = 0 then // JC//160105// begin Value := fMahngebuehrSumme; // JC//160105// Summe Mahngebühr pro Mahnung, wird als Report-Variable an den Report übergeben. end; end;

if (iFormularArt = FORM_LIEFERSCHEIN) then begin if CompareText(VarName, 'DruckOptPosBetr') = 0 then // JC//151119// begin if chkLiefSch_DRUCKOPTPOSBETR.Checked then Value := 1 else Value := 0; end;

if CompareText(VarName, 'DruckOptGesBetr') = 0 then // JC//151119// begin if chkLiefSch_DRUCKOPTGESBETR.Checked then Value := 1 else Value := 0; end;

if CompareText(VarName, 'DruckOptBezeichnung') = 0 then // JC//151119// begin if chkLiefSch_DRUCKOPT_BEZEICHNUNGEN.Checked then Value := 1 else Value := 0; end;

if CompareText(VarName, 'DruckOptUrsprLand') = 0 then // JC//151119// begin if chkLiefSch_DRUCKOPT_URSPRLAND.Checked then Value := 1 else Value := 0; end;

if CompareText(VarName, 'DruckOptNachdruck') = 0 then // JC//151119// begin if chkLiefSch_Nachdruck.Checked then Value := 1 else Value := 0; end;

end;

(* Ladeliste/Lieferschein: Jede Obergruppe auf eine neue Seite:

Der Report hat diesen Code:

procedure GroupObergruppeOnBeforePrint(Sender: TfrxComponent); begin if <ObergruppeNeueSeite>=1 then GroupObergruppe.StartNewPage := True else GroupObergruppe.StartNewPage := False; end; *) // JC//150905// if CompareText(VarName, 'ObergruppeNeueSeite') = 0 then begin if (iFormularArt = FORM_LADELISTE) then // JC//150904// begin if chkObergruppeNeueSeiteLadeliste.Checked then Value := 1 else Value := 0; end; end;

if CompareText(VarName, 'KapitelNeueSeite') = 0 then // JC//150917// begin if (iFormularArt = FORM_LADELISTE) then begin if chkKapitelNeueSeiteLadeliste.Checked then Value := 1 else Value := 0; end; if (iFormularArt = FORM_ANGEBOT) or (iFormularArt = FORM_AUFTRAG) then // JC//151223// begin if chkKapitelNeueSeiteAngebotAuftrag.Checked then Value := 1 else Value := 0; end;

end;

// Ladeliste/Lieferschein: Sortierung: 0=Kapitel+Positionen 1=Artikelgruppen //JC//150906// if CompareText(VarName, 'Sortierung') = 0 then begin if (iFormularArt = FORM_LADELISTE) then // JC//150904// Value := cboSortLadeliste.ItemIndex; if (iFormularArt = FORM_MAHNUNG) then Value := cboSortMahnung.ItemIndex; end;

// Abteilungsnamen und Kennzeichen als Formeln übergeben: if CompareText(VarName, 'AbteilungName') = 0 then Value := GetParamText1(DM.qry1Ado, 'Abteilung', '1', ); // Text3 --> 1. In 3 steht aber nur "Kostüm" (ohne "fundus") ???

if CompareText(VarName, 'AbteilungTelFax') = 0 then Value := GetParamText1(DM.qry1Ado, 'Abteilung', 'Tel', ); // JC//160202// GetParamText1(DM.qry1Ado, 'Abteilung', '1', );

if CompareText(VarName, 'AbteilungKurzzeichen') = 0 then Value := GetParamText2(DM.qry1Ado, 'Abteilung', '1', );


Diese müssen über Report ⇒ Variablen angelegt werden.

5 Updates

Mit diesen Links kommen zu den Update-Beschreibungen der Druckprogramme, die mit FastReport funktionieren:


6 Links

FastReport Seitenformat FastReport Daten, Tabellen und Felder FastReport Tabellen der Reports Beispiele:
FastReport Bands FastReport Objekte und Elemente eines Reports FastReport: Abhängige Formatierung von Feldern Ladeliste/Packliste mit FastReport
Standard-Formular-Texte Steuerung des Report mit Auftragskennzeichen Summen im Report bilden Leasing-Liste
FastReport Farb-Konstanten Namensgebung der Datenbank-Tabellen und -Felder Tipps und Tricks Inventar-Liste
REFLEX Standard-Reports Etikettendruck Allgemeines Geräte-Liste
GEVITAS Label-Print Installation GEVITAS-Carnet Videos zu FastReport
Abgerufen von „http://www.gevitas.de/wiki/index.php?title=GevitasFormPrint&oldid=10904“