Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ObtenerObjetoGET()
Dim objeto As String = "Cuenta"
Dim Where As String = "idDoc=1"
Dim url As String = WebService & "api/Objects/" & objeto
Dim params As String = String.Format("?user={0}&password={1}&where={2}", User, Pass, Where)
Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString(url + params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ObtenerColeccionGET()
Dim objeto As String = "Cuentas"
Dim Where As String = "idDoc<5"
dim url as string=WebService & "api/Objects/" & objeto
dim params as string=String.Format("?user ={0}&password ={1}&where ={2}", user, pass, where)
dim webclient as new system.net.webclient
dim result as string=webClient.DownloadString(url + params)
msgbox(result)
end sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub InsertarObjetoPUT()
Dim objeto As String = "sysMenu"
Dim params As String = "{user: """ & User & """, pass: """ & Pass & """, props: ""{\""IdMenu\"":\""-999\"",\""Descrip\"":\""aaaa\""}""}"
Dim url As String = WebService & "api/Objects/Insert/" & objeto
Dim webClient As New System.Net.WebClient
webClient.Headers.Add("Content-Type", "application/json")
Dim result As String = webClient.UploadString(url, "PUT", params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub InsertarObjetoPOST()
Dim objeto As String = "sysMenu"
Dim params As String = "{user: """ & User & """, pass: """ & Pass & """, props: ""{\""IdMenu\"":\""-999\"",\""Descrip\"":\""aaaa\""}""}"
Dim url As String = WebService & "api/Objects/Insert/" & objeto
Dim webClient As New System.Net.WebClient
webClient.Headers.Add("Content-Type", "application/json")
Dim result As String = webClient.UploadString(url, "POST", params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ActualizarObjetoPOST()
Dim objeto As String = "sysMenu"
Dim params As String = "{user: """ & User & """, pass: """ & Pass & """, where:""idMenu=-999"", props: ""{\""Descrip\"":\""aaab\""}""}"
Dim url As String = WebService & "api/Objects/Update/" & objeto
Dim webClient As New System.Net.WebClient
webClient.Headers.Add("Content-Type", "application/json")
Dim result As String = webClient.UploadString(url, "POST", params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub BorrarObjetoDELETE()
Dim objeto As String = "sysMenu"
Dim params As String = "{user: """ & User & """, pass: """ & Pass & """, where:""idMenu=-999""}"
Dim url As String = WebService & "api/Objects/" & objeto
Dim webClient As New System.Net.WebClient
webClient.Headers.Add("Content-Type", "application/json")
Dim result As String = webClient.UploadString(url, "DELETE", params)
MsgBox(result)
End Sub
Activar primero opciones avanzadas
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub EjecutarProcesoGET()
Dim objeto As String = "Cuenta"
Dim filtro As String = "idDoc=1"
Dim processname As String = "pPers_SAT_SolicitudCompras"
Dim processparams As String = "{""IdArticulo"":""1"",""cantidad"":""1"",""idempleado"":""25"",""idmaquina"":""25""}"
Dim url As String = WebService & "api/Process/" & objeto
Dim params As String = String.Format("?user={0}password={1}&filtro={2}&processname={3}¶meters={4}", User, Pass, filtro, processname, processparams)
Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString(url + params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ObtenerParametrosGET()
Dim processname As String = "pPers_SAT_SolicitudCompras"
Dim url As String = WebService & "api/Process/"
Dim params As String = String.Format("?user={0}&password={1}&processname={2}", User, Pass, processname)
Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString(url + params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ObtenerVistasGET()
Dim objeto As String = "Cuentas"
Dim filtro As String = "IdDoc<4"
dim visname as string="CuentasSat"
dim url as string=WebService & "api/Entities/" & objeto
dim params as string=String.Format("?user={0}&password={1}&page=0&pagesize=100&filtro={2}&visname={3}", user, pass, filtro, visname)
dim webclient as new system.net.webclient
dim result as string=webClient.DownloadString(url + params)
msgbox(result)
end sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ObtenerVistasGET()
Dim objeto As String = "Cuentas"
Dim filtro As String = "IdDoc<4"
dim visname as string="CuentasSat"
dim url as string=WebService & "api/Entities/" & objeto
dim params as string=String.Format("?user={0}&password={1}&page=0&pagesize=100&filtro={2}&visname={3}", user, pass, filtro, visname)
dim webclient as new system.net.webclient
dim result as string=webClient.DownloadString(url + params)
msgbox(result)
end sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ObtenerEstructuraGET()
Dim objeto As String = "Cuentas"
Dim visname As String = "CuentasSat"
Dim url As String = WebService & "api/Schema/" & objeto
Dim params As String = String.Format("?user={0}&password={1}&visname={2}", User, Pass, visname)
Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString(url + params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ObtenerTokensGET()
Dim url As String = WebService & "api/Tokens/"
Dim params As String = String.Format("?user={0}&password={1}", User, Pass)
Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString(url + params)
MsgBox(result)
End Sub
Private WebService As String = "http://myweb/webapi/"
Private User As String = "usuariocrm"
Private Pass As String = "passdeprueba"
Sub ProcesarDocumentosB64POST()
Dim objeto As String = "Documento"
Dim params As String = "{user: ""ahoracrm"", pass: ""-a123456""}"
Dim url As String = WebService & "api/Process/B64ToDisk/" & objeto
Dim webClient As New System.Net.WebClient
webClient.Headers.Add("Content-Type", "application/json")
Dim result As String = webClient.UploadString(url, "POST", params)
MsgBox(result)
End Sub
/******ACTIVATE ADVANCED OPTIONS *****/
sp_configure 'show advanced options', 1
GO
RECONFIGURE;
GO
sp_configure 'Ole Automation Procedures', 1
GO
RECONFIGURE;
GO
sp_configure 'show advanced options', 1
GO
RECONFIGURE;