Request
Response
XMLOps
VB.NET
C#
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | <?xml version="1.0" encoding="utf-8"?> <?qbxml version="16.0"?> <QBXML> <QBXMLMsgsRq onError="stopOnError"> <TransferAddRq> <TransferAdd defMacro="MACROTYPE"> <!-- required --> <TxnDate >DATETYPE</TxnDate> <!-- optional --> <TransferFromAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </TransferFromAccountRef> <TransferToAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </TransferToAccountRef> <ClassRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ClassRef> <Amount >AMTTYPE</Amount> <!-- optional --> <Memo >STRTYPE</Memo> <!-- optional --> </TransferAdd> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </TransferAddRq> <TransferAddRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <TransferRet> <!-- optional --> <TxnID >IDTYPE</TxnID> <!-- required --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- required --> <TimeModified >DATETIMETYPE</TimeModified> <!-- required --> <EditSequence >STRTYPE</EditSequence> <!-- required --> <TxnNumber >INTTYPE</TxnNumber> <!-- optional --> <TxnDate >DATETYPE</TxnDate> <!-- optional --> <TransferFromAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </TransferFromAccountRef> <FromAccountBalance >AMTTYPE</FromAccountBalance> <!-- optional --> <TransferToAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </TransferToAccountRef> <ToAccountBalance >AMTTYPE</ToAccountBalance> <!-- optional --> <ClassRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ClassRef> <Amount >AMTTYPE</Amount> <!-- optional --> <Memo >STRTYPE</Memo> <!-- optional --> </TransferRet> </TransferAddRs> </QBXMLMsgsRq> </QBXML> |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 | '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 DoTransferAdd() 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 BuildTransferAddRq(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 WalkTransferAddRs(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 BuildTransferAddRq(requestMsgSet as IMsgSetRequest) Dim TransferAddRq as ITransferAdd TransferAddRq= requestMsgSet.AppendTransferAddRq() 'Set field value for TxnDate TransferAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007")) 'Set field value for ListID TransferAddRq.TransferFromAccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName TransferAddRq.TransferFromAccountRef.FullName.SetValue("ab") 'Set field value for ListID TransferAddRq.TransferToAccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName TransferAddRq.TransferToAccountRef.FullName.SetValue("ab") 'Set field value for ListID TransferAddRq.ClassRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName TransferAddRq.ClassRef.FullName.SetValue("ab") 'Set field value for Amount TransferAddRq.Amount.SetValue(10.01) 'Set field value for Memo TransferAddRq.Memo.SetValue("ab") 'Set field value for IncludeRetElementList 'May create more than one of these if needed TransferAddRq.IncludeRetElementList.Add("ab") End Sub Public Sub WalkTransferAddRs( 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.rtTransferAddRs) then 'upcast to more specific type here, this is safe because we checked with response.Type check above Dim TransferRet as ITransferRet TransferRet = CType(response.Detail,ITransferRet) WalkTransferRet(TransferRet) End If End If End If Next j End Sub Public Sub WalkTransferRet(TransferRet as ITransferRet) if (TransferRet is nothing) then Exit Sub End If 'Go through all the elements of ITransferRet 'Get value of TxnID Dim TxnID22621 as String TxnID22621 = TransferRet.TxnID.GetValue() 'Get value of TimeCreated Dim TimeCreated22622 as DateTime TimeCreated22622 = TransferRet.TimeCreated.GetValue() 'Get value of TimeModified Dim TimeModified22623 as DateTime TimeModified22623 = TransferRet.TimeModified.GetValue() 'Get value of EditSequence Dim EditSequence22624 as String EditSequence22624 = TransferRet.EditSequence.GetValue() 'Get value of TxnNumber if ( not TransferRet.TxnNumber is nothing) then Dim TxnNumber22625 as Integer TxnNumber22625 = TransferRet.TxnNumber.GetValue() End If 'Get value of TxnDate if ( not TransferRet.TxnDate is nothing) then Dim TxnDate22626 as DateTime TxnDate22626 = 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 ListID22627 as String ListID22627 = TransferRet.TransferFromAccountRef.ListID.GetValue() End If 'Get value of FullName if ( not TransferRet.TransferFromAccountRef.FullName is nothing) then Dim FullName22628 as String FullName22628 = TransferRet.TransferFromAccountRef.FullName.GetValue() End If End If 'Get value of FromAccountBalance if ( not TransferRet.FromAccountBalance is nothing) then Dim FromAccountBalance22629 as Double FromAccountBalance22629 = 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 ListID22630 as String ListID22630 = TransferRet.TransferToAccountRef.ListID.GetValue() End If 'Get value of FullName if ( not TransferRet.TransferToAccountRef.FullName is nothing) then Dim FullName22631 as String FullName22631 = TransferRet.TransferToAccountRef.FullName.GetValue() End If End If 'Get value of ToAccountBalance if ( not TransferRet.ToAccountBalance is nothing) then Dim ToAccountBalance22632 as Double ToAccountBalance22632 = 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 ListID22633 as String ListID22633 = TransferRet.ClassRef.ListID.GetValue() End If 'Get value of FullName if ( not TransferRet.ClassRef.FullName is nothing) then Dim FullName22634 as String FullName22634 = TransferRet.ClassRef.FullName.GetValue() End If End If 'Get value of Amount if ( not TransferRet.Amount is nothing) then Dim Amount22635 as Double Amount22635 = TransferRet.Amount.GetValue() End If 'Get value of Memo if ( not TransferRet.Memo is nothing) then Dim Memo22636 as String Memo22636 = TransferRet.Memo.GetValue() End If End Sub End Class End Module |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 | //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 DoTransferAdd() { 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; BuildTransferAddRq(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; WalkTransferAddRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildTransferAddRq(IMsgSetRequest requestMsgSet) { ITransferAdd TransferAddRq= requestMsgSet.AppendTransferAddRq(); //Set attributes //Set field value for defMacro TransferAddRq.defMacro.SetValue("IQBStringType"); //Set field value for TxnDate TransferAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007")); //Set field value for ListID TransferAddRq.TransferFromAccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferAddRq.TransferFromAccountRef.FullName.SetValue("ab"); //Set field value for ListID TransferAddRq.TransferToAccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferAddRq.TransferToAccountRef.FullName.SetValue("ab"); //Set field value for ListID TransferAddRq.ClassRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferAddRq.ClassRef.FullName.SetValue("ab"); //Set field value for Amount TransferAddRq.Amount.SetValue(10.01); //Set field value for Memo TransferAddRq.Memo.SetValue("ab"); //Set field value for IncludeRetElementList //May create more than one of these if needed TransferAddRq.IncludeRetElementList.Add("ab"); } void WalkTransferAddRs(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.rtTransferAddRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above ITransferRet TransferRet = (ITransferRet)response.Detail; WalkTransferRet(TransferRet); } } } } } void WalkTransferRet(ITransferRet TransferRet) { if (TransferRet == null) return; //Go through all the elements of ITransferRet //Get value of TxnID string TxnID22605 = (string)TransferRet.TxnID.GetValue(); //Get value of TimeCreated DateTime TimeCreated22606 = (DateTime)TransferRet.TimeCreated.GetValue(); //Get value of TimeModified DateTime TimeModified22607 = (DateTime)TransferRet.TimeModified.GetValue(); //Get value of EditSequence string EditSequence22608 = (string)TransferRet.EditSequence.GetValue(); //Get value of TxnNumber if (TransferRet.TxnNumber != null) { int TxnNumber22609 = (int)TransferRet.TxnNumber.GetValue(); } //Get value of TxnDate if (TransferRet.TxnDate != null) { DateTime TxnDate22610 = (DateTime)TransferRet.TxnDate.GetValue(); } if (TransferRet.TransferFromAccountRef != null) { //Get value of ListID if (TransferRet.TransferFromAccountRef.ListID != null) { string ListID22611 = (string)TransferRet.TransferFromAccountRef.ListID.GetValue(); } //Get value of FullName if (TransferRet.TransferFromAccountRef.FullName != null) { string FullName22612 = (string)TransferRet.TransferFromAccountRef.FullName.GetValue(); } } //Get value of FromAccountBalance if (TransferRet.FromAccountBalance != null) { double FromAccountBalance22613 = (double)TransferRet.FromAccountBalance.GetValue(); } if (TransferRet.TransferToAccountRef != null) { //Get value of ListID if (TransferRet.TransferToAccountRef.ListID != null) { string ListID22614 = (string)TransferRet.TransferToAccountRef.ListID.GetValue(); } //Get value of FullName if (TransferRet.TransferToAccountRef.FullName != null) { string FullName22615 = (string)TransferRet.TransferToAccountRef.FullName.GetValue(); } } //Get value of ToAccountBalance if (TransferRet.ToAccountBalance != null) { double ToAccountBalance22616 = (double)TransferRet.ToAccountBalance.GetValue(); } if (TransferRet.ClassRef != null) { //Get value of ListID if (TransferRet.ClassRef.ListID != null) { string ListID22617 = (string)TransferRet.ClassRef.ListID.GetValue(); } //Get value of FullName if (TransferRet.ClassRef.FullName != null) { string FullName22618 = (string)TransferRet.ClassRef.FullName.GetValue(); } } //Get value of Amount if (TransferRet.Amount != null) { double Amount22619 = (double)TransferRet.Amount.GetValue(); } //Get value of Memo if (TransferRet.Memo != null) { string Memo22620 = (string)TransferRet.Memo.GetValue(); } } } } |