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 | <?xml version="1.0" encoding="utf-8"?> <?qbxml version="16.0"?> <QBXML> <QBXMLMsgsRq onError="stopOnError"> <DataExtDefAddRq> <DataExtDefAdd> <!-- required --> <OwnerID >GUIDTYPE</OwnerID> <!-- required --> <DataExtName >STRTYPE</DataExtName> <!-- required --> <!-- DataExtType may have one of the following values: AMTTYPE, DATETIMETYPE, INTTYPE, PERCENTTYPE, PRICETYPE, QUANTYPE, STR1024TYPE, STR255TYPE --> <DataExtType >ENUMTYPE</DataExtType> <!-- required --> <!-- AssignToObject may have one of the following values: Account, ARRefundCreditCard, Bill, BillPaymentCheck, BillPaymentCreditCard, BuildAssembly, Charge, Check, Company, CreditCardCharge, CreditCardCredit, CreditMemo, Customer, Deposit, Employee, Estimate, InventoryAdjustment, Invoice, Item, ItemReceipt, JournalEntry, OtherName, PurchaseOrder, ReceivePayment, SalesOrder, SalesReceipt, SalesTaxPaymentCheck, Vendor, VendorCredit --> <AssignToObject >ENUMTYPE</AssignToObject> <!-- optional, may repeat --> <DataExtListRequire >BOOLTYPE</DataExtListRequire> <!-- optional --> <DataExtTxnRequire >BOOLTYPE</DataExtTxnRequire> <!-- optional --> <DataExtFormatString >STRTYPE</DataExtFormatString> <!-- optional --> </DataExtDefAdd> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </DataExtDefAddRq> <DataExtDefAddRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <DataExtDefRet> <!-- optional --> <OwnerID >GUIDTYPE</OwnerID> <!-- optional --> <DataExtID >INTTYPE</DataExtID> <!-- required --> <DataExtName >STRTYPE</DataExtName> <!-- required --> <!-- DataExtType may have one of the following values: AMTTYPE, DATETIMETYPE, INTTYPE, PERCENTTYPE, PRICETYPE, QUANTYPE, STR1024TYPE, STR255TYPE --> <DataExtType >ENUMTYPE</DataExtType> <!-- required --> <!-- AssignToObject may have one of the following values: Account, ARRefundCreditCard, Bill, BillPaymentCheck, BillPaymentCreditCard, BuildAssembly, Charge, Check, Company, CreditCardCharge, CreditCardCredit, CreditMemo, Customer, Deposit, Employee, Estimate, InventoryAdjustment, Invoice, Item, ItemReceipt, JournalEntry, OtherName, PurchaseOrder, ReceivePayment, SalesOrder, SalesReceipt, SalesTaxPaymentCheck, Vendor, VendorCredit --> <AssignToObject >ENUMTYPE</AssignToObject> <!-- optional, may repeat --> <DataExtListRequire >BOOLTYPE</DataExtListRequire> <!-- required --> <DataExtTxnRequire >BOOLTYPE</DataExtTxnRequire> <!-- required --> <DataExtFormatString >STRTYPE</DataExtFormatString> <!-- required --> </DataExtDefRet> <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> </DataExtDefAddRs> </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 | '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 DoDataExtDefAdd() 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 BuildDataExtDefAddRq(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 WalkDataExtDefAddRs(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 BuildDataExtDefAddRq(requestMsgSet as IMsgSetRequest) Dim DataExtDefAddRq as IDataExtDefAdd DataExtDefAddRq= requestMsgSet.AppendDataExtDefAddRq() 'Set field value for OwnerID DataExtDefAddRq.OwnerID.SetValue(System.Guid.NewGuid().ToString()) 'Set field value for DataExtName DataExtDefAddRq.DataExtName.SetValue("ab") 'Set field value for DataExtType DataExtDefAddRq.DataExtType.SetValue(ENDataExtType.detAMTTYPE) 'Set field value for AssignToObjectList 'May create more than one of these if needed DataExtDefAddRq.AssignToObjectList.Add(ENAssignToObjectList.atolAccount) 'Set field value for DataExtListRequire DataExtDefAddRq.DataExtListRequire.SetValue(True) 'Set field value for DataExtTxnRequire DataExtDefAddRq.DataExtTxnRequire.SetValue(True) 'Set field value for DataExtFormatString DataExtDefAddRq.DataExtFormatString.SetValue("ab") 'Set field value for IncludeRetElementList 'May create more than one of these if needed DataExtDefAddRq.IncludeRetElementList.Add("ab") End Sub Public Sub WalkDataExtDefAddRs( 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.rtDataExtDefAddRs) then 'upcast to more specific type here, this is safe because we checked with response.Type check above Dim DataExtDefRet as IDataExtDefRet DataExtDefRet = CType(response.Detail,IDataExtDefRet) WalkDataExtDefRet(DataExtDefRet) End If End If End If Next j End Sub Public Sub WalkDataExtDefRet(DataExtDefRet as IDataExtDefRet) if (DataExtDefRet is nothing) then Exit Sub End If 'Go through all the elements of IDataExtDefRet 'Get value of OwnerID if ( not DataExtDefRet.OwnerID is nothing) then Dim OwnerID7833 as String OwnerID7833 = DataExtDefRet.OwnerID.GetValue() End If 'Get value of DataExtID Dim DataExtID7834 as Integer DataExtID7834 = DataExtDefRet.DataExtID.GetValue() 'Get value of DataExtName Dim DataExtName7835 as String DataExtName7835 = DataExtDefRet.DataExtName.GetValue() 'Get value of DataExtType Dim DataExtType7836 as ENDataExtType DataExtType7836 = DataExtDefRet.DataExtType.GetValue() 'Get value of AssignToObjectList if ( not DataExtDefRet.AssignToObjectList is nothing) then Dim AssignToObject7837 as ENAssignToObjectList AssignToObject7837 = DataExtDefRet.AssignToObjectList.GetValue() End If 'Get value of DataExtListRequire Dim DataExtListRequire7838 as Boolean DataExtListRequire7838 = DataExtDefRet.DataExtListRequire.GetValue() 'Get value of DataExtTxnRequire Dim DataExtTxnRequire7839 as Boolean DataExtTxnRequire7839 = DataExtDefRet.DataExtTxnRequire.GetValue() 'Get value of DataExtFormatString Dim DataExtFormatString7840 as String DataExtFormatString7840 = DataExtDefRet.DataExtFormatString.GetValue() 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 | //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 DoDataExtDefAdd() { 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; BuildDataExtDefAddRq(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; WalkDataExtDefAddRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildDataExtDefAddRq(IMsgSetRequest requestMsgSet) { IDataExtDefAdd DataExtDefAddRq= requestMsgSet.AppendDataExtDefAddRq(); //Set field value for OwnerID DataExtDefAddRq.OwnerID.SetValue(Guid.NewGuid().ToString()); //Set field value for DataExtName DataExtDefAddRq.DataExtName.SetValue("ab"); //Set field value for DataExtType DataExtDefAddRq.DataExtType.SetValue(ENDataExtType.detAMTTYPE); //Set field value for AssignToObjectList //May create more than one of these if needed DataExtDefAddRq.AssignToObjectList.Add(ENAssignToObjectList.atolAccount); //Set field value for DataExtListRequire DataExtDefAddRq.DataExtListRequire.SetValue(true); //Set field value for DataExtTxnRequire DataExtDefAddRq.DataExtTxnRequire.SetValue(true); //Set field value for DataExtFormatString DataExtDefAddRq.DataExtFormatString.SetValue("ab"); //Set field value for IncludeRetElementList //May create more than one of these if needed DataExtDefAddRq.IncludeRetElementList.Add("ab"); } void WalkDataExtDefAddRs(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.rtDataExtDefAddRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above IDataExtDefRet DataExtDefRet = (IDataExtDefRet)response.Detail; WalkDataExtDefRet(DataExtDefRet); } } } } } void WalkDataExtDefRet(IDataExtDefRet DataExtDefRet) { if (DataExtDefRet == null) return; //Go through all the elements of IDataExtDefRet //Get value of OwnerID if (DataExtDefRet.OwnerID != null) { string OwnerID7825 = (string)DataExtDefRet.OwnerID.GetValue(); } //Get value of DataExtID int DataExtID7826 = (int)DataExtDefRet.DataExtID.GetValue(); //Get value of DataExtName string DataExtName7827 = (string)DataExtDefRet.DataExtName.GetValue(); //Get value of DataExtType ENDataExtType DataExtType7828 = (ENDataExtType)DataExtDefRet.DataExtType.GetValue(); //Get value of AssignToObjectList if (DataExtDefRet.AssignToObjectList != null) { ENAssignToObjectList AssignToObject7829 = (ENAssignToObjectList)DataExtDefRet.AssignToObjectList.GetValue(); } //Get value of DataExtListRequire bool DataExtListRequire7830 = (bool)DataExtDefRet.DataExtListRequire.GetValue(); //Get value of DataExtTxnRequire bool DataExtTxnRequire7831 = (bool)DataExtDefRet.DataExtTxnRequire.GetValue(); //Get value of DataExtFormatString string DataExtFormatString7832 = (string)DataExtDefRet.DataExtFormatString.GetValue(); } } } |