Sage: Formatierten Text anlegen (CreateRichText)

Anlegen eines formatierten Textes. In der Eingabeparametergruppe können verschiedene Parameter mit den entsprechenden Werten belegt werden. Folgende Parameter der Parametergruppe können belegt werden: formulargruppe, lang_ext, txt_art, txt_nr, txtrich, useraen, userneu.

Auf dem Parameter txtrich wird der Text übergeben. Dieser Text kann nach den in B7 üblichen Regeln formatiert sein oder unformatiert. Der Parameter txt_art steuert die Art des anzulegenden Textes (z.B. TTI für einen Artikeltext. Wird keine txt_art übergeben, so wird APP verwendet. Die txt_nr wird automatisch generiert und zurückgeliefert. Falls für verschiedene Sprachen ein formatierter Text angelegt werden soll, so kann die vom ersten Aufruf erhaltene txt_nr für die Texte der anderen Sprachen verwendet werden.

Falls der formatierte Text nicht angelegt werden kann, liefert der Service eine entsprechende Fehlermeldung. Diese wird über den Parameter Meldung übergeben. Vor einer Auswertung der Ausgabeparametergruppe sollte der Parameter Meldung überprüft werden.

Folgende Parameter der Ausgabe- Parametergruppe werden gefüllt.:

aendnr, dataen, datneu, formulargruppe, lang_ext, txt_art, txt_nr, txtlong, txtrich, useraen, userneu.

Syntax:	Status = f$SageService ( Service , 'CreateTextLine' , 'PGINPUT' , 'PGOUTPUT' )
	Argument	Typ	Bedeutung
	Service	Zeichenkette	URL des WebService Dienstes
	'CreateTextLine'	Zeichenkette	Befehlskonstante
	'PGINPUT'	Zeichenkette	Name der ePOS Parametergruppe mit den Daten der anzulegenden Textzeile.
	'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' text_zeile.txt = 'Text des Artikels' text_zeile.lang_ext = 'de_de' text_zeile.txt_art = 'TTI' text_zeile.lfdnr = 1 Status = f$SageService ( B7Service , 'CreateTextLine' , 'text_zeile' , 'text_zeile' ) p$anzeige_ergebnis ( 'text_zeile' )