SendData = "{""TamirCG"": {"
SendData+ =" ""emissao"": ""25/11/2019"", "
SendData+ ="""clientenome"": ""ANTONIO CARLOS"", "
SendData+ ="""clientecpf"": ""15817543885"", "
SendData+ ="""pagamento"":""1"", "
SendData+ ="""valorcomanda"":""26,1"", "
SendData+ ="""comandaproduto"": [ "
SendData+ =" ""id"": ""10"", "
SendData+ =" ""descricao"": ""BATATA FRITA"", "
SendData+ =" ""detalhe"": ""COM BACON"", "
SendData+ =" ""quantidade"": ""1"", "
SendData+ =" ""valorunitario"": ""25"", "
SendData+ =" ""valortotal"": ""25"" "
SendData+ =" ""id"": ""1"", "
SendData+ =" ""descricao"": ""CHOPP BRAHMA"", "
SendData+ =" ""detalhe"": """", "
SendData+ =" ""quantidade"": ""0,3"", "
SendData+ =" ""valorunitario"": ""27"", "
SendData+ =" ""valortotal"": ""8,1"" "
SendData+ =" ""id"": ""5"", "
SendData+ =" ""descricao"": ""MACARRAO"", "
SendData+ =" ""detalhe"": ""sem cebola"", "
SendData+ =" ""quantidade"": ""1"", "
SendData+ =" ""valorunitario"": ""18"", "
SendData+ =" ""valortotal"": ""18"" "
SendData+ =" ""id"": ""11"", "
SendData+ =" ""descricao"": ""COCA-COLA"", "
SendData+ =" ""detalhe"": ""GELADA"", "
SendData+ =" ""quantidade"": ""1"", "
SendData+ =" ""valorunitario"": ""5"", "
SendData+ =" ""valortotal"": ""5"" "
Dim oWebRequest As WebRequest
Dim oWebResponse As WebResponse = Nothing
Dim strBuffer As String = ""
Dim objSR As StreamReader = Nothing
oWebRequest = WebRequest.Create("http://187.52.110.202:8088/datasnap/v1/Tintegracao/Comanda")
oWebRequest.Credentials = New System.Net.NetworkCredential("PALMBEER", "A1B453ADD0964436750F818121D9975F")
oWebRequest.Method = "PUT"
oWebRequest.ContentType = "application/json"
Dim postStream As Stream = Nothing
Dim reader As StreamReader
byteData = UTF8Encoding.UTF8.GetBytes(SendData.ToString())
oWebRequest.ContentLength = byteData.Length
postStream = oWebRequest.GetRequestStream()
postStream.Write(byteData, 0, byteData.Length)
If Not postStream Is Nothing Then postStream.Close()
oWebResponse = oWebRequest.GetResponse
objSR = New StreamReader(oWebResponse.GetResponseStream)
strBuffer = objSR.ReadToEnd
Console.WriteLine(strBuffer)