Inversiones/FRM/frmRegistroPrestamoPersonal.vb

Public Class frmRegistroPrestamoPersonal
    Dim RegistroConsulta As New RegistrosDAO
    Dim Operaciones As New Operaciones
    Dim CodEmpr = Operaciones.CodEmpr
    Dim CodEmis = Operaciones.CodEmis
    Dim CodECalRi = Operaciones.CodECalRi
    Dim ListaPlazo = Operaciones.ListaPlazo
    Dim ListaTiposMercado = Operaciones.ListaTiposMercados
    Dim ListaPeriodos = Operaciones.ListaPeriodos
    Dim ListaTipoTasa = Operaciones.ListaTipoTasa
    Dim ListaTipoRenta = Operaciones.ListaTipoRenta
    Dim ListaEstado = Operaciones.ListaEstado
    Dim ListaCasasCorredoras = Operaciones.ListaCasasCorredoras
    Dim CodPais = Operaciones.CodPais
    Dim ValorCambiado As Boolean = False
    Dim Direccion As String = String.Empty
    Dim CodigoInstrumento As String = Variables.CodigoInstrumento
    Dim tablas As String



    Private Sub frmRegistroPrestamoPersonal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tablas = "PPER0"
        AgregarColumnasInv()
        AgregarColumnasIns()
        txtPosicion.Text = "1"
        txtConta.Text = RegistroConsulta.Contador(tablas)
        ValorCambiado = False
        Cargar(CodigoInstrumento, 1, 100)
    End Sub





    Sub AgregarColumnasInv()
        Dim Empresa, Instrumento, Emisor, CalRiesgo, Calif, Pais, TipoMercado, Nombre, Periodicidad, Plazo As New DataGridViewTextBoxColumn
        Dim CantidadPlazo, TipoRenta, TipoTasa, Numero, Fecha, Codigo, Estado As New DataGridViewTextBoxColumn
        Codigo.Name = "Codigo de Inversion"
        Empresa.Name = "Empresa"
        Instrumento.Name = "Instrumento"
        Emisor.Name = "Emisor"
        CalRiesgo.Name = "Calificadora Riesgo"
        Calif.Name = "Calificadora"
        Pais.Name = "Pais"
        TipoMercado.Name = "Tipo Mercado"
        Nombre.Name = "Nombre"
        Periodicidad.Name = "Periodicidad"
        CantidadPlazo.Name = "Cantidad Plazo"
        Plazo.Name = "Plazo"
        TipoRenta.Name = "Tipo de Renta"
        TipoTasa.Name = "Tipo de Tasa"
        Numero.Name = "Numero"
        Fecha.Name = "Fecha"
        Estado.Name = "Estado"



        dgvLETES.Columns.Add(Codigo)
        dgvLETES.Columns.Add(Estado)
        dgvLETES.Columns.Add(Empresa)
        dgvLETES.Columns.Add(Instrumento)
        dgvLETES.Columns.Add(Emisor)
        dgvLETES.Columns.Add(CalRiesgo)
        dgvLETES.Columns.Add(Calif)
        dgvLETES.Columns.Add(CantidadPlazo)
        dgvLETES.Columns.Add(Plazo)
        dgvLETES.Columns.Add(Fecha)
        dgvLETES.Columns.Add(TipoMercado)
        dgvLETES.Columns.Add(Pais)
        dgvLETES.Columns.Add(Nombre)
        dgvLETES.Columns.Add(Periodicidad)
        dgvLETES.Columns.Add(TipoTasa)
        dgvLETES.Columns.Add(TipoRenta)
        dgvLETES.Columns.Add(Numero)



    End Sub

    Sub AgregarColumnasIns()
        Dim nombredeudor, numerodeudor, fechaotorga, fechapago, periodogracia, tasainteres, duracionprestamo, totalcuotas As New DataGridViewTextBoxColumn
        Dim montoprestamo, seguro, fecha, periodo, saldoinicial, pagocuota, pagointeresIVA, IVAinteres As New DataGridViewTextBoxColumn
        Dim pagointeres, abono, prestamoremanente, pagodanos, pagovivienda, totalcuota, totalpagado, abonoextra As New DataGridViewTextBoxColumn
        nombredeudor.Name = "Nombre del Deudor"
        numerodeudor.Name = "Número del Deudor"
        fechaotorga.Name = "Fecha de Otorgamiento"
        fechapago.Name = "Fecha de Pago"
        periodogracia.Name = "Periodo de Gracia"
        tasainteres.Name = "Tasa de Interes"
        duracionprestamo.Name = "Duración del Prestamo"
        totalcuotas.Name = "Total de cuotas"
        montoprestamo.Name = "Monto del Prestamo"
        seguro.Name = "Seguro"
        fecha.Name = "Fecha"
        periodo.Name = "Periodo"
        saldoinicial.Name = "Saldo Inicial"
        pagocuota.Name = "Pago Cuota"
        pagointeresIVA.Name = "Pago Interes IVA"
        IVAinteres.Name = "Interes IVA"
        pagointeres.Name = "Pago Interes"
        abono.Name = "Abono"
        prestamoremanente.Name = "Prestamo Remanente"
        pagodanos.Name = "Pago Daños"
        pagovivienda.Name = "Pago Vivienda"
        totalcuota.Name = "Total Cuota"
        totalpagado.Name = "Total Pagado"
        abonoextra.Name = "Abono Extra"
        'dgvLETES.Columns.Add(TotPagar)


        dgvLETES.Columns.Add(nombredeudor)
        dgvLETES.Columns.Add(numerodeudor)
        dgvLETES.Columns.Add(fechaotorga)
        dgvLETES.Columns.Add(fechapago)
        dgvLETES.Columns.Add(periodogracia)
        dgvLETES.Columns.Add(tasainteres)
        dgvLETES.Columns.Add(duracionprestamo)
        dgvLETES.Columns.Add(totalcuotas)
        dgvLETES.Columns.Add(montoprestamo)
        dgvLETES.Columns.Add(seguro)
        dgvLETES.Columns.Add(fecha)
        dgvLETES.Columns.Add(periodo)
        dgvLETES.Columns.Add(saldoinicial)
        dgvLETES.Columns.Add(pagocuota)
        dgvLETES.Columns.Add(pagointeresIVA)
        dgvLETES.Columns.Add(IVAinteres)
        dgvLETES.Columns.Add(pagointeres)
        dgvLETES.Columns.Add(abono)
        dgvLETES.Columns.Add(prestamoremanente)
        dgvLETES.Columns.Add(pagodanos)
        dgvLETES.Columns.Add(pagovivienda)
        dgvLETES.Columns.Add(totalcuota)
        dgvLETES.Columns.Add(totalpagado)
        dgvLETES.Columns.Add(abonoextra)

    End Sub




    Sub Cargar(ByVal Cod As String, ByVal Inicio As Integer, ByVal Final As Integer)


        Dim CodigoEmpresa As String = " "
        Dim CodigoEmisor As String = " "
        Dim CodigoECal As String = " "
        Dim PlazoF As String = " "
        Dim TiposMercado As String = " "
        Dim Pais As String = " "
        Dim Periodos As String = " "
        Dim Periodos2 As String = " "
        Dim TipoTasa As String = " "
        Dim TipoRenta As String = " "
        Dim Estado As String = " "
        Dim CasasCorredoras As String = " "
        Dim codigo As String = Variables.Codigo
        Dim Instrumento As String
        Dim dr

        Instrumento = "Prestamo Personal"





        dr = RegistroConsulta.CargarInvPPER(Cod, Inicio, Final)







        While dr.Read









            For Each pair In CodEmpr

                If (pair.Key.ToString = dr("CodEmpr").ToString) Then
                    CodigoEmpresa = pair.Value
                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("CodEmpr").ToString)) Then
                    CodigoEmpresa = "    ----  ----  ----  ---- "
                    Exit For
                End If

            Next

            For Each pair In CodEmis

                If (pair.Key.ToString = dr("CodEmis").ToString) Then
                    CodigoEmisor = pair.Value
                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("CodEmis").ToString)) Then
                    CodigoEmisor = "    ----  ----  ----  ---- "
                    Exit For
                End If
            Next

            For Each pair In CodECalRi


                If (pair.Key.ToString = dr("CodECalRi").ToString) Then
                    CodigoECal = pair.Value

                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("CodECalRi").ToString)) Then
                    CodigoECal = "    ----  ----  ----  ---- "

                    Exit For
                End If
            Next

            For Each pair In ListaPlazo
                If (pair.Key.ToString = dr("PlazoFact").ToString) Then
                    PlazoF = pair.Value
                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("PlazoFact").ToString)) Then
                    PlazoF = "    ----  ----  ----  ---- "
                    Exit For
                End If
            Next

            For Each pair In ListaTiposMercado





                If (pair.Key.ToString = dr("TipoMerc").ToString.TrimStart()) Then
                    TiposMercado = pair.Value

                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("TipoMerc").ToString.TrimStart())) Then
                    TiposMercado = "    ----  ----  ----  ---- "

                    Exit For
                End If

            Next

            For Each pair In CodPais
                If (pair.Key.ToString = dr("CodPais").ToString.TrimStart()) Then
                    Pais = pair.Value
                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("CodPais").ToString.TrimStart())) Then
                    Pais = "    ----  ----  ----  ---- "
                    Exit For
                End If
            Next

            For Each pair In ListaPeriodos
                If (pair.Key.ToString = dr("Periodicidad").ToString.TrimStart()) Then
                    Periodos = pair.Value

                ElseIf (String.IsNullOrEmpty(dr("Periodicidad").ToString.TrimStart())) Then
                    Periodos = "    ----  ----  ----  ---- "

                End If


            Next



            For Each pair In ListaTipoTasa
                If (pair.Key.ToString = dr("TipTasa").ToString.TrimStart()) Then
                    TipoTasa = pair.Value
                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("TipTasa").ToString.TrimStart())) Then
                    TipoTasa = "    ----  ----  ----  ---- "
                    Exit For
                End If
            Next


            For Each pair In ListaTipoRenta
                If (pair.Key.ToString = dr("TipRenta").ToString.TrimStart()) Then
                    TipoRenta = pair.Value
                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("TipRenta").ToString.TrimStart())) Then
                    TipoRenta = "    ----  ----  ----  ---- "
                    Exit For
                End If
            Next



            For Each pair In ListaEstado
                If (pair.Key.ToString = dr("DocEst").ToString.TrimStart()) Then
                    Estado = pair.Value
                    Exit For
                ElseIf (String.IsNullOrEmpty(dr("DocEst").ToString.TrimStart())) Then
                    Estado = "    ----  ----  ----  ---- "
                    Exit For
                End If
            Next


            '     For Each pair In ListaCasasCorredoras
            '          If (pair.Key.ToString = dr("CasasCorredoras").ToString) Then
            '   CasasCorredoras = pair.Value
            '    Exit For
            ' ElseIf (String.IsNullOrEmpty(dr("CasasCorredoras").ToString)) Then
            '    CasasCorredoras = "    ----  ----  ----  ---- "
            '      Exit For
            '   End If
            'Next

            'dgvReportes.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, "Reportos", CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), "", dr("Nombre"), dr("FCompra"), dr("ValTrans"), dr("Dias"), dr("FVenc"), dr("Rend"), ComisionCasa, ComisionBolsa, IOF, 0, TotalCostos, MontoLiq, InteresGenerar, dr("CostoTransfr"), RendimientoAntes, ValorRecompra, Renta, IngresoNeto, ValorNeto, RendimientoDespues, "", PorcentajeComisionCasa, PorcentajeComisionBolsa, PorcentajeComisionIOF)
            dgvLETES.Rows.Add(dr("CodInv"), Estado, CodigoEmpresa, Instrumento, CodigoEmisor, dr("CodCalRi"), CodigoECal, dr("Plazo"), PlazoF, dr("FechaDoc"), TiposMercado, Pais, dr("NombreManIF"), Periodos, TipoTasa, TipoRenta, dr("NumManInv"), dr("nombredeudor"), dr("numerodeudor"), dr("fechaotorga"), dr("fechapago"), dr("periodogracia"), dr("tasainteres"), dr("duracionprestamo"), dr("totalcuotas"), dr("montoprestamo"), dr("seguro"), dr("fecha"), dr("periodo"), dr("saldoinicial"), dr("pagocuota"), dr("pagointeresIVA"), dr("IVAinteres"), dr("pagointeres"), dr("abono"), dr("prestamoremanente"), dr("pagodanos"), dr("pagovivienta"), dr("totalcuota"), dr("totalpagado"), dr("abonoextra"))

        End While
    End Sub










    Private Sub navSiguienteRegistro_Click(sender As Object, e As EventArgs)
        Direccion = "D"
        Mover(Direccion)
        ValorCambiado = False
    End Sub










    Sub Mover(ByVal Direccion As String)
        Dim ReferenciaD = txtPosicion.Text + 1
        Dim ReferenciaI = txtPosicion.Text - 1
        Dim Cantidad = txtConta.Text
        Dim ValorExacto = txtPosicion.Text
        Dim Inicio, Final As Integer
        If (Direccion = "D") Then
            If (Cantidad >= ValorExacto) Then
                dgvLETES.Rows.Clear()
                If (Not ValorCambiado) Then
                    txtPosicion.Text = ReferenciaD
                    ValorCambiado = False
                End If

                Inicio = txtPosicion.Text - 1
                Inicio = Inicio * 100
                Final = Inicio + 100
                Cargar(CodigoInstrumento, Inicio, Final)

            Else
                MsgBox("Rango Fuera de Valor")
            End If
        ElseIf (Direccion = "I") Then
            If (ReferenciaI >= 1) Then
                dgvLETES.Rows.Clear()
                If (Not ValorCambiado) Then
                    If (Not ValorExacto = 1) Then
                        txtPosicion.Text = ReferenciaI

                    End If
                Else
                    ValorCambiado = False
                End If


                Inicio = txtPosicion.Text - 1
                Inicio = Inicio * 100
                Final = Inicio + 100
                Cargar(CodigoInstrumento, Inicio, Final)
            Else
                MsgBox("Rango Fuera de Valor")
            End If


        ElseIf (Direccion = "SD") Then
            Final = txtConta.Text * 100
            Inicio = Final - 100

            dgvLETES.Rows.Clear()
            Cargar(CodigoInstrumento, Inicio, Final)
            txtPosicion.Text = Cantidad
        ElseIf (Direccion = "SI") Then
            Final = 100
            Inicio = Final - 100

            dgvLETES.Rows.Clear()
            Cargar(CodigoInstrumento, Inicio, Final)
            txtPosicion.Text = 1
        End If




    End Sub

    Private Sub navRegistroAnterior_Click(sender As Object, e As EventArgs) Handles navRegistroAnterior.Click
        Direccion = "I"
        Mover(Direccion)
        ValorCambiado = False
    End Sub

    Private Sub txtPosicion_TextChanged(sender As Object, e As EventArgs) Handles txtPosicion.TextChanged
        ValorCambiado = True
    End Sub

    Private Sub navUltimoRegistro_Click(sender As Object, e As EventArgs) Handles navUltimoRegistro.Click
        Direccion = "SD"
        Mover(Direccion)
        ValorCambiado = False
    End Sub

    Private Sub navPrimerRegistro_Click(sender As Object, e As EventArgs) Handles navPrimerRegistro.Click
        Direccion = "SI"
        Mover(Direccion)
        ValorCambiado = False
    End Sub


End Class