PUT json

Пятница, 28 Апреля 2017 г. 00:30 + в цитатник

Здравствуйте! Пытаюсь создать запись на сервере, получаю

{
  "timestamp" : "2017-04-28T00:26:24+0300",
  "status" : 400,
  "error" : "Bad Request",
  "exception" : "org.springframework.http.converter.HttpMessageNotReadableException",
  "message" : "Bad Request",
  "path" : "/1.0/user/backlog"
}

Что может быть не так?

процедура:

    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "PUT", sBaseUrl & "/1.0/user/backlog", False
    http.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
    http.setRequestHeader "Authorization", "AccessToken " & sToken
    http.setRequestHeader "X-User-Authorization", sAuthoriztion
    
    
Dim bPOST() As Byte, PostData As String
    PostData = PostData & "{"
    PostData = PostData & ",""address-type-to"":""DEFAULT"""
    PostData = PostData & ",""given-name"":""" & GET_PersonalName_By_Type(tFirmContragent, "N") & """"
    PostData = PostData & ",""house-to"":""" & GET_House_By_Address(tClientAddress) & """"
    PostData = PostData & ",""index-to"":" & GET_PostCode_By_AddressDatas(tClientAddress_Datas)
    PostData = PostData & ",""mail-category"":""" & CategoryRPO & """"
    PostData = PostData & ",""mail-direct"":643"
    PostData = PostData & ",""mail-type"":""" & TypeRPO & """"
    PostData = PostData & ",""mass"":" & iWeight
    PostData = PostData & ",""middle-name"":""" & GET_PersonalName_By_Type(tFirmContragent, "P") & """"
    PostData = PostData & ",""order-num"":""" & Format(nz(Me.Controls(Me!txt_Frm_Prfx & "ID"), 0), "000000") & """"
    PostData = PostData & ",""place-to"":""" & GET_City_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""insr-value"":" & nz(Me.Controls(Me!txt_Frm_Prfx & "Sum_Declared_Value"), 0) * 100
    PostData = PostData & ",""postoffice-code"":""" & 111033 & """"
    PostData = PostData & ",""region-to"":""" & GET_RegionName_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""street-to"":""" & GET_Street_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""surname"":""" & GET_PersonalName_By_Type(tFirmContragent, "S") & """"
    PostData = PostData & ",""tel-address"":" & tFirmContragent_Phone
    PostData = PostData & ",""fragile"":false"
    PostData = PostData & "}"
    
    bPOST = StrConv(PostData, vbFromUnicode)
    http.send (bPOST)

    
    GetText = GET_JSON_decode(http.ResponseText)
    Set http = Nothing