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 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 | <?xml version="1.0" encoding="utf-8"?> <?qbxml version="16.0"?> <QBXML> <QBXMLMsgsRq onError="stopOnError"> <ARRefundCreditCardAddRq> <ARRefundCreditCardAdd defMacro="MACROTYPE"> <!-- required --> <CustomerRef> <!-- required --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </CustomerRef> <RefundFromAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </RefundFromAccountRef> <ARAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ARAccountRef> <TxnDate >DATETYPE</TxnDate> <!-- optional --> <RefNumber >STRTYPE</RefNumber> <!-- optional --> <Address> <!-- optional --> <Addr1 >STRTYPE</Addr1> <!-- optional --> <Addr2 >STRTYPE</Addr2> <!-- optional --> <Addr3 >STRTYPE</Addr3> <!-- optional --> <Addr4 >STRTYPE</Addr4> <!-- optional --> <Addr5 >STRTYPE</Addr5> <!-- optional --> <City >STRTYPE</City> <!-- optional --> <State >STRTYPE</State> <!-- optional --> <PostalCode >STRTYPE</PostalCode> <!-- optional --> <Country >STRTYPE</Country> <!-- optional --> <Note >STRTYPE</Note> <!-- optional --> </Address> <PaymentMethodRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </PaymentMethodRef> <Memo >STRTYPE</Memo> <!-- optional --> <CreditCardTxnInfo> <!-- optional --> <CreditCardTxnInputInfo> <!-- required --> <CreditCardNumber >STRTYPE</CreditCardNumber> <!-- required --> <ExpirationMonth >INTTYPE</ExpirationMonth> <!-- required --> <ExpirationYear >INTTYPE</ExpirationYear> <!-- required --> <NameOnCard >STRTYPE</NameOnCard> <!-- required --> <CreditCardAddress >STRTYPE</CreditCardAddress> <!-- optional --> <CreditCardPostalCode >STRTYPE</CreditCardPostalCode> <!-- optional --> <CommercialCardCode >STRTYPE</CommercialCardCode> <!-- optional --> <!-- TransactionMode may have one of the following values: CardNotPresent [DEFAULT], CardPresent --> <TransactionMode >ENUMTYPE</TransactionMode> <!-- optional --> <!-- CreditCardTxnType may have one of the following values: Authorization, Capture, Charge, Refund, VoiceAuthorization --> <CreditCardTxnType >ENUMTYPE</CreditCardTxnType> <!-- optional --> </CreditCardTxnInputInfo> <CreditCardTxnResultInfo> <!-- required --> <ResultCode >INTTYPE</ResultCode> <!-- required --> <ResultMessage >STRTYPE</ResultMessage> <!-- required --> <CreditCardTransID >STRTYPE</CreditCardTransID> <!-- required --> <MerchantAccountNumber >STRTYPE</MerchantAccountNumber> <!-- required --> <AuthorizationCode >STRTYPE</AuthorizationCode> <!-- optional --> <!-- AVSStreet may have one of the following values: Pass, Fail, NotAvailable --> <AVSStreet >ENUMTYPE</AVSStreet> <!-- optional --> <!-- AVSZip may have one of the following values: Pass, Fail, NotAvailable --> <AVSZip >ENUMTYPE</AVSZip> <!-- optional --> <!-- CardSecurityCodeMatch may have one of the following values: Pass, Fail, NotAvailable --> <CardSecurityCodeMatch >ENUMTYPE</CardSecurityCodeMatch> <!-- optional --> <ReconBatchID >STRTYPE</ReconBatchID> <!-- optional --> <PaymentGroupingCode >INTTYPE</PaymentGroupingCode> <!-- optional --> <!-- PaymentStatus may have one of the following values: Unknown, Completed --> <PaymentStatus >ENUMTYPE</PaymentStatus> <!-- required --> <TxnAuthorizationTime >DATETIMETYPE</TxnAuthorizationTime> <!-- required --> <TxnAuthorizationStamp >INTTYPE</TxnAuthorizationStamp> <!-- optional --> <ClientTransID >STRTYPE</ClientTransID> <!-- optional --> </CreditCardTxnResultInfo> </CreditCardTxnInfo> <ExchangeRate >FLOATTYPE</ExchangeRate> <!-- optional --> <ExternalGUID >GUIDTYPE</ExternalGUID> <!-- optional --> <RefundAppliedToTxnAdd> <!-- required, may repeat --> <TxnID useMacro="MACROTYPE">IDTYPE</TxnID> <!-- required --> <RefundAmount >AMTTYPE</RefundAmount> <!-- required --> </RefundAppliedToTxnAdd> </ARRefundCreditCardAdd> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </ARRefundCreditCardAddRq> <ARRefundCreditCardAddRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <ARRefundCreditCardRet> <!-- optional --> <TxnID >IDTYPE</TxnID> <!-- optional --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- optional --> <TimeModified >DATETIMETYPE</TimeModified> <!-- optional --> <EditSequence >STRTYPE</EditSequence> <!-- optional --> <TxnNumber >INTTYPE</TxnNumber> <!-- optional --> <CustomerRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </CustomerRef> <RefundFromAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </RefundFromAccountRef> <ARAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ARAccountRef> <TxnDate >DATETYPE</TxnDate> <!-- optional --> <RefNumber >STRTYPE</RefNumber> <!-- optional --> <TotalAmount >AMTTYPE</TotalAmount> <!-- optional --> <CurrencyRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </CurrencyRef> <ExchangeRate >FLOATTYPE</ExchangeRate> <!-- optional --> <TotalAmountInHomeCurrency >AMTTYPE</TotalAmountInHomeCurrency> <!-- optional --> <Address> <!-- optional --> <Addr1 >STRTYPE</Addr1> <!-- optional --> <Addr2 >STRTYPE</Addr2> <!-- optional --> <Addr3 >STRTYPE</Addr3> <!-- optional --> <Addr4 >STRTYPE</Addr4> <!-- optional --> <Addr5 >STRTYPE</Addr5> <!-- optional --> <City >STRTYPE</City> <!-- optional --> <State >STRTYPE</State> <!-- optional --> <PostalCode >STRTYPE</PostalCode> <!-- optional --> <Country >STRTYPE</Country> <!-- optional --> <Note >STRTYPE</Note> <!-- optional --> </Address> <AddressBlock> <!-- optional --> <Addr1 >STRTYPE</Addr1> <!-- optional --> <Addr2 >STRTYPE</Addr2> <!-- optional --> <Addr3 >STRTYPE</Addr3> <!-- optional --> <Addr4 >STRTYPE</Addr4> <!-- optional --> <Addr5 >STRTYPE</Addr5> <!-- optional --> </AddressBlock> <PaymentMethodRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </PaymentMethodRef> <Memo >STRTYPE</Memo> <!-- optional --> <CreditCardTxnInfo> <!-- optional --> <CreditCardTxnInputInfo> <!-- required --> <CreditCardNumber >STRTYPE</CreditCardNumber> <!-- required --> <ExpirationMonth >INTTYPE</ExpirationMonth> <!-- required --> <ExpirationYear >INTTYPE</ExpirationYear> <!-- required --> <NameOnCard >STRTYPE</NameOnCard> <!-- required --> <CreditCardAddress >STRTYPE</CreditCardAddress> <!-- optional --> <CreditCardPostalCode >STRTYPE</CreditCardPostalCode> <!-- optional --> <CommercialCardCode >STRTYPE</CommercialCardCode> <!-- optional --> <!-- TransactionMode may have one of the following values: CardNotPresent [DEFAULT], CardPresent --> <TransactionMode >ENUMTYPE</TransactionMode> <!-- optional --> <!-- CreditCardTxnType may have one of the following values: Authorization, Capture, Charge, Refund, VoiceAuthorization --> <CreditCardTxnType >ENUMTYPE</CreditCardTxnType> <!-- optional --> </CreditCardTxnInputInfo> <CreditCardTxnResultInfo> <!-- required --> <ResultCode >INTTYPE</ResultCode> <!-- required --> <ResultMessage >STRTYPE</ResultMessage> <!-- required --> <CreditCardTransID >STRTYPE</CreditCardTransID> <!-- required --> <MerchantAccountNumber >STRTYPE</MerchantAccountNumber> <!-- required --> <AuthorizationCode >STRTYPE</AuthorizationCode> <!-- optional --> <!-- AVSStreet may have one of the following values: Pass, Fail, NotAvailable --> <AVSStreet >ENUMTYPE</AVSStreet> <!-- optional --> <!-- AVSZip may have one of the following values: Pass, Fail, NotAvailable --> <AVSZip >ENUMTYPE</AVSZip> <!-- optional --> <!-- CardSecurityCodeMatch may have one of the following values: Pass, Fail, NotAvailable --> <CardSecurityCodeMatch >ENUMTYPE</CardSecurityCodeMatch> <!-- optional --> <ReconBatchID >STRTYPE</ReconBatchID> <!-- optional --> <PaymentGroupingCode >INTTYPE</PaymentGroupingCode> <!-- optional --> <!-- PaymentStatus may have one of the following values: Unknown, Completed --> <PaymentStatus >ENUMTYPE</PaymentStatus> <!-- required --> <TxnAuthorizationTime >DATETIMETYPE</TxnAuthorizationTime> <!-- required --> <TxnAuthorizationStamp >INTTYPE</TxnAuthorizationStamp> <!-- optional --> <ClientTransID >STRTYPE</ClientTransID> <!-- optional --> </CreditCardTxnResultInfo> </CreditCardTxnInfo> <ExternalGUID >GUIDTYPE</ExternalGUID> <!-- optional --> <RefundAppliedToTxnRet> <!-- optional, may repeat --> <TxnID >IDTYPE</TxnID> <!-- required --> <!-- 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> <!-- required --> <TxnDate >DATETYPE</TxnDate> <!-- required --> <RefNumber >STRTYPE</RefNumber> <!-- optional --> <CreditRemaining >AMTTYPE</CreditRemaining> <!-- required --> <RefundAmount >AMTTYPE</RefundAmount> <!-- required --> <CreditRemainingInHomeCurrency >AMTTYPE</CreditRemainingInHomeCurrency> <!-- optional --> <RefundAmountInHomeCurrency >AMTTYPE</RefundAmountInHomeCurrency> <!-- optional --> </RefundAppliedToTxnRet> <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> </ARRefundCreditCardRet> <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> </ARRefundCreditCardAddRs> </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 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 | '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 DoARRefundCreditCardAdd() 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 BuildARRefundCreditCardAddRq(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 WalkARRefundCreditCardAddRs(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 BuildARRefundCreditCardAddRq(requestMsgSet as IMsgSetRequest) Dim ARRefundCreditCardAddRq as IARRefundCreditCardAdd ARRefundCreditCardAddRq= requestMsgSet.AppendARRefundCreditCardAddRq() 'Set field value for ListID ARRefundCreditCardAddRq.CustomerRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName ARRefundCreditCardAddRq.CustomerRef.FullName.SetValue("ab") 'Set field value for ListID ARRefundCreditCardAddRq.RefundFromAccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName ARRefundCreditCardAddRq.RefundFromAccountRef.FullName.SetValue("ab") 'Set field value for ListID ARRefundCreditCardAddRq.ARAccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName ARRefundCreditCardAddRq.ARAccountRef.FullName.SetValue("ab") 'Set field value for TxnDate ARRefundCreditCardAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007")) 'Set field value for RefNumber ARRefundCreditCardAddRq.RefNumber.SetValue("ab") 'Set field value for Addr1 ARRefundCreditCardAddRq.Address.Addr1.SetValue("ab") 'Set field value for Addr2 ARRefundCreditCardAddRq.Address.Addr2.SetValue("ab") 'Set field value for Addr3 ARRefundCreditCardAddRq.Address.Addr3.SetValue("ab") 'Set field value for Addr4 ARRefundCreditCardAddRq.Address.Addr4.SetValue("ab") 'Set field value for Addr5 ARRefundCreditCardAddRq.Address.Addr5.SetValue("ab") 'Set field value for City ARRefundCreditCardAddRq.Address.City.SetValue("ab") 'Set field value for State ARRefundCreditCardAddRq.Address.State.SetValue("ab") 'Set field value for PostalCode ARRefundCreditCardAddRq.Address.PostalCode.SetValue("ab") 'Set field value for Country ARRefundCreditCardAddRq.Address.Country.SetValue("ab") 'Set field value for Note ARRefundCreditCardAddRq.Address.Note.SetValue("ab") 'Set field value for ListID ARRefundCreditCardAddRq.PaymentMethodRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName ARRefundCreditCardAddRq.PaymentMethodRef.FullName.SetValue("ab") 'Set field value for Memo ARRefundCreditCardAddRq.Memo.SetValue("ab") 'Set field value for CreditCardNumber ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardNumber.SetValue("ab") 'Set field value for ExpirationMonth ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationMonth.SetValue(6) 'Set field value for ExpirationYear ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationYear.SetValue(6) 'Set field value for NameOnCard ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.NameOnCard.SetValue("ab") 'Set field value for CreditCardAddress ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardAddress.SetValue("ab") 'Set field value for CreditCardPostalCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardPostalCode.SetValue("ab") 'Set field value for CommercialCardCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CommercialCardCode.SetValue("ab") 'Set field value for TransactionMode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.TransactionMode.SetValue(ENTransactionMode.tmCardNotPresent [DEFAULT]) 'Set field value for CreditCardTxnType ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardTxnType.SetValue(ENCreditCardTxnType.ccttAuthorization) 'Set field value for ResultCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultCode.SetValue(6) 'Set field value for ResultMessage ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultMessage.SetValue("ab") 'Set field value for CreditCardTransID ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.CreditCardTransID.SetValue("ab") 'Set field value for MerchantAccountNumber ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.MerchantAccountNumber.SetValue("ab") 'Set field value for AuthorizationCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.AuthorizationCode.SetValue("ab") 'Set field value for AVSStreet ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSStreet.SetValue(ENAVSStreet.avssPass) 'Set field value for AVSZip ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSZip.SetValue(ENAVSZip.avszPass) 'Set field value for CardSecurityCodeMatch ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.CardSecurityCodeMatch.SetValue(ENCardSecurityCodeMatch.cscmPass) 'Set field value for ReconBatchID ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ReconBatchID.SetValue("ab") 'Set field value for PaymentGroupingCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentGroupingCode.SetValue(6) 'Set field value for PaymentStatus ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentStatus.SetValue(ENPaymentStatus.pssUnknown) 'Set field value for TxnAuthorizationTime ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationTime.SetValue(DateTime.Parse("12/15/2007 12:15:12"),false) 'Set field value for TxnAuthorizationStamp ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationStamp.SetValue(6) 'Set field value for ClientTransID ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ClientTransID.SetValue("ab") 'Set field value for ExchangeRate ARRefundCreditCardAddRq.ExchangeRate.SetValue("IQBFloatType") 'Set field value for ExternalGUID ARRefundCreditCardAddRq.ExternalGUID.SetValue(System.Guid.NewGuid().ToString()) Dim RefundAppliedToTxnAdd76 as IRefundAppliedToTxnAdd RefundAppliedToTxnAdd76=ARRefundCreditCardAddRq.RefundAppliedToTxnAddList.Append() 'Set field value for TxnID RefundAppliedToTxnAdd76.TxnID.SetValue("200000-1011023419") 'Set attributes 'Set field value for useMacro RefundAppliedToTxnAdd76.useMacro.SetValue("IQBStringType") 'Set field value for RefundAmount RefundAppliedToTxnAdd76.RefundAmount.SetValue(10.01) 'Set field value for IncludeRetElementList 'May create more than one of these if needed ARRefundCreditCardAddRq.IncludeRetElementList.Add("ab") End Sub Public Sub WalkARRefundCreditCardAddRs( 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.rtARRefundCreditCardAddRs) then 'upcast to more specific type here, this is safe because we checked with response.Type check above Dim ARRefundCreditCardRet as IARRefundCreditCardRet ARRefundCreditCardRet = CType(response.Detail,IARRefundCreditCardRet) WalkARRefundCreditCardRet(ARRefundCreditCardRet) End If End If End If Next j End Sub Public Sub WalkARRefundCreditCardRet(ARRefundCreditCardRet as IARRefundCreditCardRet) if (ARRefundCreditCardRet is nothing) then Exit Sub End If 'Go through all the elements of IARRefundCreditCardRet 'Get value of TxnID if ( not ARRefundCreditCardRet.TxnID is nothing) then Dim TxnID77 as String TxnID77 = ARRefundCreditCardRet.TxnID.GetValue() End If 'Get value of TimeCreated if ( not ARRefundCreditCardRet.TimeCreated is nothing) then Dim TimeCreated78 as DateTime TimeCreated78 = ARRefundCreditCardRet.TimeCreated.GetValue() End If 'Get value of TimeModified if ( not ARRefundCreditCardRet.TimeModified is nothing) then Dim TimeModified79 as DateTime TimeModified79 = ARRefundCreditCardRet.TimeModified.GetValue() End If 'Get value of EditSequence if ( not ARRefundCreditCardRet.EditSequence is nothing) then Dim EditSequence80 as String EditSequence80 = ARRefundCreditCardRet.EditSequence.GetValue() End If 'Get value of TxnNumber if ( not ARRefundCreditCardRet.TxnNumber is nothing) then Dim TxnNumber81 as Integer TxnNumber81 = ARRefundCreditCardRet.TxnNumber.GetValue() End If if (not ARRefundCreditCardRet.CustomerRef. is nothing) then 'Get value of ListID if ( not ARRefundCreditCardRet.CustomerRef.ListID is nothing) then Dim ListID82 as String ListID82 = ARRefundCreditCardRet.CustomerRef.ListID.GetValue() End If 'Get value of FullName if ( not ARRefundCreditCardRet.CustomerRef.FullName is nothing) then Dim FullName83 as String FullName83 = ARRefundCreditCardRet.CustomerRef.FullName.GetValue() End If End If if (not ARRefundCreditCardRet.RefundFromAccountRef. is nothing) then 'Get value of ListID if ( not ARRefundCreditCardRet.RefundFromAccountRef.ListID is nothing) then Dim ListID84 as String ListID84 = ARRefundCreditCardRet.RefundFromAccountRef.ListID.GetValue() End If 'Get value of FullName if ( not ARRefundCreditCardRet.RefundFromAccountRef.FullName is nothing) then Dim FullName85 as String FullName85 = ARRefundCreditCardRet.RefundFromAccountRef.FullName.GetValue() End If End If if (not ARRefundCreditCardRet.ARAccountRef. is nothing) then 'Get value of ListID if ( not ARRefundCreditCardRet.ARAccountRef.ListID is nothing) then Dim ListID86 as String ListID86 = ARRefundCreditCardRet.ARAccountRef.ListID.GetValue() End If 'Get value of FullName if ( not ARRefundCreditCardRet.ARAccountRef.FullName is nothing) then Dim FullName87 as String FullName87 = ARRefundCreditCardRet.ARAccountRef.FullName.GetValue() End If End If 'Get value of TxnDate if ( not ARRefundCreditCardRet.TxnDate is nothing) then Dim TxnDate88 as DateTime TxnDate88 = ARRefundCreditCardRet.TxnDate.GetValue() End If 'Get value of RefNumber if ( not ARRefundCreditCardRet.RefNumber is nothing) then Dim RefNumber89 as String RefNumber89 = ARRefundCreditCardRet.RefNumber.GetValue() End If 'Get value of TotalAmount if ( not ARRefundCreditCardRet.TotalAmount is nothing) then Dim TotalAmount90 as Double TotalAmount90 = ARRefundCreditCardRet.TotalAmount.GetValue() End If if (not ARRefundCreditCardRet.CurrencyRef. is nothing) then 'Get value of ListID if ( not ARRefundCreditCardRet.CurrencyRef.ListID is nothing) then Dim ListID91 as String ListID91 = ARRefundCreditCardRet.CurrencyRef.ListID.GetValue() End If 'Get value of FullName if ( not ARRefundCreditCardRet.CurrencyRef.FullName is nothing) then Dim FullName92 as String FullName92 = ARRefundCreditCardRet.CurrencyRef.FullName.GetValue() End If End If 'Get value of ExchangeRate if ( not ARRefundCreditCardRet.ExchangeRate is nothing) then Dim ExchangeRate93 as IQBFloatType ExchangeRate93 = ARRefundCreditCardRet.ExchangeRate.GetValue() End If 'Get value of TotalAmountInHomeCurrency if ( not ARRefundCreditCardRet.TotalAmountInHomeCurrency is nothing) then Dim TotalAmountInHomeCurrency94 as Double TotalAmountInHomeCurrency94 = ARRefundCreditCardRet.TotalAmountInHomeCurrency.GetValue() End If if (not ARRefundCreditCardRet.Address. is nothing) then 'Get value of Addr1 if ( not ARRefundCreditCardRet.Address.Addr1 is nothing) then Dim Addr195 as String Addr195 = ARRefundCreditCardRet.Address.Addr1.GetValue() End If 'Get value of Addr2 if ( not ARRefundCreditCardRet.Address.Addr2 is nothing) then Dim Addr296 as String Addr296 = ARRefundCreditCardRet.Address.Addr2.GetValue() End If 'Get value of Addr3 if ( not ARRefundCreditCardRet.Address.Addr3 is nothing) then Dim Addr397 as String Addr397 = ARRefundCreditCardRet.Address.Addr3.GetValue() End If 'Get value of Addr4 if ( not ARRefundCreditCardRet.Address.Addr4 is nothing) then Dim Addr498 as String Addr498 = ARRefundCreditCardRet.Address.Addr4.GetValue() End If 'Get value of Addr5 if ( not ARRefundCreditCardRet.Address.Addr5 is nothing) then Dim Addr599 as String Addr599 = ARRefundCreditCardRet.Address.Addr5.GetValue() End If 'Get value of City if ( not ARRefundCreditCardRet.Address.City is nothing) then Dim City100 as String City100 = ARRefundCreditCardRet.Address.City.GetValue() End If 'Get value of State if ( not ARRefundCreditCardRet.Address.State is nothing) then Dim State101 as String State101 = ARRefundCreditCardRet.Address.State.GetValue() End If 'Get value of PostalCode if ( not ARRefundCreditCardRet.Address.PostalCode is nothing) then Dim PostalCode102 as String PostalCode102 = ARRefundCreditCardRet.Address.PostalCode.GetValue() End If 'Get value of Country if ( not ARRefundCreditCardRet.Address.Country is nothing) then Dim Country103 as String Country103 = ARRefundCreditCardRet.Address.Country.GetValue() End If 'Get value of Note if ( not ARRefundCreditCardRet.Address.Note is nothing) then Dim Note104 as String Note104 = ARRefundCreditCardRet.Address.Note.GetValue() End If End If if (not ARRefundCreditCardRet.AddressBlock. is nothing) then 'Get value of Addr1 if ( not ARRefundCreditCardRet.AddressBlock.Addr1 is nothing) then Dim Addr1105 as String Addr1105 = ARRefundCreditCardRet.AddressBlock.Addr1.GetValue() End If 'Get value of Addr2 if ( not ARRefundCreditCardRet.AddressBlock.Addr2 is nothing) then Dim Addr2106 as String Addr2106 = ARRefundCreditCardRet.AddressBlock.Addr2.GetValue() End If 'Get value of Addr3 if ( not ARRefundCreditCardRet.AddressBlock.Addr3 is nothing) then Dim Addr3107 as String Addr3107 = ARRefundCreditCardRet.AddressBlock.Addr3.GetValue() End If 'Get value of Addr4 if ( not ARRefundCreditCardRet.AddressBlock.Addr4 is nothing) then Dim Addr4108 as String Addr4108 = ARRefundCreditCardRet.AddressBlock.Addr4.GetValue() End If 'Get value of Addr5 if ( not ARRefundCreditCardRet.AddressBlock.Addr5 is nothing) then Dim Addr5109 as String Addr5109 = ARRefundCreditCardRet.AddressBlock.Addr5.GetValue() End If End If if (not ARRefundCreditCardRet.PaymentMethodRef. is nothing) then 'Get value of ListID if ( not ARRefundCreditCardRet.PaymentMethodRef.ListID is nothing) then Dim ListID110 as String ListID110 = ARRefundCreditCardRet.PaymentMethodRef.ListID.GetValue() End If 'Get value of FullName if ( not ARRefundCreditCardRet.PaymentMethodRef.FullName is nothing) then Dim FullName111 as String FullName111 = ARRefundCreditCardRet.PaymentMethodRef.FullName.GetValue() End If End If 'Get value of Memo if ( not ARRefundCreditCardRet.Memo is nothing) then Dim Memo112 as String Memo112 = ARRefundCreditCardRet.Memo.GetValue() End If if (not ARRefundCreditCardRet.CreditCardTxnInfo. is nothing) then 'Get value of CreditCardNumber Dim CreditCardNumber113 as String CreditCardNumber113 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardNumber.GetValue() 'Get value of ExpirationMonth Dim ExpirationMonth114 as Integer ExpirationMonth114 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationMonth.GetValue() 'Get value of ExpirationYear Dim ExpirationYear115 as Integer ExpirationYear115 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationYear.GetValue() 'Get value of NameOnCard Dim NameOnCard116 as String NameOnCard116 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.NameOnCard.GetValue() 'Get value of CreditCardAddress if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardAddress is nothing) then Dim CreditCardAddress117 as String CreditCardAddress117 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardAddress.GetValue() End If 'Get value of CreditCardPostalCode if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardPostalCode is nothing) then Dim CreditCardPostalCode118 as String CreditCardPostalCode118 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardPostalCode.GetValue() End If 'Get value of CommercialCardCode if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CommercialCardCode is nothing) then Dim CommercialCardCode119 as String CommercialCardCode119 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CommercialCardCode.GetValue() End If 'Get value of TransactionMode if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.TransactionMode is nothing) then Dim TransactionMode120 as ENTransactionMode TransactionMode120 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.TransactionMode.GetValue() End If 'Get value of CreditCardTxnType if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardTxnType is nothing) then Dim CreditCardTxnType121 as ENCreditCardTxnType CreditCardTxnType121 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardTxnType.GetValue() End If 'Get value of ResultCode Dim ResultCode122 as Integer ResultCode122 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultCode.GetValue() 'Get value of ResultMessage Dim ResultMessage123 as String ResultMessage123 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultMessage.GetValue() 'Get value of CreditCardTransID Dim CreditCardTransID124 as String CreditCardTransID124 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.CreditCardTransID.GetValue() 'Get value of MerchantAccountNumber Dim MerchantAccountNumber125 as String MerchantAccountNumber125 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.MerchantAccountNumber.GetValue() 'Get value of AuthorizationCode if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AuthorizationCode is nothing) then Dim AuthorizationCode126 as String AuthorizationCode126 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AuthorizationCode.GetValue() End If 'Get value of AVSStreet if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSStreet is nothing) then Dim AVSStreet127 as ENAVSStreet AVSStreet127 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSStreet.GetValue() End If 'Get value of AVSZip if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSZip is nothing) then Dim AVSZip128 as ENAVSZip AVSZip128 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSZip.GetValue() End If 'Get value of CardSecurityCodeMatch if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.CardSecurityCodeMatch is nothing) then Dim CardSecurityCodeMatch129 as ENCardSecurityCodeMatch CardSecurityCodeMatch129 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.CardSecurityCodeMatch.GetValue() End If 'Get value of ReconBatchID if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ReconBatchID is nothing) then Dim ReconBatchID130 as String ReconBatchID130 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ReconBatchID.GetValue() End If 'Get value of PaymentGroupingCode if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentGroupingCode is nothing) then Dim PaymentGroupingCode131 as Integer PaymentGroupingCode131 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentGroupingCode.GetValue() End If 'Get value of PaymentStatus Dim PaymentStatus132 as ENPaymentStatus PaymentStatus132 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentStatus.GetValue() 'Get value of TxnAuthorizationTime Dim TxnAuthorizationTime133 as DateTime TxnAuthorizationTime133 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationTime.GetValue() 'Get value of TxnAuthorizationStamp if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationStamp is nothing) then Dim TxnAuthorizationStamp134 as Integer TxnAuthorizationStamp134 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationStamp.GetValue() End If 'Get value of ClientTransID if ( not ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ClientTransID is nothing) then Dim ClientTransID135 as String ClientTransID135 = ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ClientTransID.GetValue() End If End If 'Get value of ExternalGUID if ( not ARRefundCreditCardRet.ExternalGUID is nothing) then Dim ExternalGUID136 as String ExternalGUID136 = ARRefundCreditCardRet.ExternalGUID.GetValue() End If if (not ARRefundCreditCardRet.RefundAppliedToTxnRetList is nothing) Dim i137 as Integer for i137 = 0 to ARRefundCreditCardRet.RefundAppliedToTxnRetList.Count - 1 Dim RefundAppliedToTxnRet as IRefundAppliedToTxnRet RefundAppliedToTxnRet = ARRefundCreditCardRet.RefundAppliedToTxnRetList.GetAt(i137) 'Get value of TxnID Dim TxnID138 as String TxnID138 = RefundAppliedToTxnRetTxnID.GetValue() 'Get value of TxnType Dim TxnType139 as ENTxnType TxnType139 = RefundAppliedToTxnRetTxnType.GetValue() 'Get value of TxnDate Dim TxnDate140 as DateTime TxnDate140 = RefundAppliedToTxnRetTxnDate.GetValue() 'Get value of RefNumber if ( not RefundAppliedToTxnRetRefNumber is nothing) then Dim RefNumber141 as String RefNumber141 = RefundAppliedToTxnRetRefNumber.GetValue() End If 'Get value of CreditRemaining Dim CreditRemaining142 as Double CreditRemaining142 = RefundAppliedToTxnRetCreditRemaining.GetValue() 'Get value of RefundAmount Dim RefundAmount143 as Double RefundAmount143 = RefundAppliedToTxnRetRefundAmount.GetValue() 'Get value of CreditRemainingInHomeCurrency if ( not RefundAppliedToTxnRetCreditRemainingInHomeCurrency is nothing) then Dim CreditRemainingInHomeCurrency144 as Double CreditRemainingInHomeCurrency144 = RefundAppliedToTxnRetCreditRemainingInHomeCurrency.GetValue() End If 'Get value of RefundAmountInHomeCurrency if ( not RefundAppliedToTxnRetRefundAmountInHomeCurrency is nothing) then Dim RefundAmountInHomeCurrency145 as Double RefundAmountInHomeCurrency145 = RefundAppliedToTxnRetRefundAmountInHomeCurrency.GetValue() End If Next i137 End If if (not ARRefundCreditCardRet.DataExtRetList is nothing) Dim i146 as Integer for i146 = 0 to ARRefundCreditCardRet.DataExtRetList.Count - 1 Dim DataExtRet as IDataExtRet DataExtRet = ARRefundCreditCardRet.DataExtRetList.GetAt(i146) 'Get value of OwnerID if ( not DataExtRetOwnerID is nothing) then Dim OwnerID147 as String OwnerID147 = DataExtRetOwnerID.GetValue() End If 'Get value of DataExtName Dim DataExtName148 as String DataExtName148 = DataExtRetDataExtName.GetValue() 'Get value of DataExtType Dim DataExtType149 as ENDataExtType DataExtType149 = DataExtRetDataExtType.GetValue() 'Get value of DataExtValue Dim DataExtValue150 as String DataExtValue150 = DataExtRetDataExtValue.GetValue() Next i146 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 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 | //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 DoARRefundCreditCardAdd() { 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; BuildARRefundCreditCardAddRq(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; WalkARRefundCreditCardAddRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildARRefundCreditCardAddRq(IMsgSetRequest requestMsgSet) { IARRefundCreditCardAdd ARRefundCreditCardAddRq= requestMsgSet.AppendARRefundCreditCardAddRq(); //Set attributes //Set field value for defMacro ARRefundCreditCardAddRq.defMacro.SetValue("IQBStringType"); //Set field value for ListID ARRefundCreditCardAddRq.CustomerRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName ARRefundCreditCardAddRq.CustomerRef.FullName.SetValue("ab"); //Set field value for ListID ARRefundCreditCardAddRq.RefundFromAccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName ARRefundCreditCardAddRq.RefundFromAccountRef.FullName.SetValue("ab"); //Set field value for ListID ARRefundCreditCardAddRq.ARAccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName ARRefundCreditCardAddRq.ARAccountRef.FullName.SetValue("ab"); //Set field value for TxnDate ARRefundCreditCardAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007")); //Set field value for RefNumber ARRefundCreditCardAddRq.RefNumber.SetValue("ab"); //Set field value for Addr1 ARRefundCreditCardAddRq.Address.Addr1.SetValue("ab"); //Set field value for Addr2 ARRefundCreditCardAddRq.Address.Addr2.SetValue("ab"); //Set field value for Addr3 ARRefundCreditCardAddRq.Address.Addr3.SetValue("ab"); //Set field value for Addr4 ARRefundCreditCardAddRq.Address.Addr4.SetValue("ab"); //Set field value for Addr5 ARRefundCreditCardAddRq.Address.Addr5.SetValue("ab"); //Set field value for City ARRefundCreditCardAddRq.Address.City.SetValue("ab"); //Set field value for State ARRefundCreditCardAddRq.Address.State.SetValue("ab"); //Set field value for PostalCode ARRefundCreditCardAddRq.Address.PostalCode.SetValue("ab"); //Set field value for Country ARRefundCreditCardAddRq.Address.Country.SetValue("ab"); //Set field value for Note ARRefundCreditCardAddRq.Address.Note.SetValue("ab"); //Set field value for ListID ARRefundCreditCardAddRq.PaymentMethodRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName ARRefundCreditCardAddRq.PaymentMethodRef.FullName.SetValue("ab"); //Set field value for Memo ARRefundCreditCardAddRq.Memo.SetValue("ab"); //Set field value for CreditCardNumber ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardNumber.SetValue("ab"); //Set field value for ExpirationMonth ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationMonth.SetValue(6); //Set field value for ExpirationYear ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationYear.SetValue(6); //Set field value for NameOnCard ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.NameOnCard.SetValue("ab"); //Set field value for CreditCardAddress ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardAddress.SetValue("ab"); //Set field value for CreditCardPostalCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardPostalCode.SetValue("ab"); //Set field value for CommercialCardCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CommercialCardCode.SetValue("ab"); //Set field value for TransactionMode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.TransactionMode.SetValue(ENTransactionMode.tmCardNotPresent [DEFAULT]); //Set field value for CreditCardTxnType ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardTxnType.SetValue(ENCreditCardTxnType.ccttAuthorization); //Set field value for ResultCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultCode.SetValue(6); //Set field value for ResultMessage ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultMessage.SetValue("ab"); //Set field value for CreditCardTransID ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.CreditCardTransID.SetValue("ab"); //Set field value for MerchantAccountNumber ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.MerchantAccountNumber.SetValue("ab"); //Set field value for AuthorizationCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.AuthorizationCode.SetValue("ab"); //Set field value for AVSStreet ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSStreet.SetValue(ENAVSStreet.avssPass); //Set field value for AVSZip ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSZip.SetValue(ENAVSZip.avszPass); //Set field value for CardSecurityCodeMatch ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.CardSecurityCodeMatch.SetValue(ENCardSecurityCodeMatch.cscmPass); //Set field value for ReconBatchID ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ReconBatchID.SetValue("ab"); //Set field value for PaymentGroupingCode ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentGroupingCode.SetValue(6); //Set field value for PaymentStatus ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentStatus.SetValue(ENPaymentStatus.pssUnknown); //Set field value for TxnAuthorizationTime ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationTime.SetValue(DateTime.Parse("12/15/2007 12:15:12"),false); //Set field value for TxnAuthorizationStamp ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationStamp.SetValue(6); //Set field value for ClientTransID ARRefundCreditCardAddRq.CreditCardTxnInfo.CreditCardTxnResultInfo.ClientTransID.SetValue("ab"); //Set field value for ExchangeRate ARRefundCreditCardAddRq.ExchangeRate.SetValue("IQBFloatType"); //Set field value for ExternalGUID ARRefundCreditCardAddRq.ExternalGUID.SetValue(Guid.NewGuid().ToString()); IRefundAppliedToTxnAdd RefundAppliedToTxnAdd1=ARRefundCreditCardAddRq.RefundAppliedToTxnAddList.Append(); //Set field value for TxnID RefundAppliedToTxnAdd1.TxnID.SetValue("200000-1011023419"); //Set attributes //Set field value for useMacro RefundAppliedToTxnAdd1.useMacro.SetValue("IQBStringType"); //Set field value for RefundAmount RefundAppliedToTxnAdd1.RefundAmount.SetValue(10.01); //Set field value for IncludeRetElementList //May create more than one of these if needed ARRefundCreditCardAddRq.IncludeRetElementList.Add("ab"); } void WalkARRefundCreditCardAddRs(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.rtARRefundCreditCardAddRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above IARRefundCreditCardRet ARRefundCreditCardRet = (IARRefundCreditCardRet)response.Detail; WalkARRefundCreditCardRet(ARRefundCreditCardRet); } } } } } void WalkARRefundCreditCardRet(IARRefundCreditCardRet ARRefundCreditCardRet) { if (ARRefundCreditCardRet == null) return; //Go through all the elements of IARRefundCreditCardRet //Get value of TxnID if (ARRefundCreditCardRet.TxnID != null) { string TxnID2 = (string)ARRefundCreditCardRet.TxnID.GetValue(); } //Get value of TimeCreated if (ARRefundCreditCardRet.TimeCreated != null) { DateTime TimeCreated3 = (DateTime)ARRefundCreditCardRet.TimeCreated.GetValue(); } //Get value of TimeModified if (ARRefundCreditCardRet.TimeModified != null) { DateTime TimeModified4 = (DateTime)ARRefundCreditCardRet.TimeModified.GetValue(); } //Get value of EditSequence if (ARRefundCreditCardRet.EditSequence != null) { string EditSequence5 = (string)ARRefundCreditCardRet.EditSequence.GetValue(); } //Get value of TxnNumber if (ARRefundCreditCardRet.TxnNumber != null) { int TxnNumber6 = (int)ARRefundCreditCardRet.TxnNumber.GetValue(); } if (ARRefundCreditCardRet.CustomerRef != null) { //Get value of ListID if (ARRefundCreditCardRet.CustomerRef.ListID != null) { string ListID7 = (string)ARRefundCreditCardRet.CustomerRef.ListID.GetValue(); } //Get value of FullName if (ARRefundCreditCardRet.CustomerRef.FullName != null) { string FullName8 = (string)ARRefundCreditCardRet.CustomerRef.FullName.GetValue(); } } if (ARRefundCreditCardRet.RefundFromAccountRef != null) { //Get value of ListID if (ARRefundCreditCardRet.RefundFromAccountRef.ListID != null) { string ListID9 = (string)ARRefundCreditCardRet.RefundFromAccountRef.ListID.GetValue(); } //Get value of FullName if (ARRefundCreditCardRet.RefundFromAccountRef.FullName != null) { string FullName10 = (string)ARRefundCreditCardRet.RefundFromAccountRef.FullName.GetValue(); } } if (ARRefundCreditCardRet.ARAccountRef != null) { //Get value of ListID if (ARRefundCreditCardRet.ARAccountRef.ListID != null) { string ListID11 = (string)ARRefundCreditCardRet.ARAccountRef.ListID.GetValue(); } //Get value of FullName if (ARRefundCreditCardRet.ARAccountRef.FullName != null) { string FullName12 = (string)ARRefundCreditCardRet.ARAccountRef.FullName.GetValue(); } } //Get value of TxnDate if (ARRefundCreditCardRet.TxnDate != null) { DateTime TxnDate13 = (DateTime)ARRefundCreditCardRet.TxnDate.GetValue(); } //Get value of RefNumber if (ARRefundCreditCardRet.RefNumber != null) { string RefNumber14 = (string)ARRefundCreditCardRet.RefNumber.GetValue(); } //Get value of TotalAmount if (ARRefundCreditCardRet.TotalAmount != null) { double TotalAmount15 = (double)ARRefundCreditCardRet.TotalAmount.GetValue(); } if (ARRefundCreditCardRet.CurrencyRef != null) { //Get value of ListID if (ARRefundCreditCardRet.CurrencyRef.ListID != null) { string ListID16 = (string)ARRefundCreditCardRet.CurrencyRef.ListID.GetValue(); } //Get value of FullName if (ARRefundCreditCardRet.CurrencyRef.FullName != null) { string FullName17 = (string)ARRefundCreditCardRet.CurrencyRef.FullName.GetValue(); } } //Get value of ExchangeRate if (ARRefundCreditCardRet.ExchangeRate != null) { IQBFloatType ExchangeRate18 = (IQBFloatType)ARRefundCreditCardRet.ExchangeRate.GetValue(); } //Get value of TotalAmountInHomeCurrency if (ARRefundCreditCardRet.TotalAmountInHomeCurrency != null) { double TotalAmountInHomeCurrency19 = (double)ARRefundCreditCardRet.TotalAmountInHomeCurrency.GetValue(); } if (ARRefundCreditCardRet.Address != null) { //Get value of Addr1 if (ARRefundCreditCardRet.Address.Addr1 != null) { string Addr120 = (string)ARRefundCreditCardRet.Address.Addr1.GetValue(); } //Get value of Addr2 if (ARRefundCreditCardRet.Address.Addr2 != null) { string Addr221 = (string)ARRefundCreditCardRet.Address.Addr2.GetValue(); } //Get value of Addr3 if (ARRefundCreditCardRet.Address.Addr3 != null) { string Addr322 = (string)ARRefundCreditCardRet.Address.Addr3.GetValue(); } //Get value of Addr4 if (ARRefundCreditCardRet.Address.Addr4 != null) { string Addr423 = (string)ARRefundCreditCardRet.Address.Addr4.GetValue(); } //Get value of Addr5 if (ARRefundCreditCardRet.Address.Addr5 != null) { string Addr524 = (string)ARRefundCreditCardRet.Address.Addr5.GetValue(); } //Get value of City if (ARRefundCreditCardRet.Address.City != null) { string City25 = (string)ARRefundCreditCardRet.Address.City.GetValue(); } //Get value of State if (ARRefundCreditCardRet.Address.State != null) { string State26 = (string)ARRefundCreditCardRet.Address.State.GetValue(); } //Get value of PostalCode if (ARRefundCreditCardRet.Address.PostalCode != null) { string PostalCode27 = (string)ARRefundCreditCardRet.Address.PostalCode.GetValue(); } //Get value of Country if (ARRefundCreditCardRet.Address.Country != null) { string Country28 = (string)ARRefundCreditCardRet.Address.Country.GetValue(); } //Get value of Note if (ARRefundCreditCardRet.Address.Note != null) { string Note29 = (string)ARRefundCreditCardRet.Address.Note.GetValue(); } } if (ARRefundCreditCardRet.AddressBlock != null) { //Get value of Addr1 if (ARRefundCreditCardRet.AddressBlock.Addr1 != null) { string Addr130 = (string)ARRefundCreditCardRet.AddressBlock.Addr1.GetValue(); } //Get value of Addr2 if (ARRefundCreditCardRet.AddressBlock.Addr2 != null) { string Addr231 = (string)ARRefundCreditCardRet.AddressBlock.Addr2.GetValue(); } //Get value of Addr3 if (ARRefundCreditCardRet.AddressBlock.Addr3 != null) { string Addr332 = (string)ARRefundCreditCardRet.AddressBlock.Addr3.GetValue(); } //Get value of Addr4 if (ARRefundCreditCardRet.AddressBlock.Addr4 != null) { string Addr433 = (string)ARRefundCreditCardRet.AddressBlock.Addr4.GetValue(); } //Get value of Addr5 if (ARRefundCreditCardRet.AddressBlock.Addr5 != null) { string Addr534 = (string)ARRefundCreditCardRet.AddressBlock.Addr5.GetValue(); } } if (ARRefundCreditCardRet.PaymentMethodRef != null) { //Get value of ListID if (ARRefundCreditCardRet.PaymentMethodRef.ListID != null) { string ListID35 = (string)ARRefundCreditCardRet.PaymentMethodRef.ListID.GetValue(); } //Get value of FullName if (ARRefundCreditCardRet.PaymentMethodRef.FullName != null) { string FullName36 = (string)ARRefundCreditCardRet.PaymentMethodRef.FullName.GetValue(); } } //Get value of Memo if (ARRefundCreditCardRet.Memo != null) { string Memo37 = (string)ARRefundCreditCardRet.Memo.GetValue(); } if (ARRefundCreditCardRet.CreditCardTxnInfo != null) { //Get value of CreditCardNumber string CreditCardNumber38 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardNumber.GetValue(); //Get value of ExpirationMonth int ExpirationMonth39 = (int)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationMonth.GetValue(); //Get value of ExpirationYear int ExpirationYear40 = (int)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.ExpirationYear.GetValue(); //Get value of NameOnCard string NameOnCard41 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.NameOnCard.GetValue(); //Get value of CreditCardAddress if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardAddress != null) { string CreditCardAddress42 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardAddress.GetValue(); } //Get value of CreditCardPostalCode if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardPostalCode != null) { string CreditCardPostalCode43 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardPostalCode.GetValue(); } //Get value of CommercialCardCode if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CommercialCardCode != null) { string CommercialCardCode44 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CommercialCardCode.GetValue(); } //Get value of TransactionMode if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.TransactionMode != null) { ENTransactionMode TransactionMode45 = (ENTransactionMode)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.TransactionMode.GetValue(); } //Get value of CreditCardTxnType if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardTxnType != null) { ENCreditCardTxnType CreditCardTxnType46 = (ENCreditCardTxnType)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnInputInfo.CreditCardTxnType.GetValue(); } //Get value of ResultCode int ResultCode47 = (int)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultCode.GetValue(); //Get value of ResultMessage string ResultMessage48 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ResultMessage.GetValue(); //Get value of CreditCardTransID string CreditCardTransID49 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.CreditCardTransID.GetValue(); //Get value of MerchantAccountNumber string MerchantAccountNumber50 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.MerchantAccountNumber.GetValue(); //Get value of AuthorizationCode if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AuthorizationCode != null) { string AuthorizationCode51 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AuthorizationCode.GetValue(); } //Get value of AVSStreet if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSStreet != null) { ENAVSStreet AVSStreet52 = (ENAVSStreet)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSStreet.GetValue(); } //Get value of AVSZip if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSZip != null) { ENAVSZip AVSZip53 = (ENAVSZip)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.AVSZip.GetValue(); } //Get value of CardSecurityCodeMatch if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.CardSecurityCodeMatch != null) { ENCardSecurityCodeMatch CardSecurityCodeMatch54 = (ENCardSecurityCodeMatch)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.CardSecurityCodeMatch.GetValue(); } //Get value of ReconBatchID if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ReconBatchID != null) { string ReconBatchID55 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ReconBatchID.GetValue(); } //Get value of PaymentGroupingCode if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentGroupingCode != null) { int PaymentGroupingCode56 = (int)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentGroupingCode.GetValue(); } //Get value of PaymentStatus ENPaymentStatus PaymentStatus57 = (ENPaymentStatus)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.PaymentStatus.GetValue(); //Get value of TxnAuthorizationTime DateTime TxnAuthorizationTime58 = (DateTime)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationTime.GetValue(); //Get value of TxnAuthorizationStamp if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationStamp != null) { int TxnAuthorizationStamp59 = (int)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.TxnAuthorizationStamp.GetValue(); } //Get value of ClientTransID if (ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ClientTransID != null) { string ClientTransID60 = (string)ARRefundCreditCardRet.CreditCardTxnInfo.CreditCardTxnResultInfo.ClientTransID.GetValue(); } } //Get value of ExternalGUID if (ARRefundCreditCardRet.ExternalGUID != null) { string ExternalGUID61 = (string)ARRefundCreditCardRet.ExternalGUID.GetValue(); } if (ARRefundCreditCardRet.RefundAppliedToTxnRetList != null) { for (int i62 = 0; i62 < ARRefundCreditCardRet.RefundAppliedToTxnRetList.Count; i62++) { IRefundAppliedToTxnRet RefundAppliedToTxnRet = ARRefundCreditCardRet.RefundAppliedToTxnRetList.GetAt(i62); //Get value of TxnID string TxnID63 = (string)RefundAppliedToTxnRet.TxnID.GetValue(); //Get value of TxnType ENTxnType TxnType64 = (ENTxnType)RefundAppliedToTxnRet.TxnType.GetValue(); //Get value of TxnDate DateTime TxnDate65 = (DateTime)RefundAppliedToTxnRet.TxnDate.GetValue(); //Get value of RefNumber if (RefundAppliedToTxnRet.RefNumber != null) { string RefNumber66 = (string)RefundAppliedToTxnRet.RefNumber.GetValue(); } //Get value of CreditRemaining double CreditRemaining67 = (double)RefundAppliedToTxnRet.CreditRemaining.GetValue(); //Get value of RefundAmount double RefundAmount68 = (double)RefundAppliedToTxnRet.RefundAmount.GetValue(); //Get value of CreditRemainingInHomeCurrency if (RefundAppliedToTxnRet.CreditRemainingInHomeCurrency != null) { double CreditRemainingInHomeCurrency69 = (double)RefundAppliedToTxnRet.CreditRemainingInHomeCurrency.GetValue(); } //Get value of RefundAmountInHomeCurrency if (RefundAppliedToTxnRet.RefundAmountInHomeCurrency != null) { double RefundAmountInHomeCurrency70 = (double)RefundAppliedToTxnRet.RefundAmountInHomeCurrency.GetValue(); } } } if (ARRefundCreditCardRet.DataExtRetList != null) { for (int i71 = 0; i71 < ARRefundCreditCardRet.DataExtRetList.Count; i71++) { IDataExtRet DataExtRet = ARRefundCreditCardRet.DataExtRetList.GetAt(i71); //Get value of OwnerID if (DataExtRet.OwnerID != null) { string OwnerID72 = (string)DataExtRet.OwnerID.GetValue(); } //Get value of DataExtName string DataExtName73 = (string)DataExtRet.DataExtName.GetValue(); //Get value of DataExtType ENDataExtType DataExtType74 = (ENDataExtType)DataExtRet.DataExtType.GetValue(); //Get value of DataExtValue string DataExtValue75 = (string)DataExtRet.DataExtValue.GetValue(); } } } } } |