Imports System.Web
Imports ULA.Davivienda.WCFServiciosCobisCartera.DAL

Public Class Liquidacion



#Region "PROPIEDADES"
    Dim gProceso As String
    Dim gHttpServer As HttpServerUtility
    Dim arrPrefix As String() = New String() {}
#End Region


#Region "Constructor"
    Public Sub New(ByVal Proceso As String,
                   ByRef httpServer As HttpServerUtility)

        gProceso = Proceso
        gHttpServer = httpServer
    End Sub
#End Region


#Region "RegistrarLiquidacion"
    Public Function RegistrarLiquidacion(ByVal Solicitud As String,
                                         ByVal Proceso As String,
                                         ByVal NumOperacion As String,
                                         ByVal strXML As String,
                                         ByVal Usuario As String
                                         ) As String

        Dim strError As String = String.Empty

        Dim respXML As MSXML2.DOMDocument = New MSXML2.DOMDocument()
        Dim xmlFormado As MSXML2.DOMDocument = New MSXML2.DOMDocument()
        Dim rootElemento As MSXML2.IXMLDOMNode
        Dim nElemento As MSXML2.IXMLDOMNode
        Dim objPI As MSXML2.IXMLDOMProcessingInstruction
        '-------------------------------------------------------------------
        Dim strSuccess As String = String.Empty
        Dim strCode As String = "0"
        Dim strMessage As String = String.Empty
        Dim strType As String = "0"
        '-------------------------------------------------------------------
        Dim strEstadoProceso As String = String.Empty
        Dim strXMLLiquidacion As String = String.Empty

        '-------------------------------------------------------------------
        objPI = xmlFormado.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
        xmlFormado.appendChild(objPI)
        rootElemento = xmlFormado.createElement("Resultado")
        xmlFormado.appendChild(rootElemento)

        nElemento = xmlFormado.createElement("DatosRegistrarLiquidacion")
        rootElemento.appendChild(nElemento)

        Try

            '***********************************************************************************
            'OBTIENE LA DATA DE LA LIQUIDACION DE LA SOLICITUD
            '***********************************************************************************
            strXMLLiquidacion = BuscaLiquidacionSQL(Proceso, Solicitud, Usuario)

            '***********************************************************************************
            'SI YA FUE LIQUIDADO
            '***********************************************************************************
            If (strXMLLiquidacion.Trim() <> "") Then
                nElemento.text &= strXMLLiquidacion
            Else
                '*******************************************************************************
                'LIQUIDA LA OPERACION
                '*******************************************************************************
                strEstadoProceso = ExecuteLiquidacion(Proceso, strXML, strXMLLiquidacion, Usuario)
                nElemento.text &= strXMLLiquidacion

                '*******************************************************************************
                'REGISTRAR LIQUIDACION SQL 
                '*******************************************************************************
                GuardaLiquidacionSQL(Proceso, Solicitud, NumOperacion, strXMLLiquidacion, Usuario)
            End If

        Catch ex As Exception
            strError = "RegistrarLiquidacion - " & ex.Message
        Finally
            If strError <> "" Then
                nElemento = xmlFormado.createElement("ERROR")
                nElemento.text = strError
                rootElemento.appendChild(nElemento)
            End If
        End Try
        Return gHttpServer.HtmlDecode(xmlFormado.xml)
    End Function
#End Region


#Region "ExecuteLiquidacion"
    Private Function ExecuteLiquidacion(ByVal Proceso As String,
                                        ByVal strXML As String,
                                        ByRef strXMLout As String,
                                        ByVal Usuario As String
                                        ) As String

        Dim strXMLLiquidacion As String = String.Empty
        Dim xmlDoc As MSXML2.DOMDocument = New MSXML2.DOMDocument()
        Dim xmlRootDoc As MSXML2.IXMLDOMNode
        Dim xmlRootProc As MSXML2.IXMLDOMNode
        Dim strEstadoProceso As String = String.Empty
        Dim strError As String = String.Empty

        Try
            xmlDoc.async = False
            xmlDoc.preserveWhiteSpace = True
            xmlDoc.validateOnParse = False

            strXMLLiquidacion = Liquidacion(Proceso, strXML, Usuario)
            xmlDoc.loadXML(strXMLLiquidacion)

            xmlRootDoc = xmlDoc.documentElement
            If (Not IsNothing(xmlRootDoc.selectSingleNode("ERROR"))) Then
                Throw New Exception(xmlRootDoc.selectSingleNode("ERROR").text)
            End If

            If (Not IsNothing(xmlRootDoc.selectSingleNode("DatosLiquidacion"))) Then
                xmlRootProc = xmlRootDoc.selectSingleNode("DatosLiquidacion")
                strEstadoProceso = xmlRootProc.selectSingleNode("ESTADOPROCESO").text
                strXMLout = xmlRootProc.xml
            End If

        Catch ex As Exception
            strError = "ExecuteLiquidacion - " & ex.Message
            Throw New Exception(strError)
        End Try
        Return strEstadoProceso
    End Function
#End Region


#Region "Liquidacion"
    Private Function Liquidacion(ByVal Proceso As String,
                                 ByVal strXML As String,
                                 ByVal Usuario As String
                                 ) As String

        Dim strError As String = String.Empty

        Dim respXML As MSXML2.DOMDocument = New MSXML2.DOMDocument()
        Dim node As MSXML2.IXMLDOMNode
        Dim xmlFormado As MSXML2.DOMDocument = New MSXML2.DOMDocument()
        Dim rootElemento As MSXML2.IXMLDOMNode
        Dim nElemento, nElemento2 As MSXML2.IXMLDOMNode
        Dim objPI As MSXML2.IXMLDOMProcessingInstruction
        '-------------------------------------------------------------------
        Dim strSuccess As String = String.Empty
        Dim strCode As String = "0"
        Dim strMessage As String = String.Empty
        Dim strType As String = "0"
        Dim xmNodeMessages As MSXML2.IXMLDOMNode
        '-------------------------------------------------------------------

        objPI = xmlFormado.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
        xmlFormado.appendChild(objPI)
        rootElemento = xmlFormado.createElement("Resultado")
        xmlFormado.appendChild(rootElemento)

        nElemento = xmlFormado.createElement("DatosLiquidacion")
        rootElemento.appendChild(nElemento)

        Try

            respXML.async = False
            respXML.preserveWhiteSpace = True
            respXML.validateOnParse = False
            respXML = outSoapConector.InvocaWebServiceSoap(strXML, strError, arrPrefix, Proceso, Usuario)

            If (strError.Trim().Length > 0) Then
                Throw New Exception(strError)
            End If

            '***************************************************************************************
            'Valida estructura de control de errores
            '***************************************************************************************
            If (Not IsNothing(respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(2) & ":success"))) Then
                strSuccess = respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(2) & ":success").text
                If (strSuccess.Trim().ToLower() = "false") Then
                    If (Not IsNothing(respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(2) & ":messages"))) Then
                        xmNodeMessages = respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(2) & ":messages")
                        strCode = xmNodeMessages.selectSingleNode("code").text
                        strMessage = xmNodeMessages.selectSingleNode("message").text
                    End If

                    strError = "Error: Code:" & strCode & " - Message:" & strMessage & " - Type:" & strType
                    Throw New Exception(strError)
                End If
            End If

            '***************************************************************************************
            'Valida tags de control de Errores
            '***************************************************************************************
            If (Not IsNothing(respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(22) & ":estadoProceso"))) Then
                If (respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(22) & ":estadoProceso").text.Trim() = "N") Then
                    strCode = respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(22) & ":codigoError").text
                    strMessage = respXML.childNodes(0).childNodes(0).selectSingleNode(arrPrefix(22) & ":descripcionError").text

                    strError = "Error: Code:" & strCode & " - Message:" & strMessage
                    Throw New Exception(strError)
                End If
            End If
            '***************************************************************************************
            node = respXML.childNodes(0).childNodes(0)
            '***************************************************************************************
            'idTransaccion
            '***************************************************************************************
            If node.selectSingleNode(arrPrefix(22) & ":estadoProceso") Is Nothing Then
                Throw New Exception("No se encontro la variable de salida: ns7:estadoProceso")
            End If
            nElemento2 = xmlFormado.createElement("ESTADOPROCESO")
            nElemento2.text = node.selectSingleNode(arrPrefix(22) & ":estadoProceso").text
            nElemento.appendChild(nElemento2)
            '***************************************************************************************
        Catch ex As Exception
            strError = "Liquidacion - " & ex.Message
        Finally
            If strError <> "" Then
                nElemento = xmlFormado.createElement("ERROR")
                nElemento.text = strError
                rootElemento.appendChild(nElemento)
            End If
            Liquidacion = xmlFormado.xml
        End Try
    End Function
#End Region


#Region "GuardaLiquidacionSQL"
    Private Sub GuardaLiquidacionSQL(ByVal Proceso As String,
                                    ByVal Solicitud As String,
                                    ByVal NumOperacion As String,
                                    ByVal xmlLiquidacion As String,
                                    ByVal Usuario As String)

        Dim strFuenteDatos As String
        Dim strSP As String
        Dim strRespXml As String
        Dim aNombreParametro(4), aValorParametro(4) As String
        Dim strError As String = String.Empty

        Try
            strFuenteDatos = Entidades.Enumerador.FuenteDatosUltimus.BPMPRENDARIO.ToString()
            strSP = "usp_cp_numero_operacion"

            aNombreParametro(1) = "@i_opcion" : aValorParametro(1) = "5"
            aNombreParametro(2) = "@i_solicitud" : aValorParametro(2) = Solicitud
            aNombreParametro(3) = "@i_tramite_liquidado" : aValorParametro(3) = "1"
            aNombreParametro(4) = "@i_xml_liquidacion" : aValorParametro(4) = xmlLiquidacion

            strRespXml = outConector.EjecutarComandoSQLArreglo(gProceso, strFuenteDatos, strSP, aNombreParametro, aValorParametro, 0)

        Catch excError As Exception
            strError = "GuardaLiquidacionSQL - " & excError.Message
            Throw New Exception(strError)
        End Try
    End Sub
#End Region


#Region "BuscaLiquidacionSQL"
    Public Function BuscaLiquidacionSQL(ByVal Proceso As String,
                                       ByVal Solicitud As String,
                                       ByVal Usuario As String) As String

        Dim xmlRespuesta As New MSXML2.DOMDocument()
        Dim xmlRoot As MSXML2.IXMLDOMNode

        Dim strFuenteDatos As String
        Dim strSP As String
        Dim strRespXml As String
        Dim aNombreParametro(2), aValorParametro(2) As String
        Dim strError As String = String.Empty
        Dim strXMLOperacion As String = String.Empty

        Try
            strFuenteDatos = Entidades.Enumerador.FuenteDatosUltimus.BPMPRENDARIO.ToString()
            strSP = "usp_cp_numero_operacion"

            aNombreParametro(1) = "@i_opcion" : aValorParametro(1) = "1"
            aNombreParametro(2) = "@i_solicitud" : aValorParametro(2) = Solicitud


            strRespXml = outConector.EjecutarComandoSQLArreglo(gProceso, strFuenteDatos, strSP, aNombreParametro, aValorParametro, 0)
            xmlRespuesta.loadXML(strRespXml)

            xmlRoot = xmlRespuesta.documentElement
            If (Not IsNothing(xmlRoot.selectSingleNode("Table"))) Then
                strXMLOperacion = xmlRoot.selectSingleNode("Table/df_xml_liquidacion").text
            End If

        Catch excError As Exception
            strError = "BuscaLiquidacionSQL - " & excError.Message
            Throw New Exception(strError)
        End Try

        BuscaLiquidacionSQL = strXMLOperacion
    End Function
#End Region



End Class