Modifies the specified department.
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 | <?xml version="1.0" encoding="utf-8"?> <?qbposxml version="4.0"?> <QBPOSXML> <QBPOSXMLMsgsRq onError="stopOnError"> <DepartmentModRq> <DepartmentMod> <!-- required --> <ListID useMacro="MACROTYPE">IDTYPE</ListID> <!-- required --> <DefaultMarginPercent >INTTYPE</DefaultMarginPercent> <!-- optional --> <DefaultMarkupPercent >INTTYPE</DefaultMarkupPercent> <!-- optional --> <DepartmentCode >STRTYPE</DepartmentCode> <!-- optional --> <DepartmentName >STRTYPE</DepartmentName> <!-- optional --> <TaxCode >STRTYPE</TaxCode> <!-- optional --> </DepartmentMod> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </DepartmentModRq> <DepartmentModRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <DepartmentRet> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- optional --> <TimeModified >DATETIMETYPE</TimeModified> <!-- optional --> <DefaultMarginPercent >INTTYPE</DefaultMarginPercent> <!-- optional --> <DefaultMarkupPercent >INTTYPE</DefaultMarkupPercent> <!-- optional --> <DepartmentCode >STRTYPE</DepartmentCode> <!-- optional --> <DepartmentName >STRTYPE</DepartmentName> <!-- optional --> <!-- StoreExchangeStatus may have one of the following values: Modified, Sent, Acknowledged --> <StoreExchangeStatus >ENUMTYPE</StoreExchangeStatus> <!-- optional --> <TaxCode >STRTYPE</TaxCode> <!-- optional --> <DataExtRet> <!-- optional, may repeat --> <OwnerID >GUIDTYPE</OwnerID> <!-- required --> <DataExtName >STRTYPE</DataExtName> <!-- required --> <!-- DataExtType may have one of the following values: INTTYPE, AMTTYPE, PRICETYPE, QUANTYPE, PERCENTTYPE, DATETIMETYPE, STR255TYPE, STR1024TYPE --> <DataExtType >ENUMTYPE</DataExtType> <!-- required --> <DataExtValue >STRTYPE</DataExtValue> <!-- required --> </DataExtRet> </DepartmentRet> </DepartmentModRs> </QBPOSXMLMsgsRq> </QBPOSXML> |
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 | '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.qbposfc4
Public Class SampleDepartmentMod
Public Sub DoDepartmentMod()
Dim sessionBegun as Boolean
sessionBegun = False
Dim connectionOpen as Boolean
connectionOpen = False
Dim sessionManager as QBPOSSessionManager
sessionManager = nothing
Try
'Create the session Manager object
sessionManager = new QBPOSSessionManager
'Create the message set request object to hold our request
Dim requestMsgSet as IMsgSetRequest
requestMsgSet = sessionManager.CreateMsgSetRequest(4,0)
requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue
BuildDepartmentModRq(requestMsgSet)
'Connect to QuickBooks and begin a session
sessionManager.OpenConnection("","Sample Code from OSR")
connectionOpen = True
sessionManager.BeginSession("")
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
WalkDepartmentModRs(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 BuildDepartmentModRq(requestMsgSet as IMsgSetRequest)
Dim DepartmentModRq as IDepartmentMod
DepartmentModRq= requestMsgSet.AppendDepartmentModRq()
'Set field value for ListID
DepartmentModRq.ListID.SetValue("200000-1011023419")
'Set attributes
'Set field value for ListID to use Macro
DepartmentModRq.ListID.SetValueUseMacro("200000-1011023419")
'Set field value for DefaultMarginPercent
DepartmentModRq.DefaultMarginPercent.SetValue(6)
'Set field value for DefaultMarkupPercent
DepartmentModRq.DefaultMarkupPercent.SetValue(6)
'Set field value for DepartmentCode
DepartmentModRq.DepartmentCode.SetValue("ab")
'Set field value for DepartmentName
DepartmentModRq.DepartmentName.SetValue("ab")
'Set field value for TaxCode
DepartmentModRq.TaxCode.SetValue("ab")
'Set field value for IncludeRetElementList
'May create more than one of these if needed
DepartmentModRq.IncludeRetElementList.Add("ab")
End Sub
Public Sub WalkDepartmentModRs( 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.rtDepartmentModRs) then
'upcast to more specific type here, this is safe because we checked with response.Type check above
Dim DepartmentRet as IDepartmentRet
DepartmentRet = CType(response.Detail,IDepartmentRet)
WalkDepartmentRet(DepartmentRet)
End If
End If
End If
Next j
End Sub
Public Sub WalkDepartmentRet(DepartmentRet as IDepartmentRet)
if (DepartmentRet is nothing) then
Exit Sub
End If
'Go through all the elements of IDepartmentRet
'Get value of ListID
if ( not DepartmentRet.ListID is nothing) then
Dim ListID631 as String
ListID631 = DepartmentRet.ListID.GetValue()
End If
'Get value of TimeCreated
if ( not DepartmentRet.TimeCreated is nothing) then
Dim TimeCreated632 as DateTime
TimeCreated632 = DepartmentRet.TimeCreated.GetValue()
End If
'Get value of TimeModified
if ( not DepartmentRet.TimeModified is nothing) then
Dim TimeModified633 as DateTime
TimeModified633 = DepartmentRet.TimeModified.GetValue()
End If
'Get value of DefaultMarginPercent
if ( not DepartmentRet.DefaultMarginPercent is nothing) then
Dim DefaultMarginPercent634 as Integer
DefaultMarginPercent634 = DepartmentRet.DefaultMarginPercent.GetValue()
End If
'Get value of DefaultMarkupPercent
if ( not DepartmentRet.DefaultMarkupPercent is nothing) then
Dim DefaultMarkupPercent635 as Integer
DefaultMarkupPercent635 = DepartmentRet.DefaultMarkupPercent.GetValue()
End If
'Get value of DepartmentCode
if ( not DepartmentRet.DepartmentCode is nothing) then
Dim DepartmentCode636 as String
DepartmentCode636 = DepartmentRet.DepartmentCode.GetValue()
End If
'Get value of DepartmentName
if ( not DepartmentRet.DepartmentName is nothing) then
Dim DepartmentName637 as String
DepartmentName637 = DepartmentRet.DepartmentName.GetValue()
End If
'Get value of StoreExchangeStatus
if ( not DepartmentRet.StoreExchangeStatus is nothing) then
Dim StoreExchangeStatus638 as ENStoreExchangeStatus
StoreExchangeStatus638 = DepartmentRet.StoreExchangeStatus.GetValue()
End If
'Get value of TaxCode
if ( not DepartmentRet.TaxCode is nothing) then
Dim TaxCode639 as String
TaxCode639 = DepartmentRet.TaxCode.GetValue()
End If
if (not DepartmentRet.DataExtRetList is nothing)
Dim i640 as Integer
for i640 = 0 to DepartmentRet.DataExtRetList.Count - 1
Dim DataExtRet as IDataExtRet
DataExtRet = DepartmentRet.DataExtRetList.GetAt(i640)
'Get value of OwnerID
Dim OwnerID641 as String
OwnerID641 = DataExtRet.OwnerID.GetValue()
'Get value of DataExtName
Dim DataExtName642 as String
DataExtName642 = DataExtRet.DataExtName.GetValue()
'Get value of DataExtType
Dim DataExtType643 as ENDataExtType
DataExtType643 = DataExtRet.DataExtType.GetValue()
'Get value of DataExtValue
Dim DataExtValue644 as String
DataExtValue644 = DataExtRet.DataExtValue.GetValue()
Next i640
End If
End Sub
End Class
|
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 | //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.qbposfc4; namespace com.intuit.idn.samples { public class SampleDepartmentMod { public void DoDepartmentMod() { bool sessionBegun = false; bool connectionOpen = false; QBPOSSessionManager sessionManager = null; try { //Create the session Manager object sessionManager = new QBPOSSessionManager(); //Create the message set request object to hold our request IMsgSetRequest requestMsgSet = sessionManager.CreateMsgSetRequest(4,0); requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue; BuildDepartmentModRq(requestMsgSet); //Connect to QuickBooks and begin a session sessionManager.OpenConnection("","Sample Code from OSR"); connectionOpen = true; sessionManager.BeginSession(""); 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; WalkDepartmentModRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildDepartmentModRq(IMsgSetRequest requestMsgSet) { IDepartmentMod DepartmentModRq= requestMsgSet.AppendDepartmentModRq(); //Set field value for ListID DepartmentModRq.ListID.SetValue("200000-1011023419"); //Set attributes //Set field value for ListID to use Macro DepartmentModRq.ListID.SetValueUseMacro("200000-1011023419"); //Set field value for DefaultMarginPercent DepartmentModRq.DefaultMarginPercent.SetValue(6); //Set field value for DefaultMarkupPercent DepartmentModRq.DefaultMarkupPercent.SetValue(6); //Set field value for DepartmentCode DepartmentModRq.DepartmentCode.SetValue("ab"); //Set field value for DepartmentName DepartmentModRq.DepartmentName.SetValue("ab"); //Set field value for TaxCode DepartmentModRq.TaxCode.SetValue("ab"); //Set field value for IncludeRetElementList //May create more than one of these if needed DepartmentModRq.IncludeRetElementList.Add("ab"); } void WalkDepartmentModRs(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.rtDepartmentModRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above IDepartmentRet DepartmentRet = (IDepartmentRet)response.Detail; WalkDepartmentRet(DepartmentRet); } } } } } void WalkDepartmentRet(IDepartmentRet DepartmentRet) { if (DepartmentRet == null) return; //Go through all the elements of IDepartmentRet //Get value of ListID if (DepartmentRet.ListID != null) { string ListID645 = (string)DepartmentRet.ListID.GetValue(); } //Get value of TimeCreated if (DepartmentRet.TimeCreated != null) { DateTime TimeCreated646 = (DateTime)DepartmentRet.TimeCreated.GetValue(); } //Get value of TimeModified if (DepartmentRet.TimeModified != null) { DateTime TimeModified647 = (DateTime)DepartmentRet.TimeModified.GetValue(); } //Get value of DefaultMarginPercent if (DepartmentRet.DefaultMarginPercent != null) { int DefaultMarginPercent648 = (int)DepartmentRet.DefaultMarginPercent.GetValue(); } //Get value of DefaultMarkupPercent if (DepartmentRet.DefaultMarkupPercent != null) { int DefaultMarkupPercent649 = (int)DepartmentRet.DefaultMarkupPercent.GetValue(); } //Get value of DepartmentCode if (DepartmentRet.DepartmentCode != null) { string DepartmentCode650 = (string)DepartmentRet.DepartmentCode.GetValue(); } //Get value of DepartmentName if (DepartmentRet.DepartmentName != null) { string DepartmentName651 = (string)DepartmentRet.DepartmentName.GetValue(); } //Get value of StoreExchangeStatus if (DepartmentRet.StoreExchangeStatus != null) { ENStoreExchangeStatus StoreExchangeStatus652 = (ENStoreExchangeStatus)DepartmentRet.StoreExchangeStatus.GetValue(); } //Get value of TaxCode if (DepartmentRet.TaxCode != null) { string TaxCode653 = (string)DepartmentRet.TaxCode.GetValue(); } if (DepartmentRet.DataExtRetList != null) { for (int i654 = 0; i654 < DepartmentRet.DataExtRetList.Count; i654++) { IDataExtRet DataExtRet = DepartmentRet.DataExtRetList.GetAt(i654); //Get value of OwnerID string OwnerID655 = (string)DataExtRet.OwnerID.GetValue(); //Get value of DataExtName string DataExtName656 = (string)DataExtRet.DataExtName.GetValue(); //Get value of DataExtType ENDataExtType DataExtType657 = (ENDataExtType)DataExtRet.DataExtType.GetValue(); //Get value of DataExtValue string DataExtValue658 = (string)DataExtRet.DataExtValue.GetValue(); } } } } } |