DXSuite新UIでの仕分けユニット検索APIについて
新UIでの仕分け操作をWinActorを使用しAPI連携で実装しようと思っています。
サンプルシナリオとして公開されている内容を参考にしているのですが、エラーとなってしまうため、アドバイスをいただきたいです。
よろしくお願いいたします。
〇発生エラー
{"errors":[{"errorCode":10011,"message":"sortUnitId was invalid pattern (Please check the API specification.)"}]}
〇作成したスクリプト
'パラメータ-----------------------------------------------------------------------------------------------------
key = !APIキー!
companyName = !URL社名部分!
unitId = !仕分けユニットId!
responseText = $レスポンス$
status = $ステータスコード$'宣言----------------------------------------------------------------------------------------------------------
Dim stream
Dim binStream
Dim workBinStream
Dim oHTTP : Set oHTTP = CreateObject("MSXML2.XMLHTTP")Set stream = CreateObject("ADODB.Stream")
Set binStream = CreateObject("ADODB.Stream")
Set workBinStream = CreateObject("ADODB.Stream")strBoundary = "boundary"
strPost = "https://" & companyName & ".dx-suite.com/wf/api/standard/v2/sorter/status"
oHTTP.Open "POST", strPost, False
oHTTP.SetRequestHeader "apikey", key
oHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary="&strBoundary'バイナリ変換用ストリーム
workBinStream.Open
workBinStream.Type = 1
'最終バイナリストリーム
binStream.Open
binStream.Type = 1
'テキストストリーム
stream.Open
stream.Charset = "UTF-8"stream.WriteText "--" & strBoundary & vbCrLf
stream.WriteText "Content-Disposition: form-data; name=""sortUnitId""" & vbCrLf & vbCrLf
stream.WriteText unitId & vbCrLf
stream.WriteText vbCrLf
stream.Position = 0'テキストをバイナリに変換
stream.CopyTo workBinStream'第一セクションを書き込み
workBinStream.Position = 0
binStream.Write workBinStream.Read(workBinStream.Size)'バイナリワークをいったん閉じる
workBinStream.Close
workBinStream.Open
workBinStream.Type = 1'テキストをいったん閉じる
stream.Close
stream.Open
stream.Charset = "UTF-8"'終了セクション
stream.WriteText vbCrLf & "--" & strBoundary & "--" & vbCrLf
stream.Position = 0'テキストをバイナリに変換
stream.CopyTo workBinStream'終了セクションを書き込み
workBinStream.Position = 0
binStream.Write workBinStream.Read(workBinStream.Size)'送信データを取得
sLen = binStream.Size
binStream.Position = 0
strData = binStream.Read(sLen)stream.Close
binStream.Close
workBinStream.CloseoHTTP.send(strData)
SetUMSVariable responseText, oHTTP.responseText
SetUMSVariable status, oHTTP.statusSet oHTTP = Nothing