SET ECHO ON  
  SUSPEND   
  Local http as "WinHttp.WinHttpRequest"    
  http = Createobject("WinHttp.WinHttpRequest.5.1")    
  Timeout = 0  && milliseconds    
    
  http.SetTimeouts(Timeout, Timeout, Timeout, Timeout)    
  Http.Option(0)="http_requester/0.1"  
  Http.Option(4)=13056  
  Http.Option(6)=.t.  
  Http.Option(12)=.t.  
    
 **********************************************  
  http.Open("POST", 'https://test.ecom.raiffeisen.ru/api/sbp/v2/qrs',.f.)  
  Http.SetRequestHeader( "Content-type", "Content-Type: application/json")  
  Request='{'  
  Request=Request+'"additionalInfo": "This is test create QR-code",'  
  Request=Request+'"amount": 1,'  
  Request=Request+'"currency": "RUB",'  
  Request=Request+'"order": "4-779-417",'  
  Request=Request+'"paymentDetails": "the first qr-code",'  
  Request=Request+'"qrType": "QRDynamic",'  
  Request=Request+'"sbpMerchantId": "MA347182"'  
  Request=Request+'}'  
  Request=[']+request+[']  
 ****************************  
  SUSPEND   
  http.Send(request)  
  ResulStatus=http.status  
  ResponseText=http.ResponseText

  
  Set Echo On  
  Suspend  
  tcurl="https://test.ecom.raiffeisen.ru/api/sbp/v2/qrs"  
  TEXT TO tcxml  
  {  
      "additionalInfo": "This is test create QR-code",  
      "amount": 1,  
      "currency": "RUB",  
      "order": "4-779-417",  
      "paymentDetails": "the first qr-code",  
      "qrType": "QRDynamic",  
      "sbpMerchantId": "MA347182"  
  }  
  ENDTEXT  
    
  tcXml = Strconv(tcXml,9)  
  oHTTP = Createobject("MSXML2.XMLHTTP")  
  oHTTP.Open("POST", tcurl)  
  oHTTP.setRequestHeader("Content-Type", "application/json")  
  oHTTP.Send(0h+tcXml)  
  ltStart = Datetime()  
  Do While m.oHTTP.readyState <> 4  
  	DoEvents Force  
  Enddo  
  Local lcResponse  
  Suspend  
  lcResponse = ""  
  Do Case  
  Case m.oHTTP.readyState <> 4  
 * Не дождались ответа  
  	lcResponse = "Нет ответа от сервера"  
  Case !Between(m.oHTTP.Status, 200, 299)  
  	lcResponse = m.oHTTP.responseText  
  	Messagebox(lcResponse)  
  Otherwise  
  	lcResponse = m.oHTTP.responseText  
  Endcase