OBS/Stammdaten/Artikel: Import Externe-Artikeltexte - Versionsgeschichte

Nimz: /* TISO.LanguageGetRefNo */

2018-10-26T11:02:58Z

TISO.LanguageGetRefNo

← Nächstältere Version		Version vom 26. Oktober 2018, 12:02 Uhr
Zeile 124:		Zeile 124:
	\| ISO 639-3\|\| iso639_3		\| ISO 639-3\|\| iso639_3
	\|}		\|}
	{{Hinweis\|In der Regel wird beim Datenaustausch die zweistellige ISO-639-1 verwendet. Alle anderen Kodierungen sind dreistellig.}}		{{Hinweis\|In der Regel wird beim Datenaustausch die zweistellige ISO 639-1 verwendet. Alle anderen Kodierungen sind dreistellig.}}

	=Beispiel=		=Beispiel=

Nimz: /* TISO.LanguageGetRefNo */

2018-10-26T11:02:43Z

TISO.LanguageGetRefNo

← Nächstältere Version		Version vom 26. Oktober 2018, 12:02 Uhr
Zeile 124:		Zeile 124:
	\| ISO 639-3\|\| iso639_3		\| ISO 639-3\|\| iso639_3
	\|}		\|}
			{{Hinweis\|In der Regel wird beim Datenaustausch die zweistellige ISO-639-1 verwendet. Alle anderen Kodierungen sind dreistellig.}}

	=Beispiel=		=Beispiel=

Nimz: /* Befehle */

2018-10-26T10:58:22Z

Befehle

← Nächstältere Version		Version vom 26. Oktober 2018, 11:58 Uhr
Zeile 49:		Zeile 49:
	{{Hinweis\|Im Normalfall werden Sie nur Variablen des Typs [[https://de.wikipedia.org/wiki/Zeichenkette#Pascal\|'''string''']] benötigen.}}		{{Hinweis\|Im Normalfall werden Sie nur Variablen des Typs [[https://de.wikipedia.org/wiki/Zeichenkette#Pascal\|'''string''']] benötigen.}}
	===ExtractFileName===		===ExtractFileName===
	Verwendung: Dateinamen aus Dateipfad auslesen.		Verwendung: Dateinamen aus Dateipfad auslesen.<br />
	Parameter: string		Parameter: string<br />
	Rückgabe: string		Rückgabe: string<br />
	Beispiel:<br />		Beispiel:<br />
	cDatei := 'c:\\Ordner\Datei.txt';		cDatei := 'c:\\Ordner\Datei.txt';
Zeile 57:		Zeile 57:
	Erklärung: Der String-Variable ''cDatei'' wird der Wert ''c:\\Ordner\Datei.txt'' zugewiesen. Mit ''ExtractFileName'' wird der Dateiname herausgesucht und zurückgegeben. Danach enthält ''cDatei'' nur noch den Wert ''Datei.txt''.		Erklärung: Der String-Variable ''cDatei'' wird der Wert ''c:\\Ordner\Datei.txt'' zugewiesen. Mit ''ExtractFileName'' wird der Dateiname herausgesucht und zurückgegeben. Danach enthält ''cDatei'' nur noch den Wert ''Datei.txt''.
	===StrTran===		===StrTran===
	Verwendung: Sucht einen Text innerhalb eines Textes und ersetzte diesen durch einen andren Text (Suchen und ersetzen).		Verwendung: Sucht einen Text innerhalb eines Textes und ersetzte diesen durch einen andren Text (Suchen und ersetzen).<br />
	Parameter: string, string, string		Parameter: string, string, string<br />
	Rückgabe: string		Rückgabe: string<br />
	Beispiel:<br />		Beispiel:<br />
	cDatei := 'Datei.txt';		cDatei := 'Datei.txt';
Zeile 66:		Zeile 66:

	===Length===		===Length===
	Verwendung: Ermittelt die Länge einer Zeichenkette.		Verwendung: Ermittelt die Länge einer Zeichenkette.<br />
	Parameter: string		Parameter: string<br />
	Rückgabe: integer		Rückgabe: integer<br />
	Beispiel:<br />		Beispiel:<br />
	cDatei := 'Datei';		cDatei := 'Datei';
Zeile 74:		Zeile 74:
	Erklärung: Der String-Variable ''cDatei'' wird der Wert ''Datei'' zugewiesen. Mit ''Length'' wird die Länge ermittelt. Das Wort "Datei" hat 5 Buchstaben. ''nLaenge'' hat also den Wert ''5''.		Erklärung: Der String-Variable ''cDatei'' wird der Wert ''Datei'' zugewiesen. Mit ''Length'' wird die Länge ermittelt. Das Wort "Datei" hat 5 Buchstaben. ''nLaenge'' hat also den Wert ''5''.
	===LeftStr/RightStr===		===LeftStr/RightStr===
	Verwendung: Gibt den linken/rechten Teil einer Zeichenketten zurück. Es werden dabei maximal soviele Zeichen zurückgegeben, wie im zweiten Parameter angegeben.		Verwendung: Gibt den linken/rechten Teil einer Zeichenketten zurück. Es werden dabei maximal soviele Zeichen zurückgegeben, wie im zweiten Parameter angegeben.<br />
	Parameter: string, integer		Parameter: string, integer<br />
	Rückgabe: string		Rückgabe: string<br />
	Beispiel:<br />		Beispiel:<br />
	cDatei := 'Datei';		cDatei := 'Datei';
Zeile 85:		Zeile 85:

	===UpperCase/LowerCase===		===UpperCase/LowerCase===
	Verwendung: Umwandeln einer Zeichenkette in Großbuchstaben/Kleinbuchstaben.		Verwendung: Umwandeln einer Zeichenkette in Großbuchstaben/Kleinbuchstaben.<br />
	Parameter: string		Parameter: string<br />
	Rückgabe: string		Rückgabe: string<br />
	Beispiel:<br />		Beispiel:<br />
	cDatei := 'Datei';		cDatei := 'Datei';
Zeile 94:		Zeile 94:
	Erklärung: Der String-Variable ''cDatei'' wird der Wert ''Datei'' zugewiesen. Mit ''UpperCase'' und ''LowerCase'' wird die Zeichenkette umgewandelt. ''cUpper'' enthält danach den Wert ''DATEI'' und ''cLower'' den Wert ''datei''.		Erklärung: Der String-Variable ''cDatei'' wird der Wert ''Datei'' zugewiesen. Mit ''UpperCase'' und ''LowerCase'' wird die Zeichenkette umgewandelt. ''cUpper'' enthält danach den Wert ''DATEI'' und ''cLower'' den Wert ''datei''.
	===Token===		===Token===
	Verwendung: Teilt eine Zeichenkette anhand eines Zeichens auf und gibt den engebenen Teil zurück.		Verwendung: Teilt eine Zeichenkette anhand eines Zeichens auf und gibt den engebenen Teil zurück.<br />
	Parameter: string, string, integer		Parameter: string, string, integer<br />
	Rückgabe: string		Rückgabe: string<br />
	Beispiel:<br />		Beispiel:<br />
	cDatei := 'Datei_Name_Mit_Unterstrichen.txt';		cDatei := 'Datei_Name_Mit_Unterstrichen.txt';
	cTeil := Token(cDatei,'_',2);		cTeil := Token(cDatei,'_',2);
	Erklärung: Der String-Variable ''cDatei'' wird der Wert ''Datei_Name_Mit_Unterstrichen.txt'' zugewiesen. Mit ''Token'' wird die Zeichenkette aufgeteilt. Als Teiler ist ein Unterstrich angeben. Dies führt im angegebenen Beispiel zu vier Teilen: ''Datei'', ''Name'', ''Mit'' und ''Unterstrichen.txt''. Es wird der zweite Teil gefordert. Die Variable ''cTeil'' enthält demnach den Wert ''Name''.		Erklärung: Der String-Variable ''cDatei'' wird der Wert ''Datei_Name_Mit_Unterstrichen.txt'' zugewiesen. Mit ''Token'' wird die Zeichenkette aufgeteilt. Als Teiler ist ein Unterstrich angeben. Dies führt im angegebenen Beispiel zu vier Teilen: ''Datei'', ''Name'', ''Mit'' und ''Unterstrichen.txt''. Es wird der zweite Teil gefordert. Die Variable ''cTeil'' enthält demnach den Wert ''Name''.
			===TISO.LanguageGetRefNo===
			Verwendung: Ermitteln der OBS-Referenz für eine Sprache per ISO-Code. Dafür wird der Sprach-Standard '''[https://en.wikipedia.org/wiki/List_of_ISO_639-1_codes ISO 639]''' verwendet.<br />
			Parameter: TxDB (Datenbank-Verbindung, immer ''oDB'' !), TISOLanguageCodes (enummeration), string<br />
			Rückgabe: string<br />
			Beispiel:<br />
			cISO1 := TISO.LanguageGetRefNo(oDB,iso639_1 ,'en');
			cISO2b := TISO.LanguageGetRefNo(oDB,iso639_2b,'eng');
			cISO2t := TISO.LanguageGetRefNo(oDB,iso639_2t,'eng');
			cISO3 := TISO.LanguageGetRefNo(oDB,iso639_3 ,'eng');
			Erklärung: Die Standard-Sprache in OBS ist Deutsch. Bei Verwendung des Moduls Mehrsprachen, muss bei entsprechenden Texten die Sprache gesetzt werden. Für Importe haben Sie die Möglichkeit ISO-Codes in die OBS-Referenz umzuwandeln. Um die verschiedenen Codierungen zu verwenden, ist der zweite Parameter entscheidend. Dieser steht nämlich für den verwendeten ISO-639-Code. Das Beispiel würde jetzt also nacheinander für die Sprache '''Englisch''' die OBS-Referenz und schreibt diese in eine Variable.<br />
			Unterstütze Codes:
			{\| class="wikitable"
			\|-
			! Code!! TISOLanguageCodes
			\|-
			\| ISO 639-1\|\| iso639_1
			\|-
			\| ISO 639-2/B\|\| iso639_2b
			\|-
			\| ISO 639-2/T\|\| iso639_2t
			\|-
			\| ISO 639-3\|\| iso639_3
			\|}

	=Beispiel=		=Beispiel=

Nimz: /* Beispiel */

2018-10-26T10:38:41Z

Beispiel

← Nächstältere Version		Version vom 26. Oktober 2018, 11:38 Uhr
Zeile 103:		Zeile 103:

	=Beispiel=		=Beispiel=
	{Achtung\|ArtikelSprache bis Version '''002772''' mit "Result := '';" verwenden! Die Funktionalität über die internen ISO-Funktionen ist erst ab 002773 verfügbar.}
			{{Achtung\|Die Funktion ArtikelSprache bis Version '''002772''' mit leerer Rückgabe ('''<nowiki>Result := '';</nowiki>''') verwenden! Die Funktionalität über die internen ISO-Funktionen ist erst ab 002773 verfügbar.}}

	function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin

Nimz: /* Beispiel */

2018-10-26T10:36:07Z

Beispiel

← Nächstältere Version		Version vom 26. Oktober 2018, 11:36 Uhr
Zeile 103:		Zeile 103:

	=Beispiel=		=Beispiel=
	{{Achtung\|ArtikelSprache bis Version '''002772''' mit "Result := '';" verwenden! Die Funktionalität über die internen ISO-Funktionen ist erst ab 002773 verfügbar.}}		{Achtung\|ArtikelSprache bis Version '''002772''' mit "Result := '';" verwenden! Die Funktionalität über die internen ISO-Funktionen ist erst ab 002773 verfügbar.}
	function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin

Nimz: /* Beispiel */

2018-10-26T10:35:58Z

Beispiel

← Nächstältere Version		Version vom 26. Oktober 2018, 11:35 Uhr
Zeile 103:		Zeile 103:

	=Beispiel=		=Beispiel=
			{{Achtung\|ArtikelSprache bis Version '''002772''' mit "Result := '';" verwenden! Die Funktionalität über die internen ISO-Funktionen ist erst ab 002773 verfügbar.}}
	function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin

Nimz: /* Beispiel */

2018-10-26T10:28:56Z

Beispiel

← Nächstältere Version		Version vom 26. Oktober 2018, 11:28 Uhr
Zeile 133:		Zeile 133:
	function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin
	Result := ~~'9101'~~;		Result := GetCell(oXLS,nRow,4);
	end;		end;

Zeile 140:		Zeile 140:
	function ArtikelSprache(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelSprache(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin
	Result := ~~GetLK_OBS~~(oDB,'de');		Result := TISO.LanguageGetRefNo(oDB,iso639_1,'de');
	end;		end;

Nimz: /* Beispiel */

2018-10-25T14:33:43Z

Beispiel

← Nächstältere Version		Version vom 25. Oktober 2018, 15:33 Uhr
Zeile 140:		Zeile 140:
	function ArtikelSprache(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelSprache(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin
	Result := ~~<nowiki>~~''~~</nowiki>~~;		Result := GetLK_OBS(oDB,'de');
	end;		end;

Nimz: /* Beispiel */

2018-10-25T14:24:28Z

Beispiel

← Nächstältere Version		Version vom 25. Oktober 2018, 15:24 Uhr
Zeile 140:		Zeile 140:
	function ArtikelSprache(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelSprache(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin
	Result := '';		Result := <nowiki>''</nowiki>;
	end;		end;

Zeile 147:		Zeile 147:
	function ShopZuord(oXLS:TObject;nRow:Intgeger) : String;		function ShopZuord(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin
	Result := '';		Result := <nowiki>''</nowiki>;
	end;		end;

Nimz: /* Beispiel */

2018-10-25T14:23:56Z

Beispiel

← Nächstältere Version		Version vom 25. Oktober 2018, 15:23 Uhr
Zeile 138:		Zeile 138:
	//-----------------------------------------------------------------------------		//-----------------------------------------------------------------------------

	function ~~ArtikelLand~~(oXLS:TObject;nRow:Intgeger) : String;		function ArtikelSprache(oXLS:TObject;nRow:Intgeger) : String;
	begin		begin
	Result := 'D';		Result := '';
	end;		end;