Imports ULA.Davivienda.WCFServiciosCobisGenerales.DAL.Conector


Public Class outConector

    Public Sub outConector()
    End Sub

    Shared Function EjecutarComandoSQLXML(ByVal Proceso As String, ByVal strXML As String, ByVal Modo As Integer) As String
        Dim strResultado As String = ""
        Dim objConector As Conector.Conector = Nothing

        Try
            objConector = New Conector.Conector()
            objConector.Url = System.Configuration.ConfigurationManager.AppSettings("wsConector")
            objConector.Credentials = System.Net.CredentialCache.DefaultCredentials

            strResultado = objConector.EjecutarComandoSQLXML(Proceso, strXML, Modo, True)
        Catch ex As Exception
            Throw ex
        Finally
            objConector = Nothing
        End Try
        Return strResultado
    End Function

    Shared Function EjecutarComandoSQLArreglo(ByVal Proceso As String, ByVal FuenteDatos As String, ByVal ComandoSQL As String, ByVal aNombreParametro() As String, ByVal aValorParametro() As String, ByVal Modo As Integer) As String
        Dim strResultado As String = ""
        Dim objConector As Conector.Conector = Nothing
        Try
            objConector = New Conector.Conector()
            objConector.Url = System.Configuration.ConfigurationManager.AppSettings("wsConector")
            objConector.Credentials = System.Net.CredentialCache.DefaultCredentials

            strResultado = objConector.EjecutarComandoSQLArreglo(Proceso, FuenteDatos, ComandoSQL, aNombreParametro, aValorParametro, Modo, True)
        Catch ex As Exception
            Throw ex
        Finally
            objConector = Nothing
        End Try
        Return strResultado
    End Function

    Shared Function EjecutarComandoSQLXMLDataSet(ByVal strProceso As String, ByVal strFuenteDatos As String, ByVal strSQL As String) As System.Data.DataSet
        Dim dsResultado As DataSet = Nothing
        Dim objConector As Conector.Conector = Nothing
        Try
            objConector = New Conector.Conector()
            objConector.Url = System.Configuration.ConfigurationManager.AppSettings("wsConector")
            objConector.Credentials = System.Net.CredentialCache.DefaultCredentials

            dsResultado = objConector.EjecutarComandoSQLXMLDataSet(strProceso, strFuenteDatos, strSQL)
        Catch ex As Exception
            Throw ex
        Finally
            objConector = Nothing
        End Try
        Return dsResultado
    End Function

End Class