TransferSlipAdd

Creates a transfer slip in the QBPOS company. Available only for multi-store versions of QBPOS.


Request

Response

XMLOPS

VB.NET

C#

Tag Type Max length Implementation Required

ITransferSlipAdd

Creates a transfer slip in the QBPOS company. Available only for multi-store versions of QBPOS.
        

defMacro

You use a macro in a request message set if you need to create some object in one request, then refer to it in a subsequent request within that same message set. For example, you could create an inventory item and then include that item as a line item in a sales order all in one request message set, rather than create the item, query for it, then include it in a separate SalesOrderAdd request. In this latter case, you are accessing QBPOS three times, versus only once, using macros. The item to be referenced is specified via the defmacro. The actual reference to that item in the succeeding request is done via the use macro, as follows: ItemInventoryAdd defMacro=”ListID:Inv1” In the above line, you simply replace Inv1 with the name you want to give the macro. When you reference this macro in another request (one that requires that object’s listID) in the same message set, you use this syntax: ListID useMacro=”ListID:Inv1” This is covered in more detail in the Programming Guide.
 IQBStringType   2.0  

Associate

The employee making the adjustment transaction.
 IQBStringType 40 chars    

Carrier

Shipping company used to transfer the merchandise.
 IQBStringType 15 chars    

Comments

The Comment field contains a description of the transaction, for example, why a memo was issued, or why cash was paid out (receipt).
 IQBStringType 2000 chars    

Freight

Price charged by the shipping carrier to move the merchandise between the stores involved in the transaction. You can use this field to record freight charges associated with the transfer to provide a record of these charges to compare to a freight bill later.
 IQBAmountType      

FromStoreNumber

Available for multi-store versions of QBPOS. Specifies the starting value of the Store Number range. Only memos whose Store Number value is at this value level or higher will be returned in the query.
 IQBIntType     Y

QuickBooksFlag

This element is used only if QBPOS is being used with QuickBooks Financial Software. The value here displays the status of data export for a memo: NOT POSTED (not yet sent to QuickBooks), COMPLETE (sent to QuickBooks), or ERROR (attempting to send the memo to QuickBooks resulted in an error). Values: NotPosted, Completed, Error, UnbilledPurchases No default value.
 IQBENQuickBooksFlagType      

SlipETA

Estimated time of arrival of the merchandise at the destination store (To Store).
 IQBDateType      

ToStoreNumber

Specifies the ending value of the Store Number range. Only memos whose Store Number value falls between the FromStoreNumber value and this value will be returned in the query.
 IQBIntType     Y

TxnDate

The date of the transaction. In some cases, if you leave TxnDate out of an -Add message, QuickBooks will prefill TxnDate with the date of the last-saved transaction of the same type.
 IQBDateType      

TxnState

Indicates whether the transaction is complete (Normal) or is a “held document” (Held) which means it is not yet finalized. For example, a saved draft pending while awaiting some work or decision.
 IQBENTxnStateType   1.1  

Workstation

Workstation from which the transaction was made.
 IQBIntType      

TransferSlipItemAddList

The list of transfer slip line items in the TransferSlipAdd request.
 ITransferSlipItemAddList      

(List of ITransferSlipItemAdd Objects)

        

ListID

The unique ID returned by QBPOS for this object. If supplied in a request, the ListID is a reference to an object required in the request. For example, in a SalesOrder or PurchaseOrder line item, the ListID that is required is an Item list ID.
 IQBIDType     Y

useMacro

You use a macro in a request message set if you need to create some object in one request, then refer to it in a subsequent request within that same message set. For example, you could create an inventory item and then include that item as a line item in a sales order all in one request message set, rather than create the item, query for it, then include it in a separate SalesOrderAdd request. In this latter case, you are accessing QBPOS three times, versus only once, using macros. The item to be referenced is specified via the defmacro. The actual reference to that item in the succeeding request is done via the use macro, as follows: ItemInventoryAdd defMacro=”ListID:Inv1” In the above line, you simply replace Inv1 with the name you want to give the macro. When you reference this macro in another request (one that requires that object’s listID) in the same message set, you use this syntax: ListID useMacro=”ListID:Inv1” This is covered in more detail in the Programming Guide.
 IQBStringType   2.0  

Qty

The quantity of the line item being ordered or transferred.
 IQBQuanType      

SerialNumber

Item serial numbers can be recorded in QBPOS for purposes of warranty tracking or meeting legal requirements. Once recorded, former documents can be quickly located by searching by serial number. To use serial number tracking: 1. In inventory, specify those items for which you want to record serial numbers by selecting PROMPT in the Serial # Tracking field. 2. When listing these items on documents (except purchase orders and cost memos), the QBPOS user is prompted to enter a unique serial number for each unit being processed. If listing several items on a document for which you have set the serial number requirement, the user is prompted to enter serial numbers for each unit of each of those items in sequence.
 IQBStringType 25 chars    

UnitOfMeasure

If the company is using only a single unit of measure, this specifies the unit of measure for the item. If the company is using multiple units of measure, this specifies the base unit of measure for the item. Inventory quantities are tracked and reported in terms of this base unit.
 IQBStringType 20 chars 2.0  

IncludeRetElementList

You can use the IncludeRetElement feature to restrict the data returned in the response to the specified qbposXML field here. If you do this, only those elements specified will be returned. To use this feature, you simply add the qbposXML element name to the IncludeRetElementList. The following example shows how to do this, specifying that only the CreatedBy and ClockOutTime elements are to be returned in the TimeEntryAdd response: Dim MyTimeEntry As ITimeEntryAdd Set MyTimeEntry = requestMsgSet.AppendTimeEntryAddRq MyTimeEntry.IncludeRetElementList.Add “CreatedBy” MyTimeEntry.IncludeRetElementList.Add “ClockOutTime” ‘ set the other properties as desired…
 IBSTRList 50 chars 2.0  
Tag Type Max length Implementation Required

IResponse

Creates a transfer slip in the QBPOS company. Available only for multi-store versions of QBPOS.
        

StatusCode

A number that corresponds to a statusSeverity and statusMessage. Five status codes relate directly to signon messages: 2000, 2010, 2020, 2030, and 2040. For details about these and other statusCode values that can be returned, see the statusCode table on the Error Codes page.
 IQBIntType     Y

StatusSeverity

One of the following values: INFO The request was completed, and the results are consistent with what your application expected. WARNING The request was completed, but the results might not be consistent with what you expected. ERROR The request was not completed. No data will appear in the server’s response after the statusMessage.
 IQBStringType     Y

StatusMessage

A user-readable explanation of the success or error condition that is indicated by the statusCode. For details about the statusMessage values that can be returned, see the “Explanation” column of the statusCode table on the Error Codes page.
 IQBStringType     Y

Detail

 ITransferSlipRet      

TxnID

QuickBooks generates a unique TxnID for each transaction that is added to QuickBooks. A TxnID returned from a request can be used to refer to the transaction in subsequent requests. Notice that you cannot supply the TxnID of a TimeTracking transaction to TransactionQueryRq requests. If you do, you get an error stating that no such record could be found, even though the transaction is in QuickBooks. This behavior reflects the behavior in the QuicKBooks UI in the Find window.
 IQBIDType      

TimeCreated

The timestamp indicating the time when this object was created in QBPOS.
 IQBDateTimeType   1.1  

TimeModified

The time when the object was modified by QBPOS.
 IQBDateTimeType      

Associate

The employee making the adjustment transaction.
 IQBStringType 40 chars    

Carrier

Shipping company used to transfer the merchandise.
 IQBStringType 15 chars    

Comments

The Comment field contains a description of the transaction, for example, why a memo was issued, or why cash was paid out (receipt).
 IQBStringType 2000 chars    

Freight

Price charged by the shipping carrier to move the merchandise between the stores involved in the transaction. You can use this field to record freight charges associated with the transfer to provide a record of these charges to compare to a freight bill later.
 IQBAmountType      

FromStoreNumber

Available for multi-store versions of QBPOS. Specifies the starting value of the Store Number range. Only memos whose Store Number value is at this value level or higher will be returned in the query.
 IQBIntType      

HistoryDocStatus

Indicates the current status of the cost memo created as a result of this request. Status of reversed means that this was an original memo that had to be corrected. Status of reversing means that this memo caused an older memo to be reversed. Status of regular means that the document has been corrected.
 IQBENHistoryDocStatusType      

ItemsCount

The number of line items in the adjustment add request that added the adjustment to QBPOS.
 IQBIntType      

QuickBooksFlag

This element is used only if QBPOS is being used with QuickBooks Financial Software. The value here displays the status of data export for a memo: NOT POSTED (not yet sent to QuickBooks), COMPLETE (sent to QuickBooks), or ERROR (attempting to send the memo to QuickBooks resulted in an error). Values: NotPosted, Completed, Error, UnbilledPurchases No default value.
 IQBENQuickBooksFlagType      

SlipETA

Estimated time of arrival of the merchandise at the destination store (To Store).
 IQBDateType      

SlipNumber

This is a unique number automatically assigned to the transfer slip at creation time by QBPOS.
 IQBIntType      

StoreExchangeStatus

In multi store configurations, if the customer’s information has changed, this information is updated at the headquarters store. This response field indicates whether the information was successfully updated or not.
 IQBENStoreExchangeStatusType      

ToStoreNumber

Specifies the ending value of the Store Number range. Only memos whose Store Number value falls between the FromStoreNumber value and this value will be returned in the query.
 IQBIntType      

TotalCost

The sum of the listed item’s extended costs. Note: Individual item extended costs are not displayed on the slip.
 IQBAmountType      

TotalQty

Total quantity of items being transferred.
 IQBQuanType      

TxnDate

The date of the transaction. In some cases, if you leave TxnDate out of an -Add message, QuickBooks will prefill TxnDate with the date of the last-saved transaction of the same type.
 IQBDateType      

TxnState

Indicates whether the transaction is complete (Normal) or is a “held document” (Held) which means it is not yet finalized. For example, a saved draft pending while awaiting some work or decision.
 IQBENTxnStateType   1.1  

Workstation

Workstation from which the transaction was made.
 IQBIntType      

TransferSlipItemRetList

The list of transfer slip line items in the TransferSlipAdd request.
 ITransferSlipItemRetList      

(List of ITransferSlipItemRet Objects)

        

ListID

The unique ID returned by QBPOS for this object. If supplied in a request, the ListID is a reference to an object required in the request. For example, in a SalesOrder or PurchaseOrder line item, the ListID that is required is an Item list ID.
 IQBIDType      

NumberOfBaseUnits

If you use multiple units of measure, rather than a single UOM, you need to select one of the UOMs as the base unit. This base unit should be the smallest unit that you sell by. Inventory quantities are always expressed in terms of this base unit.
 IQBQuanType   2.0  

Qty

The quantity of the line item being ordered or transferred.
 IQBQuanType      

SerialNumber

Item serial numbers can be recorded in QBPOS for purposes of warranty tracking or meeting legal requirements. Once recorded, former documents can be quickly located by searching by serial number. To use serial number tracking: 1. In inventory, specify those items for which you want to record serial numbers by selecting PROMPT in the Serial # Tracking field. 2. When listing these items on documents (except purchase orders and cost memos), the QBPOS user is prompted to enter a unique serial number for each unit being processed. If listing several items on a document for which you have set the serial number requirement, the user is prompted to enter serial numbers for each unit of each of those items in sequence.
 IQBStringType 25 chars    

UnitOfMeasure

If the company is using only a single unit of measure, this specifies the unit of measure for the item. If the company is using multiple units of measure, this specifies the base unit of measure for the item. Inventory quantities are tracked and reported in terms of this base unit.
 IQBStringType 20 chars 2.0  

DataExtRetList

If you specify any custom fields/private data extensions to be returned in the query request (in the OwnerIDList), then this Ret List will contain all of the data extensions that belong to each specified OwnerID. For example, if you specify an OwnerID value of 0 (custom fields), then the query will return all custom data for the returned records.
 IDataExtRetList   1.2  

(List of IDataExtRet Objects)

        

OwnerID

OwnerID refers to the owner of a data extension, and must be 0 or a valid GUID. (Custom fields, which are visible in the QuickBooks UI, always have an OwnerID of 0. ) Usually you would keep your application’s GUID confidential to prevent other applications from accessing your data extensions. But if you want to share data extensions with another application, the applications need to use the same GUID. In this case, each application could use two GUIDs, one for shared data extensions and one for confidential data extensions. (An application can have any number of GUIDs.) When you share a data extension with another application, the other application must know both the OwnerID and the DataExtName, as these together form a data extension’s unique name.
 IQBGUIDType     Y

DataExtName

The name of the data extension. If this is a custom field, DataExtName will be visible as a label in the QuickBooks user interface. Also because OwnerID and DataExtName together make the data extension unique, and because custom fields all have the same OwnerID of zero, the DataExtName must be a unique value among existing custom fields. In contrast, the DataExtName for private data extensions must be unique only for the specified OwnerID GUID.
 IQBStringType     Y

DataExtType

b>DataExtType The type of the data extension.
 IQBENDataExtTypeType     Y

DataExtValue

The data in this field. The maximum length of DataExtValue will depend on the DataExtType of this data extension. For example, if DataExtType is STR255TYPE, the maximum length of DataExtValue is 255 characters. If DataExtType is STR1024TYPE, the maximum size of DataExtValue is 1KB.
 IQBStringType     Y 

 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
<?xml version="1.0" encoding="utf-8"?>
<?qbposxml version="4.0"?>
<QBPOSXML>
        <QBPOSXMLMsgsRq onError="stopOnError">
                <TransferSlipAddRq>
                        <TransferSlipAdd defMacro="MACROTYPE"> <!-- required -->
                                <Associate >STRTYPE</Associate> <!-- optional -->
                                <Carrier >STRTYPE</Carrier> <!-- optional -->
                                <Comments >STRTYPE</Comments> <!-- optional -->
                                <Freight >AMTTYPE</Freight> <!-- optional -->
                                <FromStoreNumber >INTTYPE</FromStoreNumber> <!-- required -->
                                <!-- QuickBooksFlag may have one of the following values: NotPosted, Completed, Error, UnbilledPurchases -->
                                <QuickBooksFlag >ENUMTYPE</QuickBooksFlag> <!-- optional -->
                                <SlipETA >DATETYPE</SlipETA> <!-- optional -->
                                <ToStoreNumber >INTTYPE</ToStoreNumber> <!-- required -->
                                <TxnDate >DATETYPE</TxnDate> <!-- optional -->
                                <!-- TxnState may have one of the following values: Normal, Held -->
                                <TxnState >ENUMTYPE</TxnState> <!-- optional -->
                                <Workstation >INTTYPE</Workstation> <!-- optional -->
                                <TransferSlipItemAdd> <!-- optional, may repeat -->
                                        <ListID  useMacro="MACROTYPE">IDTYPE</ListID> <!-- required -->
                                        <Qty >QUANTYPE</Qty> <!-- optional -->
                                        <SerialNumber >STRTYPE</SerialNumber> <!-- optional -->
                                        <UnitOfMeasure >STRTYPE</UnitOfMeasure> <!-- optional -->
                                </TransferSlipItemAdd>
                        </TransferSlipAdd>
                        <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat -->
                </TransferSlipAddRq>

                <TransferSlipAddRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE">
                        <TransferSlipRet> <!-- optional -->
                                <TxnID >IDTYPE</TxnID> <!-- optional -->
                                <TimeCreated >DATETIMETYPE</TimeCreated> <!-- optional -->
                                <TimeModified >DATETIMETYPE</TimeModified> <!-- optional -->
                                <Associate >STRTYPE</Associate> <!-- optional -->
                                <Carrier >STRTYPE</Carrier> <!-- optional -->
                                <Comments >STRTYPE</Comments> <!-- optional -->
                                <Freight >AMTTYPE</Freight> <!-- optional -->
                                <FromStoreNumber >INTTYPE</FromStoreNumber> <!-- optional -->
                                <!-- HistoryDocStatus may have one of the following values: Regular, Reversed, Reversing -->
                                <HistoryDocStatus >ENUMTYPE</HistoryDocStatus> <!-- optional -->
                                <ItemsCount >INTTYPE</ItemsCount> <!-- optional -->
                                <!-- QuickBooksFlag may have one of the following values: NotPosted, Completed, Error, UnbilledPurchases -->
                                <QuickBooksFlag >ENUMTYPE</QuickBooksFlag> <!-- optional -->
                                <SlipETA >DATETYPE</SlipETA> <!-- optional -->
                                <SlipNumber >INTTYPE</SlipNumber> <!-- optional -->
                                <!-- StoreExchangeStatus may have one of the following values: Modified, Sent, Acknowledged -->
                                <StoreExchangeStatus >ENUMTYPE</StoreExchangeStatus> <!-- optional -->
                                <ToStoreNumber >INTTYPE</ToStoreNumber> <!-- optional -->
                                <TotalCost >AMTTYPE</TotalCost> <!-- optional -->
                                <TotalQty >QUANTYPE</TotalQty> <!-- optional -->
                                <TxnDate >DATETYPE</TxnDate> <!-- optional -->
                                <!-- TxnState may have one of the following values: Normal, Held -->
                                <TxnState >ENUMTYPE</TxnState> <!-- optional -->
                                <Workstation >INTTYPE</Workstation> <!-- optional -->
                                <TransferSlipItemRet> <!-- optional, may repeat -->
                                        <ListID >IDTYPE</ListID> <!-- optional -->
                                        <NumberOfBaseUnits >QUANTYPE</NumberOfBaseUnits> <!-- optional -->
                                        <Qty >QUANTYPE</Qty> <!-- optional -->
                                        <SerialNumber >STRTYPE</SerialNumber> <!-- optional -->
                                        <UnitOfMeasure >STRTYPE</UnitOfMeasure> <!-- optional -->
                                </TransferSlipItemRet>
                                <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>
                        </TransferSlipRet>
                </TransferSlipAddRs>
        </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
'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 SampleTransferSlipAdd
                Public Sub  DoTransferSlipAdd()
                        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

                                BuildTransferSlipAddRq(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

                                WalkTransferSlipAddRs(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 BuildTransferSlipAddRq(requestMsgSet as IMsgSetRequest)
                        Dim TransferSlipAddRq as ITransferSlipAdd
                        TransferSlipAddRq= requestMsgSet.AppendTransferSlipAddRq()
                        'Set field value for Associate
                        TransferSlipAddRq.Associate.SetValue("ab")
                        'Set field value for Carrier
                        TransferSlipAddRq.Carrier.SetValue("ab")
                        'Set field value for Comments
                        TransferSlipAddRq.Comments.SetValue("ab")
                        'Set field value for Freight
                        TransferSlipAddRq.Freight.SetValue(10.01)
                        'Set field value for FromStoreNumber
                        TransferSlipAddRq.FromStoreNumber.SetValue(6)
                        'Set field value for QuickBooksFlag
                        TransferSlipAddRq.QuickBooksFlag.SetValue(ENQuickBooksFlag.qbfNotPosted)
                        'Set field value for SlipETA
                        TransferSlipAddRq.SlipETA.SetValue(DateTime.Parse("12/15/2007"))
                        'Set field value for ToStoreNumber
                        TransferSlipAddRq.ToStoreNumber.SetValue(6)
                        'Set field value for TxnDate
                        TransferSlipAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007"))
                        'Set field value for TxnState
                        TransferSlipAddRq.TxnState.SetValue(ENTxnState.tsNormal)
                        'Set field value for Workstation
                        TransferSlipAddRq.Workstation.SetValue(6)
                        Dim TransferSlipItemAdd4341 as ITransferSlipItemAdd
                        TransferSlipItemAdd4341=TransferSlipAddRq.TransferSlipItemAddList.Append()
                        'Set field value for ListID
                        TransferSlipItemAdd4341.ListID.SetValue("200000-1011023419")
                        'Set attributes
                        'Set field value for ListID to use Macro
                        TransferSlipItemAdd4341.ListID.SetValueUseMacro("200000-1011023419")
                        'Set field value for Qty
                        TransferSlipItemAdd4341.Qty.SetValue(2)
                        'Set field value for SerialNumber
                        TransferSlipItemAdd4341.SerialNumber.SetValue("ab")
                        'Set field value for UnitOfMeasure
                        TransferSlipItemAdd4341.UnitOfMeasure.SetValue("ab")
                        'Set field value for IncludeRetElementList
                        'May create more than one of these if needed
                        TransferSlipAddRq.IncludeRetElementList.Add("ab")
                End Sub




                Public Sub WalkTransferSlipAddRs( 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.rtTransferSlipAddRs) then
                                                        'upcast to more specific type here, this is safe because we checked with response.Type check above
                                                        Dim TransferSlipRet as ITransferSlipRet
                                                        TransferSlipRet = CType(response.Detail,ITransferSlipRet)
                                                                WalkTransferSlipRet(TransferSlipRet)
                                                End If
                                        End If
                                End If
                        Next j
                End Sub




                Public Sub WalkTransferSlipRet(TransferSlipRet as ITransferSlipRet)
                        if (TransferSlipRet is nothing) then
                                Exit Sub
                        End If

                        'Go through all the elements of ITransferSlipRet
                        'Get value of TxnID
                        if ( not TransferSlipRet.TxnID is nothing) then
                                Dim TxnID4342 as String
                                TxnID4342 = TransferSlipRet.TxnID.GetValue()
                        End If
                        'Get value of TimeCreated
                        if ( not TransferSlipRet.TimeCreated is nothing) then
                                Dim TimeCreated4343 as DateTime
                                TimeCreated4343 = TransferSlipRet.TimeCreated.GetValue()
                        End If
                        'Get value of TimeModified
                        if ( not TransferSlipRet.TimeModified is nothing) then
                                Dim TimeModified4344 as DateTime
                                TimeModified4344 = TransferSlipRet.TimeModified.GetValue()
                        End If
                        'Get value of Associate
                        if ( not TransferSlipRet.Associate is nothing) then
                                Dim Associate4345 as String
                                Associate4345 = TransferSlipRet.Associate.GetValue()
                        End If
                        'Get value of Carrier
                        if ( not TransferSlipRet.Carrier is nothing) then
                                Dim Carrier4346 as String
                                Carrier4346 = TransferSlipRet.Carrier.GetValue()
                        End If
                        'Get value of Comments
                        if ( not TransferSlipRet.Comments is nothing) then
                                Dim Comments4347 as String
                                Comments4347 = TransferSlipRet.Comments.GetValue()
                        End If
                        'Get value of Freight
                        if ( not TransferSlipRet.Freight is nothing) then
                                Dim Freight4348 as Double
                                Freight4348 = TransferSlipRet.Freight.GetValue()
                        End If
                        'Get value of FromStoreNumber
                        if ( not TransferSlipRet.FromStoreNumber is nothing) then
                                Dim FromStoreNumber4349 as Integer
                                FromStoreNumber4349 = TransferSlipRet.FromStoreNumber.GetValue()
                        End If
                        'Get value of HistoryDocStatus
                        if ( not TransferSlipRet.HistoryDocStatus is nothing) then
                                Dim HistoryDocStatus4350 as ENHistoryDocStatus
                                HistoryDocStatus4350 = TransferSlipRet.HistoryDocStatus.GetValue()
                        End If
                        'Get value of ItemsCount
                        if ( not TransferSlipRet.ItemsCount is nothing) then
                                Dim ItemsCount4351 as Integer
                                ItemsCount4351 = TransferSlipRet.ItemsCount.GetValue()
                        End If
                        'Get value of QuickBooksFlag
                        if ( not TransferSlipRet.QuickBooksFlag is nothing) then
                                Dim QuickBooksFlag4352 as ENQuickBooksFlag
                                QuickBooksFlag4352 = TransferSlipRet.QuickBooksFlag.GetValue()
                        End If
                        'Get value of SlipETA
                        if ( not TransferSlipRet.SlipETA is nothing) then
                                Dim SlipETA4353 as DateTime
                                SlipETA4353 = TransferSlipRet.SlipETA.GetValue()
                        End If
                        'Get value of SlipNumber
                        if ( not TransferSlipRet.SlipNumber is nothing) then
                                Dim SlipNumber4354 as Integer
                                SlipNumber4354 = TransferSlipRet.SlipNumber.GetValue()
                        End If
                        'Get value of StoreExchangeStatus
                        if ( not TransferSlipRet.StoreExchangeStatus is nothing) then
                                Dim StoreExchangeStatus4355 as ENStoreExchangeStatus
                                StoreExchangeStatus4355 = TransferSlipRet.StoreExchangeStatus.GetValue()
                        End If
                        'Get value of ToStoreNumber
                        if ( not TransferSlipRet.ToStoreNumber is nothing) then
                                Dim ToStoreNumber4356 as Integer
                                ToStoreNumber4356 = TransferSlipRet.ToStoreNumber.GetValue()
                        End If
                        'Get value of TotalCost
                        if ( not TransferSlipRet.TotalCost is nothing) then
                                Dim TotalCost4357 as Double
                                TotalCost4357 = TransferSlipRet.TotalCost.GetValue()
                        End If
                        'Get value of TotalQty
                        if ( not TransferSlipRet.TotalQty is nothing) then
                                Dim TotalQty4358 as Double
                                TotalQty4358 = TransferSlipRet.TotalQty.GetValue()
                        End If
                        'Get value of TxnDate
                        if ( not TransferSlipRet.TxnDate is nothing) then
                                Dim TxnDate4359 as DateTime
                                TxnDate4359 = TransferSlipRet.TxnDate.GetValue()
                        End If
                        'Get value of TxnState
                        if ( not TransferSlipRet.TxnState is nothing) then
                                Dim TxnState4360 as ENTxnState
                                TxnState4360 = TransferSlipRet.TxnState.GetValue()
                        End If
                        'Get value of Workstation
                        if ( not TransferSlipRet.Workstation is nothing) then
                                Dim Workstation4361 as Integer
                                Workstation4361 = TransferSlipRet.Workstation.GetValue()
                        End If
                        if (not TransferSlipRet.TransferSlipItemRetList is nothing)
                                Dim i4362 as Integer
                                for i4362 = 0  to TransferSlipRet.TransferSlipItemRetList.Count - 1
                                        Dim TransferSlipItemRet as ITransferSlipItemRet
                                        TransferSlipItemRet = TransferSlipRet.TransferSlipItemRetList.GetAt(i4362)
                                        'Get value of ListID
                                        if ( not TransferSlipItemRet.ListID is nothing) then
                                                Dim ListID4363 as String
                                                ListID4363 = TransferSlipItemRet.ListID.GetValue()
                                        End If
                                        'Get value of NumberOfBaseUnits
                                        if ( not TransferSlipItemRet.NumberOfBaseUnits is nothing) then
                                                Dim NumberOfBaseUnits4364 as Double
                                                NumberOfBaseUnits4364 = TransferSlipItemRet.NumberOfBaseUnits.GetValue()
                                        End If
                                        'Get value of Qty
                                        if ( not TransferSlipItemRet.Qty is nothing) then
                                                Dim Qty4365 as Double
                                                Qty4365 = TransferSlipItemRet.Qty.GetValue()
                                        End If
                                        'Get value of SerialNumber
                                        if ( not TransferSlipItemRet.SerialNumber is nothing) then
                                                Dim SerialNumber4366 as String
                                                SerialNumber4366 = TransferSlipItemRet.SerialNumber.GetValue()
                                        End If
                                        'Get value of UnitOfMeasure
                                        if ( not TransferSlipItemRet.UnitOfMeasure is nothing) then
                                                Dim UnitOfMeasure4367 as String
                                                UnitOfMeasure4367 = TransferSlipItemRet.UnitOfMeasure.GetValue()
                                        End If
                                Next i4362
                        End If
                        if (not TransferSlipRet.DataExtRetList is nothing)
                                Dim i4368 as Integer
                                for i4368 = 0  to TransferSlipRet.DataExtRetList.Count - 1
                                        Dim DataExtRet as IDataExtRet
                                        DataExtRet = TransferSlipRet.DataExtRetList.GetAt(i4368)
                                        'Get value of OwnerID
                                        Dim OwnerID4369 as String
                                        OwnerID4369 = DataExtRet.OwnerID.GetValue()
                                        'Get value of DataExtName
                                        Dim DataExtName4370 as String
                                        DataExtName4370 = DataExtRet.DataExtName.GetValue()
                                        'Get value of DataExtType
                                        Dim DataExtType4371 as ENDataExtType
                                        DataExtType4371 = DataExtRet.DataExtType.GetValue()
                                        'Get value of DataExtValue
                                        Dim DataExtValue4372 as String
                                        DataExtValue4372 = DataExtRet.DataExtValue.GetValue()
                                Next i4368
                        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
//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 SampleTransferSlipAdd
        {
                public void  DoTransferSlipAdd()
                {
                        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;

                                BuildTransferSlipAddRq(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;

                                WalkTransferSlipAddRs(responseMsgSet);
                        }
                        catch (Exception e)
                        {
                                MessageBox.Show(e.Message, "Error");
                                if (sessionBegun)
                                {
                                        sessionManager.EndSession();
                                }
                                if (connectionOpen)
                                {
                                        sessionManager.CloseConnection();
                                }
                        }
                }
                void BuildTransferSlipAddRq(IMsgSetRequest requestMsgSet)
                {
                        ITransferSlipAdd TransferSlipAddRq= requestMsgSet.AppendTransferSlipAddRq();
                        //Set attributes
                        //Set field value for defMacro
                        TransferSlipAddRq.defMacro.SetValue("IQBStringType");
                        //Set field value for Associate
                        TransferSlipAddRq.Associate.SetValue("ab");
                        //Set field value for Carrier
                        TransferSlipAddRq.Carrier.SetValue("ab");
                        //Set field value for Comments
                        TransferSlipAddRq.Comments.SetValue("ab");
                        //Set field value for Freight
                        TransferSlipAddRq.Freight.SetValue(10.01);
                        //Set field value for FromStoreNumber
                        TransferSlipAddRq.FromStoreNumber.SetValue(6);
                        //Set field value for QuickBooksFlag
                        TransferSlipAddRq.QuickBooksFlag.SetValue(ENQuickBooksFlag.qbfNotPosted);
                        //Set field value for SlipETA
                        TransferSlipAddRq.SlipETA.SetValue(DateTime.Parse("12/15/2007"));
                        //Set field value for ToStoreNumber
                        TransferSlipAddRq.ToStoreNumber.SetValue(6);
                        //Set field value for TxnDate
                        TransferSlipAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007"));
                        //Set field value for TxnState
                        TransferSlipAddRq.TxnState.SetValue(ENTxnState.tsNormal);
                        //Set field value for Workstation
                        TransferSlipAddRq.Workstation.SetValue(6);
                        ITransferSlipItemAdd TransferSlipItemAdd4373=TransferSlipAddRq.TransferSlipItemAddList.Append();
                        //Set field value for ListID
                        TransferSlipItemAdd4373.ListID.SetValue("200000-1011023419");
                        //Set attributes
                        //Set field value for ListID to use Macro
                        TransferSlipItemAdd4373.ListID.SetValueUseMacro("200000-1011023419");
                        //Set field value for Qty
                        TransferSlipItemAdd4373.Qty.SetValue(2);
                        //Set field value for SerialNumber
                        TransferSlipItemAdd4373.SerialNumber.SetValue("ab");
                        //Set field value for UnitOfMeasure
                        TransferSlipItemAdd4373.UnitOfMeasure.SetValue("ab");
                        //Set field value for IncludeRetElementList
                        //May create more than one of these if needed
                        TransferSlipAddRq.IncludeRetElementList.Add("ab");
                }




                void WalkTransferSlipAddRs(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.rtTransferSlipAddRs)
                                                {
                                                        //upcast to more specific type here, this is safe because we checked with response.Type check above
                                                        ITransferSlipRet TransferSlipRet = (ITransferSlipRet)response.Detail;
                                                                WalkTransferSlipRet(TransferSlipRet);
                                                }
                                        }
                                }
                        }
                }




                void WalkTransferSlipRet(ITransferSlipRet TransferSlipRet)
                {
                        if (TransferSlipRet == null) return;
                        //Go through all the elements of ITransferSlipRet
                        //Get value of TxnID
                        if (TransferSlipRet.TxnID != null)
                        {
                                string TxnID4374 = (string)TransferSlipRet.TxnID.GetValue();
                        }
                        //Get value of TimeCreated
                        if (TransferSlipRet.TimeCreated != null)
                        {
                                DateTime TimeCreated4375 = (DateTime)TransferSlipRet.TimeCreated.GetValue();
                        }
                        //Get value of TimeModified
                        if (TransferSlipRet.TimeModified != null)
                        {
                                DateTime TimeModified4376 = (DateTime)TransferSlipRet.TimeModified.GetValue();
                        }
                        //Get value of Associate
                        if (TransferSlipRet.Associate != null)
                        {
                                string Associate4377 = (string)TransferSlipRet.Associate.GetValue();
                        }
                        //Get value of Carrier
                        if (TransferSlipRet.Carrier != null)
                        {
                                string Carrier4378 = (string)TransferSlipRet.Carrier.GetValue();
                        }
                        //Get value of Comments
                        if (TransferSlipRet.Comments != null)
                        {
                                string Comments4379 = (string)TransferSlipRet.Comments.GetValue();
                        }
                        //Get value of Freight
                        if (TransferSlipRet.Freight != null)
                        {
                                double Freight4380 = (double)TransferSlipRet.Freight.GetValue();
                        }
                        //Get value of FromStoreNumber
                        if (TransferSlipRet.FromStoreNumber != null)
                        {
                                int FromStoreNumber4381 = (int)TransferSlipRet.FromStoreNumber.GetValue();
                        }
                        //Get value of HistoryDocStatus
                        if (TransferSlipRet.HistoryDocStatus != null)
                        {
                                ENHistoryDocStatus HistoryDocStatus4382 = (ENHistoryDocStatus)TransferSlipRet.HistoryDocStatus.GetValue();
                        }
                        //Get value of ItemsCount
                        if (TransferSlipRet.ItemsCount != null)
                        {
                                int ItemsCount4383 = (int)TransferSlipRet.ItemsCount.GetValue();
                        }
                        //Get value of QuickBooksFlag
                        if (TransferSlipRet.QuickBooksFlag != null)
                        {
                                ENQuickBooksFlag QuickBooksFlag4384 = (ENQuickBooksFlag)TransferSlipRet.QuickBooksFlag.GetValue();
                        }
                        //Get value of SlipETA
                        if (TransferSlipRet.SlipETA != null)
                        {
                                DateTime SlipETA4385 = (DateTime)TransferSlipRet.SlipETA.GetValue();
                        }
                        //Get value of SlipNumber
                        if (TransferSlipRet.SlipNumber != null)
                        {
                                int SlipNumber4386 = (int)TransferSlipRet.SlipNumber.GetValue();
                        }
                        //Get value of StoreExchangeStatus
                        if (TransferSlipRet.StoreExchangeStatus != null)
                        {
                                ENStoreExchangeStatus StoreExchangeStatus4387 = (ENStoreExchangeStatus)TransferSlipRet.StoreExchangeStatus.GetValue();
                        }
                        //Get value of ToStoreNumber
                        if (TransferSlipRet.ToStoreNumber != null)
                        {
                                int ToStoreNumber4388 = (int)TransferSlipRet.ToStoreNumber.GetValue();
                        }
                        //Get value of TotalCost
                        if (TransferSlipRet.TotalCost != null)
                        {
                                double TotalCost4389 = (double)TransferSlipRet.TotalCost.GetValue();
                        }
                        //Get value of TotalQty
                        if (TransferSlipRet.TotalQty != null)
                        {
                                int TotalQty4390 = (int)TransferSlipRet.TotalQty.GetValue();
                        }
                        //Get value of TxnDate
                        if (TransferSlipRet.TxnDate != null)
                        {
                                DateTime TxnDate4391 = (DateTime)TransferSlipRet.TxnDate.GetValue();
                        }
                        //Get value of TxnState
                        if (TransferSlipRet.TxnState != null)
                        {
                                ENTxnState TxnState4392 = (ENTxnState)TransferSlipRet.TxnState.GetValue();
                        }
                        //Get value of Workstation
                        if (TransferSlipRet.Workstation != null)
                        {
                                int Workstation4393 = (int)TransferSlipRet.Workstation.GetValue();
                        }
                        if (TransferSlipRet.TransferSlipItemRetList != null)
                        {
                                for (int i4394 = 0; i4394 < TransferSlipRet.TransferSlipItemRetList.Count; i4394++)
                                {
                                        ITransferSlipItemRet TransferSlipItemRet = TransferSlipRet.TransferSlipItemRetList.GetAt(i4394);
                                        //Get value of ListID
                                        if (TransferSlipItemRet.ListID != null)
                                        {
                                                string ListID4395 = (string)TransferSlipItemRet.ListID.GetValue();
                                        }
                                        //Get value of NumberOfBaseUnits
                                        if (TransferSlipItemRet.NumberOfBaseUnits != null)
                                        {
                                                int NumberOfBaseUnits4396 = (int)TransferSlipItemRet.NumberOfBaseUnits.GetValue();
                                        }
                                        //Get value of Qty
                                        if (TransferSlipItemRet.Qty != null)
                                        {
                                                int Qty4397 = (int)TransferSlipItemRet.Qty.GetValue();
                                        }
                                        //Get value of SerialNumber
                                        if (TransferSlipItemRet.SerialNumber != null)
                                        {
                                                string SerialNumber4398 = (string)TransferSlipItemRet.SerialNumber.GetValue();
                                        }
                                        //Get value of UnitOfMeasure
                                        if (TransferSlipItemRet.UnitOfMeasure != null)
                                        {
                                                string UnitOfMeasure4399 = (string)TransferSlipItemRet.UnitOfMeasure.GetValue();
                                        }
                                }
                        }
                        if (TransferSlipRet.DataExtRetList != null)
                        {
                                for (int i4400 = 0; i4400 < TransferSlipRet.DataExtRetList.Count; i4400++)
                                {
                                        IDataExtRet DataExtRet = TransferSlipRet.DataExtRetList.GetAt(i4400);
                                        //Get value of OwnerID
                                        string OwnerID4401 = (string)DataExtRet.OwnerID.GetValue();
                                        //Get value of DataExtName
                                        string DataExtName4402 = (string)DataExtRet.DataExtName.GetValue();
                                        //Get value of DataExtType
                                        ENDataExtType DataExtType4403 = (ENDataExtType)DataExtRet.DataExtType.GetValue();
                                        //Get value of DataExtValue
                                        string DataExtValue4404 = (string)DataExtRet.DataExtValue.GetValue();
                                }
                        }
                }




        }
}