OBS/Amazon/MakroFunktionen - Versionsgeschichte

Rademacker am 8. Juli 2015 um 05:38 Uhr

2015-07-08T05:38:48Z

← Nächstältere Version		Version vom 8. Juli 2015, 06:38 Uhr
Zeile 28:		Zeile 28:

	{{Hinweis\|Ist für den Artikel kein Preis hinterlegt oder der Preis konnte beim letzten Lesezyklus nicht ausgelesen werden (z.B. weil der Artikel deaktiviert wurde oder inaktiv ist) gibt die Methode im Wert nListing 0 zurück}}		{{Hinweis\|Ist für den Artikel kein Preis hinterlegt oder der Preis konnte beim letzten Lesezyklus nicht ausgelesen werden (z.B. weil der Artikel deaktiviert wurde oder inaktiv ist) gibt die Methode im Wert nListing 0 zurück}}


	==GetAmazonCompetitorPrice(cArtNr: string): TAmazonPriceTable==		==GetAmazonCompetitorPrice(cArtNr: string): TAmazonPriceTable==

Rademacker: /* GetAmazonListingPrice(cArtNr: string): TAmazonPrice */

2015-07-08T05:38:25Z

GetAmazonListingPrice(cArtNr: string): TAmazonPrice

← Nächstältere Version		Version vom 8. Juli 2015, 06:38 Uhr
Zeile 27:		Zeile 27:
	oPreis.nShipping <- Versandkosten		oPreis.nShipping <- Versandkosten

			{{Hinweis\|Ist für den Artikel kein Preis hinterlegt oder der Preis konnte beim letzten Lesezyklus nicht ausgelesen werden (z.B. weil der Artikel deaktiviert wurde oder inaktiv ist) gibt die Methode im Wert nListing 0 zurück}}

	==GetAmazonCompetitorPrice(cArtNr: string): TAmazonPriceTable==		==GetAmazonCompetitorPrice(cArtNr: string): TAmazonPriceTable==

Rademacker am 7. Juli 2015 um 06:16 Uhr

2015-07-07T06:16:01Z

← Nächstältere Version		Version vom 7. Juli 2015, 07:16 Uhr
Zeile 1:		Zeile 1:

			{{Vorlage:Amazon}}
	=Makro Funktionen=		=Makro Funktionen=
	Folgende Funktionen stehen in den Makros zur Verfügung um auf Amazon-Daten zuzugreifen:		Folgende Funktionen stehen in den Makros zur Verfügung um auf Amazon-Daten zuzugreifen:
Zeile 67:		Zeile 69:
	==GetAmazonMail(cAufNr: string): string==		==GetAmazonMail(cAufNr: string): string==
	Gibt die eMail-Adresse des Kunden zu einer Auftragsnummer zurück. Handelt es sich bei dem Auftrag nicht um einen Amazon-Auftrag ist der Rückgabewert leer.		Gibt die eMail-Adresse des Kunden zu einer Auftragsnummer zurück. Handelt es sich bei dem Auftrag nicht um einen Amazon-Auftrag ist der Rückgabewert leer.

Rademacker am 7. Juli 2015 um 06:14 Uhr

2015-07-07T06:14:19Z

@@ Zeile 1: / Zeile 1: @@
 =Makro Funktionen=
 Folgende Funktionen stehen in den Makros zur Verfügung um auf Amazon-Daten zuzugreifen:
 gibt die Amazon-Shopnummer zurück. Die Shopnummer ist nötig um die Artikel aus der Tabelle shp_artikel auszulesen.
 Codebeispiel:
@@ Zeile 11: / Zeile 10: @@
   cSql    := 'SELECT sa_artnr FROM SHP_ARTIKEL WHERE sa_shopnr = ' + DB_SQLVal(cShopNr);
 Setzt den Listenpreis (Bruttopreis OHNE Versandkosten) eines Artikels in Amazon.
 Gibt eine Liste aller Konkurrenzpreise für einen Artikel zurück.
 * der Rückgabewert ist ein Array vom Typ TAmazonPrice das nach Preis sortiert ist.
@@ Zeile 34: / Zeile 44: @@
       // oPreise[0].nShipping sind die zugehörigen Versandkosten
       // Der Brutto-VK auf Amazon ist die Summer beider Werte.
       // durchläuft alle Preise vom Niedrigsten bis zum Höchsten
       for i := 0 to Length(oPreise) + 1 do begin
@@ Zeile 41: / Zeile 51: @@
     end;
   end;

Rademacker: Die Seite wurde neu angelegt: „=Makro Funktionen= Folgende Funktionen stehen in den Makros zur Verfügung um auf Amazon-Daten zuzugreifen: function GetAmazonShopNr(): string; gibt die Amazo…“

2015-07-07T06:01:14Z

Die Seite wurde neu angelegt: „=Makro Funktionen= Folgende Funktionen stehen in den Makros zur Verfügung um auf Amazon-Daten zuzugreifen: function GetAmazonShopNr(): string; gibt die Amazo…“

Neue Seite

=Makro Funktionen=

Folgende Funktionen stehen in den Makros zur Verfügung um auf Amazon-Daten zuzugreifen:

function GetAmazonShopNr(): string;

gibt die Amazon-Shopnummer zurück. Die Shopnummer ist nötig um die Artikel aus der Tabelle shp_artikel auszulesen.
Codebeispiel:

cShopNr := GetAmazonShopNr();
cSql := 'SELECT sa_artnr FROM SHP_ARTIKEL WHERE sa_shopnr = ' + DB_SQLVal(cShopNr);

procedure SetAmazonListingPrice(cArtNr: string; nListenPreis: Double);

Setzt den Listenpreis (Bruttopreis OHNE Versandkosten) eines Artikels in Amazon.

function GetAmazonCompetitorPrice(cArtNr: string): TAmazonPriceTable;

Gibt eine Liste aller Konkurrenzpreise für einen Artikel zurück.
* der Rückgabewert ist ein Array vom Typ TAmazonPrice das nach Preis sortiert ist.
* Derzeit wird immer nur ein Wert zurückgegeben, die Funktionalität für mehrere Werte folgt später.
* Zugriff auf das Array mit oPreise[Index]
* Jeder Eintrag hat die beiden Eigenschaften nListing (Listenpreis) und nShipping(Versandkosten) vom Typ Double

Beispiel für die Ausgabe aller Preise in dem Array:

procedure Test();
var oPreise : TAmazonPriceTable;
i : Integer;
begin
oPreise := GetAmazonCompetitorPrice('artikelnummer');
if (Length(oPreise) > 0) then begin
// oPreise[0].nListing ist der günstigste Listenpreis
// oPreise[0].nShipping sind die zugehörigen Versandkosten
// Der Brutto-VK auf Amazon ist die Summer beider Werte.

// durchläuft alle Preise vom Niedrigsten bis zum Höchsten
for i := 0 to Length(oPreise) + 1 do begin
Ausgabe(oPreise[i].nListing);
end;
end;
end;