OBS/Auswertung/DataInOut/SpreadGrid - Versionsgeschichte

Schinke: /* Artikel-Lieferanten-Auswerung */

2024-07-23T11:35:00Z

Artikel-Lieferanten-Auswerung

← Nächstältere Version		Version vom 23. Juli 2024, 12:35 Uhr
Zeile 222:		Zeile 222:

	=== Artikel-Lieferanten-Auswerung ===		=== Artikel-Lieferanten-Auswerung ===
			Warengruppe und ein Datumsbereich können eingegeben werden.
			Es werden für den Zeitraum pro Artikel die Lieferanten und Einkaufswerte ausgewertet.
	[[Datei:ArtikelLieferantenEinkaufsauswertung.zip]]		[[Datei:ArtikelLieferantenEinkaufsauswertung.zip]]

Schinke: /* Beispiele */

2024-07-23T11:33:43Z

Beispiele

← Nächstältere Version		Version vom 23. Juli 2024, 12:33 Uhr
Zeile 219:		Zeile 219:
	* INDEX(range; val1, val2) : returns the value of element at index val1,val2 in the range		* INDEX(range; val1, val2) : returns the value of element at index val1,val2 in the range

	=== Beispiele ===		== Beispiele ==

	=== Artikel-Lieferanten-Auswerung ===		=== Artikel-Lieferanten-Auswerung ===
	[[Datei:ArtikelLieferantenEinkaufsauswertung.zip]]		[[Datei:ArtikelLieferantenEinkaufsauswertung.zip]]

Schinke am 23. Juli 2024 um 11:33 Uhr

2024-07-23T11:33:24Z

← Nächstältere Version		Version vom 23. Juli 2024, 12:33 Uhr
Zeile 222:		Zeile 222:

	=== Artikel-Lieferanten-Auswerung ===		=== Artikel-Lieferanten-Auswerung ===
	[[Datei:ArtikelLieferantenEinkaufsauswertung.zip~~\|mini~~]]		[[Datei:ArtikelLieferantenEinkaufsauswertung.zip]]

Schinke am 23. Juli 2024 um 11:33 Uhr

2024-07-23T11:33:03Z

← Nächstältere Version		Version vom 23. Juli 2024, 12:33 Uhr
Zeile 218:		Zeile 218:
	* MATCH(lookup; range) : returns the index of the element param in the range		* MATCH(lookup; range) : returns the index of the element param in the range
	* INDEX(range; val1, val2) : returns the value of element at index val1,val2 in the range		* INDEX(range; val1, val2) : returns the value of element at index val1,val2 in the range

			=== Beispiele ===

			=== Artikel-Lieferanten-Auswerung ===
			[[Datei:ArtikelLieferantenEinkaufsauswertung.zip\|mini]]

Schinke: Allgemeine Beschreibung, was ein Spreadgrid überhaupt ist, hinzugefügt. Inklusive Screenshot.

2024-06-14T09:22:20Z

Allgemeine Beschreibung, was ein Spreadgrid überhaupt ist, hinzugefügt. Inklusive Screenshot.

← Nächstältere Version		Version vom 14. Juni 2024, 10:22 Uhr
Zeile 1:		Zeile 1:
			== Spread Grid ==
			Ein Spread Grid ist eine flexible Tabelle mit aufbereiteten Daten. Über Scripting können hier bliebige Werte aufbereitet werden, bei denen dann die Daten entsprechend bestimmter Eingaben ausgewertet und angezeigt werden.



			[[Datei:SpreadGrid.png]]

	==Verwendung von eigenen Macros innerhalb des Grids==		==Verwendung von eigenen Macros innerhalb des Grids==

Schinke: /* Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit */

2024-06-06T12:18:49Z

Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit

← Nächstältere Version		Version vom 6. Juni 2024, 13:18 Uhr
Zeile 111:		Zeile 111:
	end;		end;
	</source>		</source>

			===Kalkulation sofort durchführen===
			<code>RefreshGrid(oGrid:TObject):String;</code><br/>

	==Folgende Funktionen können innerhalb des Grids verwendet werden:==		==Folgende Funktionen können innerhalb des Grids verwendet werden:==

Schinke: /* Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit */

2022-03-02T14:10:57Z

Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit

← Nächstältere Version		Version vom 2. März 2022, 15:10 Uhr
Zeile 18:		Zeile 18:

	===Schreibt den Text "cText" in die angegebene Zelle===		===Schreibt den Text "cText" in die angegebene Zelle===
	<code>procedure SetCellText(oGrid: TObject; x, y: integer; cText: string);</code>		<code>procedure SetCellText(oGrid: TObject; x, y: integer; cText: string);</code><br/>
	<code>procedure SetGridText(oGrid: TObject; cCell: string; cText: string);</code>		<code>procedure SetGridText(oGrid: TObject; cCell: string; cText: string);</code><br/>
	Beispiele:		Beispiele:
	<source lang="delphi">		<source lang="delphi">
Zeile 26:		Zeile 26:
	</source>		</source>
	===Schreibt eine Zahl nValue in die angegebene Zelle===		===Schreibt eine Zahl nValue in die angegebene Zelle===
	<code>procedure SetCellValue(oGrid: TObject; x, y: integer; nValue: Double);</code>		<code>procedure SetCellValue(oGrid: TObject; x, y: integer; nValue: Double);</code><br/>
	<code>procedure SetGridValue(oGrid: TObject; cCell: string; nValue: Double);</code>		<code>procedure SetGridValue(oGrid: TObject; cCell: string; nValue: Double);</code><br/>

	===Liest den Text aus der angegebenen Zelle===		===Liest den Text aus der angegebenen Zelle===
	<code>function GetCellText(oGrid: TObject; x, y: integer): string;</code>		<code>function GetCellText(oGrid: TObject; x, y: integer): string;</code><br/>
	<code>function GetGridText(oGrid: TObject; cCell: string): string;</code>		<code>function GetGridText(oGrid: TObject; cCell: string): string;</code><br/>

	===Liest einen Wert aus der angebenen Zelle===		===Liest einen Wert aus der angebenen Zelle===
	<code>function GetCellValue(oGrid: TObject; x, y: integer): Double;</code>		<code>function GetCellValue(oGrid: TObject; x, y: integer): Double;</code><br/>
	<code>function GetGridValue(oGrid: TObject; cCell: string): Double;</code>		<code>function GetGridValue(oGrid: TObject; cCell: string): Double;</code><br/>

	===Setzt die Zeilenanzahl des Grids===		===Setzt die Zeilenanzahl des Grids===
	<code>procedure SetGridRowCount(oGrid: TObject; nRows: integer);</code>		<code>procedure SetGridRowCount(oGrid: TObject; nRows: integer);</code><br/>

	===Setzt die Spaltenanzahl des Grids===		===Setzt die Spaltenanzahl des Grids===
	<code>procedure SetGridColCount(oGrid: TObject; nCols: integer);</code>		<code>procedure SetGridColCount(oGrid: TObject; nCols: integer);</code><br/>

	===Leert die angebenen Zellen bestimmter Zeilen===		===Leert die angebenen Zellen bestimmter Zeilen===
	<code>procedure ClearGridRows(oGrid: TObject; nRow, nRowCount: Integer);</code>		<code>procedure ClearGridRows(oGrid: TObject; nRow, nRowCount: Integer);</code><br/>
	Beispiel:		Beispiel:
	<source lang="delphi">		<source lang="delphi">
Zeile 58:		Zeile 58:

	===Setzt die Hintergrundfarbe der Zeile nRow auf die Farbe oColor===		===Setzt die Hintergrundfarbe der Zeile nRow auf die Farbe oColor===
	<code>procedure SetGridRowColor(oGrid: TObject; nRow: integer; oColor: TColor);</code>		<code>procedure SetGridRowColor(oGrid: TObject; nRow: integer; oColor: TColor);</code><br/>
	Beispiel:		Beispiel:
	<source lang="delphi">		<source lang="delphi">
Zeile 66:		Zeile 66:

	===Aufruf beim Klicken auf eine Zelle===		===Aufruf beim Klicken auf eine Zelle===
	<code>procedure OnClickCell(ARow, ACol: Integer);</code>		<code>procedure OnClickCell(ARow, ACol: Integer);</code><br/>
	Beispiel:		Beispiel:
	<source lang="delphi">		<source lang="delphi">
Zeile 78:		Zeile 78:

	===Aufruf wenn auf einen Zelle im Grid doppelgeklickt wird===		===Aufruf wenn auf einen Zelle im Grid doppelgeklickt wird===
	<code>procedure OnDblClickCell(ARow, ACol: Integer);</code>		<code>procedure OnDblClickCell(ARow, ACol: Integer);</code><br/>
	<source lang="delphi">		<source lang="delphi">
	procedure OnDblClickCell(ARow, ACol: Integer);		procedure OnDblClickCell(ARow, ACol: Integer);
Zeile 89:		Zeile 89:

	===Aufruf wenn die ausgewählte Zelle gewechselt wird===		===Aufruf wenn die ausgewählte Zelle gewechselt wird===
	<code>procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);</code>		<code>procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);</code><br/>
	<source lang="delphi">		<source lang="delphi">
	procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);		procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);
Zeile 102:		Zeile 102:

	===Aufruf wenn auf {{Key\|F8 Grid füllen}} geklickt wird===		===Aufruf wenn auf {{Key\|F8 Grid füllen}} geklickt wird===
	<code>procedure FillGrid();</code>		<code>procedure FillGrid();</code><br/>
	Beispiel:		Beispiel:
	<source lang="delphi">		<source lang="delphi">

Schinke: /* Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit */

2022-03-02T14:09:37Z

Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit

← Nächstältere Version		Version vom 2. März 2022, 15:09 Uhr
Zeile 18:		Zeile 18:

	===Schreibt den Text "cText" in die angegebene Zelle===		===Schreibt den Text "cText" in die angegebene Zelle===
	* procedure SetCellText(oGrid: TObject; x, y: integer; cText: string);		<code>procedure SetCellText(oGrid: TObject; x, y: integer; cText: string);</code>
	* procedure SetGridText(oGrid: TObject; cCell: string; cText: string);		<code>procedure SetGridText(oGrid: TObject; cCell: string; cText: string);</code>
	Beispiele:		Beispiele:
	SetCellText(oGrid, 2, 2, 'Test');		<source lang="delphi">
	SetGridText(oGrid, 'C3', 'Test');		SetCellText(oGrid, 2, 2, 'Test');
			SetGridText(oGrid, 'C3', 'Test');
			</source>
	===Schreibt eine Zahl nValue in die angegebene Zelle===		===Schreibt eine Zahl nValue in die angegebene Zelle===
	* procedure SetCellValue(oGrid: TObject; x, y: integer; nValue: Double);		<code>procedure SetCellValue(oGrid: TObject; x, y: integer; nValue: Double);</code>
	* procedure SetGridValue(oGrid: TObject; cCell: string; nValue: Double);		<code>procedure SetGridValue(oGrid: TObject; cCell: string; nValue: Double);</code>

	===Liest den Text aus der angegebenen Zelle===		===Liest den Text aus der angegebenen Zelle===
	* function GetCellText(oGrid: TObject; x, y: integer): string;		<code>function GetCellText(oGrid: TObject; x, y: integer): string;</code>
	* function GetGridText(oGrid: TObject; cCell: string): string;		<code>function GetGridText(oGrid: TObject; cCell: string): string;</code>

	===Liest einen Wert aus der angebenen Zelle===		===Liest einen Wert aus der angebenen Zelle===
	<code>function GetCellValue(oGrid: TObject; x, y: integer): Double;</code>		<code>function GetCellValue(oGrid: TObject; x, y: integer): Double;</code>
	* function GetGridValue(oGrid: TObject; cCell: string): Double;		<code>function GetGridValue(oGrid: TObject; cCell: string): Double;</code>

	===Setzt die ~~Zeilenanhal~~ des Grids===		===Setzt die Zeilenanzahl des Grids===
	* procedure SetGridRowCount(oGrid: TObject; nRows: integer);		<code>procedure SetGridRowCount(oGrid: TObject; nRows: integer);</code>

	===Setzt die Spaltenanzahl des Grids===		===Setzt die Spaltenanzahl des Grids===
	* procedure SetGridColCount(oGrid: TObject; nCols: integer);		<code>procedure SetGridColCount(oGrid: TObject; nCols: integer);</code>

			===Leert die angebenen Zellen bestimmter Zeilen===
			<code>procedure ClearGridRows(oGrid: TObject; nRow, nRowCount: Integer);</code>
			Beispiel:
			<source lang="delphi">
			ClearGridRows(oGrid,5,0);//Leert alle Zellen ab Zeile 5
			</source>

			===Leer die angegebenen Zellen bestimmter Spalten===
			procedure ClearGridCols(oGrid: TObject; nCol, nColCount: Integer);
			Beispiel:
			<source lang="delphi">
			ClearGridCols(oGrid,5,0);//Leert alle Zellen ab Spalte 5
			</source>

	===Setzt die Hintergrundfarbe der Zeile nRow auf die Farbe oColor===		===Setzt die Hintergrundfarbe der Zeile nRow auf die Farbe oColor===
	* procedure SetGridRowColor(oGrid: TObject; nRow: integer; oColor: TColor);		<code>procedure SetGridRowColor(oGrid: TObject; nRow: integer; oColor: TColor);</code>
	Beispiel:		Beispiel:
	SetGridRowColor(oGrid, 2, clYellow);		<source lang="delphi">
	SetGridRowColor(oGrid, 3, clRed);		SetGridRowColor(oGrid, 2, clYellow);
			SetGridRowColor(oGrid, 3, clRed);
			</source>

	===Aufruf beim Klicken ~~in das Grid~~===		===Aufruf beim Klicken auf eine Zelle===
	*procedure OnClickCell(ARow, ACol: Integer);		<code>procedure OnClickCell(ARow, ACol: Integer);</code>
	Beispiel:		Beispiel:
	procedure OnClickCell(ARow, ACol: Integer);		<source lang="delphi">
	begin		procedure OnClickCell(ARow, ACol: Integer);
			begin
	DebugLine(CRLF+'ClickCell');		DebugLine(CRLF+'ClickCell');
	DebugLine('Zeile '+IntToStr(ARow)); //Gibt die angeklickte Zeile aus		DebugLine('Zeile '+IntToStr(ARow)); //Gibt die angeklickte Zeile aus
	DebugLine('Spalte '+IntToStr(ACol)); //Gibt die angeklickte Spalte aus		DebugLine('Spalte '+IntToStr(ACol)); //Gibt die angeklickte Spalte aus
	end;		end;
			</source>

	*procedure ~~OnCellChanging~~(~~OldRow~~, ~~OldCol~~, ~~NewRow, NewCol~~: Integer);		===Aufruf wenn auf einen Zelle im Grid doppelgeklickt wird===
			<code>procedure OnDblClickCell(ARow, ACol: Integer);</code>
			<source lang="delphi">
			procedure OnDblClickCell(ARow, ACol: Integer);
			begin
			DebugLine(CRLF+'DblClickCel');
			DebugLine('Zeile '+IntToStr(ARow)); //Gibt die angeklickte Zeile aus
			DebugLine('Spalte '+IntToStr(ACol)); //Gibt die angeklickte Spalte aus
			end;
			</source>

			===Aufruf wenn die ausgewählte Zelle gewechselt wird===
			<code>procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);</code>
			<source lang="delphi">
	procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);		procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);
	begin		begin
	DebugLine(CRLF+'OnCellChanging');		DebugLine(CRLF+'OnCellChanging');
	DebugLine('Alt ~~Reihe~~ '+IntToStr(OldRow));		DebugLine('Alt Zeile '+IntToStr(OldRow)); //Vorherige Zeile
	DebugLine('Alt Spalte '+IntToStr(OldCol));		DebugLine('Alt Spalte '+IntToStr(OldCol)); //Vorherige Spalte
	DebugLine('Neu ~~Reihe~~ '+IntToStr(NewRow));		DebugLine('Neu Zeile '+IntToStr(NewRow)); //Aktuelle Zeile
	DebugLine('Neu Spalte '+IntToStr(NewCol));		DebugLine('Neu Spalte '+IntToStr(NewCol)); //Aktuelle Spalte
	end;		end;
			</source>

	procedure ~~OnDblClickCell~~(~~ARow, ACol: Integer~~);		===Aufruf wenn auf {{Key\|F8 Grid füllen}} geklickt wird===
	~~begin~~		<code>procedure FillGrid();</code>
	~~DebugLine(CRLF+'DblClickCel');~~		Beispiel:
	~~DebugLine('Reihe '+IntToStr(ARow));~~		<source lang="delphi">
	~~DebugLine('Spalte '+IntToStr(ACol));~~		procedure FillGrid();
	~~end;~~

	procedure FillGrid();
	begin		begin
	SetGridRowCount(oGrid,100);		SetGridRowCount(oGrid,100); //Legt die Anzahl der Zeilen fest
	ClearGridRows(oGrid,5,0);		ClearGridRows(oGrid,5,0);//Leert die Zellen des Grids
	end;		end;
			</source>

	==Folgende Funktionen können innerhalb des Grids verwendet werden:==		==Folgende Funktionen können innerhalb des Grids verwendet werden:==

Schinke: /* Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit */

2022-03-02T14:00:22Z

Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit

← Nächstältere Version		Version vom 2. März 2022, 15:00 Uhr
Zeile 17:		Zeile 17:
	==Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit==		==Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit==

			===Schreibt den Text "cText" in die angegebene Zelle===
	* procedure SetCellText(oGrid: TObject; x, y: integer; cText: string);		* procedure SetCellText(oGrid: TObject; x, y: integer; cText: string);
	* procedure SetGridText(oGrid: TObject; cCell: string; cText: string);		* procedure SetGridText(oGrid: TObject; cCell: string; cText: string);
	~~Schreibt den Text "cText" in die angegebene Zelle.~~		Beispiele:
	SetCellText(oGrid, 2, 2, 'Test');		SetCellText(oGrid, 2, 2, 'Test');
	SetGridText(oGrid, 'C3', 'Test');		SetGridText(oGrid, 'C3', 'Test');

			===Schreibt eine Zahl nValue in die angegebene Zelle===
	* procedure SetCellValue(oGrid: TObject; x, y: integer; nValue: Double);		* procedure SetCellValue(oGrid: TObject; x, y: integer; nValue: Double);
	* procedure SetGridValue(oGrid: TObject; cCell: string; nValue: Double);		* procedure SetGridValue(oGrid: TObject; cCell: string; nValue: Double);
	~~Schreibt eine Zahl nValue in die angegebene Zelle.~~

			===Liest den Text aus der angegebenen Zelle===
	* function GetCellText(oGrid: TObject; x, y: integer): string;		* function GetCellText(oGrid: TObject; x, y: integer): string;
	* function GetGridText(oGrid: TObject; cCell: string): string;		* function GetGridText(oGrid: TObject; cCell: string): string;
	~~Liest den Text aus der angegebenen Zelle.~~

	* function GetCellValue(oGrid: TObject; x, y: integer): Double;		===Liest einen Wert aus der angebenen Zelle===
			<code>function GetCellValue(oGrid: TObject; x, y: integer): Double;</code>
	* function GetGridValue(oGrid: TObject; cCell: string): Double;		* function GetGridValue(oGrid: TObject; cCell: string): Double;
	~~Liest einen Wert aus der angebenen Zelle.~~

			===Setzt die Zeilenanhal des Grids===
	* procedure SetGridRowCount(oGrid: TObject; nRows: integer);		* procedure SetGridRowCount(oGrid: TObject; nRows: integer);
	Setzt die ~~Zeilenanhal~~ des Grids.
			===Setzt die Spaltenanzahl des Grids===
	* procedure SetGridColCount(oGrid: TObject; nCols: integer);		* procedure SetGridColCount(oGrid: TObject; nCols: integer);
	~~Setzt die Spaltenanzahl des Grids.~~

			===Setzt die Hintergrundfarbe der Zeile nRow auf die Farbe oColor===
	* procedure SetGridRowColor(oGrid: TObject; nRow: integer; oColor: TColor);		* procedure SetGridRowColor(oGrid: TObject; nRow: integer; oColor: TColor);
	~~Setzt die Hintergrundfarbe der Zeile nRow auf die Farbe oColor.~~		Beispiel:
	Beispiel:
	SetGridRowColor(oGrid, 2, clYellow);		SetGridRowColor(oGrid, 2, clYellow);
	SetGridRowColor(oGrid, 3, clRed);		SetGridRowColor(oGrid, 3, clRed);

			===Aufruf beim Klicken in das Grid===
			*procedure OnClickCell(ARow, ACol: Integer);
			Beispiel:
			procedure OnClickCell(ARow, ACol: Integer);
			begin
			DebugLine(CRLF+'ClickCell');
			DebugLine('Zeile '+IntToStr(ARow)); //Gibt die angeklickte Zeile aus
			DebugLine('Spalte '+IntToStr(ACol)); //Gibt die angeklickte Spalte aus
			end;

			*procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);

			procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);
			begin
			DebugLine(CRLF+'OnCellChanging');
			DebugLine('Alt Reihe '+IntToStr(OldRow));
			DebugLine('Alt Spalte '+IntToStr(OldCol));
			DebugLine('Neu Reihe '+IntToStr(NewRow));
			DebugLine('Neu Spalte '+IntToStr(NewCol));
			end;

			procedure OnDblClickCell(ARow, ACol: Integer);
			begin
			DebugLine(CRLF+'DblClickCel');
			DebugLine('Reihe '+IntToStr(ARow));
			DebugLine('Spalte '+IntToStr(ACol));
			end;

			procedure FillGrid();
			begin
			SetGridRowCount(oGrid,100);
			ClearGridRows(oGrid,5,0);
			end;

	==Folgende Funktionen können innerhalb des Grids verwendet werden:==		==Folgende Funktionen können innerhalb des Grids verwendet werden:==

Nimz: Nimz verschob die Seite FRMRUNSPREADGRID nach OBS/Auswertung/DataInOut/SpreadGrid

2019-04-09T12:48:07Z

Nimz verschob die Seite FRMRUNSPREADGRID nach OBS/Auswertung/DataInOut/SpreadGrid

← Nächstältere Version	Version vom 9. April 2019, 13:48 Uhr
(kein Unterschied)