OBS/Makros und Scripting/Anwendungsbereiche/Customize OpenTRANS - Versionsgeschichte

Nimz: /* Funktion: WriteHeader */

2025-04-08T08:53:17Z

Funktion: WriteHeader

← Nächstältere Version		Version vom 8. April 2025, 09:53 Uhr
Zeile 19:		Zeile 19:
	// oAuftrag = Auftragsobjekt		// oAuftrag = Auftragsobjekt
	function WriteHeader(oMyDB: TxDB; oAuftrag: TAuftrag): boolean;		function WriteHeader(oMyDB: TxDB; oAuftrag: TAuftrag): boolean;
			</syntaxhighlight>
	===Funktion: ReadItem===		===Funktion: ReadItem===
	<syntaxhighlight lang="Delphi">		<syntaxhighlight lang="Delphi">
Zeile 26:		Zeile 27:
	function ReadItem(oMyDB: TxDB; cOrderItemXML: string): boolean;		function ReadItem(oMyDB: TxDB; cOrderItemXML: string): boolean;
	</syntaxhighlight>		</syntaxhighlight>

	===Funktion: WriteItem===		===Funktion: WriteItem===
	<syntaxhighlight lang="Delphi">		<syntaxhighlight lang="Delphi">

Nimz am 29. Juni 2022 um 14:17 Uhr

2022-06-29T14:17:41Z

← Nächstältere Version		Version vom 29. Juni 2022, 15:17 Uhr
Zeile 58:		Zeile 58:
	</syntaxhighlight>		</syntaxhighlight>
	===GetXMLCDataValue===		===GetXMLCDataValue===
	Unter Umständen sind die Daten in einem CDATA (<![CDATA[]]>) angegeben. Um an den eigentlichen Wert als Text zu kommen, kann diese Funktion verwendet werden.		Unter Umständen sind die Daten in einem [https://de.wikipedia.org/wiki/CDATA CDATA] (<![CDATA[]]>; kurz für ''character data'') angegeben. Um an den eigentlichen Wert als Text zu kommen, kann diese Funktion verwendet werden.
	<syntaxhighlight lang="Delphi">		<syntaxhighlight lang="Delphi">
	// Parameter:		// Parameter:
Zeile 85:		Zeile 85:
	//und gibt diesen in cWert zurück		//und gibt diesen in cWert zurück
	GetXMLToken(cXML, cElement, cWert);		GetXMLToken(cXML, cElement, cWert);
	//Entfernt		//Entfernt aus dem Wert cWert die CDATA-Syntax
	GetXMLCDataValue(AllTrim(cWert), cWert);		GetXMLCDataValue(AllTrim(cWert), cWert);
	Result := True;		Result := True;
Zeile 151:		Zeile 151:
	Result := True;		Result := True;

			//Wenn Frachtenkosten ungleich 0 Euro angegeben sind, diese als Position übernehmen
	if (not Empty(fVal(cKosten_Fracht))) then begin		if (not Empty(fVal(cKosten_Fracht))) then begin
	oAuftPos := oAuftrag.NeuePosition('OTSHP00002');		oAuftPos := oAuftrag.NeuePosition('OTSHP00002');
Zeile 170:		Zeile 171:
	end;		end;

			//Wenn eine Versicherungspauschale berechnet wird (ungleich 0 Euro), dann eine Position anlegen
	if (not Empty(fVal(cKosten_Versich))) then begin		if (not Empty(fVal(cKosten_Versich))) then begin
	oAuftPos := oAuftrag.NeuePosition('OTSHP00003');		oAuftPos := oAuftrag.NeuePosition('OTSHP00003');

Nimz: /* Beispiel */

2022-06-29T14:12:09Z

Beispiel

← Nächstältere Version		Version vom 29. Juni 2022, 15:12 Uhr
Zeile 70:		Zeile 70:
	</syntaxhighlight>		</syntaxhighlight>
	=Beispiel=		=Beispiel=
			Das folgende Beispiel soll veranschaulichen, wie aus benutzerdefinierten OpenTRANS-Feldern für Frachtkosten und Versicherungspauschale Artikelpositionen im Auftrag werden.
	<syntaxhighlight lang="Delphi">		<syntaxhighlight lang="Delphi">
	//OpenTRANS_Order_Import_Shop		//OpenTRANS_Order_Import_Shop
Zeile 81:		Zeile 82:
	function LeseXML(cXML: string; cElement: string; var cWert: string): boolean;		function LeseXML(cXML: string; cElement: string; var cWert: string): boolean;
	begin		begin
			//Liest den Wert für das Element cElement aus der XML-Struktur cXML aus
			//und gibt diesen in cWert zurück
	GetXMLToken(cXML, cElement, cWert);		GetXMLToken(cXML, cElement, cWert);
			//Entfernt
	GetXMLCDataValue(AllTrim(cWert), cWert);		GetXMLCDataValue(AllTrim(cWert), cWert);
	Result := True;		Result := True;
Zeile 90:		Zeile 94:
	function ReadHeader(oMyDB: TxDB; cOrderHeaderXML: string): boolean;		function ReadHeader(oMyDB: TxDB; cOrderHeaderXML: string): boolean;
	begin		begin
	//~~insert customize code here~~		//Auslesen der Daten aus der XML-Datei
	LeseXML(cOrderHeaderXML, 'UDX.KOSTEN_FRACHT' , cKosten_Fracht );		LeseXML(cOrderHeaderXML, 'UDX.KOSTEN_FRACHT' , cKosten_Fracht );
	LeseXML(cOrderHeaderXML, 'UDX.KOSTEN_VERSICH', cKosten_Versich);		LeseXML(cOrderHeaderXML, 'UDX.KOSTEN_VERSICH', cKosten_Versich);

Nimz: /* Beispiel */

2022-06-27T13:54:42Z

Beispiel

← Nächstältere Version		Version vom 27. Juni 2022, 14:54 Uhr
Zeile 110:		Zeile 110:
	oAuftPos.cAusdruckJN := '1'; //Drucken=Nein		oAuftPos.cAusdruckJN := '1'; //Drucken=Nein

	~~cCHECKOUT_NOTES~~ := '';		cZusatznotiz := '';
	end;		end;

Zeile 163:		Zeile 163:
	oAuftPos.cStatus := 'V000';		oAuftPos.cStatus := 'V000';

	~~cSHIPPING_COST~~ := '';		cKosten_Fracht := '';
	end;		end;

Zeile 182:		Zeile 182:
	oAuftPos.cStatus := 'V000';		oAuftPos.cStatus := 'V000';

	~~cINSURANCE_COST~~ := '';		cKosten_Versich := '';
	end;		end;
	end;		end;
	</syntaxhighlight>		</syntaxhighlight>

Nimz: Die Seite wurde neu angelegt: „{{Makros und Scripting}} Der Import von OpenTRANS-Dateien findet sich besonders in Shop-Schnittsellen. Mehrere Shop-Schnittstelle unterstützen den Import von…“

2022-06-24T12:30:23Z

Die Seite wurde neu angelegt: „{{Makros und Scripting}} Der Import von OpenTRANS-Dateien findet sich besonders in Shop-Schnittsellen. Mehrere Shop-Schnittstelle unterstützen den Import von…“

Änderungen zeigen

Böhrer: Die Seite wurde neu angelegt: „Hello, dear friend! I am Williams. I am happy that I could unify to the whole world. I live in France, in the south region. I dream to visit the various nation…“

2017-05-25T14:04:17Z

Die Seite wurde neu angelegt: „Hello, dear friend! I am Williams. I am happy that I could unify to the whole world. I live in France, in the south region. I dream to visit the various nation…“

Neue Seite

Hello, dear friend! I am Williams. I am happy that I could unify to the whole world. I live in France, in the south region. I dream to visit the various nations, to obtain acquainted with appealing people.<br><br>Review my webpage - [http://ledtruongan.com/san-pham/led-full-color-9883/ led full color 9883]