333 lines
14 KiB
VB.net
333 lines
14 KiB
VB.net
|
Imports System.Web
|
|||
|
|
Imports ULA.Davivienda.WCFServiciosCobisCartera.DAL
|
|||
|
|
Imports Ultimus.Utilitarios
|
|||
|
|
|
|||
|
|
Public Class RegistrarSeguro
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Shared log As LogFile = New LogFile()
|
|||
|
|
|
|||
|
|
#Region "PROPIEDADES"
|
|||
|
|
Dim gProceso As String
|
|||
|
|
Dim gHttpServer As HttpServerUtility
|
|||
|
|
Dim arrPrefix As String() = New String() {}
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
|
|||
|
|
#Region "Constructor"
|
|||
|
|
Public Sub New(Proceso As String, ByRef httpServer As HttpServerUtility)
|
|||
|
|
gProceso = Proceso
|
|||
|
|
gHttpServer = httpServer
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
|
|||
|
|
#Region "RegistrarOperacionCartera"
|
|||
|
|
Public Function IniciarRegistrarSeguro(ByVal Solicitud As String,
|
|||
|
|
ByVal Proceso As String,
|
|||
|
|
ByVal strXML As String,
|
|||
|
|
ByVal Usuario As String,
|
|||
|
|
ByVal TipoSeguro As String) As String
|
|||
|
|
|
|||
|
|
Dim strError As String = String.Empty
|
|||
|
|
Dim strPolizasSeguros 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"
|
|||
|
|
'-------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
objPI = xmlFormado.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
|
|||
|
|
xmlFormado.appendChild(objPI)
|
|||
|
|
rootElemento = xmlFormado.createElement("Resultado")
|
|||
|
|
xmlFormado.appendChild(rootElemento)
|
|||
|
|
|
|||
|
|
nElemento = xmlFormado.createElement("DatosIniciarRegistrarSeguro")
|
|||
|
|
|
|||
|
|
rootElemento.appendChild(nElemento)
|
|||
|
|
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
|
|||
|
|
'*******************************************************************************
|
|||
|
|
'REGISTRAR EL SEGURO
|
|||
|
|
'*******************************************************************************
|
|||
|
|
ExecuteRegistrarSeguro(Proceso, strXML, strPolizasSeguros, Usuario, Solicitud, TipoSeguro)
|
|||
|
|
nElemento.text &= strPolizasSeguros
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
strError = "IniciarRegistrarSeguro - " & 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 "ExecuteRegistrarSeguro"
|
|||
|
|
Private Sub ExecuteRegistrarSeguro(ByVal Proceso As String,
|
|||
|
|
ByVal strXML As String,
|
|||
|
|
ByRef strXMLout As String,
|
|||
|
|
ByVal Usuario As String,
|
|||
|
|
ByVal Solicitud As String,
|
|||
|
|
ByVal TipoSeguro As String
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
Dim strXMLRegistrarSeguro As String = String.Empty
|
|||
|
|
Dim xmlDoc As MSXML2.DOMDocument = New MSXML2.DOMDocument()
|
|||
|
|
Dim xmlRootDoc As MSXML2.IXMLDOMNode
|
|||
|
|
Dim strError As String = String.Empty
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
xmlDoc.async = False
|
|||
|
|
xmlDoc.preserveWhiteSpace = True
|
|||
|
|
xmlDoc.validateOnParse = False
|
|||
|
|
|
|||
|
|
strXMLRegistrarSeguro = RegistrarSeguro(Proceso, strXML, Usuario, Solicitud, TipoSeguro)
|
|||
|
|
xmlDoc.loadXML(strXMLRegistrarSeguro)
|
|||
|
|
|
|||
|
|
xmlRootDoc = xmlDoc.documentElement
|
|||
|
|
If (Not IsNothing(xmlRootDoc.selectSingleNode("ERROR"))) Then
|
|||
|
|
Throw New Exception(xmlRootDoc.selectSingleNode("ERROR").text)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If (Not IsNothing(xmlRootDoc.selectSingleNode("DatosRegistrarSeguro"))) Then
|
|||
|
|
strXMLout = xmlRootDoc.selectSingleNode("DatosRegistrarSeguro").xml
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
strError = "ExecuteRegistrarSeguro - " & ex.Message
|
|||
|
|
Throw New Exception(strError)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
|
|||
|
|
#Region "RegistrarSeguro"
|
|||
|
|
Private Function RegistrarSeguro(ByVal Proceso As String,
|
|||
|
|
ByVal strXML As String,
|
|||
|
|
ByVal Usuario As String,
|
|||
|
|
ByVal Solicitud As String,
|
|||
|
|
ByVal TipoSeguro As String) As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
Dim respXML As MSXML2.DOMDocument = New MSXML2.DOMDocument()
|
|||
|
|
Dim xmlFormado As MSXML2.DOMDocument = New MSXML2.DOMDocument()
|
|||
|
|
|
|||
|
|
Dim node As MSXML2.IXMLDOMNode = Nothing
|
|||
|
|
Dim nElemento As MSXML2.IXMLDOMNode = Nothing
|
|||
|
|
Dim nElemento2 As MSXML2.IXMLDOMNode = Nothing
|
|||
|
|
Dim xmNodeMessages As MSXML2.IXMLDOMNode = Nothing
|
|||
|
|
Dim rootElemento As MSXML2.IXMLDOMNode = Nothing
|
|||
|
|
|
|||
|
|
Dim objPI As MSXML2.IXMLDOMProcessingInstruction = Nothing
|
|||
|
|
'-------------------------------------------------------------------
|
|||
|
|
Dim strSuccess As String = String.Empty
|
|||
|
|
Dim strCode As String = "0"
|
|||
|
|
Dim strMessage As String = String.Empty
|
|||
|
|
Dim strType As String = "0"
|
|||
|
|
Dim strError As String = String.Empty
|
|||
|
|
Dim aCampos(34), aSoap(34) As String
|
|||
|
|
'-------------------------------------------------------------------
|
|||
|
|
Dim arrInfoCreditoFaseII() As String = New String(7) {"", "", "", "", "", "", "", ""}
|
|||
|
|
Dim strPolizasSeguros As String = String.Empty
|
|||
|
|
Dim arrPolizasSeguros As String() = Nothing
|
|||
|
|
Dim arrItemPolizasSeguros As String() = Nothing
|
|||
|
|
|
|||
|
|
Dim bRegisdtrado As Boolean = False
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
|
|||
|
|
objPI = xmlFormado.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
|
|||
|
|
xmlFormado.appendChild(objPI)
|
|||
|
|
rootElemento = xmlFormado.createElement("Resultado")
|
|||
|
|
xmlFormado.appendChild(rootElemento)
|
|||
|
|
|
|||
|
|
nElemento = xmlFormado.createElement("DatosRegistrarSeguro")
|
|||
|
|
rootElemento.appendChild(nElemento)
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
'***********************************************************************************
|
|||
|
|
'OBTIENE LA DATA DE LA FASE II DE LA OPERACION
|
|||
|
|
'***********************************************************************************
|
|||
|
|
arrInfoCreditoFaseII = UtilitariaBD.BuscaOperacionSQL(Proceso, Solicitud, Usuario)
|
|||
|
|
strPolizasSeguros = arrInfoCreditoFaseII(4)
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 1 =>" & strPolizasSeguros)
|
|||
|
|
|
|||
|
|
|
|||
|
|
'***********************************************************************************
|
|||
|
|
'SI YA EXISTEN SEGUROS REGISTRADOS
|
|||
|
|
'***********************************************************************************
|
|||
|
|
If (strPolizasSeguros.Trim() <> "") Then
|
|||
|
|
respXML.async = False
|
|||
|
|
respXML.preserveWhiteSpace = True
|
|||
|
|
respXML.validateOnParse = False
|
|||
|
|
respXML.loadXML(strXML)
|
|||
|
|
|
|||
|
|
arrPolizasSeguros = strPolizasSeguros.Split("|")
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
For Each strItemPoliza In arrPolizasSeguros
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 2 =>" & strItemPoliza)
|
|||
|
|
|
|||
|
|
If (strItemPoliza.Trim() <> "") Then
|
|||
|
|
arrItemPolizasSeguros = strItemPoliza.Split("-")
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 3 =>" & TipoSeguro.Trim().ToUpper())
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 4 =>" & TipoSeguro.Trim().ToUpper())
|
|||
|
|
|
|||
|
|
If TipoSeguro.Trim().ToUpper() = arrItemPolizasSeguros(0).Trim().ToUpper() Then
|
|||
|
|
bRegisdtrado = True
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
If bRegisdtrado = True Then
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 4")
|
|||
|
|
|
|||
|
|
'***************************************************************************************
|
|||
|
|
'Estado Proceso
|
|||
|
|
'***************************************************************************************
|
|||
|
|
nElemento2 = xmlFormado.createElement("EstadoProceso")
|
|||
|
|
nElemento2.text = arrItemPolizasSeguros(1)
|
|||
|
|
nElemento.appendChild(nElemento2)
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 5")
|
|||
|
|
'***************************************************************************************
|
|||
|
|
'Poliza
|
|||
|
|
'***************************************************************************************
|
|||
|
|
nElemento2 = xmlFormado.createElement("Poliza")
|
|||
|
|
nElemento2.text = arrItemPolizasSeguros(2)
|
|||
|
|
nElemento.appendChild(nElemento2)
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 6")
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 7")
|
|||
|
|
|
|||
|
|
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
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 8")
|
|||
|
|
|
|||
|
|
node = respXML.childNodes(0).childNodes(0)
|
|||
|
|
'***************************************************************************************
|
|||
|
|
'Valida estructura de control de errores
|
|||
|
|
'***************************************************************************************
|
|||
|
|
If (Not IsNothing(node.selectSingleNode(arrPrefix(2) & ":success"))) Then
|
|||
|
|
strSuccess = node.selectSingleNode(arrPrefix(2) & ":success").text
|
|||
|
|
If (strSuccess.Trim().ToLower() = "false") Then
|
|||
|
|
If (Not IsNothing(node.selectSingleNode(arrPrefix(2) & ":messages"))) Then
|
|||
|
|
|
|||
|
|
xmNodeMessages = node.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 node.selectSingleNode(arrPrefix(17) & ":estadoProceso") Is Nothing Then
|
|||
|
|
Throw New Exception("No se encontro la variable de salida: " & arrPrefix(17) & ":estadoProceso")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
If (node.selectSingleNode(arrPrefix(17) & ":estadoProceso").text.Trim() = "N") Then
|
|||
|
|
strCode = node.selectSingleNode(arrPrefix(17) & ":codigoError").text
|
|||
|
|
strMessage = node.selectSingleNode(arrPrefix(17) & ":descripcionError").text
|
|||
|
|
|
|||
|
|
strError = "Error: Code:" & strCode & " - Message:" & strMessage
|
|||
|
|
Throw New Exception(strError)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
'***************************************************************************************
|
|||
|
|
'Estado Proceso
|
|||
|
|
'***************************************************************************************
|
|||
|
|
nElemento2 = xmlFormado.createElement("EstadoProceso")
|
|||
|
|
nElemento2.text = node.selectSingleNode(arrPrefix(17) & ":estadoProceso").text
|
|||
|
|
nElemento.appendChild(nElemento2)
|
|||
|
|
|
|||
|
|
|
|||
|
|
'***************************************************************************************
|
|||
|
|
'Poliza
|
|||
|
|
'***************************************************************************************
|
|||
|
|
If node.selectSingleNode(arrPrefix(17) & ":poliza") Is Nothing Then
|
|||
|
|
Throw New Exception("No se encontro la variable de salida: " & arrPrefix(17) & ":poliza")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
nElemento2 = xmlFormado.createElement("Poliza")
|
|||
|
|
nElemento2.text = node.selectSingleNode(arrPrefix(17) & ":poliza").text
|
|||
|
|
nElemento.appendChild(nElemento2)
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 9")
|
|||
|
|
|
|||
|
|
'*******************************************************************************
|
|||
|
|
'REGISTRAR POLIZAS EN SQL LOCAL
|
|||
|
|
'*******************************************************************************
|
|||
|
|
UtilitariaBD.GuardaOperacionSQL(Proceso, Solicitud, TipoSeguro & "-" & nElemento.selectSingleNode("EstadoProceso").text & "-" & nElemento.selectSingleNode("Poliza").text, "", Usuario)
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", "Seguros 10")
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
strError = "RegistrarSeguro - " & ex.Message
|
|||
|
|
|
|||
|
|
log.EscribirArchivo("ULA.Davivienda.WCFServiciosCobisCartera", ex)
|
|||
|
|
|
|||
|
|
|
|||
|
|
Finally
|
|||
|
|
If strError <> "" Then
|
|||
|
|
nElemento = xmlFormado.createElement("ERROR")
|
|||
|
|
nElemento.text = strError
|
|||
|
|
rootElemento.appendChild(nElemento)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
Return xmlFormado.xml
|
|||
|
|
|
|||
|
|
End Function
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|