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 54 55 56 | <?xml version="1.0" encoding="utf-8"?> <?qbxml version="16.0"?> <QBXML> <QBXMLMsgsRq onError="stopOnError"> <SalesTaxCodeAddRq> <SalesTaxCodeAdd> <!-- required --> <Name >STRTYPE</Name> <!-- required --> <IsActive >BOOLTYPE</IsActive> <!-- optional --> <IsTaxable >BOOLTYPE</IsTaxable> <!-- required --> <Desc >STRTYPE</Desc> <!-- optional --> <ItemPurchaseTaxRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ItemPurchaseTaxRef> <ItemSalesTaxRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ItemSalesTaxRef> </SalesTaxCodeAdd> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </SalesTaxCodeAddRq> <SalesTaxCodeAddRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <SalesTaxCodeRet> <!-- optional --> <ListID >IDTYPE</ListID> <!-- required --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- required --> <TimeModified >DATETIMETYPE</TimeModified> <!-- required --> <EditSequence >STRTYPE</EditSequence> <!-- required --> <Name >STRTYPE</Name> <!-- required --> <IsActive >BOOLTYPE</IsActive> <!-- optional --> <IsTaxable >BOOLTYPE</IsTaxable> <!-- required --> <Desc >STRTYPE</Desc> <!-- optional --> <ItemPurchaseTaxRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ItemPurchaseTaxRef> <ItemSalesTaxRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ItemSalesTaxRef> </SalesTaxCodeRet> <ErrorRecovery> <!-- optional --> <!-- BEGIN OR --> <ListID >IDTYPE</ListID> <!-- optional --> <!-- OR --> <OwnerID >GUIDTYPE</OwnerID> <!-- optional --> <!-- OR --> <TxnID >IDTYPE</TxnID> <!-- optional --> <!-- END OR --> <TxnNumber >INTTYPE</TxnNumber> <!-- optional --> <EditSequence >STRTYPE</EditSequence> <!-- optional --> <ExternalGUID >GUIDTYPE</ExternalGUID> <!-- optional --> </ErrorRecovery> </SalesTaxCodeAddRs> </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 | '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 DoSalesTaxCodeAdd() 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 BuildSalesTaxCodeAddRq(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 WalkSalesTaxCodeAddRs(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 BuildSalesTaxCodeAddRq(requestMsgSet as IMsgSetRequest) Dim SalesTaxCodeAddRq as ISalesTaxCodeAdd SalesTaxCodeAddRq= requestMsgSet.AppendSalesTaxCodeAddRq() 'Set field value for Name SalesTaxCodeAddRq.Name.SetValue("ab") 'Set field value for IsActive SalesTaxCodeAddRq.IsActive.SetValue(True) 'Set field value for IsTaxable SalesTaxCodeAddRq.IsTaxable.SetValue(True) 'Set field value for Desc SalesTaxCodeAddRq.Desc.SetValue("ab") 'Set field value for ListID SalesTaxCodeAddRq.ItemPurchaseTaxRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName SalesTaxCodeAddRq.ItemPurchaseTaxRef.FullName.SetValue("ab") 'Set field value for ListID SalesTaxCodeAddRq.ItemSalesTaxRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName SalesTaxCodeAddRq.ItemSalesTaxRef.FullName.SetValue("ab") 'Set field value for IncludeRetElementList 'May create more than one of these if needed SalesTaxCodeAddRq.IncludeRetElementList.Add("ab") End Sub Public Sub WalkSalesTaxCodeAddRs( 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.rtSalesTaxCodeAddRs) then 'upcast to more specific type here, this is safe because we checked with response.Type check above Dim SalesTaxCodeRet as ISalesTaxCodeRet SalesTaxCodeRet = CType(response.Detail,ISalesTaxCodeRet) WalkSalesTaxCodeRet(SalesTaxCodeRet) End If End If End If Next j End Sub Public Sub WalkSalesTaxCodeRet(SalesTaxCodeRet as ISalesTaxCodeRet) if (SalesTaxCodeRet is nothing) then Exit Sub End If 'Go through all the elements of ISalesTaxCodeRet 'Get value of ListID Dim ListID21553 as String ListID21553 = SalesTaxCodeRet.ListID.GetValue() 'Get value of TimeCreated Dim TimeCreated21554 as DateTime TimeCreated21554 = SalesTaxCodeRet.TimeCreated.GetValue() 'Get value of TimeModified Dim TimeModified21555 as DateTime TimeModified21555 = SalesTaxCodeRet.TimeModified.GetValue() 'Get value of EditSequence Dim EditSequence21556 as String EditSequence21556 = SalesTaxCodeRet.EditSequence.GetValue() 'Get value of Name Dim Name21557 as String Name21557 = SalesTaxCodeRet.Name.GetValue() 'Get value of IsActive if ( not SalesTaxCodeRet.IsActive is nothing) then Dim IsActive21558 as Boolean IsActive21558 = SalesTaxCodeRet.IsActive.GetValue() End If 'Get value of IsTaxable Dim IsTaxable21559 as Boolean IsTaxable21559 = SalesTaxCodeRet.IsTaxable.GetValue() 'Get value of Desc if ( not SalesTaxCodeRet.Desc is nothing) then Dim Desc216.0 as String Desc216.0 = SalesTaxCodeRet.Desc.GetValue() End If if (not SalesTaxCodeRet.ItemPurchaseTaxRef. is nothing) then 'Get value of ListID if ( not SalesTaxCodeRet.ItemPurchaseTaxRef.ListID is nothing) then Dim ListID21561 as String ListID21561 = SalesTaxCodeRet.ItemPurchaseTaxRef.ListID.GetValue() End If 'Get value of FullName if ( not SalesTaxCodeRet.ItemPurchaseTaxRef.FullName is nothing) then Dim FullName21562 as String FullName21562 = SalesTaxCodeRet.ItemPurchaseTaxRef.FullName.GetValue() End If End If if (not SalesTaxCodeRet.ItemSalesTaxRef. is nothing) then 'Get value of ListID if ( not SalesTaxCodeRet.ItemSalesTaxRef.ListID is nothing) then Dim ListID21563 as String ListID21563 = SalesTaxCodeRet.ItemSalesTaxRef.ListID.GetValue() End If 'Get value of FullName if ( not SalesTaxCodeRet.ItemSalesTaxRef.FullName is nothing) then Dim FullName21564 as String FullName21564 = SalesTaxCodeRet.ItemSalesTaxRef.FullName.GetValue() End If 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 | //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 DoSalesTaxCodeAdd() { 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; BuildSalesTaxCodeAddRq(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; WalkSalesTaxCodeAddRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildSalesTaxCodeAddRq(IMsgSetRequest requestMsgSet) { ISalesTaxCodeAdd SalesTaxCodeAddRq= requestMsgSet.AppendSalesTaxCodeAddRq(); //Set field value for Name SalesTaxCodeAddRq.Name.SetValue("ab"); //Set field value for IsActive SalesTaxCodeAddRq.IsActive.SetValue(true); //Set field value for IsTaxable SalesTaxCodeAddRq.IsTaxable.SetValue(true); //Set field value for Desc SalesTaxCodeAddRq.Desc.SetValue("ab"); //Set field value for ListID SalesTaxCodeAddRq.ItemPurchaseTaxRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName SalesTaxCodeAddRq.ItemPurchaseTaxRef.FullName.SetValue("ab"); //Set field value for ListID SalesTaxCodeAddRq.ItemSalesTaxRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName SalesTaxCodeAddRq.ItemSalesTaxRef.FullName.SetValue("ab"); //Set field value for IncludeRetElementList //May create more than one of these if needed SalesTaxCodeAddRq.IncludeRetElementList.Add("ab"); } void WalkSalesTaxCodeAddRs(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.rtSalesTaxCodeAddRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above ISalesTaxCodeRet SalesTaxCodeRet = (ISalesTaxCodeRet)response.Detail; WalkSalesTaxCodeRet(SalesTaxCodeRet); } } } } } void WalkSalesTaxCodeRet(ISalesTaxCodeRet SalesTaxCodeRet) { if (SalesTaxCodeRet == null) return; //Go through all the elements of ISalesTaxCodeRet //Get value of ListID string ListID21541 = (string)SalesTaxCodeRet.ListID.GetValue(); //Get value of TimeCreated DateTime TimeCreated21542 = (DateTime)SalesTaxCodeRet.TimeCreated.GetValue(); //Get value of TimeModified DateTime TimeModified21543 = (DateTime)SalesTaxCodeRet.TimeModified.GetValue(); //Get value of EditSequence string EditSequence21544 = (string)SalesTaxCodeRet.EditSequence.GetValue(); //Get value of Name string Name21545 = (string)SalesTaxCodeRet.Name.GetValue(); //Get value of IsActive if (SalesTaxCodeRet.IsActive != null) { bool IsActive21546 = (bool)SalesTaxCodeRet.IsActive.GetValue(); } //Get value of IsTaxable bool IsTaxable21547 = (bool)SalesTaxCodeRet.IsTaxable.GetValue(); //Get value of Desc if (SalesTaxCodeRet.Desc != null) { string Desc21548 = (string)SalesTaxCodeRet.Desc.GetValue(); } if (SalesTaxCodeRet.ItemPurchaseTaxRef != null) { //Get value of ListID if (SalesTaxCodeRet.ItemPurchaseTaxRef.ListID != null) { string ListID21549 = (string)SalesTaxCodeRet.ItemPurchaseTaxRef.ListID.GetValue(); } //Get value of FullName if (SalesTaxCodeRet.ItemPurchaseTaxRef.FullName != null) { string FullName216.0 = (string)SalesTaxCodeRet.ItemPurchaseTaxRef.FullName.GetValue(); } } if (SalesTaxCodeRet.ItemSalesTaxRef != null) { //Get value of ListID if (SalesTaxCodeRet.ItemSalesTaxRef.ListID != null) { string ListID21551 = (string)SalesTaxCodeRet.ItemSalesTaxRef.ListID.GetValue(); } //Get value of FullName if (SalesTaxCodeRet.ItemSalesTaxRef.FullName != null) { string FullName21552 = (string)SalesTaxCodeRet.ItemSalesTaxRef.FullName.GetValue(); } } } } } |