ShopWare API Varianten entfernen und Erstellen

[Steffen W. (woern92)]

Guten Abend allerseits,

ich bin gerade dabei ein Programm zu basteln (VB.net) um meinen Shop 
leichter zu verwalten.... läuft auch alles gut, bis auf die Varianten 
eines Artikels zu entfernen oder eine neue Variante zu erstellen.

Löschen tue ich so:

frmMain.Shop.API_DELETE("api/variants/" & detailsID, "", result)

die delete Funktion sieht so aus:

    Public Function API_DELETE(path As String, Data As String, ByRef result As Boolean) As String
        On Error GoTo fault
        Dim Rest As New System.Net.WebClient
        Dim Auth As New System.Net.NetworkCredential
        Dim temp As String

        Auth.UserName = UserName
        Auth.Password = ApiKey

        Rest.Credentials = Auth
        Rest.BaseAddress = BaseAdress

        temp = Rest.UploadString(path, "DELETE", Data)
        result = True
        Return temp
        Exit Function
fault:
        result = False
        MsgBox("Fehler beim DELETE " & path, MsgBoxStyle.Critical)
    End Function

Das Problem:
Auf der Shop Seite kann man die Variante noch sehen in der Liste, aber 
nicht mehr auswählen. Schöner wäre es natürlich wenn sie aus der Liste 
komplett verschwindet.


Problem Nummer 2:
Ich habe schon mehrere Sachen ausprobiert zum Hinzufügen einer Variante, 
so sieht es momentan aus:

Dim temp As String
        Dim result As Boolean
        temp = "{"
        temp = temp & Chr(34) & "id" & Chr(34) & ":" & Chr(34) & TextBoxID.Text & Chr(34) & ","
        temp = temp & Chr(34) & "details" & Chr(34) & ":" & "{"
        temp = temp & Chr(34) & "number" & Chr(34) & ":" & Chr(34) & "new001" & Chr(34) & "}"
        temp = temp & "}"
        MsgBox(temp)
        temp = frmMain.Shop.API_POST("api/articles", temp, result)

Vielleicht kann mir ja jemand einen JSON String zeigen wie es 
funktioniert.

Achso und die Funktion fürs POST sieht so aus:  (Funktioniert zum 
Artikel erstellen wunderbar)

    Public Function API_POST(path As String, Data As String, ByRef result As Boolean) As String
        On Error GoTo fault
        Dim Rest As New System.Net.WebClient
        Dim Auth As New System.Net.NetworkCredential
        Dim temp As String

        Auth.UserName = UserName
        Auth.Password = ApiKey

        Rest.Credentials = Auth
        Rest.BaseAddress = BaseAdress

        temp = Rest.UploadString(path, "POST", Data)
        result = True
        Return temp
        Exit Function
fault:
        result = False
        MsgBox("Fehler beim POST " & path & vbCrLf & Err.Description, MsgBoxStyle.Critical)
    End Function

Wenn mir jemand ein paar Tipps geben kann wäre ich sehr Dankbar :)

Mit freundlichen Grüßen

[Darwin L. (dergleman)]

Hallo, ich bin ein wenig überrascht, dass der Code so einfach ist.

[MaWin (Gast)]

Du kennst den Stringbuilder?

[Darwin L. (dergleman)]

Da muss ich mal ganz ehrlich sagen, dass mich das Thema total 
überfordert. Shopwaren IP ist für mich so schlimm wie Latein, da blicke 
ich einfach nicht durch. Daher habe ich mir einfach den Rat eines 
Kollegen zu Herzen genommen und mir eine verlässliche Hilfe von 
https://treestones.ch/shopware engagiert. Was kann ich dazu sagen, alle 
haben in diesem Zeitalter den Druck alles selbst zu können. Dabei ist es 
total in Ordnung einen Spezialisten einzustellen. Nur mal als kleines 
Beispiel - Was soll ich selbst Brot backen, wenn der Bäcker das viel 
besser kann?