Imports System.Net Imports System.Net.Sockets Imports System.IOModule mduWinSock Public Function SendDataToP2L(ByVal psP2LLC As String, ByVal psPN As String, ByVal psQty As String, ByRef psRT As String) As Boolean Dim lsSendData As String Dim tcpClient As TcpClient Dim nsStream As Net.Sockets.NetworkStream Dim swWriter As StreamWriter Try tcpClient = New TcpClient(pFun.iniSet.sP2LIP, CInt(pFun.iniSet.sP2LPort)) nsStream = tcpClient.GetStream() swWriter = New StreamWriter(nsStream) lsSendData = "~~REPLMANU_LOC;" & UCase(psP2LLC) & ";REPLMANU_PARTNO;" & UCase(psPN) & ";REPLMANU_QTY;0" & CInt(psQty) & ";**" swWriter.WriteLine(lsSendData) swWriter.Flush() System.Threading.Thread.Sleep(1000) Return True Catch ex As Exception psRT = ex.Message Return False Finally tcpClient.Close() nsStream.Close() swWriter.Close() End Try End FunctionEnd Module
^_^
Imports System.Net.Sockets
Imports System.IOModule mduWinSock Public Function SendDataToP2L(ByVal psP2LLC As String, ByVal psPN As String, ByVal psQty As String, ByRef psRT As String) As Boolean
Dim lsSendData As String
Dim tcpClient As TcpClient
Dim nsStream As Net.Sockets.NetworkStream
Dim swWriter As StreamWriter Try
tcpClient = New TcpClient(pFun.iniSet.sP2LIP, CInt(pFun.iniSet.sP2LPort))
nsStream = tcpClient.GetStream()
swWriter = New StreamWriter(nsStream)
lsSendData = "~~REPLMANU_LOC;" & UCase(psP2LLC) & ";REPLMANU_PARTNO;" & UCase(psPN) & ";REPLMANU_QTY;0" & CInt(psQty) & ";**"
swWriter.WriteLine(lsSendData)
swWriter.Flush()
System.Threading.Thread.Sleep(1000)
Return True
Catch ex As Exception
psRT = ex.Message
Return False
Finally
tcpClient.Close()
nsStream.Close()
swWriter.Close()
End Try
End FunctionEnd Module