Modifies an existing deposit.
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 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 | <?xml version="1.0" encoding="utf-8"?> <?qbxml version="16.0"?> <QBXML> <QBXMLMsgsRq onError="stopOnError"> <DepositModRq> <DepositMod> <!-- required --> <TxnID >IDTYPE</TxnID> <!-- required --> <EditSequence >STRTYPE</EditSequence> <!-- required --> <TxnDate >DATETYPE</TxnDate> <!-- optional --> <DepositToAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </DepositToAccountRef> <Memo >STRTYPE</Memo> <!-- optional --> <CashBackInfoMod> <!-- optional --> <AccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </AccountRef> <Memo >STRTYPE</Memo> <!-- optional --> <Amount >AMTTYPE</Amount> <!-- optional --> </CashBackInfoMod> <CurrencyRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </CurrencyRef> <ExchangeRate >FLOATTYPE</ExchangeRate> <!-- optional --> <DepositLineMod> <!-- optional, may repeat --> <TxnLineID >IDTYPE</TxnLineID> <!-- required --> <!-- BEGIN OR --> <PaymentTxnID useMacro="MACROTYPE">IDTYPE</PaymentTxnID> <!-- required --> <PaymentTxnLineID useMacro="MACROTYPE">IDTYPE</PaymentTxnLineID> <!-- optional --> <OverrideMemo >STRTYPE</OverrideMemo> <!-- optional --> <OverrideCheckNumber >STRTYPE</OverrideCheckNumber> <!-- optional --> <OverrideClassRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </OverrideClassRef> <!-- OR --> <EntityRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </EntityRef> <AccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </AccountRef> <Memo >STRTYPE</Memo> <!-- optional --> <CheckNumber >STRTYPE</CheckNumber> <!-- optional --> <PaymentMethodRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </PaymentMethodRef> <ClassRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ClassRef> <Amount >AMTTYPE</Amount> <!-- optional --> <!-- END OR --> </DepositLineMod> </DepositMod> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </DepositModRq> <DepositModRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <DepositRet> <!-- optional --> <TxnID >IDTYPE</TxnID> <!-- required --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- required --> <TimeModified >DATETIMETYPE</TimeModified> <!-- required --> <EditSequence >STRTYPE</EditSequence> <!-- required --> <TxnNumber >INTTYPE</TxnNumber> <!-- optional --> <TxnDate >DATETYPE</TxnDate> <!-- required --> <DepositToAccountRef> <!-- required --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </DepositToAccountRef> <Memo >STRTYPE</Memo> <!-- optional --> <DepositTotal >AMTTYPE</DepositTotal> <!-- optional --> <CurrencyRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </CurrencyRef> <ExchangeRate >FLOATTYPE</ExchangeRate> <!-- optional --> <DepositTotalInHomeCurrency >AMTTYPE</DepositTotalInHomeCurrency> <!-- optional --> <CashBackInfoRet> <!-- optional --> <TxnLineID >IDTYPE</TxnLineID> <!-- required --> <AccountRef> <!-- required --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </AccountRef> <Memo >STRTYPE</Memo> <!-- optional --> <Amount >AMTTYPE</Amount> <!-- optional --> </CashBackInfoRet> <ExternalGUID >GUIDTYPE</ExternalGUID> <!-- optional --> <DepositLineRet> <!-- optional, may repeat --> <!-- TxnType may have one of the following values: ARRefundCreditCard, Bill, BillPaymentCheck, BillPaymentCreditCard, BuildAssembly, Charge, Check, CreditCardCharge, CreditCardCredit, CreditMemo, Deposit, Estimate, InventoryAdjustment, Invoice, ItemReceipt, JournalEntry, LiabilityAdjustment, Paycheck, PayrollLiabilityCheck, PurchaseOrder, ReceivePayment, SalesOrder, SalesReceipt, SalesTaxPaymentCheck, Transfer, VendorCredit, YTDAdjustment --> <TxnType >ENUMTYPE</TxnType> <!-- optional --> <TxnID >IDTYPE</TxnID> <!-- optional --> <TxnLineID >IDTYPE</TxnLineID> <!-- required --> <PaymentTxnLineID >IDTYPE</PaymentTxnLineID> <!-- optional --> <EntityRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </EntityRef> <AccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </AccountRef> <Memo >STRTYPE</Memo> <!-- optional --> <CheckNumber >STRTYPE</CheckNumber> <!-- optional --> <PaymentMethodRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </PaymentMethodRef> <ClassRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ClassRef> <Amount >AMTTYPE</Amount> <!-- optional --> </DepositLineRet> <DataExtRet> <!-- optional, may repeat --> <OwnerID >GUIDTYPE</OwnerID> <!-- optional --> <DataExtName >STRTYPE</DataExtName> <!-- required --> <!-- DataExtType may have one of the following values: AMTTYPE, DATETIMETYPE, INTTYPE, PERCENTTYPE, PRICETYPE, QUANTYPE, STR1024TYPE, STR255TYPE --> <DataExtType >ENUMTYPE</DataExtType> <!-- required --> <DataExtValue >STRTYPE</DataExtValue> <!-- required --> </DataExtRet> </DepositRet> <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> </DepositModRs> </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 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 | '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 DoDepositMod() 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 BuildDepositModRq(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 WalkDepositModRs(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 BuildDepositModRq(requestMsgSet as IMsgSetRequest) Dim DepositModRq as IDepositMod DepositModRq= requestMsgSet.AppendDepositModRq() 'Set field value for TxnID DepositModRq.TxnID.SetValue("200000-1011023419") 'Set field value for EditSequence DepositModRq.EditSequence.SetValue("ab") 'Set field value for TxnDate DepositModRq.TxnDate.SetValue(DateTime.Parse("12/15/2007")) 'Set field value for ListID DepositModRq.DepositToAccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositModRq.DepositToAccountRef.FullName.SetValue("ab") 'Set field value for Memo DepositModRq.Memo.SetValue("ab") 'Set field value for ListID DepositModRq.CashBackInfoMod.AccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositModRq.CashBackInfoMod.AccountRef.FullName.SetValue("ab") 'Set field value for Memo DepositModRq.CashBackInfoMod.Memo.SetValue("ab") 'Set field value for Amount DepositModRq.CashBackInfoMod.Amount.SetValue(10.01) 'Set field value for ListID DepositModRq.CurrencyRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositModRq.CurrencyRef.FullName.SetValue("ab") 'Set field value for ExchangeRate DepositModRq.ExchangeRate.SetValue("IQBFloatType") Dim DepositLineMod8080 as IDepositLineMod DepositLineMod8080=DepositModRq.DepositLineModList.Append() 'Set field value for TxnLineID DepositLineMod8080.TxnLineID.SetValue("200000-1011023419") Dim ORDepositLineModElementType8081 as String ORDepositLineModElementType8081 = "PaymentLine" if (ORDepositLineModElementType8081 == "PaymentLine") then 'Set field value for PaymentTxnID DepositLineMod8080.ORDepositLineMod.PaymentLine.PaymentTxnID.SetValue("200000-1011023419") 'Set attributes 'Set field value for useMacro DepositLineMod8080.ORDepositLineMod.PaymentLine.useMacro.SetValue("IQBStringType") 'Set field value for PaymentTxnLineID DepositLineMod8080.ORDepositLineMod.PaymentLine.PaymentTxnLineID.SetValue("200000-1011023419") 'Set attributes 'Set field value for useMacro DepositLineMod8080.ORDepositLineMod.PaymentLine.useMacro.SetValue("IQBStringType") 'Set field value for OverrideMemo DepositLineMod8080.ORDepositLineMod.PaymentLine.OverrideMemo.SetValue("ab") 'Set field value for OverrideCheckNumber DepositLineMod8080.ORDepositLineMod.PaymentLine.OverrideCheckNumber.SetValue("ab") 'Set field value for ListID DepositLineMod8080.ORDepositLineMod.PaymentLine.OverrideClassRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositLineMod8080.ORDepositLineMod.PaymentLine.OverrideClassRef.FullName.SetValue("ab") End If if (ORDepositLineModElementType8081 == "DepositInfoMod") then 'Set field value for ListID DepositLineMod8080.ORDepositLineMod.DepositInfoMod.EntityRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositLineMod8080.ORDepositLineMod.DepositInfoMod.EntityRef.FullName.SetValue("ab") 'Set field value for ListID DepositLineMod8080.ORDepositLineMod.DepositInfoMod.AccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositLineMod8080.ORDepositLineMod.DepositInfoMod.AccountRef.FullName.SetValue("ab") 'Set field value for Memo DepositLineMod8080.ORDepositLineMod.DepositInfoMod.Memo.SetValue("ab") 'Set field value for CheckNumber DepositLineMod8080.ORDepositLineMod.DepositInfoMod.CheckNumber.SetValue("ab") 'Set field value for ListID DepositLineMod8080.ORDepositLineMod.DepositInfoMod.PaymentMethodRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositLineMod8080.ORDepositLineMod.DepositInfoMod.PaymentMethodRef.FullName.SetValue("ab") 'Set field value for ListID DepositLineMod8080.ORDepositLineMod.DepositInfoMod.ClassRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName DepositLineMod8080.ORDepositLineMod.DepositInfoMod.ClassRef.FullName.SetValue("ab") 'Set field value for Amount DepositLineMod8080.ORDepositLineMod.DepositInfoMod.Amount.SetValue(10.01) End If 'Set field value for IncludeRetElementList 'May create more than one of these if needed DepositModRq.IncludeRetElementList.Add("ab") End Sub Public Sub WalkDepositModRs( 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.rtDepositModRs) then 'upcast to more specific type here, this is safe because we checked with response.Type check above Dim DepositRet as IDepositRet DepositRet = CType(response.Detail,IDepositRet) WalkDepositRet(DepositRet) End If End If End If Next j End Sub Public Sub WalkDepositRet(DepositRet as IDepositRet) if (DepositRet is nothing) then Exit Sub End If 'Go through all the elements of IDepositRet 'Get value of TxnID Dim TxnID8082 as String TxnID8082 = DepositRet.TxnID.GetValue() 'Get value of TimeCreated Dim TimeCreated8083 as DateTime TimeCreated8083 = DepositRet.TimeCreated.GetValue() 'Get value of TimeModified Dim TimeModified8084 as DateTime TimeModified8084 = DepositRet.TimeModified.GetValue() 'Get value of EditSequence Dim EditSequence8085 as String EditSequence8085 = DepositRet.EditSequence.GetValue() 'Get value of TxnNumber if ( not DepositRet.TxnNumber is nothing) then Dim TxnNumber8086 as Integer TxnNumber8086 = DepositRet.TxnNumber.GetValue() End If 'Get value of TxnDate Dim TxnDate8087 as DateTime TxnDate8087 = DepositRet.TxnDate.GetValue() 'Get value of ListID if ( not DepositRet.DepositToAccountRef.ListID is nothing) then Dim ListID8088 as String ListID8088 = DepositRet.DepositToAccountRef.ListID.GetValue() End If 'Get value of FullName if ( not DepositRet.DepositToAccountRef.FullName is nothing) then Dim FullName8089 as String FullName8089 = DepositRet.DepositToAccountRef.FullName.GetValue() End If 'Get value of Memo if ( not DepositRet.Memo is nothing) then Dim Memo8090 as String Memo8090 = DepositRet.Memo.GetValue() End If 'Get value of DepositTotal if ( not DepositRet.DepositTotal is nothing) then Dim DepositTotal8091 as Double DepositTotal8091 = DepositRet.DepositTotal.GetValue() End If if (not DepositRet.CurrencyRef. is nothing) then 'Get value of ListID if ( not DepositRet.CurrencyRef.ListID is nothing) then Dim ListID8092 as String ListID8092 = DepositRet.CurrencyRef.ListID.GetValue() End If 'Get value of FullName if ( not DepositRet.CurrencyRef.FullName is nothing) then Dim FullName8093 as String FullName8093 = DepositRet.CurrencyRef.FullName.GetValue() End If End If 'Get value of ExchangeRate if ( not DepositRet.ExchangeRate is nothing) then Dim ExchangeRate8094 as IQBFloatType ExchangeRate8094 = DepositRet.ExchangeRate.GetValue() End If 'Get value of DepositTotalInHomeCurrency if ( not DepositRet.DepositTotalInHomeCurrency is nothing) then Dim DepositTotalInHomeCurrency8095 as Double DepositTotalInHomeCurrency8095 = DepositRet.DepositTotalInHomeCurrency.GetValue() End If if (not DepositRet.CashBackInfoRet. is nothing) then 'Get value of TxnLineID Dim TxnLineID8096 as String TxnLineID8096 = DepositRet.CashBackInfoRet.TxnLineID.GetValue() 'Get value of ListID if ( not DepositRet.CashBackInfoRet.AccountRef.ListID is nothing) then Dim ListID8097 as String ListID8097 = DepositRet.CashBackInfoRet.AccountRef.ListID.GetValue() End If 'Get value of FullName if ( not DepositRet.CashBackInfoRet.AccountRef.FullName is nothing) then Dim FullName8098 as String FullName8098 = DepositRet.CashBackInfoRet.AccountRef.FullName.GetValue() End If 'Get value of Memo if ( not DepositRet.CashBackInfoRet.Memo is nothing) then Dim Memo8099 as String Memo8099 = DepositRet.CashBackInfoRet.Memo.GetValue() End If 'Get value of Amount if ( not DepositRet.CashBackInfoRet.Amount is nothing) then Dim Amount8100 as Double Amount8100 = DepositRet.CashBackInfoRet.Amount.GetValue() End If End If 'Get value of ExternalGUID if ( not DepositRet.ExternalGUID is nothing) then Dim ExternalGUID8101 as String ExternalGUID8101 = DepositRet.ExternalGUID.GetValue() End If if (not DepositRet.DepositLineRetList is nothing) Dim i8102 as Integer for i8102 = 0 to DepositRet.DepositLineRetList.Count - 1 Dim DepositLineRet as IDepositLineRet DepositLineRet = DepositRet.DepositLineRetList.GetAt(i8102) 'Get value of TxnType if ( not DepositLineRetTxnType is nothing) then Dim TxnType8103 as ENTxnType TxnType8103 = DepositLineRetTxnType.GetValue() End If 'Get value of TxnID if ( not DepositLineRetTxnID is nothing) then Dim TxnID8104 as String TxnID8104 = DepositLineRetTxnID.GetValue() End If 'Get value of TxnLineID Dim TxnLineID8105 as String TxnLineID8105 = DepositLineRetTxnLineID.GetValue() 'Get value of PaymentTxnLineID if ( not DepositLineRetPaymentTxnLineID is nothing) then Dim PaymentTxnLineID8106 as String PaymentTxnLineID8106 = DepositLineRetPaymentTxnLineID.GetValue() End If if (not DepositLineRetEntityRef. is nothing) then 'Get value of ListID if ( not DepositLineRetEntityRef.ListID is nothing) then Dim ListID8107 as String ListID8107 = DepositLineRetEntityRef.ListID.GetValue() End If 'Get value of FullName if ( not DepositLineRetEntityRef.FullName is nothing) then Dim FullName8108 as String FullName8108 = DepositLineRetEntityRef.FullName.GetValue() End If End If if (not DepositLineRetAccountRef. is nothing) then 'Get value of ListID if ( not DepositLineRetAccountRef.ListID is nothing) then Dim ListID8109 as String ListID8109 = DepositLineRetAccountRef.ListID.GetValue() End If 'Get value of FullName if ( not DepositLineRetAccountRef.FullName is nothing) then Dim FullName8110 as String FullName8110 = DepositLineRetAccountRef.FullName.GetValue() End If End If 'Get value of Memo if ( not DepositLineRetMemo is nothing) then Dim Memo8111 as String Memo8111 = DepositLineRetMemo.GetValue() End If 'Get value of CheckNumber if ( not DepositLineRetCheckNumber is nothing) then Dim CheckNumber8112 as String CheckNumber8112 = DepositLineRetCheckNumber.GetValue() End If if (not DepositLineRetPaymentMethodRef. is nothing) then 'Get value of ListID if ( not DepositLineRetPaymentMethodRef.ListID is nothing) then Dim ListID8113 as String ListID8113 = DepositLineRetPaymentMethodRef.ListID.GetValue() End If 'Get value of FullName if ( not DepositLineRetPaymentMethodRef.FullName is nothing) then Dim FullName8114 as String FullName8114 = DepositLineRetPaymentMethodRef.FullName.GetValue() End If End If if (not DepositLineRetClassRef. is nothing) then 'Get value of ListID if ( not DepositLineRetClassRef.ListID is nothing) then Dim ListID8115 as String ListID8115 = DepositLineRetClassRef.ListID.GetValue() End If 'Get value of FullName if ( not DepositLineRetClassRef.FullName is nothing) then Dim FullName8116 as String FullName8116 = DepositLineRetClassRef.FullName.GetValue() End If End If 'Get value of Amount if ( not DepositLineRetAmount is nothing) then Dim Amount8117 as Double Amount8117 = DepositLineRetAmount.GetValue() End If Next i8102 End If if (not DepositRet.DataExtRetList is nothing) Dim i8118 as Integer for i8118 = 0 to DepositRet.DataExtRetList.Count - 1 Dim DataExtRet as IDataExtRet DataExtRet = DepositRet.DataExtRetList.GetAt(i8118) 'Get value of OwnerID if ( not DataExtRetOwnerID is nothing) then Dim OwnerID8119 as String OwnerID8119 = DataExtRetOwnerID.GetValue() End If 'Get value of DataExtName Dim DataExtName8120 as String DataExtName8120 = DataExtRetDataExtName.GetValue() 'Get value of DataExtType Dim DataExtType8121 as ENDataExtType DataExtType8121 = DataExtRetDataExtType.GetValue() 'Get value of DataExtValue Dim DataExtValue8122 as String DataExtValue8122 = DataExtRetDataExtValue.GetValue() Next i8118 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 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 | //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 DoDepositMod() { 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; BuildDepositModRq(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; WalkDepositModRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildDepositModRq(IMsgSetRequest requestMsgSet) { IDepositMod DepositModRq= requestMsgSet.AppendDepositModRq(); //Set field value for TxnID DepositModRq.TxnID.SetValue("200000-1011023419"); //Set field value for EditSequence DepositModRq.EditSequence.SetValue("ab"); //Set field value for TxnDate DepositModRq.TxnDate.SetValue(DateTime.Parse("12/15/2007")); //Set field value for ListID DepositModRq.DepositToAccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositModRq.DepositToAccountRef.FullName.SetValue("ab"); //Set field value for Memo DepositModRq.Memo.SetValue("ab"); //Set field value for ListID DepositModRq.CashBackInfoMod.AccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositModRq.CashBackInfoMod.AccountRef.FullName.SetValue("ab"); //Set field value for Memo DepositModRq.CashBackInfoMod.Memo.SetValue("ab"); //Set field value for Amount DepositModRq.CashBackInfoMod.Amount.SetValue(10.01); //Set field value for ListID DepositModRq.CurrencyRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositModRq.CurrencyRef.FullName.SetValue("ab"); //Set field value for ExchangeRate DepositModRq.ExchangeRate.SetValue("IQBFloatType"); IDepositLineMod DepositLineMod8037=DepositModRq.DepositLineModList.Append(); //Set field value for TxnLineID DepositLineMod8037.TxnLineID.SetValue("200000-1011023419"); string ORDepositLineModElementType8038 = "PaymentLine"; if (ORDepositLineModElementType8038 == "PaymentLine") { //Set field value for PaymentTxnID DepositLineMod8037.ORDepositLineMod.PaymentLine.PaymentTxnID.SetValue("200000-1011023419"); //Set attributes //Set field value for useMacro DepositLineMod8037.ORDepositLineMod.PaymentLine.useMacro.SetValue("IQBStringType"); //Set field value for PaymentTxnLineID DepositLineMod8037.ORDepositLineMod.PaymentLine.PaymentTxnLineID.SetValue("200000-1011023419"); //Set attributes //Set field value for useMacro DepositLineMod8037.ORDepositLineMod.PaymentLine.useMacro.SetValue("IQBStringType"); //Set field value for OverrideMemo DepositLineMod8037.ORDepositLineMod.PaymentLine.OverrideMemo.SetValue("ab"); //Set field value for OverrideCheckNumber DepositLineMod8037.ORDepositLineMod.PaymentLine.OverrideCheckNumber.SetValue("ab"); //Set field value for ListID DepositLineMod8037.ORDepositLineMod.PaymentLine.OverrideClassRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositLineMod8037.ORDepositLineMod.PaymentLine.OverrideClassRef.FullName.SetValue("ab"); } if (ORDepositLineModElementType8038 == "DepositInfoMod") { //Set field value for ListID DepositLineMod8037.ORDepositLineMod.DepositInfoMod.EntityRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositLineMod8037.ORDepositLineMod.DepositInfoMod.EntityRef.FullName.SetValue("ab"); //Set field value for ListID DepositLineMod8037.ORDepositLineMod.DepositInfoMod.AccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositLineMod8037.ORDepositLineMod.DepositInfoMod.AccountRef.FullName.SetValue("ab"); //Set field value for Memo DepositLineMod8037.ORDepositLineMod.DepositInfoMod.Memo.SetValue("ab"); //Set field value for CheckNumber DepositLineMod8037.ORDepositLineMod.DepositInfoMod.CheckNumber.SetValue("ab"); //Set field value for ListID DepositLineMod8037.ORDepositLineMod.DepositInfoMod.PaymentMethodRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositLineMod8037.ORDepositLineMod.DepositInfoMod.PaymentMethodRef.FullName.SetValue("ab"); //Set field value for ListID DepositLineMod8037.ORDepositLineMod.DepositInfoMod.ClassRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName DepositLineMod8037.ORDepositLineMod.DepositInfoMod.ClassRef.FullName.SetValue("ab"); //Set field value for Amount DepositLineMod8037.ORDepositLineMod.DepositInfoMod.Amount.SetValue(10.01); } //Set field value for IncludeRetElementList //May create more than one of these if needed DepositModRq.IncludeRetElementList.Add("ab"); } void WalkDepositModRs(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.rtDepositModRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above IDepositRet DepositRet = (IDepositRet)response.Detail; WalkDepositRet(DepositRet); } } } } } void WalkDepositRet(IDepositRet DepositRet) { if (DepositRet == null) return; //Go through all the elements of IDepositRet //Get value of TxnID string TxnID8039 = (string)DepositRet.TxnID.GetValue(); //Get value of TimeCreated DateTime TimeCreated8040 = (DateTime)DepositRet.TimeCreated.GetValue(); //Get value of TimeModified DateTime TimeModified8041 = (DateTime)DepositRet.TimeModified.GetValue(); //Get value of EditSequence string EditSequence8042 = (string)DepositRet.EditSequence.GetValue(); //Get value of TxnNumber if (DepositRet.TxnNumber != null) { int TxnNumber8043 = (int)DepositRet.TxnNumber.GetValue(); } //Get value of TxnDate DateTime TxnDate8044 = (DateTime)DepositRet.TxnDate.GetValue(); //Get value of ListID if (DepositRet.DepositToAccountRef.ListID != null) { string ListID8045 = (string)DepositRet.DepositToAccountRef.ListID.GetValue(); } //Get value of FullName if (DepositRet.DepositToAccountRef.FullName != null) { string FullName8046 = (string)DepositRet.DepositToAccountRef.FullName.GetValue(); } //Get value of Memo if (DepositRet.Memo != null) { string Memo8047 = (string)DepositRet.Memo.GetValue(); } //Get value of DepositTotal if (DepositRet.DepositTotal != null) { double DepositTotal8048 = (double)DepositRet.DepositTotal.GetValue(); } if (DepositRet.CurrencyRef != null) { //Get value of ListID if (DepositRet.CurrencyRef.ListID != null) { string ListID8049 = (string)DepositRet.CurrencyRef.ListID.GetValue(); } //Get value of FullName if (DepositRet.CurrencyRef.FullName != null) { string FullName8050 = (string)DepositRet.CurrencyRef.FullName.GetValue(); } } //Get value of ExchangeRate if (DepositRet.ExchangeRate != null) { IQBFloatType ExchangeRate8051 = (IQBFloatType)DepositRet.ExchangeRate.GetValue(); } //Get value of DepositTotalInHomeCurrency if (DepositRet.DepositTotalInHomeCurrency != null) { double DepositTotalInHomeCurrency8052 = (double)DepositRet.DepositTotalInHomeCurrency.GetValue(); } if (DepositRet.CashBackInfoRet != null) { //Get value of TxnLineID string TxnLineID8053 = (string)DepositRet.CashBackInfoRet.TxnLineID.GetValue(); //Get value of ListID if (DepositRet.CashBackInfoRet.AccountRef.ListID != null) { string ListID8054 = (string)DepositRet.CashBackInfoRet.AccountRef.ListID.GetValue(); } //Get value of FullName if (DepositRet.CashBackInfoRet.AccountRef.FullName != null) { string FullName8055 = (string)DepositRet.CashBackInfoRet.AccountRef.FullName.GetValue(); } //Get value of Memo if (DepositRet.CashBackInfoRet.Memo != null) { string Memo8056 = (string)DepositRet.CashBackInfoRet.Memo.GetValue(); } //Get value of Amount if (DepositRet.CashBackInfoRet.Amount != null) { double Amount8057 = (double)DepositRet.CashBackInfoRet.Amount.GetValue(); } } //Get value of ExternalGUID if (DepositRet.ExternalGUID != null) { string ExternalGUID8058 = (string)DepositRet.ExternalGUID.GetValue(); } if (DepositRet.DepositLineRetList != null) { for (int i8059 = 0; i8059 < DepositRet.DepositLineRetList.Count; i8059++) { IDepositLineRet DepositLineRet = DepositRet.DepositLineRetList.GetAt(i8059); //Get value of TxnType if (DepositLineRet.TxnType != null) { ENTxnType TxnType8060 = (ENTxnType)DepositLineRet.TxnType.GetValue(); } //Get value of TxnID if (DepositLineRet.TxnID != null) { string TxnID8061 = (string)DepositLineRet.TxnID.GetValue(); } //Get value of TxnLineID string TxnLineID8062 = (string)DepositLineRet.TxnLineID.GetValue(); //Get value of PaymentTxnLineID if (DepositLineRet.PaymentTxnLineID != null) { string PaymentTxnLineID8063 = (string)DepositLineRet.PaymentTxnLineID.GetValue(); } if (DepositLineRet.EntityRef != null) { //Get value of ListID if (DepositLineRet.EntityRef.ListID != null) { string ListID8064 = (string)DepositLineRet.EntityRef.ListID.GetValue(); } //Get value of FullName if (DepositLineRet.EntityRef.FullName != null) { string FullName8065 = (string)DepositLineRet.EntityRef.FullName.GetValue(); } } if (DepositLineRet.AccountRef != null) { //Get value of ListID if (DepositLineRet.AccountRef.ListID != null) { string ListID8066 = (string)DepositLineRet.AccountRef.ListID.GetValue(); } //Get value of FullName if (DepositLineRet.AccountRef.FullName != null) { string FullName8067 = (string)DepositLineRet.AccountRef.FullName.GetValue(); } } //Get value of Memo if (DepositLineRet.Memo != null) { string Memo8068 = (string)DepositLineRet.Memo.GetValue(); } //Get value of CheckNumber if (DepositLineRet.CheckNumber != null) { string CheckNumber8069 = (string)DepositLineRet.CheckNumber.GetValue(); } if (DepositLineRet.PaymentMethodRef != null) { //Get value of ListID if (DepositLineRet.PaymentMethodRef.ListID != null) { string ListID8070 = (string)DepositLineRet.PaymentMethodRef.ListID.GetValue(); } //Get value of FullName if (DepositLineRet.PaymentMethodRef.FullName != null) { string FullName8071 = (string)DepositLineRet.PaymentMethodRef.FullName.GetValue(); } } if (DepositLineRet.ClassRef != null) { //Get value of ListID if (DepositLineRet.ClassRef.ListID != null) { string ListID8072 = (string)DepositLineRet.ClassRef.ListID.GetValue(); } //Get value of FullName if (DepositLineRet.ClassRef.FullName != null) { string FullName8073 = (string)DepositLineRet.ClassRef.FullName.GetValue(); } } //Get value of Amount if (DepositLineRet.Amount != null) { double Amount8074 = (double)DepositLineRet.Amount.GetValue(); } } } if (DepositRet.DataExtRetList != null) { for (int i8075 = 0; i8075 < DepositRet.DataExtRetList.Count; i8075++) { IDataExtRet DataExtRet = DepositRet.DataExtRetList.GetAt(i8075); //Get value of OwnerID if (DataExtRet.OwnerID != null) { string OwnerID8076 = (string)DataExtRet.OwnerID.GetValue(); } //Get value of DataExtName string DataExtName8077 = (string)DataExtRet.DataExtName.GetValue(); //Get value of DataExtType ENDataExtType DataExtType8078 = (ENDataExtType)DataExtRet.DataExtType.GetValue(); //Get value of DataExtValue string DataExtValue8079 = (string)DataExtRet.DataExtValue.GetValue(); } } } } } |