Modifies a fixed asset item. Fixed-asset items represent assets that will benefit a business for longer than one year. The purchase price of these fixed assets is typically expensed over a period of years, rather than in the year the purchase was made.
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 | <?xml version="1.0" encoding="utf-8"?> <?qbxml version="16.0"?> <QBXML> <QBXMLMsgsRq onError="stopOnError"> <ItemFixedAssetModRq> <ItemFixedAssetMod> <!-- required --> <ListID >IDTYPE</ListID> <!-- required --> <EditSequence >STRTYPE</EditSequence> <!-- required --> <Name >STRTYPE</Name> <!-- optional --> <BarCode> <!-- optional --> <BarCodeValue >STRTYPE</BarCodeValue> <!-- optional --> <AssignEvenIfUsed >BOOLTYPE</AssignEvenIfUsed> <!-- optional --> <AllowOverride >BOOLTYPE</AllowOverride> <!-- optional --> </BarCode> <IsActive >BOOLTYPE</IsActive> <!-- optional --> <ClassRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ClassRef> <!-- AcquiredAs may have one of the following values: New, Old --> <AcquiredAs >ENUMTYPE</AcquiredAs> <!-- optional --> <PurchaseDesc >STRTYPE</PurchaseDesc> <!-- optional --> <PurchaseDate >DATETYPE</PurchaseDate> <!-- optional --> <PurchaseCost >PRICETYPE</PurchaseCost> <!-- optional --> <VendorOrPayeeName >STRTYPE</VendorOrPayeeName> <!-- optional --> <AssetAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </AssetAccountRef> <FixedAssetSalesInfoMod> <!-- optional --> <SalesDesc >STRTYPE</SalesDesc> <!-- optional --> <SalesDate >DATETYPE</SalesDate> <!-- optional --> <SalesPrice >PRICETYPE</SalesPrice> <!-- optional --> <SalesExpense >PRICETYPE</SalesExpense> <!-- optional --> </FixedAssetSalesInfoMod> <AssetDesc >STRTYPE</AssetDesc> <!-- optional --> <Location >STRTYPE</Location> <!-- optional --> <PONumber >STRTYPE</PONumber> <!-- optional --> <SerialNumber >STRTYPE</SerialNumber> <!-- optional --> <WarrantyExpDate >DATETYPE</WarrantyExpDate> <!-- optional --> <Notes >STRTYPE</Notes> <!-- optional --> <AssetNumber >STRTYPE</AssetNumber> <!-- optional --> <CostBasis >AMTTYPE</CostBasis> <!-- optional --> <YearEndAccumulatedDepreciation >AMTTYPE</YearEndAccumulatedDepreciation> <!-- optional --> <YearEndBookValue >AMTTYPE</YearEndBookValue> <!-- optional --> </ItemFixedAssetMod> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </ItemFixedAssetModRq> <ItemFixedAssetModRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <ItemFixedAssetRet> <!-- optional --> <ListID >IDTYPE</ListID> <!-- required --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- required --> <TimeModified >DATETIMETYPE</TimeModified> <!-- required --> <EditSequence >STRTYPE</EditSequence> <!-- required --> <Name >STRTYPE</Name> <!-- required --> <BarCodeValue >STRTYPE</BarCodeValue> <!-- optional --> <IsActive >BOOLTYPE</IsActive> <!-- optional --> <ClassRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ClassRef> <!-- AcquiredAs may have one of the following values: New, Old --> <AcquiredAs >ENUMTYPE</AcquiredAs> <!-- required --> <PurchaseDesc >STRTYPE</PurchaseDesc> <!-- required --> <PurchaseDate >DATETYPE</PurchaseDate> <!-- required --> <PurchaseCost >PRICETYPE</PurchaseCost> <!-- optional --> <VendorOrPayeeName >STRTYPE</VendorOrPayeeName> <!-- optional --> <AssetAccountRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </AssetAccountRef> <FixedAssetSalesInfo> <!-- optional --> <SalesDesc >STRTYPE</SalesDesc> <!-- required --> <SalesDate >DATETYPE</SalesDate> <!-- required --> <SalesPrice >PRICETYPE</SalesPrice> <!-- optional --> <SalesExpense >PRICETYPE</SalesExpense> <!-- optional --> </FixedAssetSalesInfo> <AssetDesc >STRTYPE</AssetDesc> <!-- optional --> <Location >STRTYPE</Location> <!-- optional --> <PONumber >STRTYPE</PONumber> <!-- optional --> <SerialNumber >STRTYPE</SerialNumber> <!-- optional --> <WarrantyExpDate >DATETYPE</WarrantyExpDate> <!-- optional --> <Notes >STRTYPE</Notes> <!-- optional --> <AssetNumber >STRTYPE</AssetNumber> <!-- optional --> <CostBasis >AMTTYPE</CostBasis> <!-- optional --> <YearEndAccumulatedDepreciation >AMTTYPE</YearEndAccumulatedDepreciation> <!-- optional --> <YearEndBookValue >AMTTYPE</YearEndBookValue> <!-- optional --> <ExternalGUID >GUIDTYPE</ExternalGUID> <!-- optional --> <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> </ItemFixedAssetRet> <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> </ItemFixedAssetModRs> </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 | '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 DoItemFixedAssetMod() 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 BuildItemFixedAssetModRq(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 WalkItemFixedAssetModRs(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 BuildItemFixedAssetModRq(requestMsgSet as IMsgSetRequest) Dim ItemFixedAssetModRq as IItemFixedAssetMod ItemFixedAssetModRq= requestMsgSet.AppendItemFixedAssetModRq() 'Set field value for ListID ItemFixedAssetModRq.ListID.SetValue("200000-1011023419") 'Set field value for EditSequence ItemFixedAssetModRq.EditSequence.SetValue("ab") 'Set field value for Name ItemFixedAssetModRq.Name.SetValue("ab") 'Set field value for BarCodeValue ItemFixedAssetModRq.BarCode.BarCodeValue.SetValue("ab") 'Set field value for AssignEvenIfUsed ItemFixedAssetModRq.BarCode.AssignEvenIfUsed.SetValue(True) 'Set field value for AllowOverride ItemFixedAssetModRq.BarCode.AllowOverride.SetValue(True) 'Set field value for IsActive ItemFixedAssetModRq.IsActive.SetValue(True) 'Set field value for ListID ItemFixedAssetModRq.ClassRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName ItemFixedAssetModRq.ClassRef.FullName.SetValue("ab") 'Set field value for AcquiredAs ItemFixedAssetModRq.AcquiredAs.SetValue(ENAcquiredAs.aaNew) 'Set field value for PurchaseDesc ItemFixedAssetModRq.PurchaseDesc.SetValue("ab") 'Set field value for PurchaseDate ItemFixedAssetModRq.PurchaseDate.SetValue(DateTime.Parse("12/15/2007")) 'Set field value for PurchaseCost ItemFixedAssetModRq.PurchaseCost.SetValue(15.65) 'Set field value for VendorOrPayeeName ItemFixedAssetModRq.VendorOrPayeeName.SetValue("ab") 'Set field value for ListID ItemFixedAssetModRq.AssetAccountRef.ListID.SetValue("200000-1011023419") 'Set field value for FullName ItemFixedAssetModRq.AssetAccountRef.FullName.SetValue("ab") 'Set field value for SalesDesc ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesDesc.SetValue("ab") 'Set field value for SalesDate ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesDate.SetValue(DateTime.Parse("12/15/2007")) 'Set field value for SalesPrice ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesPrice.SetValue(15.65) 'Set field value for SalesExpense ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesExpense.SetValue(15.65) 'Set field value for AssetDesc ItemFixedAssetModRq.AssetDesc.SetValue("ab") 'Set field value for Location ItemFixedAssetModRq.Location.SetValue("ab") 'Set field value for PONumber ItemFixedAssetModRq.PONumber.SetValue("ab") 'Set field value for SerialNumber ItemFixedAssetModRq.SerialNumber.SetValue("ab") 'Set field value for WarrantyExpDate ItemFixedAssetModRq.WarrantyExpDate.SetValue(DateTime.Parse("12/15/2007")) 'Set field value for Notes ItemFixedAssetModRq.Notes.SetValue("ab") 'Set field value for AssetNumber ItemFixedAssetModRq.AssetNumber.SetValue("ab") 'Set field value for CostBasis ItemFixedAssetModRq.CostBasis.SetValue(10.01) 'Set field value for YearEndAccumulatedDepreciation ItemFixedAssetModRq.YearEndAccumulatedDepreciation.SetValue(10.01) 'Set field value for YearEndBookValue ItemFixedAssetModRq.YearEndBookValue.SetValue(10.01) 'Set field value for IncludeRetElementList 'May create more than one of these if needed ItemFixedAssetModRq.IncludeRetElementList.Add("ab") End Sub Public Sub WalkItemFixedAssetModRs( 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.rtItemFixedAssetModRs) then 'upcast to more specific type here, this is safe because we checked with response.Type check above Dim ItemFixedAssetRet as IItemFixedAssetRet ItemFixedAssetRet = CType(response.Detail,IItemFixedAssetRet) WalkItemFixedAssetRet(ItemFixedAssetRet) End If End If End If Next j End Sub Public Sub WalkItemFixedAssetRet(ItemFixedAssetRet as IItemFixedAssetRet) if (ItemFixedAssetRet is nothing) then Exit Sub End If 'Go through all the elements of IItemFixedAssetRet 'Get value of ListID Dim ListID12525 as String ListID12525 = ItemFixedAssetRet.ListID.GetValue() 'Get value of TimeCreated Dim TimeCreated12526 as DateTime TimeCreated12526 = ItemFixedAssetRet.TimeCreated.GetValue() 'Get value of TimeModified Dim TimeModified12527 as DateTime TimeModified12527 = ItemFixedAssetRet.TimeModified.GetValue() 'Get value of EditSequence Dim EditSequence12528 as String EditSequence12528 = ItemFixedAssetRet.EditSequence.GetValue() 'Get value of Name Dim Name12529 as String Name12529 = ItemFixedAssetRet.Name.GetValue() 'Get value of BarCodeValue if ( not ItemFixedAssetRet.BarCodeValue is nothing) then Dim BarCodeValue12530 as String BarCodeValue12530 = ItemFixedAssetRet.BarCodeValue.GetValue() End If 'Get value of IsActive if ( not ItemFixedAssetRet.IsActive is nothing) then Dim IsActive12531 as Boolean IsActive12531 = ItemFixedAssetRet.IsActive.GetValue() End If if (not ItemFixedAssetRet.ClassRef. is nothing) then 'Get value of ListID if ( not ItemFixedAssetRet.ClassRef.ListID is nothing) then Dim ListID12532 as String ListID12532 = ItemFixedAssetRet.ClassRef.ListID.GetValue() End If 'Get value of FullName if ( not ItemFixedAssetRet.ClassRef.FullName is nothing) then Dim FullName12533 as String FullName12533 = ItemFixedAssetRet.ClassRef.FullName.GetValue() End If End If 'Get value of AcquiredAs Dim AcquiredAs12534 as ENAcquiredAs AcquiredAs12534 = ItemFixedAssetRet.AcquiredAs.GetValue() 'Get value of PurchaseDesc Dim PurchaseDesc12535 as String PurchaseDesc12535 = ItemFixedAssetRet.PurchaseDesc.GetValue() 'Get value of PurchaseDate Dim PurchaseDate12536 as DateTime PurchaseDate12536 = ItemFixedAssetRet.PurchaseDate.GetValue() 'Get value of PurchaseCost if ( not ItemFixedAssetRet.PurchaseCost is nothing) then Dim PurchaseCost12537 as Double PurchaseCost12537 = ItemFixedAssetRet.PurchaseCost.GetValue() End If 'Get value of VendorOrPayeeName if ( not ItemFixedAssetRet.VendorOrPayeeName is nothing) then Dim VendorOrPayeeName12538 as String VendorOrPayeeName12538 = ItemFixedAssetRet.VendorOrPayeeName.GetValue() End If if (not ItemFixedAssetRet.AssetAccountRef. is nothing) then 'Get value of ListID if ( not ItemFixedAssetRet.AssetAccountRef.ListID is nothing) then Dim ListID12539 as String ListID12539 = ItemFixedAssetRet.AssetAccountRef.ListID.GetValue() End If 'Get value of FullName if ( not ItemFixedAssetRet.AssetAccountRef.FullName is nothing) then Dim FullName12540 as String FullName12540 = ItemFixedAssetRet.AssetAccountRef.FullName.GetValue() End If End If if (not ItemFixedAssetRet.FixedAssetSalesInfo. is nothing) then 'Get value of SalesDesc Dim SalesDesc12541 as String SalesDesc12541 = ItemFixedAssetRet.FixedAssetSalesInfo.SalesDesc.GetValue() 'Get value of SalesDate Dim SalesDate12542 as DateTime SalesDate12542 = ItemFixedAssetRet.FixedAssetSalesInfo.SalesDate.GetValue() 'Get value of SalesPrice if ( not ItemFixedAssetRet.FixedAssetSalesInfo.SalesPrice is nothing) then Dim SalesPrice12543 as Double SalesPrice12543 = ItemFixedAssetRet.FixedAssetSalesInfo.SalesPrice.GetValue() End If 'Get value of SalesExpense if ( not ItemFixedAssetRet.FixedAssetSalesInfo.SalesExpense is nothing) then Dim SalesExpense12544 as Double SalesExpense12544 = ItemFixedAssetRet.FixedAssetSalesInfo.SalesExpense.GetValue() End If End If 'Get value of AssetDesc if ( not ItemFixedAssetRet.AssetDesc is nothing) then Dim AssetDesc12545 as String AssetDesc12545 = ItemFixedAssetRet.AssetDesc.GetValue() End If 'Get value of Location if ( not ItemFixedAssetRet.Location is nothing) then Dim Location12546 as String Location12546 = ItemFixedAssetRet.Location.GetValue() End If 'Get value of PONumber if ( not ItemFixedAssetRet.PONumber is nothing) then Dim PONumber12547 as String PONumber12547 = ItemFixedAssetRet.PONumber.GetValue() End If 'Get value of SerialNumber if ( not ItemFixedAssetRet.SerialNumber is nothing) then Dim SerialNumber12548 as String SerialNumber12548 = ItemFixedAssetRet.SerialNumber.GetValue() End If 'Get value of WarrantyExpDate if ( not ItemFixedAssetRet.WarrantyExpDate is nothing) then Dim WarrantyExpDate12549 as DateTime WarrantyExpDate12549 = ItemFixedAssetRet.WarrantyExpDate.GetValue() End If 'Get value of Notes if ( not ItemFixedAssetRet.Notes is nothing) then Dim Notes12550 as String Notes12550 = ItemFixedAssetRet.Notes.GetValue() End If 'Get value of AssetNumber if ( not ItemFixedAssetRet.AssetNumber is nothing) then Dim AssetNumber12551 as String AssetNumber12551 = ItemFixedAssetRet.AssetNumber.GetValue() End If 'Get value of CostBasis if ( not ItemFixedAssetRet.CostBasis is nothing) then Dim CostBasis12552 as Double CostBasis12552 = ItemFixedAssetRet.CostBasis.GetValue() End If 'Get value of YearEndAccumulatedDepreciation if ( not ItemFixedAssetRet.YearEndAccumulatedDepreciation is nothing) then Dim YearEndAccumulatedDepreciation12553 as Double YearEndAccumulatedDepreciation12553 = ItemFixedAssetRet.YearEndAccumulatedDepreciation.GetValue() End If 'Get value of YearEndBookValue if ( not ItemFixedAssetRet.YearEndBookValue is nothing) then Dim YearEndBookValue12554 as Double YearEndBookValue12554 = ItemFixedAssetRet.YearEndBookValue.GetValue() End If 'Get value of ExternalGUID if ( not ItemFixedAssetRet.ExternalGUID is nothing) then Dim ExternalGUID12555 as String ExternalGUID12555 = ItemFixedAssetRet.ExternalGUID.GetValue() End If if (not ItemFixedAssetRet.DataExtRetList is nothing) Dim i12556 as Integer for i12556 = 0 to ItemFixedAssetRet.DataExtRetList.Count - 1 Dim DataExtRet as IDataExtRet DataExtRet = ItemFixedAssetRet.DataExtRetList.GetAt(i12556) 'Get value of OwnerID if ( not DataExtRetOwnerID is nothing) then Dim OwnerID12557 as String OwnerID12557 = DataExtRetOwnerID.GetValue() End If 'Get value of DataExtName Dim DataExtName12558 as String DataExtName12558 = DataExtRetDataExtName.GetValue() 'Get value of DataExtType Dim DataExtType12559 as ENDataExtType DataExtType12559 = DataExtRetDataExtType.GetValue() 'Get value of DataExtValue Dim DataExtValue12560 as String DataExtValue12560 = DataExtRetDataExtValue.GetValue() Next i12556 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 | //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 DoItemFixedAssetMod() { 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; BuildItemFixedAssetModRq(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; WalkItemFixedAssetModRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildItemFixedAssetModRq(IMsgSetRequest requestMsgSet) { IItemFixedAssetMod ItemFixedAssetModRq= requestMsgSet.AppendItemFixedAssetModRq(); //Set field value for ListID ItemFixedAssetModRq.ListID.SetValue("200000-1011023419"); //Set field value for EditSequence ItemFixedAssetModRq.EditSequence.SetValue("ab"); //Set field value for Name ItemFixedAssetModRq.Name.SetValue("ab"); //Set field value for BarCodeValue ItemFixedAssetModRq.BarCode.BarCodeValue.SetValue("ab"); //Set field value for AssignEvenIfUsed ItemFixedAssetModRq.BarCode.AssignEvenIfUsed.SetValue(true); //Set field value for AllowOverride ItemFixedAssetModRq.BarCode.AllowOverride.SetValue(true); //Set field value for IsActive ItemFixedAssetModRq.IsActive.SetValue(true); //Set field value for ListID ItemFixedAssetModRq.ClassRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName ItemFixedAssetModRq.ClassRef.FullName.SetValue("ab"); //Set field value for AcquiredAs ItemFixedAssetModRq.AcquiredAs.SetValue(ENAcquiredAs.aaNew); //Set field value for PurchaseDesc ItemFixedAssetModRq.PurchaseDesc.SetValue("ab"); //Set field value for PurchaseDate ItemFixedAssetModRq.PurchaseDate.SetValue(DateTime.Parse("12/15/2007")); //Set field value for PurchaseCost ItemFixedAssetModRq.PurchaseCost.SetValue(15.65); //Set field value for VendorOrPayeeName ItemFixedAssetModRq.VendorOrPayeeName.SetValue("ab"); //Set field value for ListID ItemFixedAssetModRq.AssetAccountRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName ItemFixedAssetModRq.AssetAccountRef.FullName.SetValue("ab"); //Set field value for SalesDesc ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesDesc.SetValue("ab"); //Set field value for SalesDate ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesDate.SetValue(DateTime.Parse("12/15/2007")); //Set field value for SalesPrice ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesPrice.SetValue(15.65); //Set field value for SalesExpense ItemFixedAssetModRq.FixedAssetSalesInfoMod.SalesExpense.SetValue(15.65); //Set field value for AssetDesc ItemFixedAssetModRq.AssetDesc.SetValue("ab"); //Set field value for Location ItemFixedAssetModRq.Location.SetValue("ab"); //Set field value for PONumber ItemFixedAssetModRq.PONumber.SetValue("ab"); //Set field value for SerialNumber ItemFixedAssetModRq.SerialNumber.SetValue("ab"); //Set field value for WarrantyExpDate ItemFixedAssetModRq.WarrantyExpDate.SetValue(DateTime.Parse("12/15/2007")); //Set field value for Notes ItemFixedAssetModRq.Notes.SetValue("ab"); //Set field value for AssetNumber ItemFixedAssetModRq.AssetNumber.SetValue("ab"); //Set field value for CostBasis ItemFixedAssetModRq.CostBasis.SetValue(10.01); //Set field value for YearEndAccumulatedDepreciation ItemFixedAssetModRq.YearEndAccumulatedDepreciation.SetValue(10.01); //Set field value for YearEndBookValue ItemFixedAssetModRq.YearEndBookValue.SetValue(10.01); //Set field value for IncludeRetElementList //May create more than one of these if needed ItemFixedAssetModRq.IncludeRetElementList.Add("ab"); } void WalkItemFixedAssetModRs(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.rtItemFixedAssetModRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above IItemFixedAssetRet ItemFixedAssetRet = (IItemFixedAssetRet)response.Detail; WalkItemFixedAssetRet(ItemFixedAssetRet); } } } } } void WalkItemFixedAssetRet(IItemFixedAssetRet ItemFixedAssetRet) { if (ItemFixedAssetRet == null) return; //Go through all the elements of IItemFixedAssetRet //Get value of ListID string ListID12489 = (string)ItemFixedAssetRet.ListID.GetValue(); //Get value of TimeCreated DateTime TimeCreated12490 = (DateTime)ItemFixedAssetRet.TimeCreated.GetValue(); //Get value of TimeModified DateTime TimeModified12491 = (DateTime)ItemFixedAssetRet.TimeModified.GetValue(); //Get value of EditSequence string EditSequence12492 = (string)ItemFixedAssetRet.EditSequence.GetValue(); //Get value of Name string Name12493 = (string)ItemFixedAssetRet.Name.GetValue(); //Get value of BarCodeValue if (ItemFixedAssetRet.BarCodeValue != null) { string BarCodeValue12494 = (string)ItemFixedAssetRet.BarCodeValue.GetValue(); } //Get value of IsActive if (ItemFixedAssetRet.IsActive != null) { bool IsActive12495 = (bool)ItemFixedAssetRet.IsActive.GetValue(); } if (ItemFixedAssetRet.ClassRef != null) { //Get value of ListID if (ItemFixedAssetRet.ClassRef.ListID != null) { string ListID12496 = (string)ItemFixedAssetRet.ClassRef.ListID.GetValue(); } //Get value of FullName if (ItemFixedAssetRet.ClassRef.FullName != null) { string FullName12497 = (string)ItemFixedAssetRet.ClassRef.FullName.GetValue(); } } //Get value of AcquiredAs ENAcquiredAs AcquiredAs12498 = (ENAcquiredAs)ItemFixedAssetRet.AcquiredAs.GetValue(); //Get value of PurchaseDesc string PurchaseDesc12499 = (string)ItemFixedAssetRet.PurchaseDesc.GetValue(); //Get value of PurchaseDate DateTime PurchaseDate12500 = (DateTime)ItemFixedAssetRet.PurchaseDate.GetValue(); //Get value of PurchaseCost if (ItemFixedAssetRet.PurchaseCost != null) { double PurchaseCost12501 = (double)ItemFixedAssetRet.PurchaseCost.GetValue(); } //Get value of VendorOrPayeeName if (ItemFixedAssetRet.VendorOrPayeeName != null) { string VendorOrPayeeName12502 = (string)ItemFixedAssetRet.VendorOrPayeeName.GetValue(); } if (ItemFixedAssetRet.AssetAccountRef != null) { //Get value of ListID if (ItemFixedAssetRet.AssetAccountRef.ListID != null) { string ListID12503 = (string)ItemFixedAssetRet.AssetAccountRef.ListID.GetValue(); } //Get value of FullName if (ItemFixedAssetRet.AssetAccountRef.FullName != null) { string FullName12504 = (string)ItemFixedAssetRet.AssetAccountRef.FullName.GetValue(); } } if (ItemFixedAssetRet.FixedAssetSalesInfo != null) { //Get value of SalesDesc string SalesDesc12505 = (string)ItemFixedAssetRet.FixedAssetSalesInfo.SalesDesc.GetValue(); //Get value of SalesDate DateTime SalesDate12506 = (DateTime)ItemFixedAssetRet.FixedAssetSalesInfo.SalesDate.GetValue(); //Get value of SalesPrice if (ItemFixedAssetRet.FixedAssetSalesInfo.SalesPrice != null) { double SalesPrice12507 = (double)ItemFixedAssetRet.FixedAssetSalesInfo.SalesPrice.GetValue(); } //Get value of SalesExpense if (ItemFixedAssetRet.FixedAssetSalesInfo.SalesExpense != null) { double SalesExpense12508 = (double)ItemFixedAssetRet.FixedAssetSalesInfo.SalesExpense.GetValue(); } } //Get value of AssetDesc if (ItemFixedAssetRet.AssetDesc != null) { string AssetDesc12509 = (string)ItemFixedAssetRet.AssetDesc.GetValue(); } //Get value of Location if (ItemFixedAssetRet.Location != null) { string Location12510 = (string)ItemFixedAssetRet.Location.GetValue(); } //Get value of PONumber if (ItemFixedAssetRet.PONumber != null) { string PONumber12511 = (string)ItemFixedAssetRet.PONumber.GetValue(); } //Get value of SerialNumber if (ItemFixedAssetRet.SerialNumber != null) { string SerialNumber12512 = (string)ItemFixedAssetRet.SerialNumber.GetValue(); } //Get value of WarrantyExpDate if (ItemFixedAssetRet.WarrantyExpDate != null) { DateTime WarrantyExpDate12513 = (DateTime)ItemFixedAssetRet.WarrantyExpDate.GetValue(); } //Get value of Notes if (ItemFixedAssetRet.Notes != null) { string Notes12514 = (string)ItemFixedAssetRet.Notes.GetValue(); } //Get value of AssetNumber if (ItemFixedAssetRet.AssetNumber != null) { string AssetNumber12515 = (string)ItemFixedAssetRet.AssetNumber.GetValue(); } //Get value of CostBasis if (ItemFixedAssetRet.CostBasis != null) { double CostBasis12516 = (double)ItemFixedAssetRet.CostBasis.GetValue(); } //Get value of YearEndAccumulatedDepreciation if (ItemFixedAssetRet.YearEndAccumulatedDepreciation != null) { double YearEndAccumulatedDepreciation12517 = (double)ItemFixedAssetRet.YearEndAccumulatedDepreciation.GetValue(); } //Get value of YearEndBookValue if (ItemFixedAssetRet.YearEndBookValue != null) { double YearEndBookValue12518 = (double)ItemFixedAssetRet.YearEndBookValue.GetValue(); } //Get value of ExternalGUID if (ItemFixedAssetRet.ExternalGUID != null) { string ExternalGUID12519 = (string)ItemFixedAssetRet.ExternalGUID.GetValue(); } if (ItemFixedAssetRet.DataExtRetList != null) { for (int i12520 = 0; i12520 < ItemFixedAssetRet.DataExtRetList.Count; i12520++) { IDataExtRet DataExtRet = ItemFixedAssetRet.DataExtRetList.GetAt(i12520); //Get value of OwnerID if (DataExtRet.OwnerID != null) { string OwnerID12521 = (string)DataExtRet.OwnerID.GetValue(); } //Get value of DataExtName string DataExtName12522 = (string)DataExtRet.DataExtName.GetValue(); //Get value of DataExtType ENDataExtType DataExtType12523 = (ENDataExtType)DataExtRet.DataExtType.GetValue(); //Get value of DataExtValue string DataExtValue12524 = (string)DataExtRet.DataExtValue.GetValue(); } } } } } |