Imports System
Imports System.Data
Imports System.Data.OracleClient
Imports System.ComponentModel
Imports System.Runtime.InteropServices
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
Imports System.Configuration
Imports System.IO
<SoapDocumentService(RoutingStyle:=SoapServiceRoutingStyle.RequestElement), WebService(Namespace :Namespace:="http://www.monternet.com/dsmp/schemas/")> _
Public Class ProvisionClass Provision
Inherits WebService
Friend WithEvents OraConn As System.Data.OracleClient.OracleConnection
Friend WithEvents OraCommand As System.Data.OracleClient.OracleCommand
Public Class TransactionIDClass TransactionID
Inherits SoapHeader
<XmlText(GetType(String))> _
Public TransactionID As String
End Class
Public Structure Send_AddressStructure Send_Address
Dim DeviceType As Integer
Dim DeviceId As String
End Structure
Public Structure Dest_AddressStructure Dest_Address
Dim DeviceType As Integer
Dim DeviceId As String
End Structure
Public Structure FeeUser_IDStructure FeeUser_ID
Dim User_ID_Type As Integer
Dim MSISDN As String
Dim PseudoCode As String
End Structure
Public Structure DestUser_IDStructure DestUser_ID
Dim User_ID_Type As Integer
Dim MSISDN As String
Dim PseudoCode As String
End Structure
Public SoapHead As TransactionID
Private objcontext As HttpContext
<SoapDocumentMethod(RequestNamespace:="http://www.monternet.com/dsmp/schemas/", _
RequestElementName:="SyncOrderRelationReq", ResponseElementName:="SyncOrderRelationResp"), _
SoapHeader("SoapHead", Direction:=SoapHeaderDirection.InOut), WebMethod()> _
Public Function SyncOrderRelationReq()Function SyncOrderRelationReq(ByRef Version As String, _
ByRef MsgType As String, _
<XmlElement(Namespace :Namespace:="http://www.monternet.com/dsmp/schemas/")> _
ByVal Send_Address As Send_Address, _
ByVal Dest_Address As Dest_Address, _
ByVal FeeUser_ID As FeeUser_ID, _
ByVal DestUser_ID As DestUser_ID, _
ByVal LinkID As String, _
ByVal ActionID As Integer, _
ByVal ActionReasonID As Integer, _
ByVal SPID As String, _
ByVal SPServiceID As String, _
ByVal AccessMode As Integer, _
ByVal FeatureStr As Byte(), _
<Out()> ByRef hRet As Integer)
Version = "1.5.0"
MsgType = "SyncOrderRelationResp"
Dim dbs, usr, pwd, conn_s As String
Dim objReader As OracleDataReader
Dim objStreamWriter As StreamWriter
Dim strtt As String
dbs = ConfigurationSettings.AppSettings("dbs")
usr = ConfigurationSettings.AppSettings("usr")
pwd = ConfigurationSettings.AppSettings("pwd")
conn_s = "user id=" + usr + ";data source=" + dbs + ";password=" + pwd
OraConn = New OracleClient.OracleConnection
OraCommand = New OracleClient.OracleCommand
OraConn.ConnectionString = conn_s
OraCommand.Connection = OraConn
Try
OraConn.Open()
OraCommand.CommandText = "INSERT INTO t_sms_misc_provision (Version,MsgType,TransactionID,DeviceType_S," & _
"DeviceId_S,DeviceType_D,DeviceId_D,User_ID_Type_F,MSISDN_F,PseudoCode_F," & _
"User_ID_Type_D,MSISDN_D,PseudoCode_D,LinkID,ActionID,ActionReasonID,SPID," & _
"SPServiceID,AccessMode,FeatureStr) VALUES('" + Version + "','" + MsgType + "','" + SoapHead.TransactionID.ToString + "','" + Send_Address.DeviceType.ToString + "','" + Send_Address.DeviceId + "','" + Dest_Address.DeviceType.ToString + "','" + Dest_Address.DeviceId + "','" + FeeUser_ID.User_ID_Type.ToString + "','" + FeeUser_ID.MSISDN + "','" + FeeUser_ID.PseudoCode + "','" + DestUser_ID.User_ID_Type.ToString + "','" + DestUser_ID.MSISDN + "','" + DestUser_ID.MSISDN + "','" + LinkID + "','" + ActionID.ToString + "','" + ActionReasonID.ToString + "','" + SPID + "','" + SPServiceID + "','" + AccessMode.ToString + "','" + System.Text.Encoding.UTF8.GetString(FeatureStr) + "')"
OraCommand.ExecuteNonQuery()
'objStreamWriter = New StreamWriter(Server.MapPath(objcontext.Current.Request.ApplicationPath & "/count.inc"), True)
'objStreamWriter.WriteLine(OraCommand.CommandText)
'objStreamWriter.Close()
'OraCommand.CommandText = "commit"
'OraCommand.ExecuteNonQuery()
Catch ex As Exception
hRet = 1
OraCommand.CommandText = "rollback"
OraCommand.ExecuteNonQuery()
OraConn.Close()
Finally
hRet = 0
OraCommand.CommandText = "commit"
OraCommand.ExecuteNonQuery()
OraConn.Close()
End Try
End Function
Private Sub InitializeComponent()Sub InitializeComponent()
Me.OraConn = New System.Data.OracleClient.OracleConnection
Me.OraCommand = New System.Data.OracleClient.OracleCommand
End Sub
End Class
