TransferQuery(12.0)

'The following sample code is generated as an illustration of
'Creating requests and parsing responses ONLY
'This code is NOT intended to show best practices or ideal code
'Use at your most careful discretion

imports System
imports System.Net
imports System.Drawing
imports System.Collections
imports System.ComponentModel
imports System.Windows.Forms
imports System.Data
imports System.IO
imports Interop.QBFC16

Module com.intuit.idn.samples
        Public Class Sample
                Public Sub  DoTransferQuery()
                        Dim sessionBegun as Boolean
                        sessionBegun = False
                        Dim connectionOpen as Boolean
                        connectionOpen = False
                        Dim sessionManager as QBSessionManager
                        sessionManager = nothing

                        Try
                                'Create the session Manager object
                                sessionManager = new QBSessionManager

                                'Create the message set request object to hold our request
                                Dim requestMsgSet as IMsgSetRequest
                                requestMsgSet = sessionManager.CreateMsgSetRequest("US",16,0)
                                requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue

                                BuildTransferQueryRq(requestMsgSet)

                                'Connect to QuickBooks and begin a session
                                sessionManager.OpenConnection("","Sample Code from OSR")
                                connectionOpen = True
                                sessionManager.BeginSession("", ENOpenMode.omDontCare)
                                sessionBegun = True

                                'Send the request and get the response from QuickBooks
                                Dim responseMsgSet as IMsgSetResponse
                                responseMsgSet = sessionManager.DoRequests(requestMsgSet)

                                'End the session and close the connection to QuickBooks
                                sessionManager.EndSession()
                                sessionBegun = False
                                sessionManager.CloseConnection()
                                connectionOpen = False

                                WalkTransferQueryRs(responseMsgSet)
                        Catch e as Exception
                                MessageBox.Show(e.Message, "Error")
                                if (sessionBegun) then
                                        sessionManager.EndSession()
                                End If
                                if (connectionOpen) then
                                        sessionManager.CloseConnection()
                                End If
                        End Try
                End Sub
                Public Sub BuildTransferQueryRq(requestMsgSet as IMsgSetRequest)
                        Dim TransferQueryRq as ITransferQuery
                        TransferQueryRq= requestMsgSet.AppendTransferQueryRq()
                        Dim ORTransferTxnQueryElementType22860 as String
                        ORTransferTxnQueryElementType22860 = "TxnIDList"
                        if (ORTransferTxnQueryElementType22860 == "TxnIDList") then
                                'Set field value for TxnIDList
                                'May create more than one of these if needed
                                TransferQueryRq.ORTransferTxnQuery.TxnIDList.Add("200000-1011023419")
                        End If
                        if (ORTransferTxnQueryElementType22860 == "TransferTxnFilter") then
                                'Set field value for MaxReturned
                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.MaxReturned.SetValue(6)
                                Dim ORDateRangeFilterElementType22861 as String
                                ORDateRangeFilterElementType22861 = "ModifiedDateRangeFilter"
                                if (ORDateRangeFilterElementType22861 == "ModifiedDateRangeFilter") then
                                        'Set field value for FromModifiedDate
                                        TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.ModifiedDateRangeFilter.FromModifiedDate.SetValue(DateTime.Parse("12/15/2007 12:15:12"),false)
                                        'Set field value for ToModifiedDate
                                        TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.ModifiedDateRangeFilter.ToModifiedDate.SetValue(DateTime.Parse("12/15/2007 12:15:12"),false)
                                End If
                                if (ORDateRangeFilterElementType22861 == "TxnDateRangeFilter") then
                                        Dim ORTxnDateRangeFilterElementType22862 as String
                                        ORTxnDateRangeFilterElementType22862 = "TxnDateFilter"
                                        if (ORTxnDateRangeFilterElementType22862 == "TxnDateFilter") then
                                                'Set field value for FromTxnDate
                                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.TxnDateRangeFilter.ORTxnDateRangeFilter.TxnDateFilter.FromTxnDate.SetValue(DateTime.Parse("12/15/2007"))
                                                'Set field value for ToTxnDate
                                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.TxnDateRangeFilter.ORTxnDateRangeFilter.TxnDateFilter.ToTxnDate.SetValue(DateTime.Parse("12/15/2007"))
                                        End If
                                        if (ORTxnDateRangeFilterElementType22862 == "DateMacro") then
                                                'Set field value for DateMacro
                                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.TxnDateRangeFilter.ORTxnDateRangeFilter.DateMacro.SetValue(ENDateMacro.dmAll)
                                        End If
                                End If
                        End If
                        'Set field value for IncludeRetElementList
                        'May create more than one of these if needed
                        TransferQueryRq.IncludeRetElementList.Add("ab")
                End Sub




                Public Sub WalkTransferQueryRs( responseMsgSet as IMsgSetResponse)
                        if (responseMsgSet is nothing) then
                                Exit Sub
                        End If

                        Dim responseList as IResponseList
                        responseList = responseMsgSet.ResponseList
                        if (responseList is nothing) then
                                Exit Sub
                        End If

                        'if we sent only one request, there is only one response, we'll walk the list for this sample
                        for j=0 to responseList.Count-1
                                Dim response as IResponse
                                response = responseList.GetAt(j)
                                'check the status code of the response, 0=ok, >0 is warning
                                if (response.StatusCode >= 0) then
                                        'the request-specific response is in the details, make sure we have some
                                        if (not response.Detail is nothing) then
                                                'make sure the response is the type we're expecting
                                                Dim responseType as ENResponseType
                                                responseType = CType(response.Type.GetValue(),ENResponseType)
                                                if (responseType == ENResponseType.rtTransferQueryRs) then
                                                        'upcast to more specific type here, this is safe because we checked with response.Type check above
                                                        Dim TransferRet as ITransferRetList
                                                        TransferRet = CType(response.Detail,ITransferRetList)
                                                        WalkTransferRet(TransferRet)
                                                End If
                                        End If
                                End If
                        Next j
                End Sub




                Public Sub WalkTransferRet(TransferRet as ITransferRetList)
                        if (TransferRet is nothing) then
                                Exit Sub
                        End If

                        'Go through all the elements of ITransferRetList
                        'Get value of TxnID
                        Dim TxnID22863 as String
                        TxnID22863 = TransferRet.TxnID.GetValue()
                        'Get value of TimeCreated
                        Dim TimeCreated22864 as DateTime
                        TimeCreated22864 = TransferRet.TimeCreated.GetValue()
                        'Get value of TimeModified
                        Dim TimeModified22865 as DateTime
                        TimeModified22865 = TransferRet.TimeModified.GetValue()
                        'Get value of EditSequence
                        Dim EditSequence22866 as String
                        EditSequence22866 = TransferRet.EditSequence.GetValue()
                        'Get value of TxnNumber
                        if ( not TransferRet.TxnNumber is nothing) then
                                Dim TxnNumber22867 as Integer
                                TxnNumber22867 = TransferRet.TxnNumber.GetValue()
                        End If
                        'Get value of TxnDate
                        if ( not TransferRet.TxnDate is nothing) then
                                Dim TxnDate22868 as DateTime
                                TxnDate22868 = TransferRet.TxnDate.GetValue()
                        End If
                        if (not TransferRet.TransferFromAccountRef. is nothing) then
                                'Get value of ListID
                                if ( not TransferRet.TransferFromAccountRef.ListID is nothing) then
                                        Dim ListID22869 as String
                                        ListID22869 = TransferRet.TransferFromAccountRef.ListID.GetValue()
                                End If
                                'Get value of FullName
                                if ( not TransferRet.TransferFromAccountRef.FullName is nothing) then
                                        Dim FullName22870 as String
                                        FullName22870 = TransferRet.TransferFromAccountRef.FullName.GetValue()
                                End If
                        End If
                        'Get value of FromAccountBalance
                        if ( not TransferRet.FromAccountBalance is nothing) then
                                Dim FromAccountBalance22871 as Double
                                FromAccountBalance22871 = TransferRet.FromAccountBalance.GetValue()
                        End If
                        if (not TransferRet.TransferToAccountRef. is nothing) then
                                'Get value of ListID
                                if ( not TransferRet.TransferToAccountRef.ListID is nothing) then
                                        Dim ListID22872 as String
                                        ListID22872 = TransferRet.TransferToAccountRef.ListID.GetValue()
                                End If
                                'Get value of FullName
                                if ( not TransferRet.TransferToAccountRef.FullName is nothing) then
                                        Dim FullName22873 as String
                                        FullName22873 = TransferRet.TransferToAccountRef.FullName.GetValue()
                                End If
                        End If
                        'Get value of ToAccountBalance
                        if ( not TransferRet.ToAccountBalance is nothing) then
                                Dim ToAccountBalance22874 as Double
                                ToAccountBalance22874 = TransferRet.ToAccountBalance.GetValue()
                        End If
                        if (not TransferRet.ClassRef. is nothing) then
                                'Get value of ListID
                                if ( not TransferRet.ClassRef.ListID is nothing) then
                                        Dim ListID22875 as String
                                        ListID22875 = TransferRet.ClassRef.ListID.GetValue()
                                End If
                                'Get value of FullName
                                if ( not TransferRet.ClassRef.FullName is nothing) then
                                        Dim FullName22876 as String
                                        FullName22876 = TransferRet.ClassRef.FullName.GetValue()
                                End If
                        End If
                        'Get value of Amount
                        if ( not TransferRet.Amount is nothing) then
                                Dim Amount22877 as Double
                                Amount22877 = TransferRet.Amount.GetValue()
                        End If
                        'Get value of Memo
                        if ( not TransferRet.Memo is nothing) then
                                Dim Memo22878 as String
                                Memo22878 = TransferRet.Memo.GetValue()
                        End If
                End Sub




        End Class
End Module

//The following sample code is generated as an illustration of
//Creating requests and parsing responses ONLY
//This code is NOT intended to show best practices or ideal code
//Use at your most careful discretion

using System;
using System.Net;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.IO;
using Interop.QBFC16;

namespace com.intuit.idn.samples
{
        public class Sample
        {
                public void  DoTransferQuery()
                {
                        bool sessionBegun = false;
                        bool connectionOpen = false;
                        QBSessionManager sessionManager = null;

                        try
                        {
                                //Create the session Manager object
                                sessionManager = new QBSessionManager();

                                //Create the message set request object to hold our request
                                IMsgSetRequest requestMsgSet = sessionManager.CreateMsgSetRequest("US",16,0);
                                requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue;

                                BuildTransferQueryRq(requestMsgSet);

                                //Connect to QuickBooks and begin a session
                                sessionManager.OpenConnection("","Sample Code from OSR");
                                connectionOpen = true;
                                sessionManager.BeginSession("", ENOpenMode.omDontCare);
                                sessionBegun = true;

                                //Send the request and get the response from QuickBooks
                                IMsgSetResponse responseMsgSet = sessionManager.DoRequests(requestMsgSet);

                                //End the session and close the connection to QuickBooks
                                sessionManager.EndSession();
                                sessionBegun = false;
                                sessionManager.CloseConnection();
                                connectionOpen = false;

                                WalkTransferQueryRs(responseMsgSet);
                        }
                        catch (Exception e)
                        {
                                MessageBox.Show(e.Message, "Error");
                                if (sessionBegun)
                                {
                                        sessionManager.EndSession();
                                }
                                if (connectionOpen)
                                {
                                        sessionManager.CloseConnection();
                                }
                        }
                }
                void BuildTransferQueryRq(IMsgSetRequest requestMsgSet)
                {
                        ITransferQuery TransferQueryRq= requestMsgSet.AppendTransferQueryRq();
                        //Set attributes
                        //Set field value for metaData
                        TransferQueryRq.metaData.SetValue("IQBENmetaDataType");
                        //Set field value for iterator
                        TransferQueryRq.iterator.SetValue("IQBENiteratorType");
                        //Set field value for iteratorID
                        TransferQueryRq.iteratorID.SetValue("IQBUUIDType");
                        string ORTransferTxnQueryElementType22841 = "TxnIDList";
                        if (ORTransferTxnQueryElementType22841 == "TxnIDList")
                        {
                                //Set field value for TxnIDList
                                //May create more than one of these if needed
                                TransferQueryRq.ORTransferTxnQuery.TxnIDList.Add("200000-1011023419");
                        }
                        if (ORTransferTxnQueryElementType22841 == "TransferTxnFilter")
                        {
                                //Set field value for MaxReturned
                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.MaxReturned.SetValue(6);
                                string ORDateRangeFilterElementType22842 = "ModifiedDateRangeFilter";
                                if (ORDateRangeFilterElementType22842 == "ModifiedDateRangeFilter")
                                {
                                        //Set field value for FromModifiedDate
                                        TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.ModifiedDateRangeFilter.FromModifiedDate.SetValue(DateTime.Parse("12/15/2007 12:15:12"),false);
                                        //Set field value for ToModifiedDate
                                        TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.ModifiedDateRangeFilter.ToModifiedDate.SetValue(DateTime.Parse("12/15/2007 12:15:12"),false);
                                }
                                if (ORDateRangeFilterElementType22842 == "TxnDateRangeFilter")
                                {
                                        string ORTxnDateRangeFilterElementType22843 = "TxnDateFilter";
                                        if (ORTxnDateRangeFilterElementType22843 == "TxnDateFilter")
                                        {
                                                //Set field value for FromTxnDate
                                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.TxnDateRangeFilter.ORTxnDateRangeFilter.TxnDateFilter.FromTxnDate.SetValue(DateTime.Parse("12/15/2007"));
                                                //Set field value for ToTxnDate
                                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.TxnDateRangeFilter.ORTxnDateRangeFilter.TxnDateFilter.ToTxnDate.SetValue(DateTime.Parse("12/15/2007"));
                                        }
                                        if (ORTxnDateRangeFilterElementType22843 == "DateMacro")
                                        {
                                                //Set field value for DateMacro
                                                TransferQueryRq.ORTransferTxnQuery.TransferTxnFilter.ORDateRangeFilter.TxnDateRangeFilter.ORTxnDateRangeFilter.DateMacro.SetValue(ENDateMacro.dmAll);
                                        }
                                }
                        }
                        //Set field value for IncludeRetElementList
                        //May create more than one of these if needed
                        TransferQueryRq.IncludeRetElementList.Add("ab");
                }




                void WalkTransferQueryRs(IMsgSetResponse responseMsgSet)
                {
                        if (responseMsgSet == null) return;
                        IResponseList responseList = responseMsgSet.ResponseList;
                        if (responseList == null) return;
                        //if we sent only one request, there is only one response, we'll walk the list for this sample
                        for(int i=0; i < responseList.Count; i++)
                        {
                                IResponse response = responseList.GetAt(i);
                                //check the status code of the response, 0=ok, >0 is warning
                                if (response.StatusCode >= 0)
                                {
                                        //the request-specific response is in the details, make sure we have some
                                        if (response.Detail != null)
                                        {
                                                //make sure the response is the type we're expecting
                                                ENResponseType responseType = (ENResponseType)response.Type.GetValue();
                                                if (responseType == ENResponseType.rtTransferQueryRs)
                                                {
                                                        //upcast to more specific type here, this is safe because we checked with response.Type check above
                                                        ITransferRetList TransferRet = (ITransferRetList)response.Detail;
                                                        WalkTransferRet(TransferRet);
                                                }
                                        }
                                }
                        }
                }




                void WalkTransferRet(ITransferRetList TransferRet)
                {
                        if (TransferRet == null) return;
                        //Go through all the elements of ITransferRetList
                        //Get value of TxnID
                        string TxnID22844 = (string)TransferRet.TxnID.GetValue();
                        //Get value of TimeCreated
                        DateTime TimeCreated22845 = (DateTime)TransferRet.TimeCreated.GetValue();
                        //Get value of TimeModified
                        DateTime TimeModified22846 = (DateTime)TransferRet.TimeModified.GetValue();
                        //Get value of EditSequence
                        string EditSequence22847 = (string)TransferRet.EditSequence.GetValue();
                        //Get value of TxnNumber
                        if (TransferRet.TxnNumber != null)
                        {
                                int TxnNumber22848 = (int)TransferRet.TxnNumber.GetValue();
                        }
                        //Get value of TxnDate
                        if (TransferRet.TxnDate != null)
                        {
                                DateTime TxnDate22849 = (DateTime)TransferRet.TxnDate.GetValue();
                        }
                        if (TransferRet.TransferFromAccountRef != null)
                        {
                                //Get value of ListID
                                if (TransferRet.TransferFromAccountRef.ListID != null)
                                {
                                        string ListID22850 = (string)TransferRet.TransferFromAccountRef.ListID.GetValue();
                                }
                                //Get value of FullName
                                if (TransferRet.TransferFromAccountRef.FullName != null)
                                {
                                        string FullName22851 = (string)TransferRet.TransferFromAccountRef.FullName.GetValue();
                                }
                        }
                        //Get value of FromAccountBalance
                        if (TransferRet.FromAccountBalance != null)
                        {
                                double FromAccountBalance22852 = (double)TransferRet.FromAccountBalance.GetValue();
                        }
                        if (TransferRet.TransferToAccountRef != null)
                        {
                                //Get value of ListID
                                if (TransferRet.TransferToAccountRef.ListID != null)
                                {
                                        string ListID22853 = (string)TransferRet.TransferToAccountRef.ListID.GetValue();
                                }
                                //Get value of FullName
                                if (TransferRet.TransferToAccountRef.FullName != null)
                                {
                                        string FullName22854 = (string)TransferRet.TransferToAccountRef.FullName.GetValue();
                                }
                        }
                        //Get value of ToAccountBalance
                        if (TransferRet.ToAccountBalance != null)
                        {
                                double ToAccountBalance22855 = (double)TransferRet.ToAccountBalance.GetValue();
                        }
                        if (TransferRet.ClassRef != null)
                        {
                                //Get value of ListID
                                if (TransferRet.ClassRef.ListID != null)
                                {
                                        string ListID22856 = (string)TransferRet.ClassRef.ListID.GetValue();
                                }
                                //Get value of FullName
                                if (TransferRet.ClassRef.FullName != null)
                                {
                                        string FullName22857 = (string)TransferRet.ClassRef.FullName.GetValue();
                                }
                        }
                        //Get value of Amount
                        if (TransferRet.Amount != null)
                        {
                                double Amount22858 = (double)TransferRet.Amount.GetValue();
                        }
                        //Get value of Memo
                        if (TransferRet.Memo != null)
                        {
                                string Memo22859 = (string)TransferRet.Memo.GetValue();
                        }
                }




        }
}