SQL Server

SugarCRM Filtering Records

See more SugarCRM Examples

Export records and filter. SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    DECLARE @rest int
    EXEC @hr = sp_OACreate 'Chilkat.Rest', @rest OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @rest, 'Connect', @success OUT, 'your.site.domain', 443, 1, 1
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        RETURN
      END

    EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'Cache-Control', 'no-cache'
    EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'OAuth-Token', '<access_token>'

    --  The following code creates the JSON request body.
    --  The JSON created by this code is shown below.
    DECLARE @jsonReq int
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @jsonReq OUT

    EXEC sp_OAMethod @jsonReq, 'UpdateString', @success OUT, 'filter[0].$or[0].name.$starts', 'A'
    EXEC sp_OAMethod @jsonReq, 'UpdateString', @success OUT, 'filter[0].$or[1].name.$starts', 'b'
    EXEC sp_OAMethod @jsonReq, 'UpdateNumber', @success OUT, 'max_num', '2'
    EXEC sp_OAMethod @jsonReq, 'UpdateNumber', @success OUT, 'offset', '0'
    EXEC sp_OAMethod @jsonReq, 'UpdateString', @success OUT, 'fields', 'id'
    EXEC sp_OAMethod @jsonReq, 'UpdateString', @success OUT, 'order_by', 'date_entered'
    EXEC sp_OAMethod @jsonReq, 'UpdateBool', @success OUT, 'favorites', 0
    EXEC sp_OAMethod @jsonReq, 'UpdateBool', @success OUT, 'my_items', 0

    --  The JSON request body created by the above code:

    --  {
    --    "filter": [
    --      {
    --        "$or": [
    --          {
    --            "name": {
    --              "$starts": "A"
    --            }
    --          },
    --          {
    --            "name": {
    --              "$starts": "b"
    --            }
    --          }
    --        ]
    --      }
    --    ],
    --    "max_num": 2,
    --    "offset": 0,
    --    "fields": "id",
    --    "order_by": "date_entered",
    --    "favorites": false,
    --    "my_items": false
    --  }

    DECLARE @sbReq int
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbReq OUT

    EXEC sp_OAMethod @jsonReq, 'EmitSb', @success OUT, @sbReq

    EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'Content-Type', 'application/json'

    DECLARE @sbJson int
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbJson OUT

    EXEC sp_OAMethod @rest, 'FullRequestSb', @success OUT, 'POST', '/rest/v10/Accounts/filter', @sbReq, @sbJson
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        EXEC @hr = sp_OADestroy @jsonReq
        EXEC @hr = sp_OADestroy @sbReq
        EXEC @hr = sp_OADestroy @sbJson
        RETURN
      END

    EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @iTmp0 OUT
    IF @iTmp0 <> 200
      BEGIN

        EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @iTmp0 OUT
        PRINT 'Received error response code: ' + @iTmp0

        PRINT 'Response body:'
        EXEC sp_OAMethod @sbJson, 'GetAsString', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        EXEC @hr = sp_OADestroy @jsonReq
        EXEC @hr = sp_OADestroy @sbReq
        EXEC @hr = sp_OADestroy @sbJson
        RETURN
      END

    DECLARE @json int
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT

    EXEC sp_OAMethod @json, 'LoadSb', @success OUT, @sbJson

    --  The following code parses the JSON response.
    --  A sample JSON response is shown below the sample code.
    DECLARE @next_offset int

    DECLARE @i int

    DECLARE @count_i int

    DECLARE @id nvarchar(4000)

    DECLARE @date_modified nvarchar(4000)

    DECLARE @v_module nvarchar(4000)

    EXEC sp_OAMethod @json, 'IntOf', @next_offset OUT, 'next_offset'
    SELECT @i = 0
    EXEC sp_OAMethod @json, 'SizeOfArray', @count_i OUT, 'records'
    WHILE @i < @count_i
      BEGIN
        EXEC sp_OASetProperty @json, 'I', @i
        EXEC sp_OAMethod @json, 'StringOf', @id OUT, 'records[i].id'
        EXEC sp_OAMethod @json, 'StringOf', @date_modified OUT, 'records[i].date_modified'
        EXEC sp_OAMethod @json, 'StringOf', @v_module OUT, 'records[i]._module'
        SELECT @i = @i + 1
      END

    --  A sample JSON response body that is parsed by the above code:

    --  {
    --    "next_offset": 2,
    --    "records": [
    --      {
    --        "id": "f16760a4-3a52-f77d-1522-5703ca28925f",
    --        "date_modified": "2016-04-05T10:23:28-04:00",
    --        "_acl": {
    --          "fields": {}
    --        },
    --        "_module": "Accounts"
    --      },
    --      {
    --        "id": "ec409fbb-2b22-4f32-7fa1-5703caf78dc3",
    --        "date_modified": "2016-04-05T10:23:28-04:00",
    --        "_acl": {
    --          "fields": {}
    --        },
    --        "_module": "Accounts"
    --      }
    --    ]
    --  }


    PRINT 'Example Completed.'

    EXEC @hr = sp_OADestroy @rest
    EXEC @hr = sp_OADestroy @jsonReq
    EXEC @hr = sp_OADestroy @sbReq
    EXEC @hr = sp_OADestroy @sbJson
    EXEC @hr = sp_OADestroy @json


END
GO