Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Configuration.ConfigurationManager
Imports CLC.CUENTASCORRIENTES.COMUN
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Main
    Inherits System.Web.Services.WebService

    Public Structure WSRespuesta
        Public Men_Retorno As String
    End Structure

    <WebMethod()> _
    Public Function Respuesta_WF(Cod_Trans As String, Nro_ID As String, Nro_Sin As String, Cod_Res As String, Men_Res As String) As String

        Dim Respuesta As Main.WSRespuesta
        Dim login As String() = AppSettings("UsuarioExterno").Split(";")

        Dim Usr As New Usuario
        Usr.Login(login(0), login(1))
        Dim Clase_WF As New BLMain(Usr)
        Respuesta = Clase_WF.Registra_Respuesta(Cod_Trans, Nro_ID, Nro_Sin, Cod_Res, Men_Res)

        Return Respuesta.Men_Retorno
    End Function

End Class