OBS/Makros und Scripting/Anwendungsbereiche/Drucke - Versionsgeschichte

MINERVA-Thiel: Nachtmodus/Altbestand: 18x Schriftfarbe als Codex-Farbe [Volltext ersetzt]

2026-09-28T21:52:48Z

Nachtmodus/Altbestand: 18x Schriftfarbe als Codex-Farbe [Volltext ersetzt]

← Nächstältere Version		Version vom 28. September 2026, 22:52 Uhr
Zeile 13:		Zeile 13:
	user-Druck anlegen in folgendem Stil (Beispiel rechnung.pax):		user-Druck anlegen in folgendem Stil (Beispiel rechnung.pax):

	<span style="color: ~~darkgreen~~">// Verlinkung des Standard-Drucks</span>		<span style="color: var( --color-success, #177860 )">// Verlinkung des Standard-Drucks</span>
	{$I .\data\druck\rechnung.pax}		{$I .\data\druck\rechnung.pax}
	//Briefkopfabfrage aktivieren		//Briefkopfabfrage aktivieren
	{BriefkopfAbfrage}		{BriefkopfAbfrage}

	<span style="color: ~~darkgreen~~">// Kopie der StartProc die dann die Standard-StartProc aufruft</span>		<span style="color: var( --color-success, #177860 )">// Kopie der StartProc die dann die Standard-StartProc aufruft</span>
	function <span style="color: ~~blue~~">StartProcCustom</span>(cRechNr: String; nParCnt: Integer; lPrintModusi: Boolean; obj: TObject): Boolean;		function <span style="color: var( --color-progressive, #36c )">StartProcCustom</span>(cRechNr: String; nParCnt: Integer; lPrintModusi: Boolean; obj: TObject): Boolean;
	begin		begin
	result := StartProc(cRechNr, nParCnt, lPrintModusi, obj);		result := StartProc(cRechNr, nParCnt, lPrintModusi, obj);
Zeile 39:		Zeile 39:
	{BriefkopfAbfrage}		{BriefkopfAbfrage}

	<span style="color: ~~darkgreen~~">// neue Custom-Methode</span>		<span style="color: var( --color-success, #177860 )">// neue Custom-Methode</span>
	procedure LeerzeilePosCustom();		procedure LeerzeilePosCustom();
	begin		begin
Zeile 47:		Zeile 47:
	function StartProcCustom(cRechNr: String; nParCnt: Integer; lPrintModusi: Boolean; obj: TObject): Boolean;		function StartProcCustom(cRechNr: String; nParCnt: Integer; lPrintModusi: Boolean; obj: TObject): Boolean;
	begin		begin
	<span style="color: ~~darkgreen~~">// Grund-Initialisierung der Zeiger, '''MUSS''' als erstes ausgeführt werden weil die Zeiger sonst während des Drucks neu gesetzt werden</span>		<span style="color: var( --color-success, #177860 )">// Grund-Initialisierung der Zeiger, '''MUSS''' als erstes ausgeführt werden weil die Zeiger sonst während des Drucks neu gesetzt werden</span>
	InitMethodPointers(true);		InitMethodPointers(true);

	<span style="color: ~~darkgreen~~">// Zuweisung meiner Custom-Methode auf dem Methoden-Zeiger für den Leerzeilendruck</span>		<span style="color: var( --color-success, #177860 )">// Zuweisung meiner Custom-Methode auf dem Methoden-Zeiger für den Leerzeilendruck</span>
	<span style="color: ~~blue~~">oMethodPointer.pLeerzeile := LeerzeilePosCustom;</span>		<span style="color: var( --color-progressive, #36c )">oMethodPointer.pLeerzeile := LeerzeilePosCustom;</span>

	result := StartProc(cRechNr, nParCnt, lPrintModusi, obj);		result := StartProc(cRechNr, nParCnt, lPrintModusi, obj);
Zeile 239:		Zeile 239:
	[...]		[...]
	if ((not lEmpty) and (not lLiefNach) and (not lMultiSteuerPos)) then begin		if ((not lEmpty) and (not lLiefNach) and (not lMultiSteuerPos)) then begin
	<span style="color: ~~blue~~">qRep_SText(EZ,'menge' ,TStr(AZ_Query.A2F('az_menge'),12,StrToIntDef(PMode_Var(457),2)),qRep_YPos(EZ,y));</span>		<span style="color: var( --color-progressive, #36c )">qRep_SText(EZ,'menge' ,TStr(AZ_Query.A2F('az_menge'),12,StrToIntDef(PMode_Var(457),2)),qRep_YPos(EZ,y));</span>
	qRep_SText(EZ,'einheit',GetEinheit_Lan(oDB,cLanguage,AZ_Query.A2C('az_einheit'),'se_name'),qRep_YPos(EZ,y));		qRep_SText(EZ,'einheit',GetEinheit_Lan(oDB,cLanguage,AZ_Query.A2C('az_einheit'),'se_name'),qRep_YPos(EZ,y));
	end else if (lLiefNach and lDruckNachgeliefert) then begin		end else if (lLiefNach and lDruckNachgeliefert) then begin
Zeile 253:		Zeile 253:
	pPosHeader : TPosMethod;		pPosHeader : TPosMethod;
	[...]		[...]
	<span style="color: ~~blue~~">pPosLineMenge : TPosMethod;</span> <span style="color: ~~darkgreen~~">// <-- neuer Zeiger</span>		<span style="color: var( --color-progressive, #36c )">pPosLineMenge : TPosMethod;</span> <span style="color: var( --color-success, #177860 )">// <-- neuer Zeiger</span>
	end;		end;

Zeile 261:		Zeile 261:
	[...]		[...]
	if ((not lEmpty) and (not lLiefNach) and (not lMultiSteuerPos)) then begin		if ((not lEmpty) and (not lLiefNach) and (not lMultiSteuerPos)) then begin
	<span style="color: ~~blue~~">oMethodPointer.pPosLineMenge();</span> <span style="color: ~~darkgreen~~">// <-- Methoden-Aufruf</span>		<span style="color: var( --color-progressive, #36c )">oMethodPointer.pPosLineMenge();</span> <span style="color: var( --color-success, #177860 )">// <-- Methoden-Aufruf</span>
	qRep_SText(EZ,'einheit',GetEinheit_Lan(oDB,cLanguage,AZ_Query.A2C('az_einheit'),'se_name'),qRep_YPos(EZ,y));		qRep_SText(EZ,'einheit',GetEinheit_Lan(oDB,cLanguage,AZ_Query.A2C('az_einheit'),'se_name'),qRep_YPos(EZ,y));
	end else if (lLiefNach and lDruckNachgeliefert) then begin		end else if (lLiefNach and lDruckNachgeliefert) then begin
Zeile 283:		Zeile 283:
	oMethodPointer.pPosHeader := PosHeader;		oMethodPointer.pPosHeader := PosHeader;
	[...]		[...]
	<span style="color: ~~blue~~">oMethodPointer.pPosLineMenge := PosLineMengeDefault;</span> <span style="color: ~~darkgreen~~">// <-- das hier ist die neue Zeile</span>		<span style="color: var( --color-progressive, #36c )">oMethodPointer.pPosLineMenge := PosLineMengeDefault;</span> <span style="color: var( --color-success, #177860 )">// <-- das hier ist die neue Zeile</span>

	InitPosParams(lPrintPreise);		InitPosParams(lPrintPreise);
Zeile 293:		Zeile 293:
	procedure PosLineMengeCustom();		procedure PosLineMengeCustom();
	begin		begin
	<span style="color: ~~darkgreen~~">// keine Menge ausgeben</span>		<span style="color: var( --color-success, #177860 )">// keine Menge ausgeben</span>
	end;		end;

	function StartProcCustom(cRechNr: String; nParCnt: Integer; lPrintModusi: Boolean; obj: TObject): Boolean;		function StartProcCustom(cRechNr: String; nParCnt: Integer; lPrintModusi: Boolean; obj: TObject): Boolean;
	begin		begin
	<span style="color: ~~darkgreen~~">// Grund-Initialisierung der Zeiger, '''MUSS''' als erstes ausgeführt werden weil die Zeiger sonst während des Drucks neu gesetzt werden</span>		<span style="color: var( --color-success, #177860 )">// Grund-Initialisierung der Zeiger, '''MUSS''' als erstes ausgeführt werden weil die Zeiger sonst während des Drucks neu gesetzt werden</span>
	InitMethodPointers(true);		InitMethodPointers(true);

	<span style="color: ~~darkgreen~~">// Setzten der neue Methode</span>		<span style="color: var( --color-success, #177860 )">// Setzten der neue Methode</span>
	<span style="color: ~~blue~~">oMethodPointer.pPosLineMenge := PosLineMengeCustom;</span>		<span style="color: var( --color-progressive, #36c )">oMethodPointer.pPosLineMenge := PosLineMengeCustom;</span>

	result := StartProc(cRechNr, nParCnt, lPrintModusi, obj);		result := StartProc(cRechNr, nParCnt, lPrintModusi, obj);

MINERVA-Thiel: Veraltetes -Tag durch ersetzt (gleiche Darstellung) [Volltext ersetzt]

2026-09-28T19:46:32Z

Veraltetes <source>-Tag durch <syntaxhighlight> ersetzt (gleiche Darstellung) [Volltext ersetzt]

← Nächstältere Version		Version vom 28. September 2026, 20:46 Uhr
Zeile 57:		Zeile 57:

	Beispiel eines angepassten Angebot-Drucks mit diversen Anpassungen:		Beispiel eines angepassten Angebot-Drucks mit diversen Anpassungen:
	<~~source~~ lang="delphi">		<syntaxhighlight lang="delphi">
	//------------------------------------------------------------------------------		//------------------------------------------------------------------------------
	// Unit Name: Angebot		// Unit Name: Angebot
Zeile 172:		Zeile 172:
	result := StartProc(cVar, cAngNr, nParCnt, lPrintModusi, obj);		result := StartProc(cVar, cAngNr, nParCnt, lPrintModusi, obj);
	end;		end;
	</~~source~~>		</syntaxhighlight>
	Dazugehörige User.inx:		Dazugehörige User.inx:
	<~~source~~ lang="delphi">		<syntaxhighlight lang="delphi">
	//------------------------------------------------------------------		//------------------------------------------------------------------
	//Ausgabe Ansprechpartner/Projekt im Kopf		//Ausgabe Ansprechpartner/Projekt im Kopf
Zeile 223:		Zeile 223:
	qRep_PictPrint(EZ,GL_EXEPath+'data\druck\user\Briefbogen.png',-100,800,1150,-220);		qRep_PictPrint(EZ,GL_EXEPath+'data\druck\user\Briefbogen.png',-100,800,1150,-220);
	end;		end;
	</~~source~~>		</syntaxhighlight>

	===Beispiel 2: Einrichtung eines neuen Methoden-Zeigers===		===Beispiel 2: Einrichtung eines neuen Methoden-Zeigers===
Zeile 337:		Zeile 337:

	oParameter.V13 ist der Mail Text		oParameter.V13 ist der Mail Text
	<~~source~~ lang="delphi">		<syntaxhighlight lang="delphi">
	Script_Lib_RunNamePara(oDB,		Script_Lib_RunNamePara(oDB,

Zeile 385:		Zeile 385:

	oParameter.V14 := cTB;		oParameter.V14 := cTB;
	</~~source~~>		</syntaxhighlight>

	== Initialisierungen von Pointern vor der Start Proc ==		== Initialisierungen von Pointern vor der Start Proc ==
Zeile 393:		Zeile 393:

	Ein Beispiel, bei dem sicher gestellt wird, dass immer wenn in irgendeinem Druck als Papierforma ''Endlospapier'' gewählt wurde, bestimmte Ränder gesetzt werden:		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">		<syntaxhighlight lang="delphi">
	// -----------------------------------------------------------------------------		// -----------------------------------------------------------------------------
	// Procedure: EndloMargins		// Procedure: EndloMargins
Zeile 418:		Zeile 418:

	// -----------------------------------------------------------------------------		// -----------------------------------------------------------------------------
	</~~source~~>		</syntaxhighlight>
	== Druckparameter==		== Druckparameter==
	Hier werden Parameter für Druck-Scripte aufgelistet. Parameter mit einem = Zeichen erwarten danach noch einen Wert.		Hier werden Parameter für Druck-Scripte aufgelistet. Parameter mit einem = Zeichen erwarten danach noch einen Wert.

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''.