Modifies the specified customer’s data.
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 | <?xml version="1.0" encoding="utf-8"?> <?qbposxml version="4.0"?> <QBPOSXML> <QBPOSXMLMsgsRq onError="stopOnError"> <CustomerModRq> <CustomerMod> <!-- required --> <ListID useMacro="MACROTYPE">IDTYPE</ListID> <!-- required --> <CompanyName >STRTYPE</CompanyName> <!-- optional --> <CustomerID >STRTYPE</CustomerID> <!-- optional --> <CustomerDiscPercent >FLOATTYPE</CustomerDiscPercent> <!-- optional --> <!-- CustomerDiscType may have one of the following values: None, PriceLevel, Percentage --> <CustomerDiscType >ENUMTYPE</CustomerDiscType> <!-- optional --> <CustomerType >STRTYPE</CustomerType> <!-- optional --> <EMail >STRTYPE</EMail> <!-- optional --> <IsOkToEMail >BOOLTYPE</IsOkToEMail> <!-- optional --> <FirstName >STRTYPE</FirstName> <!-- optional --> <IsAcceptingChecks >BOOLTYPE</IsAcceptingChecks> <!-- optional --> <IsUsingChargeAccount >BOOLTYPE</IsUsingChargeAccount> <!-- optional --> <IsUsingWithQB >BOOLTYPE</IsUsingWithQB> <!-- optional --> <IsRewardsMember >BOOLTYPE</IsRewardsMember> <!-- optional --> <IsNoShipToBilling >BOOLTYPE</IsNoShipToBilling> <!-- optional --> <LastName >STRTYPE</LastName> <!-- optional --> <Notes >STRTYPE</Notes> <!-- optional --> <Phone >STRTYPE</Phone> <!-- optional --> <Phone2 >STRTYPE</Phone2> <!-- optional --> <Phone3 >STRTYPE</Phone3> <!-- optional --> <Phone4 >STRTYPE</Phone4> <!-- optional --> <!-- PriceLevelNumber may have one of the following values: 1, 2, 3, 4, 5 --> <PriceLevelNumber >ENUMTYPE</PriceLevelNumber> <!-- optional --> <Salutation >STRTYPE</Salutation> <!-- optional --> <TaxCategory >STRTYPE</TaxCategory> <!-- optional --> <BillAddress> <!-- optional --> <City >STRTYPE</City> <!-- optional --> <Country >STRTYPE</Country> <!-- optional --> <PostalCode >STRTYPE</PostalCode> <!-- optional --> <State >STRTYPE</State> <!-- optional --> <Street >STRTYPE</Street> <!-- optional --> <Street2 >STRTYPE</Street2> <!-- optional --> </BillAddress> <DefaultShipAddress >STRTYPE</DefaultShipAddress> <!-- optional --> <ShipAddress> <!-- optional, may repeat --> <AddressName >STRTYPE</AddressName> <!-- optional --> <CompanyName >STRTYPE</CompanyName> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> <City >STRTYPE</City> <!-- optional --> <Country >STRTYPE</Country> <!-- optional --> <PostalCode >STRTYPE</PostalCode> <!-- optional --> <State >STRTYPE</State> <!-- optional --> <Street >STRTYPE</Street> <!-- optional --> <Street2 >STRTYPE</Street2> <!-- optional --> </ShipAddress> </CustomerMod> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </CustomerModRq> <CustomerModRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <CustomerRet> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- optional --> <TimeModified >DATETIMETYPE</TimeModified> <!-- optional --> <AccountBalance >AMTTYPE</AccountBalance> <!-- optional --> <AccountLimit >AMTTYPE</AccountLimit> <!-- optional --> <AmountPastDue >AMTTYPE</AmountPastDue> <!-- optional --> <CompanyName >STRTYPE</CompanyName> <!-- optional --> <CustomerID >STRTYPE</CustomerID> <!-- optional --> <CustomerDiscPercent >FLOATTYPE</CustomerDiscPercent> <!-- optional --> <!-- CustomerDiscType may have one of the following values: None, PriceLevel, Percentage --> <CustomerDiscType >ENUMTYPE</CustomerDiscType> <!-- optional --> <CustomerType >STRTYPE</CustomerType> <!-- optional --> <EMail >STRTYPE</EMail> <!-- optional --> <IsOkToEMail >BOOLTYPE</IsOkToEMail> <!-- optional --> <FirstName >STRTYPE</FirstName> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> <IsAcceptingChecks >BOOLTYPE</IsAcceptingChecks> <!-- optional --> <IsUsingChargeAccount >BOOLTYPE</IsUsingChargeAccount> <!-- optional --> <IsUsingWithQB >BOOLTYPE</IsUsingWithQB> <!-- optional --> <IsRewardsMember >BOOLTYPE</IsRewardsMember> <!-- optional --> <IsNoShipToBilling >BOOLTYPE</IsNoShipToBilling> <!-- optional --> <LastName >STRTYPE</LastName> <!-- optional --> <LastSale >DATETYPE</LastSale> <!-- optional --> <Notes >STRTYPE</Notes> <!-- optional --> <Phone >STRTYPE</Phone> <!-- optional --> <Phone2 >STRTYPE</Phone2> <!-- optional --> <Phone3 >STRTYPE</Phone3> <!-- optional --> <Phone4 >STRTYPE</Phone4> <!-- optional --> <!-- PriceLevelNumber may have one of the following values: 1, 2, 3, 4, 5 --> <PriceLevelNumber >ENUMTYPE</PriceLevelNumber> <!-- optional --> <Salutation >STRTYPE</Salutation> <!-- optional --> <!-- StoreExchangeStatus may have one of the following values: Modified, Sent, Acknowledged --> <StoreExchangeStatus >ENUMTYPE</StoreExchangeStatus> <!-- optional --> <TaxCategory >STRTYPE</TaxCategory> <!-- optional --> <WebNumber >STRTYPE</WebNumber> <!-- optional --> <BillAddress> <!-- optional --> <City >STRTYPE</City> <!-- optional --> <Country >STRTYPE</Country> <!-- optional --> <PostalCode >STRTYPE</PostalCode> <!-- optional --> <State >STRTYPE</State> <!-- optional --> <Street >STRTYPE</Street> <!-- optional --> <Street2 >STRTYPE</Street2> <!-- optional --> </BillAddress> <DefaultShipAddress >STRTYPE</DefaultShipAddress> <!-- optional --> <ShipAddress> <!-- optional, may repeat --> <AddressName >STRTYPE</AddressName> <!-- optional --> <CompanyName >STRTYPE</CompanyName> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> <City >STRTYPE</City> <!-- optional --> <Country >STRTYPE</Country> <!-- optional --> <PostalCode >STRTYPE</PostalCode> <!-- optional --> <State >STRTYPE</State> <!-- optional --> <Street >STRTYPE</Street> <!-- optional --> <Street2 >STRTYPE</Street2> <!-- optional --> </ShipAddress> <Reward> <!-- optional, may repeat --> <RewardAmount >AMTTYPE</RewardAmount> <!-- optional --> <RewardPercent >FLOATTYPE</RewardPercent> <!-- optional --> <EarnedDate >DATETYPE</EarnedDate> <!-- optional --> <MatureDate >DATETYPE</MatureDate> <!-- optional --> <ExpirationDate >DATETYPE</ExpirationDate> <!-- optional --> </Reward> <DataExtRet> <!-- optional, may repeat --> <OwnerID >GUIDTYPE</OwnerID> <!-- required --> <DataExtName >STRTYPE</DataExtName> <!-- required --> <!-- DataExtType may have one of the following values: INTTYPE, AMTTYPE, PRICETYPE, QUANTYPE, PERCENTTYPE, DATETIMETYPE, STR255TYPE, STR1024TYPE --> <DataExtType >ENUMTYPE</DataExtType> <!-- required --> <DataExtValue >STRTYPE</DataExtValue> <!-- required --> </DataExtRet> </CustomerRet> </CustomerModRs> </QBPOSXMLMsgsRq> </QBPOSXML> |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 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 | 'The following sample code is generated as an illustration of
'Creating requests and parsing responses ONLY
'This code is NOT intended to show best practices or ideal code
'Use at your most careful discretion
imports System
imports System.Net
imports System.Drawing
imports System.Collections
imports System.ComponentModel
imports System.Windows.Forms
imports System.Data
imports System.IO
imports Interop.qbposfc4
Public Class SampleCustomerMod
Public Sub DoCustomerMod()
Dim sessionBegun as Boolean
sessionBegun = False
Dim connectionOpen as Boolean
connectionOpen = False
Dim sessionManager as QBPOSSessionManager
sessionManager = nothing
Try
'Create the session Manager object
sessionManager = new QBPOSSessionManager
'Create the message set request object to hold our request
Dim requestMsgSet as IMsgSetRequest
requestMsgSet = sessionManager.CreateMsgSetRequest(4,0)
requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue
BuildCustomerModRq(requestMsgSet)
'Connect to QuickBooks and begin a session
sessionManager.OpenConnection("","Sample Code from OSR")
connectionOpen = True
sessionManager.BeginSession("")
sessionBegun = True
'Send the request and get the response from QuickBooks
Dim responseMsgSet as IMsgSetResponse
responseMsgSet = sessionManager.DoRequests(requestMsgSet)
'End the session and close the connection to QuickBooks
sessionManager.EndSession()
sessionBegun = False
sessionManager.CloseConnection()
connectionOpen = False
WalkCustomerModRs(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 BuildCustomerModRq(requestMsgSet as IMsgSetRequest)
Dim CustomerModRq as ICustomerMod
CustomerModRq= requestMsgSet.AppendCustomerModRq()
'Set field value for ListID
CustomerModRq.ListID.SetValue("200000-1011023419")
'Set attributes
'Set field value for ListID to use Macro
CustomerModRq.ListID.SetValueUseMacro("200000-1011023419")
'Set field value for CompanyName
CustomerModRq.CompanyName.SetValue("ab")
'Set field value for CustomerID
CustomerModRq.CustomerID.SetValue("ab")
'Set field value for CustomerDiscPercent
CustomerModRq.CustomerDiscPercent.SetValue(12.34)
'Set field value for CustomerDiscType
CustomerModRq.CustomerDiscType.SetValue(ENCustomerDiscType.cdtNone)
'Set field value for CustomerType
CustomerModRq.CustomerType.SetValue("ab")
'Set field value for EMail
CustomerModRq.EMail.SetValue("ab")
'Set field value for IsOkToEMail
CustomerModRq.IsOkToEMail.SetValue(True)
'Set field value for FirstName
CustomerModRq.FirstName.SetValue("ab")
'Set field value for IsAcceptingChecks
CustomerModRq.IsAcceptingChecks.SetValue(True)
'Set field value for IsUsingChargeAccount
CustomerModRq.IsUsingChargeAccount.SetValue(True)
'Set field value for IsUsingWithQB
CustomerModRq.IsUsingWithQB.SetValue(True)
'Set field value for IsRewardsMember
CustomerModRq.IsRewardsMember.SetValue(True)
'Set field value for IsNoShipToBilling
CustomerModRq.IsNoShipToBilling.SetValue(True)
'Set field value for LastName
CustomerModRq.LastName.SetValue("ab")
'Set field value for Notes
CustomerModRq.Notes.SetValue("ab")
'Set field value for Phone
CustomerModRq.Phone.SetValue("ab")
'Set field value for Phone2
CustomerModRq.Phone2.SetValue("ab")
'Set field value for Phone3
CustomerModRq.Phone3.SetValue("ab")
'Set field value for Phone4
CustomerModRq.Phone4.SetValue("ab")
'Set field value for PriceLevelNumber
CustomerModRq.PriceLevelNumber.SetValue(ENPriceLevelNumber.pln1)
'Set field value for Salutation
CustomerModRq.Salutation.SetValue("ab")
'Set field value for TaxCategory
CustomerModRq.TaxCategory.SetValue("ab")
'Set field value for City
CustomerModRq.BillAddress.City.SetValue("ab")
'Set field value for Country
CustomerModRq.BillAddress.Country.SetValue("ab")
'Set field value for PostalCode
CustomerModRq.BillAddress.PostalCode.SetValue("ab")
'Set field value for State
CustomerModRq.BillAddress.State.SetValue("ab")
'Set field value for Street
CustomerModRq.BillAddress.Street.SetValue("ab")
'Set field value for Street2
CustomerModRq.BillAddress.Street2.SetValue("ab")
'Set field value for DefaultShipAddress
CustomerModRq.DefaultShipAddress.SetValue("ab")
Dim ShipAddress253 as IShipAddress
ShipAddress253=CustomerModRq.ShipAddressList.Append()
'Set field value for AddressName
ShipAddress253.AddressName.SetValue("ab")
'Set field value for CompanyName
ShipAddress253.CompanyName.SetValue("ab")
'Set field value for FullName
ShipAddress253.FullName.SetValue("ab")
'Set field value for City
ShipAddress253.City.SetValue("ab")
'Set field value for Country
ShipAddress253.Country.SetValue("ab")
'Set field value for PostalCode
ShipAddress253.PostalCode.SetValue("ab")
'Set field value for State
ShipAddress253.State.SetValue("ab")
'Set field value for Street
ShipAddress253.Street.SetValue("ab")
'Set field value for Street2
ShipAddress253.Street2.SetValue("ab")
'Set field value for IncludeRetElementList
'May create more than one of these if needed
CustomerModRq.IncludeRetElementList.Add("ab")
End Sub
Public Sub WalkCustomerModRs( 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.rtCustomerModRs) then
'upcast to more specific type here, this is safe because we checked with response.Type check above
Dim CustomerRet as ICustomerRet
CustomerRet = CType(response.Detail,ICustomerRet)
WalkCustomerRet(CustomerRet)
End If
End If
End If
Next j
End Sub
Public Sub WalkCustomerRet(CustomerRet as ICustomerRet)
if (CustomerRet is nothing) then
Exit Sub
End If
'Go through all the elements of ICustomerRet
'Get value of ListID
if ( not CustomerRet.ListID is nothing) then
Dim ListID254 as String
ListID254 = CustomerRet.ListID.GetValue()
End If
'Get value of TimeCreated
if ( not CustomerRet.TimeCreated is nothing) then
Dim TimeCreated255 as DateTime
TimeCreated255 = CustomerRet.TimeCreated.GetValue()
End If
'Get value of TimeModified
if ( not CustomerRet.TimeModified is nothing) then
Dim TimeModified256 as DateTime
TimeModified256 = CustomerRet.TimeModified.GetValue()
End If
'Get value of AccountBalance
if ( not CustomerRet.AccountBalance is nothing) then
Dim AccountBalance257 as Double
AccountBalance257 = CustomerRet.AccountBalance.GetValue()
End If
'Get value of AccountLimit
if ( not CustomerRet.AccountLimit is nothing) then
Dim AccountLimit258 as Double
AccountLimit258 = CustomerRet.AccountLimit.GetValue()
End If
'Get value of AmountPastDue
if ( not CustomerRet.AmountPastDue is nothing) then
Dim AmountPastDue259 as Double
AmountPastDue259 = CustomerRet.AmountPastDue.GetValue()
End If
'Get value of CompanyName
if ( not CustomerRet.CompanyName is nothing) then
Dim CompanyName260 as String
CompanyName260 = CustomerRet.CompanyName.GetValue()
End If
'Get value of CustomerID
if ( not CustomerRet.CustomerID is nothing) then
Dim CustomerID261 as String
CustomerID261 = CustomerRet.CustomerID.GetValue()
End If
'Get value of CustomerDiscPercent
if ( not CustomerRet.CustomerDiscPercent is nothing) then
Dim CustomerDiscPercent262 as Single
CustomerDiscPercent262 = CustomerRet.CustomerDiscPercent.GetValue()
End If
'Get value of CustomerDiscType
if ( not CustomerRet.CustomerDiscType is nothing) then
Dim CustomerDiscType263 as ENCustomerDiscType
CustomerDiscType263 = CustomerRet.CustomerDiscType.GetValue()
End If
'Get value of CustomerType
if ( not CustomerRet.CustomerType is nothing) then
Dim CustomerType264 as String
CustomerType264 = CustomerRet.CustomerType.GetValue()
End If
'Get value of EMail
if ( not CustomerRet.EMail is nothing) then
Dim EMail265 as String
EMail265 = CustomerRet.EMail.GetValue()
End If
'Get value of IsOkToEMail
if ( not CustomerRet.IsOkToEMail is nothing) then
Dim IsOkToEMail266 as Boolean
IsOkToEMail266 = CustomerRet.IsOkToEMail.GetValue()
End If
'Get value of FirstName
if ( not CustomerRet.FirstName is nothing) then
Dim FirstName267 as String
FirstName267 = CustomerRet.FirstName.GetValue()
End If
'Get value of FullName
if ( not CustomerRet.FullName is nothing) then
Dim FullName268 as String
FullName268 = CustomerRet.FullName.GetValue()
End If
'Get value of IsAcceptingChecks
if ( not CustomerRet.IsAcceptingChecks is nothing) then
Dim IsAcceptingChecks269 as Boolean
IsAcceptingChecks269 = CustomerRet.IsAcceptingChecks.GetValue()
End If
'Get value of IsUsingChargeAccount
if ( not CustomerRet.IsUsingChargeAccount is nothing) then
Dim IsUsingChargeAccount270 as Boolean
IsUsingChargeAccount270 = CustomerRet.IsUsingChargeAccount.GetValue()
End If
'Get value of IsUsingWithQB
if ( not CustomerRet.IsUsingWithQB is nothing) then
Dim IsUsingWithQB271 as Boolean
IsUsingWithQB271 = CustomerRet.IsUsingWithQB.GetValue()
End If
'Get value of IsRewardsMember
if ( not CustomerRet.IsRewardsMember is nothing) then
Dim IsRewardsMember272 as Boolean
IsRewardsMember272 = CustomerRet.IsRewardsMember.GetValue()
End If
'Get value of IsNoShipToBilling
if ( not CustomerRet.IsNoShipToBilling is nothing) then
Dim IsNoShipToBilling273 as Boolean
IsNoShipToBilling273 = CustomerRet.IsNoShipToBilling.GetValue()
End If
'Get value of LastName
if ( not CustomerRet.LastName is nothing) then
Dim LastName274 as String
LastName274 = CustomerRet.LastName.GetValue()
End If
'Get value of LastSale
if ( not CustomerRet.LastSale is nothing) then
Dim LastSale275 as DateTime
LastSale275 = CustomerRet.LastSale.GetValue()
End If
'Get value of Notes
if ( not CustomerRet.Notes is nothing) then
Dim Notes276 as String
Notes276 = CustomerRet.Notes.GetValue()
End If
'Get value of Phone
if ( not CustomerRet.Phone is nothing) then
Dim Phone277 as String
Phone277 = CustomerRet.Phone.GetValue()
End If
'Get value of Phone2
if ( not CustomerRet.Phone2 is nothing) then
Dim Phone2278 as String
Phone2278 = CustomerRet.Phone2.GetValue()
End If
'Get value of Phone3
if ( not CustomerRet.Phone3 is nothing) then
Dim Phone3279 as String
Phone3279 = CustomerRet.Phone3.GetValue()
End If
'Get value of Phone4
if ( not CustomerRet.Phone4 is nothing) then
Dim Phone4280 as String
Phone4280 = CustomerRet.Phone4.GetValue()
End If
'Get value of PriceLevelNumber
if ( not CustomerRet.PriceLevelNumber is nothing) then
Dim PriceLevelNumber281 as ENPriceLevelNumber
PriceLevelNumber281 = CustomerRet.PriceLevelNumber.GetValue()
End If
'Get value of Salutation
if ( not CustomerRet.Salutation is nothing) then
Dim Salutation282 as String
Salutation282 = CustomerRet.Salutation.GetValue()
End If
'Get value of StoreExchangeStatus
if ( not CustomerRet.StoreExchangeStatus is nothing) then
Dim StoreExchangeStatus283 as ENStoreExchangeStatus
StoreExchangeStatus283 = CustomerRet.StoreExchangeStatus.GetValue()
End If
'Get value of TaxCategory
if ( not CustomerRet.TaxCategory is nothing) then
Dim TaxCategory284 as String
TaxCategory284 = CustomerRet.TaxCategory.GetValue()
End If
'Get value of WebNumber
if ( not CustomerRet.WebNumber is nothing) then
Dim WebNumber285 as String
WebNumber285 = CustomerRet.WebNumber.GetValue()
End If
if (not CustomerRet.BillAddress is nothing) then
'Get value of City
if ( not CustomerRet.BillAddress.City is nothing) then
Dim City286 as String
City286 = CustomerRet.BillAddress.City.GetValue()
End If
'Get value of Country
if ( not CustomerRet.BillAddress.Country is nothing) then
Dim Country287 as String
Country287 = CustomerRet.BillAddress.Country.GetValue()
End If
'Get value of PostalCode
if ( not CustomerRet.BillAddress.PostalCode is nothing) then
Dim PostalCode288 as String
PostalCode288 = CustomerRet.BillAddress.PostalCode.GetValue()
End If
'Get value of State
if ( not CustomerRet.BillAddress.State is nothing) then
Dim State289 as String
State289 = CustomerRet.BillAddress.State.GetValue()
End If
'Get value of Street
if ( not CustomerRet.BillAddress.Street is nothing) then
Dim Street290 as String
Street290 = CustomerRet.BillAddress.Street.GetValue()
End If
'Get value of Street2
if ( not CustomerRet.BillAddress.Street2 is nothing) then
Dim Street2291 as String
Street2291 = CustomerRet.BillAddress.Street2.GetValue()
End If
End If
'Get value of DefaultShipAddress
if ( not CustomerRet.DefaultShipAddress is nothing) then
Dim DefaultShipAddress292 as String
DefaultShipAddress292 = CustomerRet.DefaultShipAddress.GetValue()
End If
if (not CustomerRet.ShipAddressList is nothing)
Dim i293 as Integer
for i293 = 0 to CustomerRet.ShipAddressList.Count - 1
Dim ShipAddress as IShipAddress
ShipAddress = CustomerRet.ShipAddressList.GetAt(i293)
'Get value of AddressName
if ( not ShipAddress.AddressName is nothing) then
Dim AddressName294 as String
AddressName294 = ShipAddress.AddressName.GetValue()
End If
'Get value of CompanyName
if ( not ShipAddress.CompanyName is nothing) then
Dim CompanyName295 as String
CompanyName295 = ShipAddress.CompanyName.GetValue()
End If
'Get value of FullName
if ( not ShipAddress.FullName is nothing) then
Dim FullName296 as String
FullName296 = ShipAddress.FullName.GetValue()
End If
'Get value of City
if ( not ShipAddress.City is nothing) then
Dim City297 as String
City297 = ShipAddress.City.GetValue()
End If
'Get value of Country
if ( not ShipAddress.Country is nothing) then
Dim Country298 as String
Country298 = ShipAddress.Country.GetValue()
End If
'Get value of PostalCode
if ( not ShipAddress.PostalCode is nothing) then
Dim PostalCode299 as String
PostalCode299 = ShipAddress.PostalCode.GetValue()
End If
'Get value of State
if ( not ShipAddress.State is nothing) then
Dim State300 as String
State300 = ShipAddress.State.GetValue()
End If
'Get value of Street
if ( not ShipAddress.Street is nothing) then
Dim Street301 as String
Street301 = ShipAddress.Street.GetValue()
End If
'Get value of Street2
if ( not ShipAddress.Street2 is nothing) then
Dim Street2302 as String
Street2302 = ShipAddress.Street2.GetValue()
End If
Next i293
End If
if (not CustomerRet.RewardList is nothing)
Dim i303 as Integer
for i303 = 0 to CustomerRet.RewardList.Count - 1
Dim Reward as IReward
Reward = CustomerRet.RewardList.GetAt(i303)
'Get value of RewardAmount
if ( not Reward.RewardAmount is nothing) then
Dim RewardAmount304 as Double
RewardAmount304 = Reward.RewardAmount.GetValue()
End If
'Get value of RewardPercent
if ( not Reward.RewardPercent is nothing) then
Dim RewardPercent305 as Single
RewardPercent305 = Reward.RewardPercent.GetValue()
End If
'Get value of EarnedDate
if ( not Reward.EarnedDate is nothing) then
Dim EarnedDate306 as DateTime
EarnedDate306 = Reward.EarnedDate.GetValue()
End If
'Get value of MatureDate
if ( not Reward.MatureDate is nothing) then
Dim MatureDate307 as DateTime
MatureDate307 = Reward.MatureDate.GetValue()
End If
'Get value of ExpirationDate
if ( not Reward.ExpirationDate is nothing) then
Dim ExpirationDate308 as DateTime
ExpirationDate308 = Reward.ExpirationDate.GetValue()
End If
Next i303
End If
if (not CustomerRet.DataExtRetList is nothing)
Dim i309 as Integer
for i309 = 0 to CustomerRet.DataExtRetList.Count - 1
Dim DataExtRet as IDataExtRet
DataExtRet = CustomerRet.DataExtRetList.GetAt(i309)
'Get value of OwnerID
Dim OwnerID310 as String
OwnerID310 = DataExtRet.OwnerID.GetValue()
'Get value of DataExtName
Dim DataExtName311 as String
DataExtName311 = DataExtRet.DataExtName.GetValue()
'Get value of DataExtType
Dim DataExtType312 as ENDataExtType
DataExtType312 = DataExtRet.DataExtType.GetValue()
'Get value of DataExtValue
Dim DataExtValue313 as String
DataExtValue313 = DataExtRet.DataExtValue.GetValue()
Next i309
End If
End Sub
End Class
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 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 | //The following sample code is generated as an illustration of //Creating requests and parsing responses ONLY //This code is NOT intended to show best practices or ideal code //Use at your most careful discretion using System; using System.Net; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Data; using System.IO; using Interop.qbposfc4; namespace com.intuit.idn.samples { public class SampleCustomerMod { public void DoCustomerMod() { bool sessionBegun = false; bool connectionOpen = false; QBPOSSessionManager sessionManager = null; try { //Create the session Manager object sessionManager = new QBPOSSessionManager(); //Create the message set request object to hold our request IMsgSetRequest requestMsgSet = sessionManager.CreateMsgSetRequest(4,0); requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue; BuildCustomerModRq(requestMsgSet); //Connect to QuickBooks and begin a session sessionManager.OpenConnection("","Sample Code from OSR"); connectionOpen = true; sessionManager.BeginSession(""); sessionBegun = true; //Send the request and get the response from QuickBooks IMsgSetResponse responseMsgSet = sessionManager.DoRequests(requestMsgSet); //End the session and close the connection to QuickBooks sessionManager.EndSession(); sessionBegun = false; sessionManager.CloseConnection(); connectionOpen = false; WalkCustomerModRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildCustomerModRq(IMsgSetRequest requestMsgSet) { ICustomerMod CustomerModRq= requestMsgSet.AppendCustomerModRq(); //Set field value for ListID CustomerModRq.ListID.SetValue("200000-1011023419"); //Set attributes //Set field value for ListID to use Macro CustomerModRq.ListID.SetValueUseMacro("200000-1011023419"); //Set field value for CompanyName CustomerModRq.CompanyName.SetValue("ab"); //Set field value for CustomerID CustomerModRq.CustomerID.SetValue("ab"); //Set field value for CustomerDiscPercent CustomerModRq.CustomerDiscPercent.SetValue(12.34F); //Set field value for CustomerDiscType CustomerModRq.CustomerDiscType.SetValue(ENCustomerDiscType.cdtNone); //Set field value for CustomerType CustomerModRq.CustomerType.SetValue("ab"); //Set field value for EMail CustomerModRq.EMail.SetValue("ab"); //Set field value for IsOkToEMail CustomerModRq.IsOkToEMail.SetValue(true); //Set field value for FirstName CustomerModRq.FirstName.SetValue("ab"); //Set field value for IsAcceptingChecks CustomerModRq.IsAcceptingChecks.SetValue(true); //Set field value for IsUsingChargeAccount CustomerModRq.IsUsingChargeAccount.SetValue(true); //Set field value for IsUsingWithQB CustomerModRq.IsUsingWithQB.SetValue(true); //Set field value for IsRewardsMember CustomerModRq.IsRewardsMember.SetValue(true); //Set field value for IsNoShipToBilling CustomerModRq.IsNoShipToBilling.SetValue(true); //Set field value for LastName CustomerModRq.LastName.SetValue("ab"); //Set field value for Notes CustomerModRq.Notes.SetValue("ab"); //Set field value for Phone CustomerModRq.Phone.SetValue("ab"); //Set field value for Phone2 CustomerModRq.Phone2.SetValue("ab"); //Set field value for Phone3 CustomerModRq.Phone3.SetValue("ab"); //Set field value for Phone4 CustomerModRq.Phone4.SetValue("ab"); //Set field value for PriceLevelNumber CustomerModRq.PriceLevelNumber.SetValue(ENPriceLevelNumber.pln1); //Set field value for Salutation CustomerModRq.Salutation.SetValue("ab"); //Set field value for TaxCategory CustomerModRq.TaxCategory.SetValue("ab"); //Set field value for City CustomerModRq.BillAddress.City.SetValue("ab"); //Set field value for Country CustomerModRq.BillAddress.Country.SetValue("ab"); //Set field value for PostalCode CustomerModRq.BillAddress.PostalCode.SetValue("ab"); //Set field value for State CustomerModRq.BillAddress.State.SetValue("ab"); //Set field value for Street CustomerModRq.BillAddress.Street.SetValue("ab"); //Set field value for Street2 CustomerModRq.BillAddress.Street2.SetValue("ab"); //Set field value for DefaultShipAddress CustomerModRq.DefaultShipAddress.SetValue("ab"); IShipAddress ShipAddress314=CustomerModRq.ShipAddressList.Append(); //Set field value for AddressName ShipAddress314.AddressName.SetValue("ab"); //Set field value for CompanyName ShipAddress314.CompanyName.SetValue("ab"); //Set field value for FullName ShipAddress314.FullName.SetValue("ab"); //Set field value for City ShipAddress314.City.SetValue("ab"); //Set field value for Country ShipAddress314.Country.SetValue("ab"); //Set field value for PostalCode ShipAddress314.PostalCode.SetValue("ab"); //Set field value for State ShipAddress314.State.SetValue("ab"); //Set field value for Street ShipAddress314.Street.SetValue("ab"); //Set field value for Street2 ShipAddress314.Street2.SetValue("ab"); //Set field value for IncludeRetElementList //May create more than one of these if needed CustomerModRq.IncludeRetElementList.Add("ab"); } void WalkCustomerModRs(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.rtCustomerModRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above ICustomerRet CustomerRet = (ICustomerRet)response.Detail; WalkCustomerRet(CustomerRet); } } } } } void WalkCustomerRet(ICustomerRet CustomerRet) { if (CustomerRet == null) return; //Go through all the elements of ICustomerRet //Get value of ListID if (CustomerRet.ListID != null) { string ListID315 = (string)CustomerRet.ListID.GetValue(); } //Get value of TimeCreated if (CustomerRet.TimeCreated != null) { DateTime TimeCreated316 = (DateTime)CustomerRet.TimeCreated.GetValue(); } //Get value of TimeModified if (CustomerRet.TimeModified != null) { DateTime TimeModified317 = (DateTime)CustomerRet.TimeModified.GetValue(); } //Get value of AccountBalance if (CustomerRet.AccountBalance != null) { double AccountBalance318 = (double)CustomerRet.AccountBalance.GetValue(); } //Get value of AccountLimit if (CustomerRet.AccountLimit != null) { double AccountLimit319 = (double)CustomerRet.AccountLimit.GetValue(); } //Get value of AmountPastDue if (CustomerRet.AmountPastDue != null) { double AmountPastDue320 = (double)CustomerRet.AmountPastDue.GetValue(); } //Get value of CompanyName if (CustomerRet.CompanyName != null) { string CompanyName321 = (string)CustomerRet.CompanyName.GetValue(); } //Get value of CustomerID if (CustomerRet.CustomerID != null) { string CustomerID322 = (string)CustomerRet.CustomerID.GetValue(); } //Get value of CustomerDiscPercent if (CustomerRet.CustomerDiscPercent != null) { float CustomerDiscPercent323 = (float)CustomerRet.CustomerDiscPercent.GetValue(); } //Get value of CustomerDiscType if (CustomerRet.CustomerDiscType != null) { ENCustomerDiscType CustomerDiscType324 = (ENCustomerDiscType)CustomerRet.CustomerDiscType.GetValue(); } //Get value of CustomerType if (CustomerRet.CustomerType != null) { string CustomerType325 = (string)CustomerRet.CustomerType.GetValue(); } //Get value of EMail if (CustomerRet.EMail != null) { string EMail326 = (string)CustomerRet.EMail.GetValue(); } //Get value of IsOkToEMail if (CustomerRet.IsOkToEMail != null) { bool IsOkToEMail327 = (bool)CustomerRet.IsOkToEMail.GetValue(); } //Get value of FirstName if (CustomerRet.FirstName != null) { string FirstName328 = (string)CustomerRet.FirstName.GetValue(); } //Get value of FullName if (CustomerRet.FullName != null) { string FullName329 = (string)CustomerRet.FullName.GetValue(); } //Get value of IsAcceptingChecks if (CustomerRet.IsAcceptingChecks != null) { bool IsAcceptingChecks330 = (bool)CustomerRet.IsAcceptingChecks.GetValue(); } //Get value of IsUsingChargeAccount if (CustomerRet.IsUsingChargeAccount != null) { bool IsUsingChargeAccount331 = (bool)CustomerRet.IsUsingChargeAccount.GetValue(); } //Get value of IsUsingWithQB if (CustomerRet.IsUsingWithQB != null) { bool IsUsingWithQB332 = (bool)CustomerRet.IsUsingWithQB.GetValue(); } //Get value of IsRewardsMember if (CustomerRet.IsRewardsMember != null) { bool IsRewardsMember333 = (bool)CustomerRet.IsRewardsMember.GetValue(); } //Get value of IsNoShipToBilling if (CustomerRet.IsNoShipToBilling != null) { bool IsNoShipToBilling334 = (bool)CustomerRet.IsNoShipToBilling.GetValue(); } //Get value of LastName if (CustomerRet.LastName != null) { string LastName335 = (string)CustomerRet.LastName.GetValue(); } //Get value of LastSale if (CustomerRet.LastSale != null) { DateTime LastSale336 = (DateTime)CustomerRet.LastSale.GetValue(); } //Get value of Notes if (CustomerRet.Notes != null) { string Notes337 = (string)CustomerRet.Notes.GetValue(); } //Get value of Phone if (CustomerRet.Phone != null) { string Phone338 = (string)CustomerRet.Phone.GetValue(); } //Get value of Phone2 if (CustomerRet.Phone2 != null) { string Phone2339 = (string)CustomerRet.Phone2.GetValue(); } //Get value of Phone3 if (CustomerRet.Phone3 != null) { string Phone3340 = (string)CustomerRet.Phone3.GetValue(); } //Get value of Phone4 if (CustomerRet.Phone4 != null) { string Phone4341 = (string)CustomerRet.Phone4.GetValue(); } //Get value of PriceLevelNumber if (CustomerRet.PriceLevelNumber != null) { ENPriceLevelNumber PriceLevelNumber342 = (ENPriceLevelNumber)CustomerRet.PriceLevelNumber.GetValue(); } //Get value of Salutation if (CustomerRet.Salutation != null) { string Salutation343 = (string)CustomerRet.Salutation.GetValue(); } //Get value of StoreExchangeStatus if (CustomerRet.StoreExchangeStatus != null) { ENStoreExchangeStatus StoreExchangeStatus344 = (ENStoreExchangeStatus)CustomerRet.StoreExchangeStatus.GetValue(); } //Get value of TaxCategory if (CustomerRet.TaxCategory != null) { string TaxCategory345 = (string)CustomerRet.TaxCategory.GetValue(); } //Get value of WebNumber if (CustomerRet.WebNumber != null) { string WebNumber346 = (string)CustomerRet.WebNumber.GetValue(); } if (CustomerRet.BillAddress != null) { //Get value of City if (CustomerRet.BillAddress.City != null) { string City347 = (string)CustomerRet.BillAddress.City.GetValue(); } //Get value of Country if (CustomerRet.BillAddress.Country != null) { string Country348 = (string)CustomerRet.BillAddress.Country.GetValue(); } //Get value of PostalCode if (CustomerRet.BillAddress.PostalCode != null) { string PostalCode349 = (string)CustomerRet.BillAddress.PostalCode.GetValue(); } //Get value of State if (CustomerRet.BillAddress.State != null) { string State350 = (string)CustomerRet.BillAddress.State.GetValue(); } //Get value of Street if (CustomerRet.BillAddress.Street != null) { string Street351 = (string)CustomerRet.BillAddress.Street.GetValue(); } //Get value of Street2 if (CustomerRet.BillAddress.Street2 != null) { string Street2352 = (string)CustomerRet.BillAddress.Street2.GetValue(); } } //Get value of DefaultShipAddress if (CustomerRet.DefaultShipAddress != null) { string DefaultShipAddress353 = (string)CustomerRet.DefaultShipAddress.GetValue(); } if (CustomerRet.ShipAddressList != null) { for (int i354 = 0; i354 < CustomerRet.ShipAddressList.Count; i354++) { IShipAddress ShipAddress = CustomerRet.ShipAddressList.GetAt(i354); //Get value of AddressName if (ShipAddress.AddressName != null) { string AddressName355 = (string)ShipAddress.AddressName.GetValue(); } //Get value of CompanyName if (ShipAddress.CompanyName != null) { string CompanyName356 = (string)ShipAddress.CompanyName.GetValue(); } //Get value of FullName if (ShipAddress.FullName != null) { string FullName357 = (string)ShipAddress.FullName.GetValue(); } //Get value of City if (ShipAddress.City != null) { string City358 = (string)ShipAddress.City.GetValue(); } //Get value of Country if (ShipAddress.Country != null) { string Country359 = (string)ShipAddress.Country.GetValue(); } //Get value of PostalCode if (ShipAddress.PostalCode != null) { string PostalCode360 = (string)ShipAddress.PostalCode.GetValue(); } //Get value of State if (ShipAddress.State != null) { string State361 = (string)ShipAddress.State.GetValue(); } //Get value of Street if (ShipAddress.Street != null) { string Street362 = (string)ShipAddress.Street.GetValue(); } //Get value of Street2 if (ShipAddress.Street2 != null) { string Street2363 = (string)ShipAddress.Street2.GetValue(); } } } if (CustomerRet.RewardList != null) { for (int i364 = 0; i364 < CustomerRet.RewardList.Count; i364++) { IReward Reward = CustomerRet.RewardList.GetAt(i364); //Get value of RewardAmount if (Reward.RewardAmount != null) { double RewardAmount365 = (double)Reward.RewardAmount.GetValue(); } //Get value of RewardPercent if (Reward.RewardPercent != null) { float RewardPercent366 = (float)Reward.RewardPercent.GetValue(); } //Get value of EarnedDate if (Reward.EarnedDate != null) { DateTime EarnedDate367 = (DateTime)Reward.EarnedDate.GetValue(); } //Get value of MatureDate if (Reward.MatureDate != null) { DateTime MatureDate368 = (DateTime)Reward.MatureDate.GetValue(); } //Get value of ExpirationDate if (Reward.ExpirationDate != null) { DateTime ExpirationDate369 = (DateTime)Reward.ExpirationDate.GetValue(); } } } if (CustomerRet.DataExtRetList != null) { for (int i370 = 0; i370 < CustomerRet.DataExtRetList.Count; i370++) { IDataExtRet DataExtRet = CustomerRet.DataExtRetList.GetAt(i370); //Get value of OwnerID string OwnerID371 = (string)DataExtRet.OwnerID.GetValue(); //Get value of DataExtName string DataExtName372 = (string)DataExtRet.DataExtName.GetValue(); //Get value of DataExtType ENDataExtType DataExtType373 = (ENDataExtType)DataExtRet.DataExtType.GetValue(); //Get value of DataExtValue string DataExtValue374 = (string)DataExtRet.DataExtValue.GetValue(); } } } } } |