Knowledgebase

Hinzufügen eines Artikels

Artikel KBAD000874 

Dieses Beispielscript fügt einen neuen Artikel in der Artikelverwaltung hinzu. Bitte beachten Sie, dass dieses Script nur als Beispiel dienen soll. Wenn der Artikel, in diesem Fall "WS_SCHUHE", bereits in der Artikelverwaltung vorhanden ist, wird der Artikel nicht angelegt.

Hinweis: Dieses Script muss NICHT im factura manager ausgeführt werden.

Option Explicit



'Variablen Deklarieren

Dim oFmw, oAccount, oAManager, oAList

Dim sUserN, sMandant, sPassword



'Benutzerdaten festlegen, falls der factura manager neu gestartet werden muss

sMandant		= "fm_demo"

sUserN		= "default"

sPassword		= ""



'Kontrollieren ob factura manager bereits läuft und ggf. starten

On Error Resume Next

	Set oFmw = GetObject(,"fmw.application")

	If Err <> 0 Then

		Err.Clear

		Set oFmw = CreateObject("fmw.application")

		Set oAccount = oFmw.Login (sMandant, sUserN, sPassword)

	End If

	Set oAccount = oFmw.GetAccount

On Error GoTo 0



Set oAManager = oAccount.ArticleManager.ArticleList



'Artikelverwaltung aktivieren

oAccount.ActivateManager(1)



'Einen Artikel hinzufügen

Set oAList = oAManager.Add



'Feldinhalte setzen		Feldname		Inhalt

oAList.SetContentsByName	Cstr("ARTIKELNR"), 	Cstr("WS_SCHUHE")

oAList.SetContentsByName	Cstr("MASS"), 	Cstr("Stück")

oAList.SetContentsByName	Cstr("BEZEICHN1"), 	Cstr("Wanderschuhe")

oAList.SetContentsByName	Cstr("BEZEICHN2"), 	Cstr("Größe 42")

oAList.SetContentsByName	Cstr("GEWICHT_N"), Cstr("1,2")

oAList.SetContentsByName	Cstr("GEWICHT_E"), Cstr("kg")

oAList.SetContentsByName	Cstr("AVPREIS_EK"), Cstr("157,38")

oAList.SetContentsByName	Cstr("PREIS_VK1"), 	Cstr("299,99")

oAList.SetContentsByName	Cstr("PREIS_VK2"), 	Cstr("306,20")

oAList.SetContentsByName	Cstr("FLAG_03"), 	Cstr("1")

oAList.SetContentsByName	Cstr("LAG_AKT"), 	Cstr("25")

'...Weiter Felder können hier hinzugefügt werden



'Artikel speichern

oAList.Save



Set oFmw = Nothing

Hinweis: combit macht keine Angaben zu einer bestimmten Eignung obiger Informationen. Irrtümer und Fehler bleiben ausdrücklich vorbehalten, die Angaben erfolgen ohne Gewähr. Die Angaben stellen nur Beschreibungen dar und enthalten keine Garantie der Beschaffenheit der Produkte. Die Informationen können z.T. auch ein Versuch sein, Ihnen bei einer Aufgabenstellung zu helfen, selbst wenn das Produkt eigentlich nicht für diesen speziellen Zweck vorgesehen wurde.

Ihre Artikel-Bewertung: