Public Shared Function GetRequestXML(ByVal requstInfo As RequstInfoStruct) As String
Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf)
sb.AppendLine("<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/""")
sb.AppendLine(vbTab & "xmlns:ns1=""http://www.example.org/Ec/"">")
sb.AppendLine(vbTab & "<SOAP-ENV:Body>")
sb.AppendLine(vbTab & vbTab & "<ns1:callService>")
sb.AppendLine($"\t\t\t<paramsJson>{{requstInfo.paramsJson}}</paramsJson>")
sb.AppendLine($"\t\t\t<userName>{requstInfo.userName}</userName>")
sb.AppendLine($"\t\t\t<userPass>{requstInfo.userPass}</userPass>")
sb.AppendLine($"\t\t\t<service>{requstInfo.service}</service>")
sb.AppendLine(vbTab & vbTab & "</ns1:callService>")
sb.AppendLine(vbTab & "</SOAP-ENV:Body>")
sb.AppendLine("</SOAP-ENV:Envelope>")
Return sb.ToString()
End Function
Public Structure RequstInfoStruct
Public paramsJson As Object
Public userName As String
Public userPass As String
Public service As String
Public url As String
End Structure
End Class
Public Enum SystemCodeEnum
Unknown
EB
WMS
End Enum
Public Class OrderListRequest
Public page As Integer
Public pageSize As Integer
Public getDetail As Integer
Public getAddress As Integer
Public condition As OrderListConditionStruct
End Class
Public Structure OrderListConditionStruct
Public refNos As List(Of String)
Public saleOrderCodes As List(Of String)
Public warehouseOrderCodes As List(Of String)
Public productSku As List(Of String)
Public userAccounts As List(Of String)
Public shippingMethod As List(Of String)
Public warehouseIds As List(Of String)
Public status As String
Public processAgains As List(Of String)
Public createdDateAfter As DateTime
Public createdDateBefore As DateTime
Public updateDateAfter As DateTime
Public updateDateBefore As DateTime
Public shipDateFrom As DateTime
Public shipDateEnd As DateTime
Public platformShipDateFrom As DateTime
Public platformShipDateEnd As DateTime
Public warehouseShipDateFrom As DateTime
Public warehouseShipDateEnd As DateTime
Public buyerName As String
Public platform As String
Public idDesc As Integer
End Structure
End Namespace
这是后面的代码
加好友 
发短信
Post By：2021/8/26 17:04:00 [显示全部帖子]
此主题相关图片如下：wechat 圖片_20210826170353.png
