Dim Tarjeta As New Entidad.Tarjeta()
        Tarjeta = Session("Tarjeta")
        If Session("Tarjeta") Is Nothing Then
            Response.Redirect("~/Account/Login.aspx")
        End If
        Dim Texto As String
        Try
            If FileUpload1.FileName <> "" Then
                Dim objReader As New StreamReader(FileUpload1.FileContent)
                Texto = objReader.ReadToEnd()
            End If

            TextBox1.Text = ""
            TextBox2.Text = ""
            Dim Cadena As String
            Cadena = Texto
            Dim SB As New StringBuilder()
            SB.Append(Cadena)

            Dim EntidadCargada As String
            Dim PSPropiedadCargada As String
            Dim EntidadObjeto As New Object()

            ' Cadena = TextBox3.Text
            Dim Apertura As Integer = 0
            Dim Punto As Integer = 0
            Dim Cierre As Integer = 0
            Dim ArregloPosiciones As New ArrayList()
            While Apertura <> -1
                Apertura = Cadena.IndexOf("[", Cierre)
                If Apertura <> -1 Then
                    Punto = Cadena.IndexOf(".", Apertura)
                    If Punto <> -1 Then
                        Cierre = Cadena.IndexOf("]", Punto)
                        If Cierre <> -1 Then
                            ArregloPosiciones.Add(New Puntos(Apertura, Punto, Cierre, SB.ToString(Apertura + 1, Punto - Apertura - 1), SB.ToString(Punto + 1, Cierre - Punto - 1)))
                        Else
                            Apertura = -1
                        End If
                    End If
                End If
            End While
            Dim Tabla As New DataTable
            Dim TablaGarantias As New DataTable
            Dim ArregloGarantias As New ArrayList
            EntidadCargada = String.Empty
            Dim Renglon As Integer = 0
            ArregloPosiciones.Sort(New CompararPuntos)

            For Each Datos As Puntos In ArregloPosiciones
                If EntidadCargada <> Datos.Entidad Then
                    EntidadCargada = Datos.Entidad
                End If
                Select Case EntidadCargada
                    Case "Credito"
                        If EntidadObjeto.GetType() <> GetType(Entidad.Credito) Then
                            Dim EntidadCredito As New Entidad.Credito()
                            Dim NegocioCredito As New Negocio.Credito()
                            EntidadCredito.Tarjeta = Tarjeta
                            EntidadCredito.idCredito = 1
                            NegocioCredito.Obtener(EntidadCredito)
                            Tabla = EntidadCredito.TablaConsulta
                            TablaGarantias = EntidadCredito.TablaGarantia
                            For Each row As DataRow In TablaGarantias.Rows
                                ArregloGarantias.Add(row("Descripcion"))
                            Next

                            EntidadObjeto = New Entidad.Credito()
                            EntidadObjeto = EntidadCredito
                        End If
                    Case "Localidad"
                        If EntidadObjeto.GetType() <> GetType(Entidad.Localidad) Then
                            Dim EntidadPersona As New Entidad.Persona()
                            Dim NegocioPersona As New Negocio.Persona()
                            EntidadPersona.Tarjeta = Tarjeta
                            EntidadPersona.IdPersona = 1
                            EntidadPersona = NegocioPersona.Obtener(EntidadPersona)
                            Dim EntidadLocalidad As New Entidad.Localidad()
                            Dim NegocioLocalidad As New Negocio.Localidad()
                            EntidadLocalidad.Tarjeta = Tarjeta
                            ' EntidadLocalidad.idLocalidad = EntidadPersona.
                            NegocioLocalidad.Obtener(EntidadLocalidad)
                            Tabla = EntidadLocalidad.TablaConsulta
                            EntidadObjeto = New Entidad.Credito()
                            EntidadObjeto = EntidadLocalidad
                        End If
                    Case "Persona"
                        If EntidadObjeto.GetType() <> GetType(Entidad.Persona) Then
                            Dim EntidadPersona As New Entidad.Persona()
                            Dim NegocioPersona As New Negocio.Persona()
                            EntidadPersona.Tarjeta = Tarjeta
                            EntidadPersona.IdPersona = 1
                            EntidadPersona = NegocioPersona.Obtener(EntidadPersona)
                            Tabla = EntidadPersona.TablaConsulta
                            EntidadObjeto = New Entidad.Persona()
                            EntidadObjeto = EntidadPersona
                        End If

                    Case "Sucursal"
                        If EntidadObjeto.GetType() <> GetType(Entidad.Sucursal) Then
                            Dim EntidadSucursal As New Entidad.Sucursal()
                            Dim NegocioSucursal As New Negocio.Sucursal()
                            EntidadSucursal.Tarjeta = Tarjeta
                            EntidadSucursal.idSucursal = 1
                            NegocioSucursal.Obtener(EntidadSucursal)
                            Tabla = EntidadSucursal.TablaConsulta
                            EntidadObjeto = New Entidad.Sucursal()
                            EntidadObjeto = EntidadSucursal
                        End If
                    Case "VariablesdeEntorno"
                        If EntidadObjeto.GetType() <> GetType(Entidad.EntidadBase) Then
                            Dim EntidadBase As New Entidad.EntidadBase()
                            EntidadObjeto = New Entidad.EntidadBase()
                            EntidadObjeto = EntidadBase
                        End If
                End Select
                'Substituir las propiedades
                PSPropiedadCargada = Datos.Propiedad
                Dim valorPropiedad As String
                Dim BBanderaCondiciones As Boolean = False
                valorPropiedad = "[Valor.NoCargado]"
                If (Regex.IsMatch(PSPropiedadCargada, "^.+\..+$")) Then
                    Dim PSPropiedadDetalle As String
                    Dim PSPropiedadNombre As String
                    PSPropiedadNombre = PSPropiedadCargada.Substring(0, PSPropiedadCargada.IndexOf("."))
                    PSPropiedadDetalle = PSPropiedadCargada.Substring(PSPropiedadCargada.IndexOf(".") + 1)
                    Select Case PSPropiedadDetalle
                        Case "FechaCorta"
                            valorPropiedad = FormatDateTime((EntidadObjeto.GetType().GetProperty(PSPropiedadNombre).GetValue(EntidadObjeto, Nothing).ToString()), DateFormat.ShortDate)
                        Case "FechaLarga"
                            valorPropiedad = FormatDateTime((EntidadObjeto.GetType().GetProperty(PSPropiedadNombre).GetValue(EntidadObjeto, Nothing).ToString()), DateFormat.LongDate)
                        Case "Moneda"
                            valorPropiedad = FormatCurrency((EntidadObjeto.GetType().GetProperty(PSPropiedadNombre).GetValue(EntidadObjeto, Nothing).ToString()), 2, TriState.True, TriState.UseDefault, TriState.UseDefault)
                        Case "Mayusculas"
                            valorPropiedad = UCase(EntidadObjeto.GetType().GetProperty(PSPropiedadNombre).GetValue(EntidadObjeto, Nothing).ToString())
                        Case "Minusculas"
                            valorPropiedad = LCase(EntidadObjeto.GetType().GetProperty(PSPropiedadNombre).GetValue(EntidadObjeto, Nothing).ToString())
                        Case "Condiciones"
                            BBanderaCondiciones = True
                    End Select
                Else
                    Try

                        valorPropiedad = EntidadObjeto.GetType().GetProperty(PSPropiedadCargada).GetValue(EntidadObjeto, Nothing).ToString()

                    Catch
                        valorPropiedad = "[" + EntidadCargada + "." + PSPropiedadCargada + "]" + "(Valor No Encontrado)"
                    End Try
                End If
                If ((ArregloGarantias.Count <> -1) And PSPropiedadCargada.Contains("ListaGarantias")) Then
                    Dim PSCadenaTemporal As String = ""
                    If (BBanderaCondiciones = False) Then
                        For Each Garantia As String In ArregloGarantias
                            PSCadenaTemporal += Garantia.ToString() + "<br/><br/>"
                        Next
                        valorPropiedad = PSCadenaTemporal
                    Else
                        For Each Garantia As String In ArregloGarantias
                            PSCadenaTemporal += Garantia.ToString() + "<br/><br/><br/><br/><br/><br/><br/><br/><br/><br/>"
                        Next
                        valorPropiedad = PSCadenaTemporal
                    End If
                End If

                Cadena = Cadena.Replace("[" + EntidadCargada + "." + PSPropiedadCargada + "]", valorPropiedad)
                ' TextBox3.Text = Cadena
                '   TextBox1.Text += "Apertura " + Datos.Apertura.ToString() + " Punto " + Datos.Punto.ToString() + " Cierre " + Datos.Cierre.ToString() + vbNewLine
                '  TextBox2.Text += "Entidad " + Datos.Entidad + " Propiedad " + Datos.Propiedad + " EntProp" + valorPropiedad + "-" + vbNewLine
            Next
            Session("HMTLImprimir") = Cadena
            ScriptManager.RegisterStartupScript(Me, Me.GetType(), "Imprimir", "Imprimir()", True)
        Catch ex As Exception
            'LAMensaje.Text = "No se importaron los datos, por favor intente de nuevo o consulte con su proovedor"
        End Try
    End Sub