Sage: Einkaufspreis eines Artikels lesen (GetBasePrice )

Lesen der Daten des gültigen Einkaufspreises eines Artikel bezogen auf eine angegebene Menge und auf Wunsch eines Gültigkeitsdatums. In der Eingabeparametergruppe können folgende Parameter mit den entsprechenden Werten belegt werden: identnr und var um den Artikel zu identifizieren, BasePricemenge_ab für die gewünschte Menge und BasePricedatum für das gewünschte Gültigkeitsdatum. Falls dieses nicht angegeben wird, wird das aktuelle Datum verwendet. Die Funktion liefert in einer Parametergruppe den gefundenen Preis und dessen Attributen zurück. Falls mit den angegebenen Daten kein Preis gefunden wurde, wird die Ergebnisparametergruppe nicht gefüllt.

Folgende Parameter der Parametergruppe werden gefüllt.:

identnr, konto, dataen, datneu, useraen, userneu, best_art, bonuskz, datvon, ekpreis, faktor, formelnr, kn_aktionsprs, kn_bestueb, menge_ab, peek, pr_art, pr_bezug, preisgrp_e, pr_herk_e, waehrung, znr, zu_ab, zuab_wert, zuab_wertf, zuab_wert2, zuab_wert3, zu_ab2, zu_ab3, mep, umrechb, mep, umrechp.

Syntax:	Status = f$SageService ( Service , 'FindBasePrice' , 'PGINPUT' , 'PGOUTPUT' )
	Argument	Typ	Bedeutung
	Service	Zeichenkette	URL des WebService Dienstes
	'FindBasePrice'	Zeichenkette	Befehlskonstante
	'PGINPUT'	Zeichenkette	Name der ePOS Parametergruppe mit den Suchkriterien.
	'PGOUTPUT'	Zeichenkette	Name der ePOS Parametergruppe mit den Ergebnisdaten.
Ergebnis:	Ganzzahl	Status der Funktion: 1 : die Servicefunktion wurde erfolgreich aufgerufen -1 : die Komponente eposvbcomexe konnte nicht gefunden werden -2 : keine URL der Funktion angegeben -4 : allgemeiner Fehler
Beispiel:	B7Service = 'http://b7demo.sagebaeurer.de/br71/callin/epos_soap' baseprice_such.identnr = '110%' baseprice_such.select = 'identnr,konto,menge_ab' Status = f$SageService ( B7Service , 'FindBasePrice' , 'baseprice_such' , 'baseprice_erg' ) p$anzeige_ergebnis( 'baseprice_erg' ) oder B7Service = 'http://b7demo.sagebaeurer.de/br71/callin/epos_soap' baseprice_such.where = 'identnr eq \'0 093 S 544 1N\' and menge_ab gt 1' Status = f$SageService ( B7Service , 'FindBasePrice' , 'baseprice_such' , 'baseprice_erg' ) p$anzeige_ergebnis( 'baseprice_erg' )