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 | <?xml version="1.0" encoding="utf-8"?> <?qbxml version="17.0"?> <QBXML> <QBXMLMsgsRq onError="stopOnError"> <TransferInventoryAddRq> <TransferInventoryAdd defMacro="MACROTYPE"> <!-- required --> <TxnDate >DATETYPE</TxnDate> <!-- optional --> <RefNumber >STRTYPE</RefNumber> <!-- optional --> <FromInventorySiteRef> <!-- required --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </FromInventorySiteRef> <ToInventorySiteRef> <!-- required --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ToInventorySiteRef> <Memo >STRTYPE</Memo> <!-- optional --> <ExternalGUID >GUIDTYPE</ExternalGUID> <!-- optional --> <TransferInventoryLineAdd defMacro="MACROTYPE"> <!-- optional, may repeat --> <ItemRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ItemRef> <FromInventorySiteLocationRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </FromInventorySiteLocationRef> <ToInventorySiteLocationRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ToInventorySiteLocationRef> <QuantityToTransfer >QUANTYPE</QuantityToTransfer> <!-- optional --> <!-- BEGIN OR --> <SerialNumber >STRTYPE</SerialNumber> <!-- optional --> <!-- OR --> <LotNumber >STRTYPE</LotNumber> <!-- optional --> <!-- END OR --> </TransferInventoryLineAdd> </TransferInventoryAdd> <IncludeRetElement >STRTYPE</IncludeRetElement> <!-- optional, may repeat --> </TransferInventoryAddRq> <TransferInventoryAddRs statusCode="INTTYPE" statusSeverity="STRTYPE" statusMessage="STRTYPE"> <TransferInventoryRet> <!-- optional --> <TxnID >IDTYPE</TxnID> <!-- required --> <TimeCreated >DATETIMETYPE</TimeCreated> <!-- required --> <TimeModified >DATETIMETYPE</TimeModified> <!-- required --> <EditSequence >STRTYPE</EditSequence> <!-- required --> <TxnNumber >INTTYPE</TxnNumber> <!-- optional --> <TxnDate >DATETYPE</TxnDate> <!-- optional --> <RefNumber >STRTYPE</RefNumber> <!-- optional --> <FromInventorySiteRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </FromInventorySiteRef> <ToInventorySiteRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ToInventorySiteRef> <Memo >STRTYPE</Memo> <!-- optional --> <ExternalGUID >GUIDTYPE</ExternalGUID> <!-- optional --> <TransferInventoryLineRet> <!-- optional, may repeat --> <TxnLineID >IDTYPE</TxnLineID> <!-- required --> <ItemRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ItemRef> <FromInventorySiteLocationRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </FromInventorySiteLocationRef> <ToInventorySiteLocationRef> <!-- optional --> <ListID >IDTYPE</ListID> <!-- optional --> <FullName >STRTYPE</FullName> <!-- optional --> </ToInventorySiteLocationRef> <QuantityTransferred >QUANTYPE</QuantityTransferred> <!-- optional --> <!-- BEGIN OR --> <SerialNumber >STRTYPE</SerialNumber> <!-- optional --> <!-- OR --> <LotNumber >STRTYPE</LotNumber> <!-- optional --> <!-- END OR --> <ExpirationDateForSerialLotNumber>STRTYPE</ExpirationDateForSerialLotNumber> </TransferInventoryLineRet> </TransferInventoryRet> <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> </TransferInventoryAddRs> </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 | '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 DoTransferInventoryAdd()
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
BuildTransferInventoryAddRq(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
WalkTransferInventoryAddRs(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 BuildTransferInventoryAddRq(requestMsgSet as IMsgSetRequest)
Dim TransferInventoryAddRq as ITransferInventoryAdd
TransferInventoryAddRq= requestMsgSet.AppendTransferInventoryAddRq()
'Set field value for TxnDate
TransferInventoryAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007"))
'Set field value for RefNumber
TransferInventoryAddRq.RefNumber.SetValue("ab")
'Set field value for ListID
TransferInventoryAddRq.FromInventorySiteRef.ListID.SetValue("200000-1011023419")
'Set field value for FullName
TransferInventoryAddRq.FromInventorySiteRef.FullName.SetValue("ab")
'Set field value for ListID
TransferInventoryAddRq.ToInventorySiteRef.ListID.SetValue("200000-1011023419")
'Set field value for FullName
TransferInventoryAddRq.ToInventorySiteRef.FullName.SetValue("ab")
'Set field value for Memo
TransferInventoryAddRq.Memo.SetValue("ab")
'Set field value for ExternalGUID
TransferInventoryAddRq.ExternalGUID.SetValue(System.Guid.NewGuid().ToString())
Dim TransferInventoryLineAdd22664 as ITransferInventoryLineAdd
TransferInventoryLineAdd22664=TransferInventoryAddRq.TransferInventoryLineAddList.Append()
'Set field value for ListID
TransferInventoryLineAdd22664.ItemRef.ListID.SetValue("200000-1011023419")
'Set field value for FullName
TransferInventoryLineAdd22664.ItemRef.FullName.SetValue("ab")
'Set field value for ListID
TransferInventoryLineAdd22664.FromInventorySiteLocationRef.ListID.SetValue("200000-1011023419")
'Set field value for FullName
TransferInventoryLineAdd22664.FromInventorySiteLocationRef.FullName.SetValue("ab")
'Set field value for ListID
TransferInventoryLineAdd22664.ToInventorySiteLocationRef.ListID.SetValue("200000-1011023419")
'Set field value for FullName
TransferInventoryLineAdd22664.ToInventorySiteLocationRef.FullName.SetValue("ab")
'Set field value for QuantityToTransfer
TransferInventoryLineAdd22664.QuantityToTransfer.SetValue(2)
Dim ORSerialLotNumberElementType22665 as String
ORSerialLotNumberElementType22665 = "SerialNumber"
if (ORSerialLotNumberElementType22665 == "SerialNumber") then
'Set field value for SerialNumber
TransferInventoryLineAdd22664.ORSerialLotNumber.SerialNumber.SetValue("ab")
End If
if (ORSerialLotNumberElementType22665 == "LotNumber") then
'Set field value for LotNumber
TransferInventoryLineAdd22664.ORSerialLotNumber.LotNumber.SetValue("ab")
End If
'Set field value for IncludeRetElementList
'May create more than one of these if needed
TransferInventoryAddRq.IncludeRetElementList.Add("ab")
End Sub
Public Sub WalkTransferInventoryAddRs( 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.rtTransferInventoryAddRs) then
'upcast to more specific type here, this is safe because we checked with response.Type check above
Dim TransferInventoryRet as ITransferInventoryRet
TransferInventoryRet = CType(response.Detail,ITransferInventoryRet)
WalkTransferInventoryRet(TransferInventoryRet)
End If
End If
End If
Next j
End Sub
Public Sub WalkTransferInventoryRet(TransferInventoryRet as ITransferInventoryRet)
if (TransferInventoryRet is nothing) then
Exit Sub
End If
'Go through all the elements of ITransferInventoryRet
'Get value of TxnID
Dim TxnID22666 as String
TxnID22666 = TransferInventoryRet.TxnID.GetValue()
'Get value of TimeCreated
Dim TimeCreated22667 as DateTime
TimeCreated22667 = TransferInventoryRet.TimeCreated.GetValue()
'Get value of TimeModified
Dim TimeModified22668 as DateTime
TimeModified22668 = TransferInventoryRet.TimeModified.GetValue()
'Get value of EditSequence
Dim EditSequence22669 as String
EditSequence22669 = TransferInventoryRet.EditSequence.GetValue()
'Get value of TxnNumber
if ( not TransferInventoryRet.TxnNumber is nothing) then
Dim TxnNumber22670 as Integer
TxnNumber22670 = TransferInventoryRet.TxnNumber.GetValue()
End If
'Get value of TxnDate
if ( not TransferInventoryRet.TxnDate is nothing) then
Dim TxnDate22671 as DateTime
TxnDate22671 = TransferInventoryRet.TxnDate.GetValue()
End If
'Get value of RefNumber
if ( not TransferInventoryRet.RefNumber is nothing) then
Dim RefNumber22672 as String
RefNumber22672 = TransferInventoryRet.RefNumber.GetValue()
End If
if (not TransferInventoryRet.FromInventorySiteRef. is nothing) then
'Get value of ListID
if ( not TransferInventoryRet.FromInventorySiteRef.ListID is nothing) then
Dim ListID22673 as String
ListID22673 = TransferInventoryRet.FromInventorySiteRef.ListID.GetValue()
End If
'Get value of FullName
if ( not TransferInventoryRet.FromInventorySiteRef.FullName is nothing) then
Dim FullName22674 as String
FullName22674 = TransferInventoryRet.FromInventorySiteRef.FullName.GetValue()
End If
End If
if (not TransferInventoryRet.ToInventorySiteRef. is nothing) then
'Get value of ListID
if ( not TransferInventoryRet.ToInventorySiteRef.ListID is nothing) then
Dim ListID22675 as String
ListID22675 = TransferInventoryRet.ToInventorySiteRef.ListID.GetValue()
End If
'Get value of FullName
if ( not TransferInventoryRet.ToInventorySiteRef.FullName is nothing) then
Dim FullName22676 as String
FullName22676 = TransferInventoryRet.ToInventorySiteRef.FullName.GetValue()
End If
End If
'Get value of Memo
if ( not TransferInventoryRet.Memo is nothing) then
Dim Memo22677 as String
Memo22677 = TransferInventoryRet.Memo.GetValue()
End If
'Get value of ExternalGUID
if ( not TransferInventoryRet.ExternalGUID is nothing) then
Dim ExternalGUID22678 as String
ExternalGUID22678 = TransferInventoryRet.ExternalGUID.GetValue()
End If
if (not TransferInventoryRet.TransferInventoryLineRetList is nothing)
Dim i22679 as Integer
for i22679 = 0 to TransferInventoryRet.TransferInventoryLineRetList.Count - 1
Dim TransferInventoryLineRet as ITransferInventoryLineRet
TransferInventoryLineRet = TransferInventoryRet.TransferInventoryLineRetList.GetAt(i22679)
'Get value of TxnLineID
Dim TxnLineID22680 as String
TxnLineID22680 = TransferInventoryLineRetTxnLineID.GetValue()
if (not TransferInventoryLineRetItemRef. is nothing) then
'Get value of ListID
if ( not TransferInventoryLineRetItemRef.ListID is nothing) then
Dim ListID22681 as String
ListID22681 = TransferInventoryLineRetItemRef.ListID.GetValue()
End If
'Get value of FullName
if ( not TransferInventoryLineRetItemRef.FullName is nothing) then
Dim FullName22682 as String
FullName22682 = TransferInventoryLineRetItemRef.FullName.GetValue()
End If
End If
if (not TransferInventoryLineRetFromInventorySiteLocationRef. is nothing) then
'Get value of ListID
if ( not TransferInventoryLineRetFromInventorySiteLocationRef.ListID is nothing) then
Dim ListID22683 as String
ListID22683 = TransferInventoryLineRetFromInventorySiteLocationRef.ListID.GetValue()
End If
'Get value of FullName
if ( not TransferInventoryLineRetFromInventorySiteLocationRef.FullName is nothing) then
Dim FullName22684 as String
FullName22684 = TransferInventoryLineRetFromInventorySiteLocationRef.FullName.GetValue()
End If
End If
if (not TransferInventoryLineRetToInventorySiteLocationRef. is nothing) then
'Get value of ListID
if ( not TransferInventoryLineRetToInventorySiteLocationRef.ListID is nothing) then
Dim ListID22685 as String
ListID22685 = TransferInventoryLineRetToInventorySiteLocationRef.ListID.GetValue()
End If
'Get value of FullName
if ( not TransferInventoryLineRetToInventorySiteLocationRef.FullName is nothing) then
Dim FullName22686 as String
FullName22686 = TransferInventoryLineRetToInventorySiteLocationRef.FullName.GetValue()
End If
End If
'Get value of QuantityTransferred
if ( not TransferInventoryLineRetQuantityTransferred is nothing) then
Dim QuantityTransferred22687 as Integer
QuantityTransferred22687 = TransferInventoryLineRetQuantityTransferred.GetValue()
End If
if (not TransferInventoryLineRetORSerialLotNumber is nothing) then
if (not TransferInventoryLineRetORSerialLotNumber.SerialNumber is nothing) then
'Get value of SerialNumber
if ( not TransferInventoryLineRetORSerialLotNumber.SerialNumber is nothing) then
Dim SerialNumber22689 as String
SerialNumber22689 = TransferInventoryLineRetORSerialLotNumber.SerialNumber.GetValue()
End If
End If
if (not TransferInventoryLineRetORSerialLotNumber.LotNumber is nothing) then
'Get value of LotNumber
if ( not TransferInventoryLineRetORSerialLotNumber.LotNumber is nothing) then
Dim LotNumber22690 as String
LotNumber22690 = TransferInventoryLineRetORSerialLotNumber.LotNumber.GetValue()
End If
End If
End If
'Get value of ExpirationDateForSerialLotNumber
if ( not TransferInventoryLineRetExpirationDateForSerialLotNumber is nothing) then
Dim ExpDate as String
ExpDate = TransferInventoryLineRetExpirationDateForSerialLotNumber.GetValue()
End If
Next i22679
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 | //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 DoTransferInventoryAdd() { 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; BuildTransferInventoryAddRq(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; WalkTransferInventoryAddRs(responseMsgSet); } catch (Exception e) { MessageBox.Show(e.Message, "Error"); if (sessionBegun) { sessionManager.EndSession(); } if (connectionOpen) { sessionManager.CloseConnection(); } } } void BuildTransferInventoryAddRq(IMsgSetRequest requestMsgSet) { ITransferInventoryAdd TransferInventoryAddRq= requestMsgSet.AppendTransferInventoryAddRq(); //Set attributes //Set field value for defMacro TransferInventoryAddRq.defMacro.SetValue("IQBStringType"); //Set field value for TxnDate TransferInventoryAddRq.TxnDate.SetValue(DateTime.Parse("12/15/2007")); //Set field value for RefNumber TransferInventoryAddRq.RefNumber.SetValue("ab"); //Set field value for ListID TransferInventoryAddRq.FromInventorySiteRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferInventoryAddRq.FromInventorySiteRef.FullName.SetValue("ab"); //Set field value for ListID TransferInventoryAddRq.ToInventorySiteRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferInventoryAddRq.ToInventorySiteRef.FullName.SetValue("ab"); //Set field value for Memo TransferInventoryAddRq.Memo.SetValue("ab"); //Set field value for ExternalGUID TransferInventoryAddRq.ExternalGUID.SetValue(Guid.NewGuid().ToString()); ITransferInventoryLineAdd TransferInventoryLineAdd22637=TransferInventoryAddRq.TransferInventoryLineAddList.Append(); //Set attributes //Set field value for defMacro TransferInventoryLineAdd22637.defMacro.SetValue("IQBStringType"); //Set field value for ListID TransferInventoryLineAdd22637.ItemRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferInventoryLineAdd22637.ItemRef.FullName.SetValue("ab"); //Set field value for ListID TransferInventoryLineAdd22637.FromInventorySiteLocationRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferInventoryLineAdd22637.FromInventorySiteLocationRef.FullName.SetValue("ab"); //Set field value for ListID TransferInventoryLineAdd22637.ToInventorySiteLocationRef.ListID.SetValue("200000-1011023419"); //Set field value for FullName TransferInventoryLineAdd22637.ToInventorySiteLocationRef.FullName.SetValue("ab"); //Set field value for QuantityToTransfer TransferInventoryLineAdd22637.QuantityToTransfer.SetValue(2); string ORSerialLotNumberElementType22638 = "SerialNumber"; if (ORSerialLotNumberElementType22638 == "SerialNumber") { //Set field value for SerialNumber TransferInventoryLineAdd22637.ORSerialLotNumber.SerialNumber.SetValue("ab"); } if (ORSerialLotNumberElementType22638 == "LotNumber") { //Set field value for LotNumber TransferInventoryLineAdd22637.ORSerialLotNumber.LotNumber.SetValue("ab"); } //Set field value for IncludeRetElementList //May create more than one of these if needed TransferInventoryAddRq.IncludeRetElementList.Add("ab"); } void WalkTransferInventoryAddRs(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.rtTransferInventoryAddRs) { //upcast to more specific type here, this is safe because we checked with response.Type check above ITransferInventoryRet TransferInventoryRet = (ITransferInventoryRet)response.Detail; WalkTransferInventoryRet(TransferInventoryRet); } } } } } void WalkTransferInventoryRet(ITransferInventoryRet TransferInventoryRet) { if (TransferInventoryRet == null) return; //Go through all the elements of ITransferInventoryRet //Get value of TxnID string TxnID22639 = (string)TransferInventoryRet.TxnID.GetValue(); //Get value of TimeCreated DateTime TimeCreated22640 = (DateTime)TransferInventoryRet.TimeCreated.GetValue(); //Get value of TimeModified DateTime TimeModified22641 = (DateTime)TransferInventoryRet.TimeModified.GetValue(); //Get value of EditSequence string EditSequence22642 = (string)TransferInventoryRet.EditSequence.GetValue(); //Get value of TxnNumber if (TransferInventoryRet.TxnNumber != null) { int TxnNumber22643 = (int)TransferInventoryRet.TxnNumber.GetValue(); } //Get value of TxnDate if (TransferInventoryRet.TxnDate != null) { DateTime TxnDate22644 = (DateTime)TransferInventoryRet.TxnDate.GetValue(); } //Get value of RefNumber if (TransferInventoryRet.RefNumber != null) { string RefNumber22645 = (string)TransferInventoryRet.RefNumber.GetValue(); } if (TransferInventoryRet.FromInventorySiteRef != null) { //Get value of ListID if (TransferInventoryRet.FromInventorySiteRef.ListID != null) { string ListID22646 = (string)TransferInventoryRet.FromInventorySiteRef.ListID.GetValue(); } //Get value of FullName if (TransferInventoryRet.FromInventorySiteRef.FullName != null) { string FullName22647 = (string)TransferInventoryRet.FromInventorySiteRef.FullName.GetValue(); } } if (TransferInventoryRet.ToInventorySiteRef != null) { //Get value of ListID if (TransferInventoryRet.ToInventorySiteRef.ListID != null) { string ListID22648 = (string)TransferInventoryRet.ToInventorySiteRef.ListID.GetValue(); } //Get value of FullName if (TransferInventoryRet.ToInventorySiteRef.FullName != null) { string FullName22649 = (string)TransferInventoryRet.ToInventorySiteRef.FullName.GetValue(); } } //Get value of Memo if (TransferInventoryRet.Memo != null) { string Memo22650 = (string)TransferInventoryRet.Memo.GetValue(); } //Get value of ExternalGUID if (TransferInventoryRet.ExternalGUID != null) { string ExternalGUID22651 = (string)TransferInventoryRet.ExternalGUID.GetValue(); } if (TransferInventoryRet.TransferInventoryLineRetList != null) { for (int i22652 = 0; i22652 < TransferInventoryRet.TransferInventoryLineRetList.Count; i22652++) { ITransferInventoryLineRet TransferInventoryLineRet = TransferInventoryRet.TransferInventoryLineRetList.GetAt(i22652); //Get value of TxnLineID string TxnLineID22653 = (string)TransferInventoryLineRet.TxnLineID.GetValue(); if (TransferInventoryLineRet.ItemRef != null) { //Get value of ListID if (TransferInventoryLineRet.ItemRef.ListID != null) { string ListID22654 = (string)TransferInventoryLineRet.ItemRef.ListID.GetValue(); } //Get value of FullName if (TransferInventoryLineRet.ItemRef.FullName != null) { string FullName22655 = (string)TransferInventoryLineRet.ItemRef.FullName.GetValue(); } } if (TransferInventoryLineRet.FromInventorySiteLocationRef != null) { //Get value of ListID if (TransferInventoryLineRet.FromInventorySiteLocationRef.ListID != null) { string ListID22656 = (string)TransferInventoryLineRet.FromInventorySiteLocationRef.ListID.GetValue(); } //Get value of FullName if (TransferInventoryLineRet.FromInventorySiteLocationRef.FullName != null) { string FullName22657 = (string)TransferInventoryLineRet.FromInventorySiteLocationRef.FullName.GetValue(); } } if (TransferInventoryLineRet.ToInventorySiteLocationRef != null) { //Get value of ListID if (TransferInventoryLineRet.ToInventorySiteLocationRef.ListID != null) { string ListID22658 = (string)TransferInventoryLineRet.ToInventorySiteLocationRef.ListID.GetValue(); } //Get value of FullName if (TransferInventoryLineRet.ToInventorySiteLocationRef.FullName != null) { string FullName22659 = (string)TransferInventoryLineRet.ToInventorySiteLocationRef.FullName.GetValue(); } } //Get value of QuantityTransferred if (TransferInventoryLineRet.QuantityTransferred != null) { int QuantityTransferred22660 = (int)TransferInventoryLineRet.QuantityTransferred.GetValue(); } if (TransferInventoryLineRet.ORSerialLotNumber != null) { if (TransferInventoryLineRet.ORSerialLotNumber.SerialNumber != null) { //Get value of SerialNumber if (TransferInventoryLineRet.ORSerialLotNumber.SerialNumber != null) { string SerialNumber22662 = (string)TransferInventoryLineRet.ORSerialLotNumber.SerialNumber.GetValue(); } } if (TransferInventoryLineRet.ORSerialLotNumber.LotNumber != null) { //Get value of LotNumber if (TransferInventoryLineRet.ORSerialLotNumber.LotNumber != null) { string LotNumber22663 = (string)TransferInventoryLineRet.ORSerialLotNumber.LotNumber.GetValue(); } } } //Get value of ExpirationDateForSerialLotNumber if (TransferInventoryLineRet.ExpirationDateForSerialLotNumber != null) { string Expdate = (string)TransferInventoryLineRet.ExpirationDateForSerialLotNumber.GetValue(); } } } } } } |