OBS/Makros und Scripting/Anwendungsbereiche/Drucke - Versionsgeschichte

Thiel: /* Vorgangsdrucke mit Methoden-Zeigern (Method Pointer) */

2026-03-06T13:26:37Z

Vorgangsdrucke mit Methoden-Zeigern (Method Pointer)

← Nächstältere Version		Version vom 6. März 2026, 14:26 Uhr
Zeile 479:		Zeile 479:
	\|FAXNR= \|\| Übergebener Wert wird als Fax-Nummer verwendet (qr_printer.ReportDefinition.cFaxNr)		\|FAXNR= \|\| Übergebener Wert wird als Fax-Nummer verwendet (qr_printer.ReportDefinition.cFaxNr)
	\|}		\|}
			== Verschachtelte Drucke / Folge-Reports==
			Mithilfe von WaitRunReport können weiter Drucke Aufgerufen werden. Hier als Beispiel das zusätzliche Anhängen eines Proformalieferscheins beim Versenden einer Bestellung per E-Mail.

			Bestellung als user: <syntaxhighlight lang="delphi" line="1">
			//Datei: Bestellung.pax
			{$I .\data\druck\bestellung.pax}
			{$I .\data\druck\user\user.inx}
			var cFile: String;
			cBUID: String;

			function DruckBestellAsLieferschein(): Boolean;
			var cPSNr: String;
			cUID : String;
			begin
			Result := true;
			if (qGetRepMail(EZ)) then begin
			cPSNr := DB_ReadSQLSysUID(oDB, 'BESTELL', 'a_knr', cBUID);
			cUID := DB_ReadUID(oDB, 'PERSSTA', 'ps_nr = ' + DB_SqlVal(cPSNr));

			if IsEigenschaft('0004', cPSNr, cUID) then begin
			cFile := GL_Exepath + 'TEMP\BE' + A_Query.A2C('a_nr') + '_LIEF.pdf';
			WaitRunReport(oDB,
			'Bestellung_Lieferschein(AUTOEXPORTDEL)',
			//ersten beiden parameter für AUTOEXPORTDEL
			[ExtractFilePath(cFile), ExtractFileName(cFile), cFile, A_Query.A2UID]);

			if MyFileExists(cFile) then begin
			cExtraMailAttachments := cExtraMailAttachments + cFile + CRLF;
			end;
			end;
			end;
			end;

			// Kopie der StartProc die dann die Standard-StartProc aufruft
			function StartProcCustom(cBestUID:String;nParCnt:integer;lPrintModusi:Boolean;obj:TObject):Boolean;
			begin
			cFile := '';
			cBUID := cBestUID;
			try
			InitMethodPointers(true);
			InitPosGlobalPointers();
			oPrinterPrintPage.pBeforePrint := Briefbogen;
			oStandardPointer.pStartPrinterCheck := DruckBestellAsLieferschein;
			result := StartProc(cBestUID, nParCnt, lPrintModusi, obj);
			finally
			if not Empty(cFile) then begin
			FErase(cFile);
			end;
			end;
			end;
			</syntaxhighlight>Bestellung als Proformalieferschein (ohne Preise mit anderem Text)<syntaxhighlight lang="delphi" line="1">
			//Datei: Bestellung_Lieferschein.pax
			{$I .\data\druck\bestellung.pax}
			{$I .\data\druck\user\user.inx}

			function Einstellungen: Boolean;
			begin
			oPosParams.lPreisAnzeige := False;
			cKopf1 := 'Lieferschein';
			Result := true;
			end;

			// Kopie der StartProc die dann die Standard-StartProc aufruft
			function StartProcCustom(cBestUID:String; cPath: String;nParCnt:integer;lPrintModusi:Boolean;obj:TObject):Boolean;
			begin
			InitMethodPointers(true);
			InitPosGlobalPointers();
			oPrinterPrintPage.pBeforePrint := Briefbogen;
			oStandardPointer.pStartPrinterCheck := Einstellungen;

			result := StartProc(cBestUID, nParCnt, lPrintModusi, obj);
			end;
			</syntaxhighlight>

Schinke: /* Druckparameter */

2025-11-13T10:31:38Z

Druckparameter

← Nächstältere Version		Version vom 13. November 2025, 11:31 Uhr
Zeile 427:		Zeile 427:
	! Parameter !! Beschreibung		! Parameter !! Beschreibung
	\|-		\|-
	\|AUTODOK \|\| Hinterlegt den Druck als Dokument beim Vorgang		\|AUTODOK \|\| Hinterlegt den Druck als Dokument beim Vorgang. Hierbei können noch weitere Parameter übergeben werden:
			{\| class="wikitable"
			\|-
			\|SYSUID= \|\|
			\|-
			\|TABLENAME= \|\|
			\|-
			\|VORGANGTYP= \|\|
			\|-
			\|DATEINAME= \|\|
			\|}
	\|-		\|-
	\|AUTOEMAIL \|\| (qr_printer.ReportDefinition.lAutoMail = True)		\|AUTOEMAIL \|\| (qr_printer.ReportDefinition.lAutoMail = True)
Zeile 437:		Zeile 447:
	\|AUTOEXPORTDEL \|\|		\|AUTOEXPORTDEL \|\|
	\|-		\|-
	\|AUTOFAX \|\|		\|AUTOFAX \|\| (qr_printer.ReportDefinition.lAutoFax := True)
	\|-		\|-
	\|AUTOPDF \|\| (qr_printer.ReportDefinition.lAutoPDF = True)		\|AUTOPDF \|\| (qr_printer.ReportDefinition.lAutoPDF = True)

Schinke: /* Druckparameter */

2025-11-13T10:27:38Z

Druckparameter

← Nächstältere Version		Version vom 13. November 2025, 11:27 Uhr
Zeile 420:		Zeile 420:
	</source>		</source>
	== Druckparameter==		== Druckparameter==
	~~Folgende Druckparameter gibt es:~~		Hier werden Parameter für Druck-Scripte aufgelistet. Parameter mit einem = Zeichen erwarten danach noch einen Wert.
	*(~~AUTOEXPORTDEL~~)
	*(~~AUTOSENDEN~~)		{\| class="wikitable"
	*(~~AUTOPDF~~)		\|+ Druck Script Parameter
	*(~~NOOPEN~~)		\|-
	*(~~SOFORTDRUCK~~)		! Parameter !! Beschreibung
	*(~~OHNEDIALOG~~)		\|-
	*(~~AUTOEXPORT~~)		\|AUTODOK \|\| Hinterlegt den Druck als Dokument beim Vorgang
	*(~~AUTODOK~~)		\|-
	*(~~AUTOEMAIL~~)		\|AUTOEMAIL \|\| (qr_printer.ReportDefinition.lAutoMail = True)
	*(~~AUTOEMAILOPEN~~)		\|-
	*(~~VONEMAILADR~~=		\|AUTOEMAILOPEN \|\| (qr_printer.ReportDefinition.lAutoMailOpen = True)
	*(PARAMETER=		\|-
	*(EMAILADR=		\|AUTOEXPORT \|\| (qr_printer.ReportDefinition.lAutoExport = True, lTmp_OhneFormanzeige = True, qr_printer.ReportDefinition.lNoOpen = False)
	*(~~DRUCKDATUM~~=		\|-
	*(~~UEBERSCHRIFT~~=		\|AUTOEXPORTDEL \|\|
	*(~~AUTOFAX~~)		\|-
	*(~~FAXNR~~=		\|AUTOFAX \|\|
	*(~~FAXDECKBLATT~~)		\|-
	*(~~BRIEFKOPF~~)		\|AUTOPDF \|\| (qr_printer.ReportDefinition.lAutoPDF = True)
	*(KEINBRIEFKOPF)		\|-
			\|AUTOSENDEN \|\| Mails werden direkt freigegeben (qr_printer.ReportDefinition.lAutoSenden = True)
			\|-
			\|DRUCKDATUM= \|\| Übergibt das Druckdatum in qr_printer.ReportDefinition.cDruckdatum
			\|-
			\|BRIEFKOPF \|\| Aktiviert den Briefkopf (qr_printer.ReportDefinition.nMitBriefKopf = 2)
			\|-
			\|KEINBRIEFKOPF \|\| Deaktiviert den Briefkopf (qr_printer.ReportDefinition.nMitBriefKopf = 1)
			\|-
			\|NOOPEN \|\| (qr_printer.ReportDefinition.lNoOpen = False)
			\|-
			\|OHNEDIALOG \|\| Es wird kein Druckdialog angezeigt. (An der Kasse aktiviert dieser Parameter auch lSofortDruck)
			\|-
			\|SOFORTDRUCK \|\| Es werden keine Druckereinstellungen beim Druck angezeigt. Es wird quasi im Hintergrund bei den Druckereinstellungen auf F2 gedrückt (lSofortDruck = True)
			\|-
			\|UEBERSCHRIFT= \|\| Übergebener Wert wird in cZusCaption geschrieben. (cZusCaption = Wert)
			\|-
			\|EMAILADR= \|\| Übergebener Wert wird als AN-Mail-Adresse verwendet. (qr_printer.ReportDefinition.cEMailAdr = Wert)
			\|-
			\|VONEMAILADR= \|\| Übergebener Wert wird als Von-Mail-Adresse verwendet. (qr_printer.ReportDefinition.cVonEMailAdr = Wert)
			\|-
			\|PARAMETER= \|\| Übergebener Wert wird in qr_printer.ReportDefinition.cParameter geschrieben. (qr_printer.ReportDefinition.cParameter = Wert)
			\|-
			\|FAXDECKBLATT \|\| Aktiviert das Faxdeckblatt (qr_printer.ReportDefinition.nFaxDeckblatt = 2)
			\|-
			\|KEINFAXDECKBLATT \|\| Deaktiviert das Faxdeckblatt (qr_printer.ReportDefinition.nFaxDeckblatt = 1)
			\|-
			\|FAXNR= \|\| Übergebener Wert wird als Fax-Nummer verwendet (qr_printer.ReportDefinition.cFaxNr)
			\|}

Schinke am 12. November 2025 um 13:45 Uhr

2025-11-12T13:45:43Z

← Nächstältere Version		Version vom 12. November 2025, 14:45 Uhr
Zeile 419:		Zeile 419:
	// -----------------------------------------------------------------------------		// -----------------------------------------------------------------------------
	</source>		</source>
			== Druckparameter==
			Folgende Druckparameter gibt es:
			*(AUTOEXPORTDEL)
			*(AUTOSENDEN)
			*(AUTOPDF)
			*(NOOPEN)
			*(SOFORTDRUCK)
			*(OHNEDIALOG)
			*(AUTOEXPORT)
			*(AUTODOK)
			*(AUTOEMAIL)
			*(AUTOEMAILOPEN)
			*(VONEMAILADR=
			*(PARAMETER=
			*(EMAILADR=
			*(DRUCKDATUM=
			*(UEBERSCHRIFT=
			*(AUTOFAX)
			*(FAXNR=
			*(FAXDECKBLATT)
			*(BRIEFKOPF)
			*(KEINBRIEFKOPF)

Schinke: /* Initialisierungen von Pointern vor der Start Proc */

2024-02-16T09:43:17Z

Initialisierungen von Pointern vor der Start Proc

← Nächstältere Version		Version vom 16. Februar 2024, 10:43 Uhr
Zeile 391:		Zeile 391:

	Wenn im User-Ordner eine UserLib.inx liegt, wird diese in der Standard.Inx IMMER mit eingebunden.		Wenn im User-Ordner eine UserLib.inx liegt, wird diese in der Standard.Inx IMMER mit eingebunden.

			Ein Beispiel, bei dem sicher gestellt wird, dass immer wenn in irgendeinem Druck als Papierforma ''Endlospapier'' gewählt wurde, bestimmte Ränder gesetzt werden:
	<source lang="delphi">		<source lang="delphi">
	// -----------------------------------------------------------------------------		// -----------------------------------------------------------------------------

Schinke: /* Initialisierungen von Pointern vor der Start Proc */

2024-02-16T09:42:38Z

Initialisierungen von Pointern vor der Start Proc

← Nächstältere Version		Version vom 16. Februar 2024, 10:42 Uhr
Zeile 391:		Zeile 391:

	Wenn im User-Ordner eine UserLib.inx liegt, wird diese in der Standard.Inx IMMER mit eingebunden.		Wenn im User-Ordner eine UserLib.inx liegt, wird diese in der Standard.Inx IMMER mit eingebunden.
			<source lang="delphi">
	// -----------------------------------------------------------------------------		// -----------------------------------------------------------------------------
	// Procedure: EndloMargins		// Procedure: EndloMargins
Zeile 416:		Zeile 416:

	// -----------------------------------------------------------------------------		// -----------------------------------------------------------------------------
			</source>

Schinke: /* Initialisierungen von Pointern vor der Start Proc */

2024-02-16T09:42:00Z

Initialisierungen von Pointern vor der Start Proc

← Nächstältere Version		Version vom 16. Februar 2024, 10:42 Uhr
Zeile 389:		Zeile 389:
	== Initialisierungen von Pointern vor der Start Proc ==		== Initialisierungen von Pointern vor der Start Proc ==
	Vor der StartProcCustom wird zuerst die Funktion ''InitUserLib'', dann ''RunUserLib'' und erst danach ''StartProcCustom''.		Vor der StartProcCustom wird zuerst die Funktion ''InitUserLib'', dann ''RunUserLib'' und erst danach ''StartProcCustom''.

			Wenn im User-Ordner eine UserLib.inx liegt, wird diese in der Standard.Inx IMMER mit eingebunden.

			// -----------------------------------------------------------------------------
			// Procedure: EndloMargins
			// -----------------------------------------------------------------------------
			procedure EndloMargins();
			begin
			if lower(cPapierformat) = 'Endlospapier' then begin
			ez.Units := MM;
			ez.Page.TopMargin := 35;
			ez.Page.BottomMargin := 65;

			ez.Units := Pixels;
			end;
			end;

			// -----------------------------------------------------------------------------
			// Procedure: RunUserLib
			// -----------------------------------------------------------------------------
			procedure RunUserLib();
			begin
			oStandardPointer.pBeforeStartPrinter := EndloMargins;
			oStandardPointer.pBeforeStartPrinterStd := EndloMargins;
			end;

			// -----------------------------------------------------------------------------

Schinke am 16. Februar 2024 um 09:33 Uhr

2024-02-16T09:33:32Z

← Nächstältere Version		Version vom 16. Februar 2024, 10:33 Uhr
Zeile 386:		Zeile 386:
	oParameter.V14 := cTB;		oParameter.V14 := cTB;
	</source>		</source>

			== Initialisierungen von Pointern vor der Start Proc ==
			Vor der StartProcCustom wird zuerst die Funktion ''InitUserLib'', dann ''RunUserLib'' und erst danach ''StartProcCustom''.

Schinke am 29. September 2023 um 11:29 Uhr

2023-09-29T11:29:35Z

← Nächstältere Version		Version vom 29. September 2023, 12:29 Uhr
Zeile 15:		Zeile 15:
	<span style="color: darkgreen">// Verlinkung des Standard-Drucks</span>		<span style="color: darkgreen">// Verlinkung des Standard-Drucks</span>
	{$I .\data\druck\rechnung.pax}		{$I .\data\druck\rechnung.pax}
			//Briefkopfabfrage aktivieren
			{BriefkopfAbfrage}

	<span style="color: darkgreen">// Kopie der StartProc die dann die Standard-StartProc aufruft</span>		<span style="color: darkgreen">// Kopie der StartProc die dann die Standard-StartProc aufruft</span>
Zeile 34:		Zeile 36:

	{$I .\data\druck\rechnung.pax}		{$I .\data\druck\rechnung.pax}
			//Briefkopfabfrage aktivieren
			{BriefkopfAbfrage}

	<span style="color: darkgreen">// neue Custom-Methode</span>		<span style="color: darkgreen">// neue Custom-Methode</span>
	procedure LeerzeilePosCustom();		procedure LeerzeilePosCustom();

Schinke: /* Vorgangsdrucke mit Methoden-Zeigern (Method Pointer) */

2023-09-29T11:25:55Z

Vorgangsdrucke mit Methoden-Zeigern (Method Pointer)

← Nächstältere Version		Version vom 29. September 2023, 12:25 Uhr
Zeile 25:		Zeile 25:
	Jetzt kann ich über Custom-Methoden den Druck verändern.		Jetzt kann ich über Custom-Methoden den Druck verändern.

			{{Hinweis\|Damit in einem Custom-Methoden Druck die Abfrage nach dem Briefkopf kommt (Pmode:0539) muss folgender Teil enthalten sein :
			{BriefkopfAbfrage}
			}}
	===Beispiel 1: Nutzung eines vorhandenen Methoden-Zeigers===		===Beispiel 1: Nutzung eines vorhandenen Methoden-Zeigers===
	Anforderung: Leerzeilen sollen immer zwei statt einer Zeile hoch sein.		Anforderung: Leerzeilen sollen immer zwei statt einer Zeile hoch sein.