DSMConnect-API

Property	Value-Type	Beispiel	Beschreibung
nr	string	nr=1;	Maschinennummer
name	string	name=Bruderer BSTA05;	Bezeichnung der Maschine
fa	string	fa=223467;	FA-Nummer des Auftrages
afo	int	afo=10;	AFO des Auftrages
atnr	string	atnr=bb 3456;	Artikelnummer
bez	string	bez=Schraube 6.3mm;	Artikelbezeichnung
plan	string	plan=250000;	Planmenge des Auftrages
stat	string	stat=F;	Status des Auftrages (R, F, U, L) R = Rüsten (blau)
			F = Fertigen (grün)
			U = Unterbrechung (gelb)
			L = keine Auftrag (weiß)
ugr	string	ugr=Coilwechsel;	Unterbrechungsgrund bei Status U
		ugr=;	Kein Unterbrechungsgrund
			kein Unterbrechungsgrund bei Status R, F, L
shub	int	shub=250;	Sollhubzahl der Maschine
ihub	int	ihub=240;	Isthubzahl der Maschine (bei 0 steht die Maschine)
status	string	status = "U", "R", "L"
prod	decimal	prod=0.69;	Produktivität der Maschine
gut	int	gut=23456;	Gutteile
bad	int	bad=234;	Schrottmenge
fn	int	fn=1;	Fertignutzen (wieviel Teile pro Hub)
zeit	int	zeit=3600;	verschiedene Zeiten der Maschine in Sekunden je nach Status
			bei "U" = Stillstandzeit
			bei "R" = Rüstzeit
			bei "F" = Restlaufzeit des Auftrages

VBA-Beispiel

Dim url As String
Dim url_basis As String
Dim url_endpunkt As String
Dim token As String

token = "__TOKEN__"
url_basis = "https://www.twinhub.io/xxx"
url_endpunkt = "/TwinHub.Module.DSMConnect/api/v1/LiveNotification"
url = url_basis + url_endpunkt

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "POST", url, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Authorization", "Bearer " + token
objHTTP.send "atnr=Mat_1186;fa=10074796;afo=10;prog=Prog 789;ap=1;bad=885;gut=235207;prod=0,98;plan=263522;zeit=8451;stat=F;ugr=Rüsten;fn=18;shub=264;ihub=228;bez=Schraube 5x12mm;rest=10519"

result = objHTTP.responseText

If objHTTP.Status = "200" Then 
	'success
End If