Forum: PC-Programmierung ShopWare API Varianten entfernen und Erstellen


von Steffen W. (woern92)


Lesenswert?

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:
1
frmMain.Shop.API_DELETE("api/variants/" & detailsID, "", result)
die delete Funktion sieht so aus:
1
    Public Function API_DELETE(path As String, Data As String, ByRef result As Boolean) As String
2
        On Error GoTo fault
3
        Dim Rest As New System.Net.WebClient
4
        Dim Auth As New System.Net.NetworkCredential
5
        Dim temp As String
6
7
        Auth.UserName = UserName
8
        Auth.Password = ApiKey
9
10
        Rest.Credentials = Auth
11
        Rest.BaseAddress = BaseAdress
12
13
        temp = Rest.UploadString(path, "DELETE", Data)
14
        result = True
15
        Return temp
16
        Exit Function
17
fault:
18
        result = False
19
        MsgBox("Fehler beim DELETE " & path, MsgBoxStyle.Critical)
20
    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:
1
Dim temp As String
2
        Dim result As Boolean
3
        temp = "{"
4
        temp = temp & Chr(34) & "id" & Chr(34) & ":" & Chr(34) & TextBoxID.Text & Chr(34) & ","
5
        temp = temp & Chr(34) & "details" & Chr(34) & ":" & "{"
6
        temp = temp & Chr(34) & "number" & Chr(34) & ":" & Chr(34) & "new001" & Chr(34) & "}"
7
        temp = temp & "}"
8
        MsgBox(temp)
9
        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)
1
    Public Function API_POST(path As String, Data As String, ByRef result As Boolean) As String
2
        On Error GoTo fault
3
        Dim Rest As New System.Net.WebClient
4
        Dim Auth As New System.Net.NetworkCredential
5
        Dim temp As String
6
7
        Auth.UserName = UserName
8
        Auth.Password = ApiKey
9
10
        Rest.Credentials = Auth
11
        Rest.BaseAddress = BaseAdress
12
13
        temp = Rest.UploadString(path, "POST", Data)
14
        result = True
15
        Return temp
16
        Exit Function
17
fault:
18
        result = False
19
        MsgBox("Fehler beim POST " & path & vbCrLf & Err.Description, MsgBoxStyle.Critical)
20
    End Function

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

Mit freundlichen Grüßen

von Darwin L. (dergleman)


Lesenswert?

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

von MaWin (Gast)


Lesenswert?

Du kennst den Stringbuilder?

von Darwin L. (dergleman)


Lesenswert?

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?

: Bearbeitet durch User
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.