MISC1.6 Provision SP正向接口框架(VB.Net)

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


<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

    ' Methods


    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



    <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.cohowinery.com")> _
                                    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.6.0"
        MsgType = "SyncOrderRelationResp"
        Dim dbs, usr, pwd, conn_s As String
        Dim objReader As OracleDataReader
        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
        OraConn.Close()
        Try
            OraConn.Open()
            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