Merge branch 'development1.2' of ahernandez/Inversiones into Version1.0

App.config

@@ -17,6 +17,7 @@
         <add name="Inversiones.My.MySettings.cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=ahernandez;Password=1234"
             providerName="System.Data.SqlClient" />
     </connectionStrings>
+  
     <startup>
         <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
     </startup>

Appp.config

@@ -1,63 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<configuration>
-    <configSections>
-        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-            <section name="Inversiones.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
-        </sectionGroup>
-    </configSections>
-    <connectionStrings>
-        <add name="Inversiones.My.MySettings.InversionesConnectionString"
-            connectionString="Data Source=MESVSAP;Initial Catalog=Inversiones_20190711;Persist Security Info=True;User ID=sinversiones;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
-            providerName="System.Data.SqlClient" />
-        <add name="Inversiones.My.MySettings.SAP_INVERLEC_ESConnectionString"
-            connectionString="Data Source=MESVSAP;Initial Catalog=SAP_INVERLEC_ES;User ID=sinversiones;Password=1234"
-            providerName="System.Data.SqlClient" />
-        <add name="cnInversiones" connectionString="Data Source=MESVSAP;Initial Catalog=InversionesDEV;Persist Security Info=True;User ID=sinversiones;Password=1234;Connect Timeout=30;ApplicationIntent=ReadOnly"
-            providerName="System.Data.SqlClient" />
-        <add name="Inversiones.My.MySettings.cnInversiones" connectionString="Data Source=INVSVSAP;Initial Catalog=Inversiones_20190711;Persist Security Info=True;User ID=inversiones;Password=1234"
-            providerName="System.Data.SqlClient" />
-    </connectionStrings>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
-    </startup>
-    <applicationSettings>
-        <Inversiones.My.MySettings>
-            <setting name="RutaReportes" serializeAs="String">
-                <value>C:\dev\win\Inverlec\Inversiones\RPT\</value>
-            </setting>
-            <setting name="VERS_SQL" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="SERVER_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="IP_SERVER_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="USUARIO_DB_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="CLAVE_DB_SAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="UsuarioSAP" serializeAs="String">
-                <value>manager</value>
-            </setting>
-            <setting name="ClaveSAP" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="ClaveSQL" serializeAs="String">
-                <value>1234</value>
-            </setting>
-            <setting name="UsuarioSQL" serializeAs="String">
-                <value>inversiones</value>
-            </setting>
-            <setting name="ServidorSQL" serializeAs="String">
-                <value>INVSVSAP</value>
-            </setting>
-            <setting name="BaseDeDatos" serializeAs="String">
-                <value>Inversiones_20190711</value>
-            </setting>
-        </Inversiones.My.MySettings>
-    </applicationSettings>
-</configuration>

DAO/AccionesDAO.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+
 Public Class AccionesDAO
     Private Operaciones As New Operaciones
     Public Function ProcesoDatos(ByVal Coleccion As Collection, ByVal Codigo As String, ByVal Diccionario As Dictionary(Of String, Collection), ByVal Estado As String)
@@ -13,11 +14,7 @@ Public Class AccionesDAO
         End If
         myTrans = cn.BeginTransaction()
         Try
-
-
             If Estado = "Nuevo" Then
-
-
                 sql = "INSERT INTO [dbo].[ACC0]
            ([CodInv]
            ,[PrecioLimpioC]
@@ -1160,52 +1157,23 @@ Public Class AccionesDAO
 
                 oAcciones.CodigoInversion = vCodigoInversion
                 'COMPRA
-                oAcciones.AccionPreferente = drd.Item("OpPrefC").ToString
-                oAcciones.OperacionEnBolsa = drd.Item("OpBolsaC").ToString
-
-                If String.IsNullOrEmpty(drd.Item("PrecioLimpioC").ToString) Then
-                    oAcciones.PrecioLimpioCompra = 0
-                Else
-                    oAcciones.PrecioLimpioCompra = drd.Item("PrecioLimpioC").ToString
-
-                End If
-
-                If String.IsNullOrEmpty(drd.Item("UnC").ToString) Then
-                    oAcciones.CantidadCompra = 0
-                Else
-                    oAcciones.CantidadCompra = drd.Item("UnC").ToString
-                End If
-
-                If String.IsNullOrEmpty(drd.Item("FOperC").ToString) Then
-                    oAcciones.FechaOperacionCompra = Date.Now.Date
-                Else
-                    oAcciones.FechaOperacionCompra = drd.Item("FOperC").ToString
-                End If
-                If String.IsNullOrEmpty(drd.Item("FVenC").ToString) Then
-                    oAcciones.FechaVencimientoCompra = Date.Now.Date
-                Else
-
-                    oAcciones.FechaVencimientoCompra = drd.Item("FVenC").ToString
-                End If
+                oAcciones.AccionPreferente = Operaciones.ConvertirDecimal(drd.Item("OpPrefC").ToString)
+                oAcciones.OperacionEnBolsa = Operaciones.ConvertirDecimal(drd.Item("OpBolsaC").ToString)
+                oAcciones.PrecioLimpioCompra = Operaciones.ConvertirDecimal(drd.Item("PrecioLimpioC").ToString)
+                oAcciones.CantidadCompra = Operaciones.ConvertirEntero(drd.Item("UnC").ToString)
+                oAcciones.FechaOperacionCompra = Operaciones.ConvertirFecha(drd.Item("FOperC").ToString)
+                oAcciones.FechaVencimientoCompra = Operaciones.ConvertirFecha(drd.Item("FVenC").ToString)
+                oAcciones.RetornoBruto = Operaciones.ConvertirDecimal(drd.Item("RetAnBrC").ToString)
 
 
 
 
-                If String.IsNullOrEmpty(drd.Item("RetAnBrC").ToString) Then
-                    oAcciones.RetornoBruto = 0
-                Else
-                    oAcciones.RetornoBruto = drd.Item("RetAnBrC").ToString
-                End If
-
-
-
                 If drd.Item("IOF").ToString Then
                     oAcciones.IOF = True
                 Else
                     oAcciones.IOF = False
                 End If
 
-
                 If drd.Item("Renta").ToString Then
                     oAcciones.Renta = True
                 Else
@@ -1219,227 +1187,49 @@ Public Class AccionesDAO
 
 
 
-                If IsNumeric(drd.Item("GCapTotC")) Then
-                    oAcciones.GananciaDeCapitalTotalCompra = drd.Item("GCapTotC")
-                Else
-                    oAcciones.GananciaDeCapitalTotalCompra = 0
-                End If
-                If IsNumeric(drd.Item("GCapUnC")) Then
-                    oAcciones.GananciaDeCapitalUnitarioCompra = drd.Item("GCapUnC")
-                Else
-                    oAcciones.GananciaDeCapitalUnitarioCompra = 0
-                End If
-                If IsNumeric(drd.Item("RetAnBrC")) Then
-                    oAcciones.RetornoAnualizadoBrutoCompra = drd.Item("RetAnBrC")
-                Else
-                    oAcciones.RetornoAnualizadoBrutoCompra = 0
-                End If
-                If IsNumeric(drd.Item("RetAnNetC")) Then
-                    oAcciones.RetornoAnualizadoNetoCompra = drd.Item("RetAnNetC")
-                Else
-                    oAcciones.RetornoAnualizadoNetoCompra = 0
-                End If
-                If IsNumeric(drd.Item("FactDiv")) Then
-                    oAcciones.FactorDeDividendo = drd.Item("FactDiv")
-                Else
-                    oAcciones.FactorDeDividendo = 0
-                End If
-
 
+                oAcciones.GananciaDeCapitalTotalCompra = Operaciones.ConvertirDecimal(drd.Item("GCapTotC").ToString)
+                oAcciones.GananciaDeCapitalUnitarioCompra = Operaciones.ConvertirDecimal(drd.Item("GCapUnC").ToString)
+                oAcciones.RetornoAnualizadoBrutoCompra = Operaciones.ConvertirDecimal(drd.Item("RetAnBrC").ToString)
+                oAcciones.RetornoAnualizadoNetoCompra = Operaciones.ConvertirDecimal(drd.Item("RetAnNetC").ToString)
+                oAcciones.FactorDeDividendo = Operaciones.ConvertirDecimal(drd.Item("FactDiv").ToString)
+                oAcciones.GananciaDeCapitalTotalVentasus = Operaciones.ConvertirDecimal(drd.Item("GCapTotV").ToString)
+                oAcciones.GananciaDeCapitalUnitarioVenta = Operaciones.ConvertirDecimal(drd.Item("GCapUnV").ToString)
+                oAcciones.RetornoAnualizadoBrutoVentasus = Operaciones.ConvertirDecimal(drd.Item("RetAnBrV").ToString)
+                oAcciones.RetornoAnualizadoNetoVenta = Operaciones.ConvertirDecimal(drd.Item("RetAnNetV").ToString)
 
 
-                If IsNumeric(drd.Item("GCapTotV")) Then
-                    oAcciones.GananciaDeCapitalTotalVentasus = drd.Item("GCapTotV")
-                Else
-                    oAcciones.GananciaDeCapitalTotalVentasus = 0
-                End If
-                If IsNumeric(drd.Item("GCapUnV")) Then
-                    oAcciones.GananciaDeCapitalUnitarioVenta = drd.Item("GCapUnV")
-                Else
-                    oAcciones.GananciaDeCapitalUnitarioVenta = 0
-                End If
-                If IsNumeric(drd.Item("RetAnBrV")) Then
-                    oAcciones.RetornoAnualizadoBrutoVentasus = drd.Item("RetAnBrV")
-                Else
-                    oAcciones.RetornoAnualizadoBrutoVentasus = 0
-                End If
-                If IsNumeric(drd.Item("RetAnNetV")) Then
-                    oAcciones.RetornoAnualizadoNetoVenta = drd.Item("RetAnNetV")
-                Else
-                    oAcciones.RetornoAnualizadoNetoVenta = 0
-                End If
-
                 'VENTA
-                If String.IsNullOrEmpty(drd.Item("PrecioLimpioV").ToString) Then
-                    oAcciones.PrecioLimpioVenta = 0
-                Else
-                    oAcciones.PrecioLimpioVenta = drd.Item("PrecioLimpioV").ToString
-                End If
-
-                If String.IsNullOrEmpty(drd.Item("PrecSucioC").ToString) Then
-                    oAcciones.PrecioSucioCompra = 0
-                Else
-                    oAcciones.PrecioSucioCompra = drd.Item("PrecSucioC").ToString
-                End If
-
-                If String.IsNullOrEmpty(drd.Item("PrecSucioV").ToString) Then
-                    oAcciones.PrecioSucioVentasus = 0
-                Else
-                    oAcciones.PrecioSucioVentasus = drd.Item("PrecSucioV").ToString
-                End If
-
-                If String.IsNullOrEmpty(drd.Item("FOperV").ToString) Then
-                    oAcciones.FechaOperacionVenta = Date.Now.Date
-                Else
-                    oAcciones.FechaOperacionVenta = drd.Item("FOperV").ToString
-                End If
-                If String.IsNullOrEmpty(drd.Item("FVenV").ToString) Then
-                    oAcciones.FechaVencimientoVenta = Date.Now.Date
-                Else
-
-                    oAcciones.FechaVencimientoVenta = drd.Item("FVenV").ToString
-                End If
-
-
-
-
-
-
-                If String.IsNullOrEmpty(drd.Item("UnV").ToString) Then
-                    oAcciones.CantidadVenta = 0
-                Else
-                    oAcciones.CantidadVenta = drd.Item("UnV").ToString
-                End If
-
-
-
-            End If
-
-            If String.IsNullOrEmpty(drd.Item("Tipo").ToString) Then
-                oAcciones.Tipo = 0
-            Else
-
-                oAcciones.Tipo = drd.Item("Tipo").ToString
-
-            End If
-
-
-            If String.IsNullOrEmpty(drd.Item("DiasTC").ToString) Then
-
-                oAcciones.DiasDeTenenciaCompra = 0
-            Else
-                oAcciones.DiasDeTenenciaCompra = drd.Item("DiasTC").ToString
-            End If
-
-            If String.IsNullOrEmpty(drd.Item("DiasTV").ToString) Then
-
-                oAcciones.DiasDeTenenciaVenta = 0
-            Else
-                oAcciones.DiasDeTenenciaVenta = drd.Item("DiasTV").ToString
-            End If
-
-
-            If String.IsNullOrEmpty(drd.Item("ValTransC")) Then
-                oAcciones.ValorTransadoCompra = 0
-
-            Else
-                oAcciones.ValorTransadoCompra = drd.Item("ValTransC")
-            End If
-            If String.IsNullOrEmpty(drd.Item("ValTransV")) Then
-                oAcciones.ValorTransadoVenta = 0
-
-            Else
-                oAcciones.ValorTransadoVenta = drd.Item("ValTransV")
-            End If
-            If String.IsNullOrEmpty(drd.Item("MontoNetoC").ToString) Then
-                oAcciones.MontoNetoComprasus = 0
-            Else
-                oAcciones.MontoNetoComprasus = drd.Item("MontoNetoC")
-            End If
-
-            If String.IsNullOrEmpty(drd.Item("MontoNetoV").ToString) Then
-                oAcciones.MontoNetoVentasus = 0
-            Else
-                oAcciones.MontoNetoVentasus = drd.Item("MontoNetoV")
-            End If
-
 
+                oAcciones.PrecioLimpioVenta = Operaciones.ConvertirDecimal(drd.Item("PrecioLimpioV").ToString)
+                oAcciones.PrecioSucioCompra = Operaciones.ConvertirDecimal(drd.Item("PrecSucioC").ToString)
+                oAcciones.PrecioSucioVentasus = Operaciones.ConvertirDecimal(drd.Item("PrecSucioV").ToString)
+                oAcciones.FechaOperacionVenta = Operaciones.ConvertirFecha(drd.Item("FOperV").ToString)
+                oAcciones.FechaVencimientoVenta = Operaciones.ConvertirFecha(drd.Item("FVenV").ToString)
+                oAcciones.CantidadVenta = Operaciones.ConvertirEntero(drd.Item("UnV").ToString)
 
 
 
 
-
-
-            If (String.IsNullOrEmpty(drd.Item("ComisionCompraCasaValor").ToString)) Then
-                oAcciones.ComisionCompraCasa = 0
-            Else
-                oAcciones.ComisionCompraCasa = drd.Item("ComisionCompraCasaValor").ToString
             End If
 
 
-            If (String.IsNullOrEmpty(drd.Item("ComisionCompraBolsaValor").ToString)) Then
-                oAcciones.ComisionCompraBolsa = 0
-            Else
-                oAcciones.ComisionCompraBolsa = drd.Item("ComisionCompraBolsaValor").ToString
-            End If
-
-
-
-            If (String.IsNullOrEmpty(drd.Item("ComisionVentaCasaValor").ToString)) Then
-                oAcciones.ComisionVentaCasa = 0
-            Else
-                oAcciones.ComisionVentaCasa = drd.Item("ComisionVentaCasaValor").ToString
-            End If
-
-
-
-            If (String.IsNullOrEmpty(drd.Item("ComisionVentaBolsaValor").ToString)) Then
-                oAcciones.ComisionVentaBolsa = 0
-            Else
-                oAcciones.ComisionVentaBolsa = drd.Item("ComisionVentaBolsaValor").ToString
-            End If
-
-
-
-
-
-
-
-            If (String.IsNullOrEmpty(drd.Item("ComisionCompraCasa").ToString)) Then
-                oAcciones.ComisionPorcentajeCompraCasa = 0
-            Else
-                oAcciones.ComisionPorcentajeCompraCasa = drd.Item("ComisionCompraCasa").ToString
-            End If
-
-
-            If (String.IsNullOrEmpty(drd.Item("ComisionCompraBolsa").ToString)) Then
-                oAcciones.ComisionPorcentajeCompraBolsa = 0
-            Else
-                oAcciones.ComisionPorcentajeCompraBolsa = drd.Item("ComisionCompraBolsa").ToString
-            End If
-
-
-
-            If (String.IsNullOrEmpty(drd.Item("ComisionVentaCasa").ToString)) Then
-                oAcciones.ComisionPorcentajeVentaCasa = 0
-            Else
-                oAcciones.ComisionPorcentajeVentaCasa = drd.Item("ComisionVentaCasa").ToString
-            End If
-
-
-
-            If (String.IsNullOrEmpty(drd.Item("ComisionVentaBolsa").ToString)) Then
-                oAcciones.ComisionPorcentajeVentaBolsa = 0
-            Else
-                oAcciones.ComisionPorcentajeVentaBolsa = drd.Item("ComisionVentaBolsa").ToString
-            End If
-
-
-
-
-
-
 
+            oAcciones.Tipo = Operaciones.ConvertirEntero(drd.Item("Tipo").ToString)
+            oAcciones.DiasDeTenenciaCompra = Operaciones.ConvertirEntero(drd.Item("DiasTC").ToString)
+            oAcciones.DiasDeTenenciaVenta = Operaciones.ConvertirEntero(drd.Item("DiasTV").ToString)
+            oAcciones.ValorTransadoCompra = Operaciones.ConvertirDecimal(drd.Item("ValTransC").ToString)
+            oAcciones.ValorTransadoVenta = Operaciones.ConvertirDecimal(drd.Item("ValTransV").ToString)
+            oAcciones.MontoNetoComprasus = Operaciones.ConvertirDecimal(drd.Item("MontoNetoC").ToString)
+            oAcciones.MontoNetoVentasus = Operaciones.ConvertirDecimal(drd.Item("MontoNetoV").ToString)
+            oAcciones.ComisionCompraCasa = Operaciones.ConvertirDecimal(drd.Item("ComisionCompraCasaValor").ToString)
+            oAcciones.ComisionCompraBolsa = Operaciones.ConvertirDecimal(drd.Item("ComisionCompraBolsaValor").ToString)
+            oAcciones.ComisionVentaCasa = Operaciones.ConvertirDecimal(drd.Item("ComisionVentaCasaValor").ToString)
+            oAcciones.ComisionVentaBolsa = Operaciones.ConvertirDecimal(drd.Item("ComisionVentaBolsaValor").ToString)
+            oAcciones.ComisionPorcentajeCompraCasa = Operaciones.ConvertirDecimal(drd.Item("ComisionCompraCasa").ToString)
+            oAcciones.ComisionPorcentajeCompraBolsa = Operaciones.ConvertirDecimal(drd.Item("ComisionCompraBolsa").ToString)
+            oAcciones.ComisionPorcentajeVentaCasa = Operaciones.ConvertirDecimal(drd.Item("ComisionVentaCasa").ToString)
+            oAcciones.ComisionPorcentajeVentaBolsa = Operaciones.ConvertirDecimal(drd.Item("ComisionVentaBolsa").ToString)
 
             drd.Close()
 
@@ -1555,13 +1345,13 @@ Public Class AccionesDAO
            ,@IngresoNeto)"
                 cmd.CommandText = sql
                 cmd.Parameters.AddWithValue("@CodInv", CodInversion)
-                cmd.Parameters.AddWithValue("@Fecha", dr("Fecha"))
-                cmd.Parameters.AddWithValue("@Dividendo", dr("Dividendo"))
-                cmd.Parameters.AddWithValue("@CantidadBase", dr("CantidadBase"))
-                cmd.Parameters.AddWithValue("@IngresoBruto", dr("IngresoBruto"))
-                cmd.Parameters.AddWithValue("@PorcISR", dr("PorcISR"))
-                cmd.Parameters.AddWithValue("@ISR", dr("ISR"))
-                cmd.Parameters.AddWithValue("@IngresoNeto", dr("IngresoNeto"))
+                cmd.Parameters.AddWithValue("@Fecha", Operaciones.ConvertirFecha(dr("Fecha").ToString))
+                cmd.Parameters.AddWithValue("@Dividendo", Operaciones.ConvertirDecimal(dr("Dividendo").ToString))
+                cmd.Parameters.AddWithValue("@CantidadBase", Operaciones.ConvertirDecimal(dr("CantidadBase").ToString))
+                cmd.Parameters.AddWithValue("@IngresoBruto", Operaciones.ConvertirDecimal(dr("IngresoBruto").ToString))
+                cmd.Parameters.AddWithValue("@PorcISR", Operaciones.ConvertirDecimal(dr("PorcISR").ToString))
+                cmd.Parameters.AddWithValue("@ISR", Operaciones.ConvertirDecimal(dr("ISR").ToString))
+                cmd.Parameters.AddWithValue("@IngresoNeto", Operaciones.ConvertirDecimal(dr("IngresoNeto").ToString))
                 cmd.Connection = cn
                 res = cmd.ExecuteNonQuery
             Next
@@ -1613,9 +1403,9 @@ Public Class AccionesDAO
                 cmd.Parameters.AddWithValue("@CodInv", CodInversion)
                 cmd.Parameters.AddWithValue("@TipoOper", dr("TipoOper"))
                 cmd.Parameters.AddWithValue("@CodImp", dr("CodImp"))
-                cmd.Parameters.AddWithValue("@PorcImp", dr("PorcImp"))
-                cmd.Parameters.AddWithValue("@MontoImp", dr("MontoImp"))
-                cmd.Parameters.AddWithValue("@MontoSujeto", dr("MontoSujeto"))
+                cmd.Parameters.AddWithValue("@PorcImp", Operaciones.ConvertirDecimal(dr("PorcImp").ToString))
+                cmd.Parameters.AddWithValue("@MontoImp", Operaciones.ConvertirDecimal(dr("MontoImp").ToString))
+                cmd.Parameters.AddWithValue("@MontoSujeto", Operaciones.ConvertirDecimal(dr("MontoSujeto").ToString))
                 cmd.Connection = cn
                 res = cmd.ExecuteNonQuery
             Next
@@ -1649,4 +1439,4 @@ Public Class AccionesDAO
 
 
 
-End Class
+End Class

DAO/CambiarEstArbDAO.vb

@@ -7,12 +7,7 @@ Public Class CambiarEstArbDAO
     Public Function CambiatEstArb(ByVal CodigoTitulo As String, ByVal Estado As String, ByRef cn As Object, ByRef Transaccion As Object) As String
         Dim objCon As New Conexion
         Dim Respuesta As String = String.Empty
-
-
-
         Dim sql = "[dbo].[SP_CambiarEstArb]"
-
-
         Dim cmd As New SqlCommand(sql, cn)
         cmd.CommandType = CommandType.StoredProcedure
         cmd.Parameters.Add("@CodigoTitulo", SqlDbType.VarChar).Value = CodigoTitulo

DAO/CertificadosDeInversionDAO.vb

@@ -1,19 +1,12 @@
 Imports System.Data.SqlClient
 Public Class CertificadosDeInversionDAO
 
-
+    Dim Operaciones As New Operaciones
     Dim oDAOGeneral As New DAOGeneral
 
-    Private Function SiguienteCodigo(ByVal oCE As CertificadoDeInversionCE) As String
-        Dim retorno As String = String.Empty
 
-        retorno = SeriesDAO.SiguienteCodigoInversion(oCE.CodigoEmpresa, oCE.CodigoInstrumentoFinanciero)
 
-        Return retorno
-    End Function
-    Public Function Nuevo(ByVal oCE As CertificadoDeInversionCE) As Integer
 
-    End Function
     Function Nuevo(ByVal oCE As CertificadoDeInversionCE, DocId As Integer, Tipo As String) As Integer
         Dim objCon As New Conexion
         Dim retorno As Integer = -1
@@ -154,7 +147,6 @@ Public Class CertificadosDeInversionDAO
 
         With cmd.Parameters
             .Add("@DocId", SqlDbType.Int).Value = DocId
-            '.Add("@CodCasaC", SqlDbType.VarChar).Value = oBono.CodigoCasaCompra
             .Add("@ValNomC", SqlDbType.Decimal).Value = oCE.ValorNominalCompra
             .Add("@UltFCupC", SqlDbType.DateTime).Value = oCE.UltimaFechaCuponCompra
             .Add("@SigFCupC", SqlDbType.DateTime).Value = oCE.SiguienteFechaCuponCompra
@@ -175,7 +167,7 @@ Public Class CertificadosDeInversionDAO
             .Add("@MontoPagarC", SqlDbType.Decimal).Value = oCE.MontoAPagarCompra
             .Add("@CostoTransC", SqlDbType.Decimal).Value = oCE.CostoDeTransferenciaCompra
 
-            '.Add("@CodCasaV", SqlDbType.VarChar).Value = oBono.CodigoCasaVenta
+
             .Add("@ValNomV", SqlDbType.Decimal).Value = oCE.ValorNominalVenta
             .Add("@UltFCupV", SqlDbType.DateTime).Value = oCE.UltimaFechaCuponVenta
             .Add("@SigFCupV", SqlDbType.DateTime).Value = oCE.SiguienteFechaCuponVenta
@@ -233,99 +225,7 @@ Public Class CertificadosDeInversionDAO
 
         Return retorno
     End Function
-    Public Sub CargarRegistro(ByVal oCE As CertificadoDeInversionCE, Tipo As String, IdRegistro As Integer)
-        Dim objCon As New Conexion
-        Dim drd As SqlDataReader
-        Dim cmd As SqlCommand
-        Dim sql As String
-        Dim Tabla As String
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        If Tipo = "P" Then
-            Tabla = "PBON"
-        End If
-        If Tipo = "I" Then
-            Tabla = "IBON"
-        End If
-
-        sql = "SELECT * FROM [dbo].[" & Tabla & "] T0 WHERE T0.[DocId]=@DocId"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@DocId", SqlDbType.Int).Value = IdRegistro
-        cmd.Connection = cn
-
-        drd = cmd.ExecuteReader
-
-        If drd.HasRows Then
-            'SE ENCONTRO EL REGISTRO
-            If drd.Read Then
-                'oBonos.CodigoCasaCompra = drd.Item("CodCasaC")
-                oCE.ValorNominalCompra = drd.Item("ValNomC")
-                oCE.UltimaFechaCuponCompra = drd.Item("UltFCupC")
-                oCE.SiguienteFechaCuponCompra = drd.Item("SigFCupC")
-                oCE.FechaLiquidacionCompra = drd.Item("FLiqC")
-                oCE.FechaVencimientoCompra = drd.Item("FVencC")
-                oCE.PorcentajeCuponCompra = drd.Item("PorcCupC")
-                'oBonos.YTMAlVencimientoComisionCompra = drd.Item("YTMVencComC")
-                'oBonos.YTMAlVencimientoCompra = drd.Item("YTMVencC")
-                oCE.PrecioAlVencimientoCompra = drd.Item("PrecVencC")
-                oCE.PrecioCompra = drd.Item("PrecioCompra")
-                oCE.DiasBaseCompra = drd.Item("DiasBaseC")
-                'oBonos.DiasAcumuladosCompra = drd.Item("DiasAcumC")
-                'oBonos.DiasAlVencimientoCompra = drd.Item("DiasVencC")
-                'oBonos.PorcentajeInteresAcumuladoCompra = drd.Item("PorcIntAcumC")
-                'oBonos.InteresAcumuladoCompra = drd.Item("IntAcumC")
-                'oBonos.PrecioSucioCompra = drd.Item("PrecioSucioC")
-                'oBonos.ValorTransadoCompra = drd.Item("ValTransC")
-                'oBonos.MontoAPagarCompra = drd.Item("MontoPagarC")
-                oCE.CostoDeTransferenciaCompra = drd.Item("CostoTransC")
-
-                'oBonos.CodigoCasaVenta = drd.Item("CodCasaV")
-                oCE.ValorNominalVenta = drd.Item("ValNomV")
-                oCE.UltimaFechaCuponVenta = drd.Item("UltFCupV")
-                oCE.SiguienteFechaCuponVenta = drd.Item("SigFCupV")
-                oCE.FechaLiquidacionVenta = drd.Item("FLiqV")
-                oCE.FechaVencimientoVenta = drd.Item("FVencV")
-                oCE.PorcentajeCuponVenta = drd.Item("PorcCupV")
-                'oBonos.YTMAlVencimientoComisionVenta = drd.Item("YTMVencComV")
-                'oBonos.YTMAlVencimientoVenta = drd.Item("YTMVencV")
-                oCE.PrecioAlVencimientoVenta = drd.Item("PrecVencV")
-                oCE.PrecioVenta = drd.Item("PrecioVenta")
-                oCE.DiasBaseVenta = drd.Item("DiasBaseV")
-                'oBonos.DiasAcumuladosVenta = drd.Item("DiasAcumV")
-                'oBonos.DiasAlVencimientoVenta = drd.Item("DiasVencV")
-                'oBonos.PorcentajeInteresAcumuladoVenta = drd.Item("PorcIntAcumV")
-                'oBonos.InteresAcumuladoVenta = drd.Item("IntAcumV")
-                'oBonos.PrecioSucioVenta = drd.Item("PrecioSucioV")
-                'oBonos.ValorTransadoVenta = drd.Item("ValTransV")
-                'oBonos.MontoAPagarVenta = drd.Item("MontoPagarV")
-                oCE.CostoDeTransferenciaVenta = drd.Item("CostoTransV")
-
-                'oBonos.ValorNominalRO = drd.Item("ValNomRO")
-                'oBonos.PlazoRO = drd.Item("PlazoRO")
-                'oBonos.PrecioCompraRO = drd.Item("PrecioCompraRO")
-                'oBonos.PrecioVentaRO = drd.Item("PrecioVentaRO")
-                'oBonos.GananciaPerdidaDeCapital = drd.Item("GanPerdCap")
-                'oBonos.IngresoPorInteres = drd.Item("IngrPorInt")
-                'oBonos.CostosTotales = drd.Item("CostosTotales")
-                'oBonos.GananciaPerdidaTotal = drd.Item("GanPerdTot")
-                'oBonos.RendimientoGananciaPerdida = drd.Item("RendGanPerd")
-                'oBonos.RendimientoDeIntereses = drd.Item("RendInt")
-                'oBonos.RendimientoAntesImpuestos = drd.Item("RendAntISR")
-                'oBonos.RendimientoDespuesImpuestos = drd.Item("RendDespISR")
-            End If
-        Else
-            'NO SE ENCONTRO EL REGISTRO
-        End If
 
-        drd.Close()
-        cmd.Dispose()
-        cn.Dispose()
-    End Sub
     Public Function CargarRegistro(ByVal CodigoInversion As String, ByVal CodigoInstrumento As String) As Collection
         Dim objCon As New Conexion
         Dim oCE As CertificadoDeInversionCE
@@ -380,90 +280,62 @@ Public Class CertificadosDeInversionDAO
 
             If drd.Read Then
                 coleccion.Add(drd.Item("PeriodicC").ToString)
-                coleccion.Add(drd.Item("ValNomC").ToString)
-                coleccion.Add(drd.Item("UltFCupC").ToString)
-                coleccion.Add(drd.Item("SigFCupC").ToString)
-                coleccion.Add(drd.Item("FLiqC").ToString)
-                coleccion.Add(drd.Item("FVencC").ToString)
-                coleccion.Add(drd.Item("PorcCupC").ToString)
-                coleccion.Add(drd.Item("PrecVencC").ToString)
-                coleccion.Add(drd.Item("PrecioCompra").ToString)
-                coleccion.Add(drd.Item("DiasBaseC").ToString)
-
-
-                coleccion.Add(drd.Item("CostTransC").ToString)
-
-
-
-
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ValNomC").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("UltFCupC").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("SigFCupC").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("FLiqC").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("FVencC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PorcCupC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PrecVencC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PrecioCompra").ToString))
+                coleccion.Add(Operaciones.ConvertirEntero(drd.Item("DiasBaseC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("CostTransC").ToString))
                 coleccion.Add(drd.Item("PeriodicV").ToString)
-                coleccion.Add(drd.Item("ValNomV").ToString)
-                coleccion.Add(drd.Item("UltFCupV").ToString)
-                coleccion.Add(drd.Item("SigFCupV").ToString)
-                coleccion.Add(drd.Item("FLiqV").ToString)
-                coleccion.Add(drd.Item("FVencV").ToString)
-                coleccion.Add(drd.Item("PorcCupV").ToString)
-                coleccion.Add(drd.Item("PrecVencV").ToString)
-                coleccion.Add(drd.Item("PrecioVenta").ToString)
-                coleccion.Add(drd.Item("DiasBaseV").ToString)
-                'oCE.CostoDeTransferenciaVenta = drd.Item("CostoTransV")
-                coleccion.Add(drd.Item("CupRecibidos").ToString)
-                coleccion.Add(drd.Item("PorcCupC").ToString)
-                coleccion.Add(drd.Item("PorcCupV").ToString)
-
-                coleccion.Add(drd.Item("ComisionPorCompraCasa").ToString)
-                coleccion.Add(drd.Item("ComisionPorCompraBolsa").ToString)
-                coleccion.Add(drd.Item("ComisionPorVentaCasa").ToString)
-                coleccion.Add(drd.Item("ComisionPorVentaBolsa").ToString)
-                coleccion.Add(drd.Item("YTMCompra").ToString)
-                coleccion.Add(drd.Item("YTMVenta").ToString)
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ValNomV").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("UltFCupV").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("SigFCupV").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("FLiqV").ToString))
+                coleccion.Add(Operaciones.ConvertirFecha(drd.Item("FVencV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PorcCupV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PrecVencV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PrecioVenta").ToString))
+                coleccion.Add(Operaciones.ConvertirEntero(drd.Item("DiasBaseV").ToString))
+
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("CupRecibidos").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PorcCupC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PorcCupV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionPorCompraCasa").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionPorCompraBolsa").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionPorVentaCasa").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionPorVentaBolsa").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("YTMCompra").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("YTMVenta").ToString))
 
 
                 'Çampos Extras (Calculados)
 
 
-                coleccion.Add(drd.Item("DiasVenC").ToString)
-                coleccion.Add(drd.Item("DiasVenV").ToString)
-
-                coleccion.Add(drd.Item("DiasAcuC").ToString)
-                coleccion.Add(drd.Item("DiasAcuV").ToString)
-
-
-                coleccion.Add(drd.Item("YTMVenC").ToString)
-                coleccion.Add(drd.Item("YTMVenV").ToString)
-
-
-                coleccion.Add(drd.Item("IntPorAcuC").ToString)
-                coleccion.Add(drd.Item("IntPorAcuV").ToString)
-
-
-                coleccion.Add(drd.Item("IntAcuC").ToString)
-                coleccion.Add(drd.Item("IntAcuV").ToString)
-
-
-                coleccion.Add(drd.Item("PrecSucioC").ToString)
-                coleccion.Add(drd.Item("PrecSucioV").ToString)
-
-
-                coleccion.Add(drd.Item("ComisionCasaC").ToString)
-                coleccion.Add(drd.Item("ComisionCasaV").ToString)
-
-
-                coleccion.Add(drd.Item("ComisionBolsaC").ToString)
-                coleccion.Add(drd.Item("ComisionBolsaV").ToString)
-
-
-                coleccion.Add(drd.Item("ValTransC").ToString)
-                coleccion.Add(drd.Item("ValTransV").ToString)
-
-
-
-                coleccion.Add(drd.Item("MontoPagar").ToString)
-                coleccion.Add(drd.Item("MontoRecibir").ToString)
-
-
-
-                coleccion.Add(drd.Item("CupRecibidos").ToString)
+                coleccion.Add(Operaciones.ConvertirEntero(drd.Item("DiasVenC").ToString))
+                coleccion.Add(Operaciones.ConvertirEntero(drd.Item("DiasVenV").ToString))
+                coleccion.Add(Operaciones.ConvertirEntero(drd.Item("DiasAcuC").ToString))
+                coleccion.Add(Operaciones.ConvertirEntero(drd.Item("DiasAcuV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("YTMVenC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("YTMVenV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("IntPorAcuC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("IntPorAcuV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("IntAcuC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("IntAcuV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PrecSucioC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("PrecSucioV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionCasaC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionCasaV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionBolsaC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ComisionBolsaV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ValTransC").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("ValTransV").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("MontoPagar").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("MontoRecibir").ToString))
+                coleccion.Add(Operaciones.ConvertirDecimal(drd.Item("CupRecibidos").ToString))
 
             Else
 
@@ -596,60 +468,54 @@ Public Class CertificadosDeInversionDAO
 
             With cmd.Parameters
                 .Add("@PeriodicC", SqlDbType.VarChar).Value = coleccion(1).ToString()
-                .Add("@ValNomC", SqlDbType.Float).Value = CDec(coleccion(2).ToString().TrimEnd("%"))
-                .Add("@UltFCupC", SqlDbType.Date).Value = coleccion(3)
-                .Add("@SigFCupC", SqlDbType.Date).Value = coleccion(4)
-                .Add("@FLiqC", SqlDbType.Date).Value = coleccion(5)
-                .Add("@FVencC", SqlDbType.Date).Value = coleccion(6)
-                .Add("@PorcCupC", SqlDbType.Float).Value = CDec(coleccion(7).ToString().TrimEnd("%"))
-                .Add("@PrecVencC", SqlDbType.Float).Value = CDec(coleccion(8).ToString().TrimEnd("%"))
-                .Add("@PrecioCompra", SqlDbType.Float).Value = CDec(coleccion(9).ToString().TrimEnd("%"))
-                .Add("@DiasBaseC", SqlDbType.Int).Value = CInt(coleccion(10).ToString().TrimEnd("%"))
+                .Add("@ValNomC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(2).ToString())
+                .Add("@UltFCupC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(3).ToString)
+                .Add("@SigFCupC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(4).ToString)
+                .Add("@FLiqC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(5).ToString)
+                .Add("@FVencC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(6).ToString)
+                .Add("@PorcCupC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(7).ToString())
+                .Add("@PrecVencC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(8).ToString())
+                .Add("@PrecioCompra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(9).ToString())
+                .Add("@DiasBaseC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(10).ToString())
                 .Add("@PeriodicV", SqlDbType.VarChar).Value = coleccion(12).ToString()
-                .Add("@ValNomV", SqlDbType.Float).Value = CDec(coleccion(13).ToString().TrimEnd("%"))
-                .Add("@UltFCupV", SqlDbType.Date).Value = coleccion(14)
-                .Add("@SigFCupV", SqlDbType.Date).Value = coleccion(15)
-                .Add("@FLiqV", SqlDbType.Date).Value = coleccion(16)
-                .Add("@FVencV", SqlDbType.Date).Value = coleccion(17)
-                .Add("@PorcCupV", SqlDbType.Float).Value = CDec(coleccion(18).ToString().TrimEnd("%"))
-                .Add("@PrecVencV", SqlDbType.Float).Value = CDec(coleccion(19).ToString().TrimEnd("%"))
-                .Add("@PrecioVenta", SqlDbType.Float).Value = CDec(coleccion(20).ToString().TrimEnd("%"))
-                .Add("@DiasBaseV", SqlDbType.Int).Value = CInt(coleccion(21).ToString().TrimEnd("%"))
+                .Add("@ValNomV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(13).ToString())
+                .Add("@UltFCupV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(14).ToString)
+                .Add("@SigFCupV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(15).ToString)
+                .Add("@FLiqV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(16).ToString)
+                .Add("@FVencV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(17).ToString)
+                .Add("@PorcCupV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString())
+                .Add("@PrecVencV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString())
+                .Add("@PrecioVenta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString())
+                .Add("@DiasBaseV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(21).ToString())
                 .Add("@CodInv", SqlDbType.VarChar).Value = coleccion(23).ToString()
-
-                .Add("@ComisionPorCompraCasa", SqlDbType.Float).Value = coleccion(26).ToString()
-                .Add("@ComisionPorCompraBolsa", SqlDbType.Float).Value = coleccion(27).ToString()
-                .Add("@ComisionPorVentaCasa", SqlDbType.Float).Value = coleccion(28).ToString()
-                .Add("@ComisionPorVentaBolsa", SqlDbType.Float).Value = coleccion(29).ToString()
-
-                .Add("@YTMCompra", SqlDbType.Float).Value = coleccion(30).ToString()
-                .Add("@YTMVenta", SqlDbType.Float).Value = coleccion(31).ToString()
-
-
-
-
-                .Add("DiasVenC", SqlDbType.Int).Value = coleccion(32)
-                .Add("@DiasVenV", SqlDbType.Int).Value = coleccion(33)
-                .Add("@DiasAcuC", SqlDbType.Int).Value = coleccion(34)
-                .Add("@DiasAcuV", SqlDbType.Int).Value = coleccion(35)
-                .Add("@YTMVenC", SqlDbType.Float).Value = coleccion(36)
-                .Add("@YTMVenV", SqlDbType.Float).Value = coleccion(37)
-                .Add("@IntAcuC", SqlDbType.Float).Value = coleccion(38)
-                .Add("@IntAcuV", SqlDbType.Float).Value = coleccion(39)
-                .Add("@IntPorAcuC", SqlDbType.Float).Value = coleccion(40)
-                .Add("@IntPorAcuV", SqlDbType.Float).Value = coleccion(41)
-                .Add("@PrecSucioC", SqlDbType.Float).Value = coleccion(42)
-                .Add("@PrecSucioV", SqlDbType.Float).Value = coleccion(43)
-                .Add("@ComisionCasaC", SqlDbType.Float).Value = coleccion(44)
-                .Add("@ComisionCasaV", SqlDbType.Float).Value = coleccion(45)
-                .Add("@ComisionBolsaC", SqlDbType.Float).Value = coleccion(46)
-                .Add("@ComisionBolsaV", SqlDbType.Float).Value = coleccion(47)
-                .Add("@ValTransC", SqlDbType.Float).Value = coleccion(48)
-                .Add("@ValTransV", SqlDbType.Float).Value = coleccion(49)
-                .Add("@MontoPagar", SqlDbType.Float).Value = coleccion(50)
-                .Add("@MontoRecibir", SqlDbType.Float).Value = coleccion(51)
-                .Add("@CostTransC", SqlDbType.Float).Value = coleccion(52)
-                .Add("@CupRecibidos", SqlDbType.Float).Value = coleccion(53)
+                .Add("@ComisionPorCompraCasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(26).ToString())
+                .Add("@ComisionPorCompraBolsa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(27).ToString())
+                .Add("@ComisionPorVentaCasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(28).ToString())
+                .Add("@ComisionPorVentaBolsa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(29).ToString())
+                .Add("@YTMCompra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(30).ToString())
+                .Add("@YTMVenta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(31).ToString())
+                .Add("DiasVenC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(32).ToString)
+                .Add("@DiasVenV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(33).ToString)
+                .Add("@DiasAcuC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(34).ToString)
+                .Add("@DiasAcuV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(35).ToString)
+                .Add("@YTMVenC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(36).ToString)
+                .Add("@YTMVenV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(37).ToString)
+                .Add("@IntAcuC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(38).ToString)
+                .Add("@IntAcuV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(39).ToString)
+                .Add("@IntPorAcuC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(40).ToString)
+                .Add("@IntPorAcuV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(41).ToString)
+                .Add("@PrecSucioC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(42).ToString)
+                .Add("@PrecSucioV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(43).ToString)
+                .Add("@ComisionCasaC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(44).ToString)
+                .Add("@ComisionCasaV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(45).ToString)
+                .Add("@ComisionBolsaC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(46).ToString)
+                .Add("@ComisionBolsaV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(47).ToString)
+                .Add("@ValTransC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(48).ToString)
+                .Add("@ValTransV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(49).ToString)
+                .Add("@MontoPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(50).ToString)
+                .Add("@MontoRecibir", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(51).ToString)
+                .Add("@CostTransC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(52).ToString)
+                .Add("@CupRecibidos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(53).ToString)
 
             End With
             retorno = cmd.ExecuteNonQuery
@@ -717,14 +583,14 @@ Public Class CertificadosDeInversionDAO
                         cmd.Transaction = myTrans
 
                         With cmd.Parameters
-                            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                            .Add("@NumCupon", SqlDbType.VarChar).Value = Coleccion2(1)
-                            .Add("@FechaCupon", SqlDbType.DateTime).Value = Coleccion2(2)
-                            .Add("@Dias", SqlDbType.Int).Value = Coleccion2(3)
-                            .Add("@Ingreso", SqlDbType.Float).Value = Coleccion2(4)
-                            .Add("@PorcImpuesto", SqlDbType.Float).Value = Coleccion2(5)
-                            .Add("@MontoImpuesto", SqlDbType.Float).Value = Coleccion2(6)
-                            .Add("@Liquido", SqlDbType.Float).Value = Coleccion2(7)
+                            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo.ToString
+                            .Add("@NumCupon", SqlDbType.VarChar).Value = Coleccion2(1).ToString
+                            .Add("@FechaCupon", SqlDbType.Date).Value = Operaciones.ConvertirFecha(Coleccion2(2).ToString)
+                            .Add("@Dias", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(3).ToString)
+                            .Add("@Ingreso", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                            .Add("@PorcImpuesto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                            .Add("@MontoImpuesto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                            .Add("@Liquido", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
                         End With
 
                         retorno = cmd.ExecuteNonQuery
@@ -900,7 +766,7 @@ Public Class CertificadosDeInversionDAO
 
             cmd = New SqlCommand
             cmd.CommandText = sql
-            'Try
+
 
             With cmd.Parameters
                 If (coleccion(1) Is Nothing) Then
@@ -908,93 +774,75 @@ Public Class CertificadosDeInversionDAO
                 Else
                     .Add("@PeriodicC", SqlDbType.VarChar).Value = coleccion(1).ToString()
                 End If
-
-                .Add("@ValNomC", SqlDbType.Float).Value = CDec(coleccion(2).ToString.Trim("%"))
-                .Add("@UltFCupC", SqlDbType.Date).Value = coleccion(3)
-                .Add("@SigFCupC", SqlDbType.Date).Value = coleccion(4)
-                .Add("@FLiqC", SqlDbType.Date).Value = coleccion(5)
-                .Add("@FVencC", SqlDbType.Date).Value = coleccion(6)
-                .Add("@PorcCupC", SqlDbType.Float).Value = CDec(coleccion(7).ToString.Trim("%"))
-                .Add("@PrecVencC", SqlDbType.Float).Value = CDec(coleccion(8).ToString.Trim("%"))
-                .Add("@PrecioCompra", SqlDbType.Float).Value = CDec(coleccion(9).ToString.Trim("%"))
-
+                .Add("@ValNomC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(2).ToString)
+                .Add("@UltFCupC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(3).ToString)
+                .Add("@SigFCupC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(4).ToString)
+                .Add("@FLiqC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(5).ToString)
+                .Add("@FVencC", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(6).ToString)
+                .Add("@PorcCupC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(7).ToString)
+                .Add("@PrecVencC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(8).ToString)
+                .Add("@PrecioCompra", SqlDbType.Float).Value = coleccion(9).ToString
                 If (coleccion(10) Is Nothing) Then
                     .Add("@DiasBaseC", SqlDbType.Int).Value = 365
                 Else
-                    .Add("@DiasBaseC", SqlDbType.Int).Value = CInt(coleccion(10).ToString.Trim("%"))
+                    .Add("@DiasBaseC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(10).ToString)
                 End If
 
-
-                '.Add("@CostoTransC", SqlDbType.Float).Value = Trim(CDec(coleccion(11)))
-
-
                 If (coleccion(12) Is Nothing) Then
                     .Add("@PeriodicV", SqlDbType.VarChar).Value = "M"
                 Else
                     .Add("@PeriodicV", SqlDbType.VarChar).Value = coleccion(12).ToString()
                 End If
-
-
-
-                .Add("@ValNomV", SqlDbType.Float).Value = CDec(coleccion(13).ToString.Trim("%"))
-                .Add("@UltFCupV", SqlDbType.Date).Value = coleccion(14)
-                .Add("@SigFCupV", SqlDbType.Date).Value = coleccion(15)
-                .Add("@FLiqV", SqlDbType.Date).Value = coleccion(16)
-                .Add("@FVencV", SqlDbType.Date).Value = coleccion(17)
-                .Add("@PorcCupV", SqlDbType.Float).Value = CDec(coleccion(18).ToString.Trim("%"))
-                .Add("@PrecVencV", SqlDbType.Float).Value = CDec(coleccion(19).ToString.Trim("%"))
-                .Add("@PrecioVenta", SqlDbType.Float).Value = CDec(coleccion(20).ToString.Trim("%"))
+                .Add("@ValNomV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(13).ToString)
+                .Add("@UltFCupV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(14).ToString)
+                .Add("@SigFCupV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(15).ToString)
+                .Add("@FLiqV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(16).ToString)
+                .Add("@FVencV", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(17).ToString)
+                .Add("@PorcCupV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                .Add("@PrecVencV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                .Add("@PrecioVenta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString)
                 If (coleccion(21) Is Nothing) Then
                     .Add("@DiasBaseV", SqlDbType.Int).Value = 365
                 Else
-                    .Add("@DiasBaseV", SqlDbType.Int).Value = CInt(coleccion(21).ToString.Trim("%"))
+                    .Add("@DiasBaseV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(21).ToString)
                 End If
 
-                '.Add("@CostoTransV", SqlDbType.Float).Value = CDec(coleccion(22).ToString.Trim("%"))
                 .Add("@CodInv", SqlDbType.VarChar).Value = coleccion(23).ToString()
-
-                .Add("@ComisionPorCompraCasa", SqlDbType.Float).Value = coleccion(26).ToString()
-                .Add("@ComisionPorCompraBolsa", SqlDbType.Float).Value = coleccion(27).ToString()
-                .Add("@ComisionPorVentaCasa", SqlDbType.Float).Value = coleccion(28).ToString()
-                .Add("@ComisionPorVentaBolsa", SqlDbType.Float).Value = coleccion(29).ToString()
-
-                .Add("@YTMCompra", SqlDbType.Float).Value = coleccion(30).ToString()
-                .Add("@YTMVenta", SqlDbType.Float).Value = coleccion(31).ToString()
-
-
-
-
-                .Add("@DiasVenC", SqlDbType.Int).Value = coleccion(32)
-                .Add("@DiasVenV", SqlDbType.Int).Value = coleccion(33)
-                .Add("@DiasAcuC", SqlDbType.Int).Value = coleccion(34)
-                .Add("@DiasAcuV", SqlDbType.Int).Value = coleccion(35)
-                .Add("@YTMVenC", SqlDbType.Float).Value = coleccion(36)
-                .Add("@YTMVenV", SqlDbType.Float).Value = coleccion(37)
-                .Add("@IntAcuC", SqlDbType.Float).Value = coleccion(38)
-                .Add("@IntAcuV", SqlDbType.Float).Value = coleccion(39)
-                .Add("@IntPorAcuC", SqlDbType.Float).Value = coleccion(40)
-                .Add("@IntPorAcuV", SqlDbType.Float).Value = coleccion(41)
-                .Add("@PrecSucioC", SqlDbType.Float).Value = coleccion(42)
-                .Add("@PrecSucioV", SqlDbType.Float).Value = coleccion(43)
-                .Add("@ComisionCasaC", SqlDbType.Float).Value = coleccion(44)
-                .Add("@ComisionCasaV", SqlDbType.Float).Value = coleccion(45)
-                .Add("@ComisionBolsaC", SqlDbType.Float).Value = coleccion(46)
-                .Add("@ComisionBolsaV", SqlDbType.Float).Value = coleccion(47)
-                .Add("@ValTransC", SqlDbType.Float).Value = coleccion(48)
-                .Add("@ValTransV", SqlDbType.Float).Value = coleccion(49)
-                .Add("@MontoPagar", SqlDbType.Float).Value = coleccion(50)
-                .Add("@MontoRecibir", SqlDbType.Float).Value = coleccion(51)
-                .Add("@CostTransC", SqlDbType.Float).Value = coleccion(52)
-                .Add("@CupRecibidos", SqlDbType.Float).Value = coleccion(53)
+                .Add("@ComisionPorCompraCasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(26).ToString())
+                .Add("@ComisionPorCompraBolsa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(27).ToString())
+                .Add("@ComisionPorVentaCasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(28).ToString())
+                .Add("@ComisionPorVentaBolsa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(29).ToString())
+                .Add("@YTMCompra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(30).ToString())
+                .Add("@YTMVenta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(31).ToString())
+                .Add("@DiasVenC", SqlDbType.Int).Value = coleccion(32).ToString
+                .Add("@DiasVenV", SqlDbType.Int).Value = coleccion(33).ToString
+                .Add("@DiasAcuC", SqlDbType.Int).Value = coleccion(34).ToString
+                .Add("@DiasAcuV", SqlDbType.Int).Value = coleccion(35).ToString
+                .Add("@YTMVenC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(36).ToString)
+                .Add("@YTMVenV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(37).ToString)
+                .Add("@IntAcuC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(38).ToString)
+                .Add("@IntAcuV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(39).ToString)
+                .Add("@IntPorAcuC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(40).ToString)
+                .Add("@IntPorAcuV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(41).ToString)
+                .Add("@PrecSucioC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(42).ToString)
+                .Add("@PrecSucioV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(43).ToString)
+                .Add("@ComisionCasaC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(44).ToString)
+                .Add("@ComisionCasaV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(45).ToString)
+                .Add("@ComisionBolsaC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(46).ToString)
+                .Add("@ComisionBolsaV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(47).ToString)
+                .Add("@ValTransC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(48).ToString)
+                .Add("@ValTransV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(49).ToString)
+                .Add("@MontoPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(50).ToString)
+                .Add("@MontoRecibir", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(51).ToString)
+                .Add("@CostTransC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(52).ToString)
+                .Add("@CupRecibidos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(53).ToString)
             End With
 
             cmd.Connection = cn
 
             retorno = cmd.ExecuteNonQuery
             MsgBox("Registro creado éxitosmente")
-            'Catch ex As Exception
-            '    MsgBox("No se pudo ingresar los datos")
-            'End Try
+
         Else
             MsgBox("No se pudo ingresar los datos")
             retorno = 0
@@ -1103,202 +951,6 @@ Public Class CertificadosDeInversionDAO
             MsgBox(ex.Message)
         End Try
         cn.Close()
-
-
-    End Sub
-
-
-
-    Public Function GuardarIngreso(ByVal CodInversion As String, ByVal fecha As Date, ByVal Porcentaje As Double)
-
-
-        Dim objCon As New Conexion
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim numero = CInt(Numeracion())
-        Dim sql = "INSERT INTO CIN1([CodInv],[NumCupon],[FechaCupon],[PorcImpuesto]) values(@cod,@num,@fecha,@PorcImpuesto)"
-
-
-        Dim comando = New SqlCommand()
-        comando.CommandText = sql
-
-        With comando.Parameters
-            .Add("@cod", SqlDbType.VarChar).Value = CodInversion
-            .Add("@num", SqlDbType.Int).Value = numero
-            .Add("@fecha", SqlDbType.DateTime).Value = fecha
-            .Add("@PorcImpuesto", SqlDbType.Float).Value = Porcentaje
-        End With
-        comando.Connection = cn
-        Dim i As Integer = comando.ExecuteNonQuery()
-        cn.Close()
-        If (i > 0) Then
-            Return True
-        Else
-            Return False
-        End If
-    End Function
-
-    Public Function CargarData()
-
-        Dim objCon As New Conexion
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "select * from CIN1"
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-    Public Function Numeracion()
-
-        Dim objCon As New Conexion
-        Dim sql = "select MAX(NumCupon) from CIN1"
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim numero = cmd.ExecuteScalar
-        If (String.IsNullOrEmpty(numero.ToString)) Then
-            numero = 0
-        Else
-            numero = numero + 1
-        End If
-        cn.Close()
-        Return numero
-    End Function
-
-
-
-
-
-
-
-
-
-
-
-
-
-    Private Sub GuardarIngresos(ByVal CodInversion As String, ByVal dt As DataTable)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim res As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "DELETE FROM [dbo].[CIN1]
-      WHERE [CodInv]=@CodInv"
-
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = CodInversion
-        cmd.Connection = cn
-
-        res = cmd.ExecuteNonQuery
-
-        sql = String.Empty
-        If dt.Rows.Count > 0 Then
-            For Each dr In dt.Rows
-                cmd = New SqlCommand
-                sql = "INSERT INTO [dbo].[CIN1]
-    ([CodInv]
-    ,[NumCupon]
-    ,[FechaCupon]
-    ,[Dias]
-    ,[Ingreso]
-    ,[PorcImpuesto]
-    ,[MontoImpuesto]
-    ,[Liquido]
-)
-VALUES
-    (@CodInv
-    ,@NumCupon
-    ,@FechaCupon
-    ,@Dias
-    ,@Ingreso
-    ,@PorcImpuesto
-    ,@MontoImpuesto
-    ,@Liquido
-)
-"
-                cmd.CommandText = sql
-                cmd.Parameters.AddWithValue("@CodInv", CodInversion)
-                cmd.Parameters.AddWithValue("@NumCupon", dr("NumCupon"))
-                cmd.Parameters.AddWithValue("@FechaCupon", dr("FechaCupon"))
-                cmd.Parameters.AddWithValue("@Dias", dr("Dias"))
-                cmd.Parameters.AddWithValue("@Ingreso", dr("Ingreso"))
-                cmd.Parameters.AddWithValue("@PorcImpuesto", dr("PorcImpuesto"))
-                cmd.Parameters.AddWithValue("@MontoImpuesto", dr("MontoImpuesto"))
-                cmd.Parameters.AddWithValue("@Liquido", dr("MontoImpuesto"))
-                cmd.Connection = cn
-                res = cmd.ExecuteNonQuery
-
-            Next
-        End If
-        cn.Close()
-    End Sub
-    Private Sub GuardarImpuestosYComisiones(ByVal CodInversion As String, ByVal dt As DataTable)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim res As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "DELETE FROM [dbo].[CIN2]
-      WHERE [CodInv]=@CodInv"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = CodInversion
-        cmd.Connection = cn
-
-        res = cmd.ExecuteNonQuery
-
-        sql = String.Empty
-        If dt.Rows.Count > 0 Then
-            For Each dr In dt.Rows
-                cmd = New SqlCommand
-                sql = "INSERT INTO [dbo].[CIN2]
-           ([CodInv]
-           ,[TipoOper]
-           ,[CodImp]
-           ,[PorcImp]
-           ,[MontoImp]
-           ,[MontoSujeto])
-     VALUES
-           (@CodInv
-           ,@TipoOper
-           ,@CodImp
-           ,@PorcImp
-           ,@MontoImp
-           ,@MontoSujeto)"
-                cmd.CommandText = sql
-                cmd.Parameters.AddWithValue("@CodInv", CodInversion)
-                cmd.Parameters.AddWithValue("@TipoOper", dr("TipoOper"))
-                cmd.Parameters.AddWithValue("@CodImp", dr("CodImp"))
-                cmd.Parameters.AddWithValue("@PorcImp", dr("PorcImp"))
-                cmd.Parameters.AddWithValue("@MontoImp", dr("MontoImp"))
-                cmd.Parameters.AddWithValue("@MontoSujeto", dr("MontoSujeto"))
-                cmd.Connection = cn
-                res = cmd.ExecuteNonQuery
-            Next
-        End If
-        cn.Close()
     End Sub
 End Class
 

DAO/ColaDAO.vb

@@ -6,19 +6,6 @@ Public Class ColaDAO
 
 
     Dim Operaciones As New Operaciones
-
-
-
-
-
-
-
-
-
-
-
-
-
     Public Function EstadoArbitraje() As DataTable
         Dim objCon As New Conexion
         Dim da As New SqlDataAdapter

DAO/DAONotaEstructurada.vb

@@ -4,208 +4,10 @@
 Public Class DAONotaEstructurada
 
 
-    Function Nuevo(ByVal oNESTCE As NotaEstructuradaCE) As Integer
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        sql = "INSERT INTO [dbo].[NEST0]
-           ([CodInv]
-           ,[MontoInv]  
-           ,[FOper]
-           ,[FVenc]
-           ,[Tasa]
-           ,[Plazo]
-           --,[AnBase]
-           ,[Periodic])
-     VALUES
-           (@CodInv
-           ,@MontoInv
-           ,@FOper
-           ,@FVenc
-           ,@Tasa
-           ,@Plazo
-           --,@AnBase
-           ,@Periodic)
-"
-
-        cmd = New SqlCommand
-        cmd.Connection = cn
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = oNESTCE.CodigoInversion
-            .Add("@MontoInv", SqlDbType.Float).Value = oNESTCE.MontoDeInversion
-            .Add("@FOper", SqlDbType.Date).Value = oNESTCE.FechaOperacion
-            .Add("@FVenc", SqlDbType.Date).Value = oNESTCE.FechaVencimiento
-            .Add("@Tasa", SqlDbType.Float).Value = oNESTCE.Tasa
-            .Add("@Plazo", SqlDbType.Int).Value = oNESTCE.Plazo
-            '.Add("@AnBase",SqlDbType.VarChar).Value = oDAPCE.CodigoInversion
-            .Add("@Periodic", SqlDbType.VarChar).Value = oNESTCE.Periodicidad
-        End With
-
-        retorno = cmd.ExecuteNonQuery
-
-        cmd.Dispose()
-        cn.Dispose()
+    Dim Operaciones As New Operaciones
 
-        GuardaIntereses(oNESTCE.CodigoInversion, oNESTCE.dtIntereses)
 
-        Return retorno
-    End Function
-    Function Nuevo(ByVal oNEST As NotaEstructuradaCE, DocId As Integer, Tipo As String) As Integer
-        Dim objCon As New Conexion
-        Dim retorno As Integer = -1
-        Dim Transaccion As SqlTransaction
-        Dim query As String
-        Dim Tabla As String = ""
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        If Tipo = "P" Then
-            Tabla = "PDAP0"
-        End If
-        If Tipo = "I" Then
-            Tabla = "IDAP0"
-        End If
-
-        Dim cmd As SqlCommand = cn.CreateCommand
-
-        Transaccion = cn.BeginTransaction("NuevoDAP")
-        cmd.Connection = cn
-        cmd.Transaction = Transaccion
-
-        query = "INSERT INTO [dbo].[" & Tabla & "]
-           ([DocId]
-           ,[MontoInv]
-           ,[FOper]
-           ,[FVenc]
-           ,[Tasa]
-           ,[Plazo]
-           ,[AnBase]
-           ,[Periodic]
-           ,[RendBruto]
-           ,[RendNeto]
-           ,[IngrBruto]
-           ,[Impuestos]
-           ,[IngrNeto])
-     VALUES
-           (@DocId
-           ,@MontoInv
-           ,@FOper
-           ,@FVenc
-           ,@Tasa
-           ,@Plazo
-           ,@AnBase
-           ,@Periodic
-           ,@RendBruto
-           ,@RendNeto
-           ,@IngrBruto
-           ,@Impuestos
-           ,@IngrNeto
-		  )"
-
-        cmd.CommandText = query
-
-        With cmd.Parameters
-            .Add("@DocId", SqlDbType.Int).Value = DocId
-            .Add("@MontoInv", SqlDbType.Decimal).Value = oNEST.MontoDeInversion
-            .Add("@FOper", SqlDbType.Date).Value = oNEST.FechaOperacion
-            .Add("@FVenc", SqlDbType.Date).Value = oNEST.FechaVencimiento
-            .Add("@Tasa", SqlDbType.Decimal).Value = oNEST.Tasa
-            .Add("@Plazo", SqlDbType.Int).Value = oNEST.Plazo
-            .Add("@AnBase", SqlDbType.Int).Value = oNEST.AnioBase
-            .Add("@Periodic", SqlDbType.NVarChar).Value = oNEST.Periodicidad
-            .Add("@RendBruto", SqlDbType.Decimal).Value = oNEST.RendimientoBruto
-            .Add("@RendNeto", SqlDbType.Decimal).Value = oNEST.RendimientoNeto
-            .Add("@IngrBruto", SqlDbType.Decimal).Value = oNEST.IngresoBruto
-            .Add("@Impuestos", SqlDbType.Decimal).Value = oNEST.Impuestos
-            .Add("@IngrNeto", SqlDbType.Decimal).Value = oNEST.IngresoNeto
-        End With
 
-        Try
-            cmd.ExecuteNonQuery()
-            Transaccion.Commit()
-            retorno = 0
-        Catch ex As Exception
-            MsgBox("Error al Guardar DAP : " & ex.GetType.ToString)
-            MsgBox("Mensaje: " & ex.Message)
-            retorno = 1
-            Try
-                Transaccion.Rollback()
-                retorno = 2
-            Catch ex2 As Exception
-                MsgBox("Error en Rollback: " & ex2.GetType.ToString)
-                MsgBox("Mensaje Rollbak: " & ex2.Message)
-                retorno = 3
-            End Try
-        End Try
-
-        cmd.Dispose()
-        cn.Dispose()
-
-
-        Return retorno
-    End Function
-
-    Public Sub CargarRegistro(ByVal oNEST As NotaEstructuradaCE, Tipo As String, IdRegistro As Integer)
-        Dim objCon As New Conexion
-        Dim drd As SqlDataReader
-        Dim cmd As SqlCommand
-        Dim sql As String
-        Dim Tabla As String
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        If Tipo = "P" Then
-            Tabla = "PDAP0"
-        End If
-        If Tipo = "I" Then
-            Tabla = "IDAP0"
-        End If
-
-        sql = "SELECT * FROM [dbo].[" & Tabla & "] T0 WHERE T0.[DocId]=@DocId"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@DocId", SqlDbType.Int).Value = IdRegistro
-        cmd.Connection = cn
-
-        drd = cmd.ExecuteReader
-
-        If drd.HasRows Then
-            'SE ENCONTRO EL REGISTRO
-            If drd.Read Then
-                oNEST.MontoDeInversion = drd.Item("MontoInv")
-                oNEST.FechaOperacion = drd.Item("FOper")
-                oNEST.FechaVencimiento = drd.Item("FVenc")
-                oNEST.Tasa = drd.Item("Tasa")
-                oNEST.Plazo = drd.Item("Plazo")
-                oNEST.AnioBase = drd.Item("AnBase")
-                oNEST.Periodicidad = drd.Item("Periodic")
-                'oDAP.RendimientoBruto = drd.Item("RendBruto")
-                'oDAP.RendimientoNeto = drd.Item("RendNeto")
-                oNEST.IngresoBruto = drd.Item("IngrBruto")
-                oNEST.Impuestos = drd.Item("Impuestos")
-                oNEST.IngresoNeto = drd.Item("IngrNeto")
-            End If
-        Else
-            'NO SE ENCONTRO EL REGISTRO
-        End If
-        drd.Close()
-        cmd.Dispose()
-        cn.Dispose()
-
-    End Sub
     Public Function CargarRegistro(ByVal vCodigoInversion As String) As NotaEstructuradaCE
         Dim objCon As New Conexion
         Dim oNESTCE As New NotaEstructuradaCE
@@ -238,10 +40,10 @@ Public Class DAONotaEstructurada
             'SE ENCONTRO EL REGISTRO
             If drd.Read Then
                 oNESTCE.CodigoInversion = vCodigoInversion.ToString
-                oNESTCE.MontoDeInversion = drd.Item("MontoInv").ToString
-                oNESTCE.FechaOperacion = drd.Item("FOper").ToString
-                oNESTCE.FechaVencimiento = drd.Item("FVenc").ToString
-                oNESTCE.Tasa = drd.Item("Tasa").ToString
+                oNESTCE.MontoDeInversion = Operaciones.ConvertirDecimal(drd.Item("MontoInv").ToString)
+                oNESTCE.FechaOperacion = Operaciones.ConvertirFecha(drd.Item("FOper").ToString)
+                oNESTCE.FechaVencimiento = Operaciones.ConvertirFecha(drd.Item("FVenc").ToString)
+                oNESTCE.Tasa = Operaciones.ConvertirFecha(drd.Item("Tasa").ToString)
                 oNESTCE.Plazo = drd.Item("Plazo").ToString
                 oNESTCE.Periodicidad = drd.Item("Periodic").ToString
 
@@ -258,115 +60,9 @@ Public Class DAONotaEstructurada
 
     End Function
 
-    Public Function Actualizar(ByVal oNESTCE As NotaEstructuradaCE) As Integer
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim retorno As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        sql = "UPDATE [dbo].[NEST0]
-   SET [MontoInv] = @MontoInv
-      ,[FOper] = @FOper
-      ,[FVenc] = @FVenc
-      ,[Tasa] = @Tasa
-      ,[Plazo] = @Plazo
-      --,[AnBase] = @AnBase
-      ,[Periodic] = @Periodic
- WHERE [CodInv] = @CodInv"
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-
-
-        With cmd.Parameters
-            .Add("@MontoInv", SqlDbType.Float).Value = oNESTCE.MontoDeInversion
-            .Add("@FOper", SqlDbType.Date).Value = oNESTCE.FechaOperacion
-            .Add("@FVenc", SqlDbType.Date).Value = oNESTCE.FechaVencimiento
-            .Add("@Tasa", SqlDbType.Float).Value = oNESTCE.Tasa
-            .Add("@Plazo", SqlDbType.Int).Value = oNESTCE.Plazo
-            .Add("@Periodic", SqlDbType.VarChar).Value = oNESTCE.Periodicidad
-        End With
-
-        cmd.Connection = cn
-        retorno = cmd.ExecuteNonQuery
-
-        cmd.Dispose()
-        cn.Dispose()
-
-        GuardaIntereses(oNESTCE.CodigoInversion, oNESTCE.dtIntereses)
-
-        Return retorno
-    End Function
-    Private Sub GuardaIntereses(ByVal vCodInversion As String, dt As DataTable)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim res As Integer
-
-        sql = "DELETE FROM [dbo].[NEST1]
-      WHERE [CodInv]=@CodInv"
 
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = vCodInversion
 
 
-        cmd.Connection = cn
-        res = cmd.ExecuteNonQuery
-        sql = String.Empty
-
-        If dt.Rows.Count > 0 Then
-            For Each dr In dt.Rows
-                cmd = New SqlCommand
-                sql = "INSERT INTO [dbo].[NEST1]
-           ([CodInv]
-           ,[Plazo]
-           ,[Fecha]
-           ,[IngrBruto]
-           ,[PorcImp]
-           ,[MontoImp]
-           ,[IngrNeto]
-           ,[Estado])
-     VALUES
-           (@CodInv
-           ,@Plazo
-           ,@Fecha
-           ,@IngrBruto
-           ,@PorcImp
-           ,@MontoImp
-           ,@IngrNeto
-           ,@Estado)"
-
-                cmd.CommandText = sql
-                With cmd.Parameters
-                    .AddWithValue("@CodInv", vCodInversion)
-                    .AddWithValue("@Plazo", dr("Plazo"))
-                    .AddWithValue("@Fecha", dr("Fecha"))
-                    .AddWithValue("@IngrBruto", dr("IngrBruto"))
-                    .AddWithValue("@PorcImp", dr("PorcImp"))
-                    .AddWithValue("@MontoImp", dr("MontoImp"))
-                    .AddWithValue("@IngrNeto", dr("IngrNeto"))
-                    .AddWithValue("@Estado", dr("Estado"))
-                End With
-                cmd.Connection = cn
-                res = cmd.ExecuteNonQuery
-            Next
-        End If
-
-        cmd.Dispose()
-        cn.Dispose()
-
-    End Sub
-
 
 
     Public Function NuevoDato(ByVal Coleccion As Collection, ByVal Diccionario As Dictionary(Of String, Collection), ByVal Codigo As String)
@@ -425,18 +121,17 @@ Public Class DAONotaEstructurada
             cmd.Transaction = myTrans
             With cmd.Parameters
                 .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@MontoInv", SqlDbType.Decimal).Value = Coleccion(1)
-                .Add("@FOper", SqlDbType.DateTime).Value = Coleccion(2)
-                .Add("@FVenc", SqlDbType.DateTime).Value = Coleccion(3)
-                .Add("@Tasa", SqlDbType.Decimal).Value = Coleccion(4)
-                .Add("@Plazo", SqlDbType.Int).Value = Coleccion(5)
-                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6)
-                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7)
-                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8)
-
-                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Coleccion(9)
-                .Add("@IngrNetoTot", SqlDbType.Float).Value = Coleccion(10)
-                .Add("@Renta", SqlDbType.Float).Value = Coleccion(11)
+                .Add("@MontoInv", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(1).ToString)
+                .Add("@FOper", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@FVenc", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@Tasa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(5).ToString)
+                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6).ToString
+                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7).ToString
+                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8).ToString
+                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+                .Add("@IngrNetoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+                .Add("@Renta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(11).ToString)
             End With
 
             retorno = cmd.ExecuteNonQuery
@@ -483,13 +178,13 @@ Public Class DAONotaEstructurada
                     cmd.Transaction = myTrans
                     With cmd.Parameters
                         .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                        .Add("@Correlativo", SqlDbType.Int).Value = Coleccion2(1)
-                        .Add("@Plazo", SqlDbType.Int).Value = Coleccion2(2)
-                        .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion2(3)
-                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion2(4)
-                        .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion2(5)
-                        .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion2(6)
-                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion2(7)
+                        .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(1).ToString)
+                        .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(2).ToString)
+                        .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion2(3).ToString)
+                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                        .Add("@PorcImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                        .Add("@MontoImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
                     End With
 
                     retorno = cmd.ExecuteNonQuery
@@ -573,13 +268,13 @@ Public Class DAONotaEstructurada
 
 
             .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-            .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-            .Add("@Plazo", SqlDbType.Int).Value = Coleccion(2)
-            .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(3)
-            .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion(4)
-            .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion(5)
-            .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion(6)
-            .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion(7)
+            .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+            .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(2).ToString)
+            .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+            .Add("@IngrBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@PorcImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+            .Add("@MontoImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@IngrNeto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
         End With
 
 
@@ -594,55 +289,6 @@ Public Class DAONotaEstructurada
 
 
 
-    Public Function ModificarElemento(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE  [dbo].[NEST1] SET
-
-           [Plazo]=@Plazo
-           ,[Fecha]=@Fecha
-           ,[IngrBruto]=@IngrBruto
-           ,[PorcImp]=@PorcImp
-           ,[MontoImp]=@MontoImp
-           ,[IngrNeto]=@IngrNeto
-            where  [CodInv]=@CodInv AND [Correlativo]=@Correlativo
-
-    "
-
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-
-
-
-            .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-            .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-            .Add("@Plazo", SqlDbType.Int).Value = Coleccion(2)
-            .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(3)
-            .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion(4)
-            .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion(5)
-            .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion(6)
-            .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion(7)
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
 
 
     Public Sub EliminarElemento(ByVal Codigo As String)
@@ -717,18 +363,17 @@ Public Class DAONotaEstructurada
             cmd.Transaction = myTrans
             With cmd.Parameters
                 .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@MontoInv", SqlDbType.Decimal).Value = Coleccion(1)
-                .Add("@FOper", SqlDbType.DateTime).Value = Coleccion(2)
-                .Add("@FVenc", SqlDbType.DateTime).Value = Coleccion(3)
-                .Add("@Tasa", SqlDbType.Decimal).Value = Coleccion(4)
-                .Add("@Plazo", SqlDbType.Int).Value = Coleccion(5)
-                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6)
-                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7)
-                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8)
-
-                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Coleccion(9)
-                .Add("@IngrNetoTot", SqlDbType.Float).Value = Coleccion(10)
-                .Add("@Renta", SqlDbType.Float).Value = Coleccion(11)
+                .Add("@MontoInv", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(1).ToString)
+                .Add("@FOper", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@FVenc", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@Tasa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(5).ToString)
+                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6).ToString
+                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7).ToString
+                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8).ToString
+                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+                .Add("@IngrNetoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+                .Add("@Renta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(11).ToString)
             End With
             retorno = cmd.ExecuteNonQuery
 
@@ -800,13 +445,13 @@ Public Class DAONotaEstructurada
                     cmd.Transaction = myTrans
                     With cmd.Parameters
                         .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                        .Add("@Correlativo", SqlDbType.Int).Value = Coleccion2(1)
-                        .Add("@Plazo", SqlDbType.Int).Value = Coleccion2(2)
-                        .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion2(3)
-                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion2(4)
-                        .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion2(5)
-                        .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion2(6)
-                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion2(7)
+                        .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(1).ToString)
+                        .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(2).ToString)
+                        .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion2(3).ToString)
+                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                        .Add("@PorcImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                        .Add("@MontoImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
                     End With
 
                     retorno = cmd.ExecuteNonQuery
@@ -833,78 +478,10 @@ Public Class DAONotaEstructurada
         cn.Close()
 
         Return retorno
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
     End Function
 
 
 
-    'Public Sub EliminarDato(ByVal Codigo As String)
-    '    Dim sql As String
-    '    Dim cmd As SqlCommand
-    '    Dim res As Integer
-
-    '    sql = "DELETE FROM [dbo].[DAP0]
-    '  WHERE [CodInv]=@CodInv"
-
-
-
-    '    cn = objCon.Conectar
-
-    '    If Not cn.State = ConnectionState.Open Then
-    '        cn.Open()
-    '    End If
-
-    '    cmd = New SqlCommand
-    '    cmd.CommandText = sql
-    '    cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-    '    cmd.Connection = cn
-
-    '    res = cmd.ExecuteNonQuery
-
-    'End Sub
 
 
 

DAO/DAOPropuestaInversion.vb

@@ -4,7 +4,7 @@ Public Class DAOPropuestaInversion
     Dim CambiarEstArbCE As New CambiarEstArbCE
     Dim da As SqlDataAdapter
     Dim Operaciones As New Operaciones
-    'Dim cmd As SqlCommand
+
 
 
     Function ExisteInstrumento(ByVal CodigoInversion As String)
@@ -28,105 +28,9 @@ Public Class DAOPropuestaInversion
         End If
     End Function
 
-    Public Function TraerMontosPrecio(ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim diccionario As New Dictionary(Of String, Collection)
-        Dim Coleccion As New Collection
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "SP_CargarMontoPrecio"
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        cmd.CommandType = CommandType.StoredProcedure
-
-        cmd.Parameters.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-
-
-
-
-
-
-
-        Dim dr As SqlDataReader
-        Dim SumaVal As Double = 0
-        dr = cmd.ExecuteReader
-        Dim CodigoEmpresa As String = String.Empty
-        Dim CodigoInstrumento As String = String.Empty
-
-        Dim MontoPrimario As Double = 0
-
-        Dim MontoSecundario As Double = 0
-        Dim PrecioV As Double = 0
-        Dim precioC As Double = 0
-
-
-
-        While dr.Read
-            If String.IsNullOrEmpty(dr.GetName(0)) Then
-                Return Coleccion
-            End If
-
-
-
-            CodigoEmpresa = dr("CodigoEmpresa")
-            CodigoInstrumento = dr("CodigoInstrumento")
-
-
-            If Not String.IsNullOrEmpty(dr("MontoPrimario").ToString) Then
-                MontoPrimario = dr("MontoPrimario")
-            End If
-
-            If Not String.IsNullOrEmpty(dr("MontoSecundario").ToString) Then
-                MontoSecundario = dr("MontoSecundario")
-            End If
-
-            If Not String.IsNullOrEmpty(dr("PrecioV").ToString) Then
-                PrecioV = dr("PrecioV")
-            End If
-
-            If Not String.IsNullOrEmpty(dr("PrecioC").ToString) Then
-
-                precioC = dr("PrecioC")
-            End If
-
-
-
 
 
 
-            If CodigoInstrumento.IndexOf("REPO") > -1 Then
-                SumaVal += MontoPrimario
-
-            Else
-
-                Coleccion.Add(CodigoEmpresa)
-                Coleccion.Add(CodigoInstrumento)
-                Coleccion.Add(MontoPrimario)
-                Coleccion.Add(MontoSecundario)
-
-                Coleccion.Add(PrecioV)
-                Coleccion.Add(precioC)
-                Return Coleccion
-            End If
-
-        End While
-        Coleccion.Add(CodigoEmpresa)
-        Coleccion.Add(CodigoInstrumento)
-        Coleccion.Add(SumaVal)
-        Coleccion.Add(MontoSecundario)
-
-        Coleccion.Add(PrecioV)
-
-        Coleccion.Add(precioC)
-
-        cn.Close()
-        Return Coleccion
-    End Function
-
-
 
 
 
@@ -192,9 +96,7 @@ Public Class DAOPropuestaInversion
         da.Fill(ds, "Resultado")
         Return ds
 
-        ds.Dispose()
-        da.Dispose()
-        cn.Dispose()
+
 
     End Function
 
@@ -644,9 +546,7 @@ Public Class DAOPropuestaInversion
 
         Return ds
 
-        ds.Dispose()
-        da.Dispose()
-        cn.Dispose()
+
 
     End Function
 
@@ -1151,201 +1051,11 @@ Public Class DAOPropuestaInversion
 
 
 
-    Public Function SoloNuevaPropuesta(ByVal ObjPropuesta As CEPropuestaInversion, ByVal CodigoPrincipal As String, ByVal CodigoSecundario As String)
-        Dim objCon As New Conexion
-        Dim Transaccion As SqlTransaction
-        Dim query As String
-        Dim Retornar As Boolean
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-
-        Dim NuevoDocId As Integer
-
-
-
-
-        Dim cmd As SqlCommand = cn.CreateCommand
-
-        Transaccion = cn.BeginTransaction("NuevaPropuesta")
-
-        cmd.Connection = cn
-        cmd.Transaction = Transaccion
-
-        'TRAE ULTIMO DOCID
-        cmd.CommandText = "SELECT ISNULL(MAX(DocId),0) FROM [dbo].[PIN0]"
-        NuevoDocId = cmd.ExecuteScalar()
-        NuevoDocId = NuevoDocId + 1
-
-
-        query = "INSERT INTO [dbo].[PIN0]
-           ([CodInv]
-            ,[VCodInv]
-           ,[DocEst]
-           ,[Asunto]
-           ,[CodEmpr]
-           ,[CodIF]
-           ,[CodEmis]
-           ,[CodCalRi]
-           ,[CodECalRi]
-           ,[OFon]
-           ,[Coment]
-           ,[Just]
-           ,[TipoOper]
-           ,[MontoInv]
-           ,[Precio]
-           ,[Rendimiento]
-           ,[Plazo]
-           ,[PlazoFact]
-           ,[Ingresos]
-           ,[FechaDoc]
-           ,[AutEstado]
-           ,[TipoMerc]
-           ,[CodPais]
-           ,[TipoRenta]
-           ,[TipoTasa]
-           ,[Periodicidad]
-           ,[NombreManual]
-            
-
-)
-     VALUES
-           (@CodInv
-            ,@VCodInv
-           ,@DocEst
-           ,@Asunto
-           ,@CodEmpr
-           ,@CodIF
-           ,@CodEmis
-           ,@CodCalRi
-           ,@CodECalRi
-           ,@OFon
-           ,@Coment
-           ,@Just
-           ,@TipoOper
-           ,@MontoInv
-           ,@Precio
-           ,@Rendimiento
-           ,@Plazo
-           ,@PlazoFact
-           ,@Ingresos
-           ,@FechaDoc
-           ,@AutEstado
-           ,@TipoMerc
-           ,@CodPais
-           ,@TipoRenta
-           ,@TipoTasa
-           ,@Periodicidad
-           ,@NombreManual
-		   )"
-
-        cmd.CommandText = query
-
-        With cmd.Parameters
-
-            .Add("@CodInv", SqlDbType.VarChar).Value = CodigoPrincipal
-            .Add("@VCodInv", SqlDbType.VarChar).Value = CodigoSecundario
-            .Add("@DocEst", SqlDbType.VarChar).Value = ObjPropuesta.EstadoDocumento.ToString
-            .Add("@Asunto", SqlDbType.VarChar).Value = ObjPropuesta.Asunto.ToString
-            .Add("@CodEmpr", SqlDbType.VarChar).Value = ObjPropuesta.CodigoEmpresa.ToString
-            .Add("@CodIF", SqlDbType.VarChar).Value = ObjPropuesta.CodigoInstrumentoFinanciero.ToString
-            .Add("@CodEmis", SqlDbType.Int).Value = ObjPropuesta.CodigoEmisor.ToString
-            .Add("@CodCalRi", SqlDbType.VarChar).Value = ObjPropuesta.CodigoCalificacionDeRiesgo.ToString
-            .Add("@CodECalRi", SqlDbType.VarChar).Value = ObjPropuesta.CodigoEmpresaCalificadora.ToString
-            .Add("@OFon", SqlDbType.VarChar).Value = ObjPropuesta.OrigenDeFondos.ToString
-            .Add("@Coment", SqlDbType.VarChar).Value = ObjPropuesta.Comentarios.ToString
-            .Add("@Just", SqlDbType.VarChar).Value = ObjPropuesta.Justificacion.ToString
-            .Add("@TipoOper", SqlDbType.VarChar).Value = ObjPropuesta.TipoOperacion.ToString
-            .Add("@MontoInv", SqlDbType.Float).Value = ObjPropuesta.MontoInversion.ToString
-            .Add("@Precio", SqlDbType.Float).Value = ObjPropuesta.Precio.ToString
-            .Add("@Rendimiento", SqlDbType.Float).Value = ObjPropuesta.Rendimiento.ToString
-            .Add("@Plazo", SqlDbType.Int).Value = ObjPropuesta.PlazoNumero.ToString
-            .Add("@PlazoFact", SqlDbType.VarChar).Value = ObjPropuesta.PlazoFactor.ToString
-            .Add("@Ingresos", SqlDbType.Float).Value = ObjPropuesta.Ingresos.ToString
-            .Add("@FechaDoc", SqlDbType.Date).Value = ObjPropuesta.FechaDocumento.ToString
-            .Add("@AutEstado", SqlDbType.VarChar).Value = ObjPropuesta.EstadoAutorizacion.ToString
-            .Add("@TipoMerc", SqlDbType.VarChar).Value = ObjPropuesta.TipoMercado.ToString
-            .Add("@CodPais", SqlDbType.VarChar).Value = ObjPropuesta.Pais.ToString
-
-            .Add("@TipoRenta", SqlDbType.VarChar).Value = ObjPropuesta.TipoRenta.ToString
-            .Add("@TipoTasa", SqlDbType.VarChar).Value = ObjPropuesta.TipoTasa.ToString
-            .Add("@Periodicidad", SqlDbType.VarChar).Value = ObjPropuesta.Periodicidad.ToString
-            .Add("@NombreManual", SqlDbType.VarChar).Value = ObjPropuesta.NombreManual.ToString
-        End With
-        cmd.ExecuteNonQuery()
-
-
-        cmd = New SqlCommand
 
 
 
 
 
-        query = "INSERT INTO [dbo].[Propuesta]
-           ([CodigoPropuesta]
-            ,[Nombre]
-            ,[Descrip]
-            ,[Estado]
-)
-     VALUES
-           (@CodigoPropuesta
-            ,@Nombre
-            ,@Descrip
-            ,@Estado
-		   )"
-
-
-
-
-
-        cmd.CommandText = query
-        cmd.Connection = cn
-        cmd.Transaction = Transaccion
-
-        With cmd.Parameters
-            .Add("@CodigoPropuesta", SqlDbType.VarChar).Value = CodigoPrincipal
-            .Add("@Nombre", SqlDbType.VarChar).Value = "ProCre"
-            .Add("@Descrip", SqlDbType.VarChar).Value = "Propuesta de Inversion Inicial Creada"
-            .Add("@Estado", SqlDbType.VarChar).Value = "En Propuesta"
-        End With
-
-
-        Retornar = cmd.ExecuteNonQuery
-
-
-        Try
-
-            Transaccion.Commit()
-            MsgBox("Registro Guardado")
-            Retornar = True
-
-
-
-        Catch ex As Exception
-            MsgBox("Error en Transaccion: " & ex.GetType.ToString)
-            MsgBox("Mensaje: " & ex.Message)
-
-            Try
-                Transaccion.Rollback()
-            Catch ex2 As Exception
-                MsgBox("Error en Rollback: " & ex.GetType.ToString)
-                MsgBox("Mensaje Rollbak: " & ex.Message)
-            End Try
-            Retornar = False
-        End Try
-
-        cmd.Dispose()
-        da.Dispose()
-        cn.Dispose()
-
-        Return Retornar
-    End Function
-
-
-
-
 
 
 
@@ -1464,32 +1174,29 @@ Public Class DAOPropuestaInversion
                 oPropuesta.Asunto = drd.Item("Asunto").ToString
                 oPropuesta.CodigoEmpresa = drd.Item("CodEmpr").ToString
                 oPropuesta.CodigoInstrumentoFinanciero = drd.Item("CodIF").ToString
-                oPropuesta.CodigoEmisor = drd.Item("CodEmis").ToString
+                oPropuesta.CodigoEmisor = Operaciones.ConvertirEntero(drd.Item("CodEmis").ToString)
                 oPropuesta.CodigoCalificacionDeRiesgo = drd.Item("CodCalRi").ToString
                 oPropuesta.CodigoEmpresaCalificadora = drd.Item("CodECalRi").ToString
                 oPropuesta.OrigenDeFondos = drd.Item("OFon").ToString
                 oPropuesta.Justificacion = drd.Item("Just").ToString
                 oPropuesta.Comentarios = drd.Item("Coment").ToString
-                oPropuesta.MontoInversion = drd.Item("MontoInv").ToString
-                oPropuesta.Precio = drd.Item("Precio").ToString
-                oPropuesta.Rendimiento = drd.Item("Rendimiento").ToString
-                oPropuesta.PlazoNumero = drd.Item("Plazo").ToString
+                oPropuesta.MontoInversion = Operaciones.ConvertirDecimal(drd.Item("MontoInv").ToString)
+                oPropuesta.Precio = Operaciones.ConvertirDecimal(drd.Item("Precio").ToString)
+                oPropuesta.Rendimiento = Operaciones.ConvertirDecimal(drd.Item("Rendimiento").ToString)
+                oPropuesta.PlazoNumero = Operaciones.ConvertirEntero(drd.Item("Plazo").ToString)
                 oPropuesta.PlazoFactor = drd.Item("PlazoFact").ToString
-                oPropuesta.Ingresos = drd.Item("Ingresos").ToString
-                oPropuesta.FechaDocumento = drd.Item("FechaDoc").ToString
+                oPropuesta.Ingresos = Operaciones.ConvertirDecimal(drd.Item("Ingresos").ToString)
+                oPropuesta.FechaDocumento = Operaciones.ConvertirFecha(drd.Item("FechaDoc").ToString)
                 oPropuesta.EstadoAutorizacion = drd.Item("AutEstado").ToString
                 oPropuesta.TipoMercado = drd.Item("TipoMerc").ToString
                 oPropuesta.Pais = drd.Item("CodPais").ToString
-
-
                 oPropuesta.TipoRenta = drd.Item("TipoRenta").ToString
                 oPropuesta.TipoTasa = drd.Item("TipoTasa").ToString
                 oPropuesta.Periodicidad = drd.Item("Periodicidad").ToString
                 oPropuesta.NombreManual = drd.Item("NombreManual").ToString
-                oPropuesta.IdFlujo = Operaciones.ConvertirDecimal(drd.Item("IdFlujo").ToString)
-                oPropuesta.IdEA = Operaciones.ConvertirDecimal(drd.Item("IdEA").ToString)
+                oPropuesta.IdFlujo = Operaciones.ConvertirEntero(Operaciones.ConvertirDecimal(drd.Item("IdFlujo").ToString))
+                oPropuesta.IdEA = Operaciones.ConvertirEntero(Operaciones.ConvertirDecimal(drd.Item("IdEA").ToString))
                 oPropuesta.EstadoReporto = drd.Item("EstadoReporto").ToString
-
                 oPropuesta.CodigoAsociado = drd.Item("CodigoAsociado").ToString
             End If
             drd.Close()
@@ -1697,23 +1404,17 @@ Public Class DAOPropuestaInversion
             oCEInversion.Pais = oCEPropuesta.Pais
             oCEInversion.TipoMercado = oCEPropuesta.TipoMercado
             oCEInversion.DocumentoBase = oCEPropuesta.IdDeDocumento
-
             oCEInversion.EstadoDocumento = oCEPropuesta.EstadoDocumento
-
-
-
             oCEInversion.NombreManual = oCEPropuesta.NombreManual
             oCEInversion.TipoRenta = oCEPropuesta.TipoRenta
             oCEInversion.TipoTasa = oCEPropuesta.TipoTasa
             oCEInversion.Periodicidad = oCEPropuesta.Periodicidad
-
             oCEInversion.PlazoFactor = oCEPropuesta.PlazoFactor
             oCEInversion.PlazoNumero = oCEPropuesta.PlazoNumero
             oCEInversion.OFondo = oCEPropuesta.OrigenDeFondos
             oCEInversion.CodigoCompra = oCEPropuesta.CodigoCompra
             oCEInversion.EstadoProceso = "R"
             oCEInversion.FechaDocumento = oCEPropuesta.FechaDocumento
-
             oCEInversion.EstadoReporto = oCEPropuesta.EstadoReporto
 
             If oCEPropuesta.EstadoReporto = "SECUNDARIO" Then
@@ -1726,19 +1427,18 @@ Public Class DAOPropuestaInversion
             vResNuevo = oDAOInversion.Nuevo(oCEInversion)
 
             If vResNuevo > 0 Then
-                'MsgBox("Completado.")
-                'CERRAR PROPUESTA
+
                 Cerrar(IdPropuesta)
                 vRetorno = 1
             Else
-                'NO SE PUDO
+
                 vRetorno = -2
                 MsgBox("Falla al convertir en Inversion")
             End If
 
 
         Else
-            'NO ES NADA
+
             vRetorno = -1
         End If
 

DAO/DepositosAPlazoDAO.vb

@@ -1,209 +1,9 @@
 Imports System.Data.SqlClient
 Public Class DepositosAPlazoDAO
 
+    Dim Operaciones As New Operaciones
 
-    Function Nuevo(ByVal oDAPCE As DepositosAPlazoCE) As Integer
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        sql = "INSERT INTO [dbo].[DAP0]
-           ([CodInv]
-           ,[MontoInv]
-           ,[FOper]
-           ,[FVenc]
-           ,[Tasa]
-           ,[Plazo]
-           --,[AnBase]
-           ,[Periodic])
-     VALUES
-           (@CodInv
-           ,@MontoInv
-           ,@FOper
-           ,@FVenc
-           ,@Tasa
-           ,@Plazo
-           --,@AnBase
-           ,@Periodic)
-"
-
-        cmd = New SqlCommand
-        cmd.Connection = cn
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = oDAPCE.CodigoInversion
-            .Add("@MontoInv", SqlDbType.Float).Value = oDAPCE.MontoDeInversion
-            .Add("@FOper", SqlDbType.Date).Value = oDAPCE.FechaOperacion
-            .Add("@FVenc", SqlDbType.Date).Value = oDAPCE.FechaVencimiento
-            .Add("@Tasa", SqlDbType.Float).Value = oDAPCE.Tasa
-            .Add("@Plazo", SqlDbType.Int).Value = oDAPCE.Plazo
-            '.Add("@AnBase",SqlDbType.VarChar).Value = oDAPCE.CodigoInversion
-            .Add("@Periodic", SqlDbType.VarChar).Value = oDAPCE.Periodicidad
-        End With
-
-        retorno = cmd.ExecuteNonQuery
-
-        cmd.Dispose()
-        cn.Dispose()
-
-        GuardaIntereses(oDAPCE.CodigoInversion, oDAPCE.dtIntereses)
 
-        Return retorno
-    End Function
-    Function Nuevo(ByVal oDAP As DepositosAPlazoCE, DocId As Integer, Tipo As String) As Integer
-        Dim objCon As New Conexion
-        Dim retorno As Integer = -1
-        Dim Transaccion As SqlTransaction
-        Dim query As String
-        Dim Tabla As String = ""
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        If Tipo = "P" Then
-            Tabla = "PDAP0"
-        End If
-        If Tipo = "I" Then
-            Tabla = "IDAP0"
-        End If
-
-        Dim cmd As SqlCommand = cn.CreateCommand
-
-        Transaccion = cn.BeginTransaction("NuevoDAP")
-        cmd.Connection = cn
-        cmd.Transaction = Transaccion
-
-        query = "INSERT INTO [dbo].[" & Tabla & "]
-           ([DocId]
-           ,[MontoInv]
-           ,[FOper]
-           ,[FVenc]
-           ,[Tasa]
-           ,[Plazo]
-           ,[AnBase]
-           ,[Periodic]
-           ,[RendBruto]
-           ,[RendNeto]
-           ,[IngrBruto]
-           ,[Impuestos]
-           ,[IngrNeto])
-     VALUES
-           (@DocId
-           ,@MontoInv
-           ,@FOper
-           ,@FVenc
-           ,@Tasa
-           ,@Plazo
-           ,@AnBase
-           ,@Periodic
-           ,@RendBruto
-           ,@RendNeto
-           ,@IngrBruto
-           ,@Impuestos
-           ,@IngrNeto
-		  )"
-
-        cmd.CommandText = query
-
-        With cmd.Parameters
-            .Add("@DocId", SqlDbType.Int).Value = DocId
-            .Add("@MontoInv", SqlDbType.Decimal).Value = oDAP.MontoDeInversion
-            .Add("@FOper", SqlDbType.Date).Value = oDAP.FechaOperacion
-            .Add("@FVenc", SqlDbType.Date).Value = oDAP.FechaVencimiento
-            .Add("@Tasa", SqlDbType.Decimal).Value = oDAP.Tasa
-            .Add("@Plazo", SqlDbType.Int).Value = oDAP.Plazo
-            .Add("@AnBase", SqlDbType.Int).Value = oDAP.AnioBase
-            .Add("@Periodic", SqlDbType.NVarChar).Value = oDAP.Periodicidad
-            .Add("@RendBruto", SqlDbType.Decimal).Value = oDAP.RendimientoBruto
-            .Add("@RendNeto", SqlDbType.Decimal).Value = oDAP.RendimientoNeto
-            .Add("@IngrBruto", SqlDbType.Decimal).Value = oDAP.IngresoBruto
-            .Add("@Impuestos", SqlDbType.Decimal).Value = oDAP.Impuestos
-            .Add("@IngrNeto", SqlDbType.Decimal).Value = oDAP.IngresoNeto
-        End With
-
-        Try
-            cmd.ExecuteNonQuery()
-            Transaccion.Commit()
-            retorno = 0
-        Catch ex As Exception
-            MsgBox("Error al Guardar DAP : " & ex.GetType.ToString)
-            MsgBox("Mensaje: " & ex.Message)
-            retorno = 1
-            Try
-                Transaccion.Rollback()
-                retorno = 2
-            Catch ex2 As Exception
-                MsgBox("Error en Rollback: " & ex2.GetType.ToString)
-                MsgBox("Mensaje Rollbak: " & ex2.Message)
-                retorno = 3
-            End Try
-        End Try
-
-        cmd.Dispose()
-        cn.Dispose()
-
-
-        Return retorno
-    End Function
-
-    Public Sub CargarRegistro(ByVal oDAP As DepositosAPlazoCE, Tipo As String, IdRegistro As Integer)
-        Dim objCon As New Conexion
-        Dim drd As SqlDataReader
-        Dim cmd As SqlCommand
-        Dim sql As String
-        Dim Tabla As String
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        If Tipo = "P" Then
-            Tabla = "PDAP0"
-        End If
-        If Tipo = "I" Then
-            Tabla = "IDAP0"
-        End If
-
-        sql = "SELECT * FROM [dbo].[" & Tabla & "] T0 WHERE T0.[DocId]=@DocId"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@DocId", SqlDbType.Int).Value = IdRegistro
-        cmd.Connection = cn
-
-        drd = cmd.ExecuteReader
-
-        If drd.HasRows Then
-            'SE ENCONTRO EL REGISTRO
-            If drd.Read Then
-                oDAP.MontoDeInversion = drd.Item("MontoInv")
-                oDAP.FechaOperacion = drd.Item("FOper")
-                oDAP.FechaVencimiento = drd.Item("FVenc")
-                oDAP.Tasa = drd.Item("Tasa")
-                oDAP.Plazo = drd.Item("Plazo")
-                oDAP.AnioBase = drd.Item("AnBase")
-                oDAP.Periodicidad = drd.Item("Periodic")
-                'oDAP.RendimientoBruto = drd.Item("RendBruto")
-                'oDAP.RendimientoNeto = drd.Item("RendNeto")
-                oDAP.IngresoBruto = drd.Item("IngrBruto")
-                oDAP.Impuestos = drd.Item("Impuestos")
-                oDAP.IngresoNeto = drd.Item("IngrNeto")
-            End If
-        Else
-            'NO SE ENCONTRO EL REGISTRO
-        End If
-        drd.Close()
-        cmd.Dispose()
-        cn.Dispose()
-
-    End Sub
     Public Function CargarRegistro(ByVal vCodigoInversion As String) As DepositosAPlazoCE
         Dim objCon As New Conexion
         Dim oDAPCE As New DepositosAPlazoCE
@@ -235,11 +35,11 @@ Public Class DepositosAPlazoDAO
             'SE ENCONTRO EL REGISTRO
             If drd.Read Then
                 oDAPCE.CodigoInversion = vCodigoInversion.ToString
-                oDAPCE.MontoDeInversion = drd.Item("MontoInv").ToString
-                oDAPCE.FechaOperacion = drd.Item("FOper").ToString
-                oDAPCE.FechaVencimiento = drd.Item("FVenc").ToString
-                oDAPCE.Tasa = drd.Item("Tasa").ToString
-                oDAPCE.Plazo = drd.Item("Plazo").ToString
+                oDAPCE.MontoDeInversion = Operaciones.ConvertirDecimal(drd.Item("MontoInv").ToString)
+                oDAPCE.FechaOperacion = Operaciones.ConvertirFecha(drd.Item("FOper").ToString)
+                oDAPCE.FechaVencimiento = Operaciones.ConvertirFecha(drd.Item("FVenc").ToString)
+                oDAPCE.Tasa = Operaciones.ConvertirDecimal(drd.Item("Tasa").ToString)
+                oDAPCE.Plazo = Operaciones.ConvertirDecimal(drd.Item("Plazo").ToString)
                 oDAPCE.Periodicidad = drd.Item("Periodic").ToString
 
             End If
@@ -255,114 +55,8 @@ Public Class DepositosAPlazoDAO
 
     End Function
 
-    Public Function Actualizar(ByVal oDAPCE As DepositosAPlazoCE) As Integer
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim retorno As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        sql = "UPDATE [dbo].[DAP0]
-   SET [MontoInv] = @MontoInv
-      ,[FOper] = @FOper
-      ,[FVenc] = @FVenc
-      ,[Tasa] = @Tasa
-      ,[Plazo] = @Plazo
-      --,[AnBase] = @AnBase
-      ,[Periodic] = @Periodic
- WHERE [CodInv] = @CodInv"
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-
-
-        With cmd.Parameters
-            .Add("@MontoInv", SqlDbType.Float).Value = oDAPCE.MontoDeInversion
-            .Add("@FOper", SqlDbType.Date).Value = oDAPCE.FechaOperacion
-            .Add("@FVenc", SqlDbType.Date).Value = oDAPCE.FechaVencimiento
-            .Add("@Tasa", SqlDbType.Float).Value = oDAPCE.Tasa
-            .Add("@Plazo", SqlDbType.Int).Value = oDAPCE.Plazo
-            .Add("@Periodic", SqlDbType.VarChar).Value = oDAPCE.Periodicidad
-        End With
-
-        cmd.Connection = cn
-        retorno = cmd.ExecuteNonQuery
-
-        cmd.Dispose()
-        cn.Dispose()
-
-        GuardaIntereses(oDAPCE.CodigoInversion, oDAPCE.dtIntereses)
-
-        Return retorno
-    End Function
-    Private Sub GuardaIntereses(ByVal vCodInversion As String, dt As DataTable)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim res As Integer
-
-        sql = "DELETE FROM [dbo].[DAP1]
-      WHERE [CodInv]=@CodInv"
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = vCodInversion
-
-
-        cmd.Connection = cn
-        res = cmd.ExecuteNonQuery
-        sql = String.Empty
-
-        If dt.Rows.Count > 0 Then
-            For Each dr In dt.Rows
-                cmd = New SqlCommand
-                sql = "INSERT INTO [dbo].[DAP1]
-           ([CodInv]
-           ,[Plazo]
-           ,[Fecha]
-           ,[IngrBruto]
-           ,[PorcImp]
-           ,[MontoImp]
-           ,[IngrNeto]
-           ,[Estado])
-     VALUES
-           (@CodInv
-           ,@Plazo
-           ,@Fecha
-           ,@IngrBruto
-           ,@PorcImp
-           ,@MontoImp
-           ,@IngrNeto
-           ,@Estado)"
-
-                cmd.CommandText = sql
-                With cmd.Parameters
-                    .AddWithValue("@CodInv", vCodInversion)
-                    .AddWithValue("@Plazo", dr("Plazo"))
-                    .AddWithValue("@Fecha", dr("Fecha"))
-                    .AddWithValue("@IngrBruto", dr("IngrBruto"))
-                    .AddWithValue("@PorcImp", dr("PorcImp"))
-                    .AddWithValue("@MontoImp", dr("MontoImp"))
-                    .AddWithValue("@IngrNeto", dr("IngrNeto"))
-                    .AddWithValue("@Estado", dr("Estado"))
-                End With
-                cmd.Connection = cn
-                res = cmd.ExecuteNonQuery
-            Next
-        End If
 
-        cmd.Dispose()
-        cn.Dispose()
 
-    End Sub
 
 
 
@@ -422,18 +116,17 @@ Public Class DepositosAPlazoDAO
             cmd.Transaction = myTrans
             With cmd.Parameters
                 .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@MontoInv", SqlDbType.Decimal).Value = Coleccion(1)
-                .Add("@FOper", SqlDbType.DateTime).Value = Coleccion(2)
-                .Add("@FVenc", SqlDbType.DateTime).Value = Coleccion(3)
-                .Add("@Tasa", SqlDbType.Decimal).Value = Coleccion(4)
-                .Add("@Plazo", SqlDbType.Int).Value = Coleccion(5)
-                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6)
-                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7)
-                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8)
-
-                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Coleccion(9)
-                .Add("@IngrNetoTot", SqlDbType.Float).Value = Coleccion(10)
-                .Add("@Renta", SqlDbType.Float).Value = Coleccion(11)
+                .Add("@MontoInv", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(1).ToString)
+                .Add("@FOper", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@FVenc", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@Tasa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(5).ToString)
+                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6).ToString
+                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7).ToString
+                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8).ToString
+                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+                .Add("@IngrNetoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+                .Add("@Renta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(11).ToString)
             End With
 
             retorno = cmd.ExecuteNonQuery
@@ -480,13 +173,13 @@ Public Class DepositosAPlazoDAO
                     cmd.Transaction = myTrans
                     With cmd.Parameters
                         .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                        .Add("@Correlativo", SqlDbType.Int).Value = Coleccion2(1)
-                        .Add("@Plazo", SqlDbType.Int).Value = Coleccion2(2)
-                        .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion2(3)
-                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion2(4)
-                        .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion2(5)
-                        .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion2(6)
-                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion2(7)
+                        .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(1).ToString)
+                        .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(2).ToString)
+                        .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion2(3).ToString)
+                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                        .Add("@PorcImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                        .Add("@MontoImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
                     End With
 
                     retorno = cmd.ExecuteNonQuery
@@ -570,13 +263,13 @@ Public Class DepositosAPlazoDAO
 
 
             .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-            .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-            .Add("@Plazo", SqlDbType.Int).Value = Coleccion(2)
-            .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(3)
-            .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion(4)
-            .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion(5)
-            .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion(6)
-            .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion(7)
+            .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+            .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(2).ToString)
+            .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+            .Add("@IngrBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@PorcImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+            .Add("@MontoImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@IngrNeto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
         End With
 
 
@@ -591,55 +284,6 @@ Public Class DepositosAPlazoDAO
 
 
 
-    Public Function ModificarElemento(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE  [dbo].[DAP1] SET
-
-           [Plazo]=@Plazo
-           ,[Fecha]=@Fecha
-           ,[IngrBruto]=@IngrBruto
-           ,[PorcImp]=@PorcImp
-           ,[MontoImp]=@MontoImp
-           ,[IngrNeto]=@IngrNeto
-            where  [CodInv]=@CodInv AND [Correlativo]=@Correlativo
-
-    "
-
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-
-
-
-            .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-            .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-            .Add("@Plazo", SqlDbType.Int).Value = Coleccion(2)
-            .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(3)
-            .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion(4)
-            .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion(5)
-            .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion(6)
-            .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion(7)
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
 
 
     Public Sub EliminarElemento(ByVal Codigo As String)
@@ -714,18 +358,17 @@ Public Class DepositosAPlazoDAO
             cmd.Transaction = myTrans
             With cmd.Parameters
                 .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@MontoInv", SqlDbType.Decimal).Value = Coleccion(1)
-                .Add("@FOper", SqlDbType.DateTime).Value = Coleccion(2)
-                .Add("@FVenc", SqlDbType.DateTime).Value = Coleccion(3)
-                .Add("@Tasa", SqlDbType.Decimal).Value = Coleccion(4)
-                .Add("@Plazo", SqlDbType.Int).Value = Coleccion(5)
-                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6)
-                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7)
-                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8)
-
-                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Coleccion(9)
-                .Add("@IngrNetoTot", SqlDbType.Float).Value = Coleccion(10)
-                .Add("@Renta", SqlDbType.Float).Value = Coleccion(11)
+                .Add("@MontoInv", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(1).ToString)
+                .Add("@FOper", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@FVenc", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@Tasa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(5).ToString)
+                .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(6).ToString
+                .Add("@RendBr", SqlDbType.VarChar).Value = Coleccion(7).ToString
+                .Add("@RendNet", SqlDbType.VarChar).Value = Coleccion(8).ToString
+                .Add("@IngrBrutoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+                .Add("@IngrNetoTot", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+                .Add("@Renta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(11).ToString)
             End With
             retorno = cmd.ExecuteNonQuery
 
@@ -797,13 +440,13 @@ Public Class DepositosAPlazoDAO
                     cmd.Transaction = myTrans
                     With cmd.Parameters
                         .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-                        .Add("@Correlativo", SqlDbType.Int).Value = Coleccion2(1)
-                        .Add("@Plazo", SqlDbType.Int).Value = Coleccion2(2)
-                        .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion2(3)
-                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Coleccion2(4)
-                        .Add("@PorcImp", SqlDbType.Decimal).Value = Coleccion2(5)
-                        .Add("@MontoImp", SqlDbType.Decimal).Value = Coleccion2(6)
-                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Coleccion2(7)
+                        .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(1).ToString)
+                        .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(2).ToString)
+                        .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion2(3).ToString)
+                        .Add("@IngrBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                        .Add("@PorcImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                        .Add("@MontoImp", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                        .Add("@IngrNeto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
                     End With
 
                     retorno = cmd.ExecuteNonQuery
@@ -830,79 +473,10 @@ Public Class DepositosAPlazoDAO
         cn.Close()
 
         Return retorno
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
     End Function
 
 
 
-    'Public Sub EliminarDato(ByVal Codigo As String)
-    '    Dim sql As String
-    '    Dim cmd As SqlCommand
-    '    Dim res As Integer
-
-    '    sql = "DELETE FROM [dbo].[DAP0]
-    '  WHERE [CodInv]=@CodInv"
-
-
-
-    '    cn = objCon.Conectar
-
-    '    If Not cn.State = ConnectionState.Open Then
-    '        cn.Open()
-    '    End If
-
-    '    cmd = New SqlCommand
-    '    cmd.CommandText = sql
-    '    cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-    '    cmd.Connection = cn
-
-    '    res = cmd.ExecuteNonQuery
-
-    'End Sub
-
 
 
     Public Sub Eliminar(ByVal Codigo As String)

DAO/FondoInversionDAO.vb

@@ -6,68 +6,6 @@ Public Class FondoInversionDAO
     Dim Operaciones As New Operaciones
 
 
-    Public Function Modificar(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-
-
-
-        sql = "UPDATE [dbo].[FINV]
-       SET 
-           [CuoPart]=@CuoPart
-           ,[VaPart]=@VaPart
-           ,[CoCasa]=@CoCasa
-           ,[CoBolsa]=@CoBolsa
-           ,[DiasLiq]=@DiasLiq
-           ,[FechaOpe]=@FechaOpe
-           ,[FechaVen]=@FechaVen
-           ,[Periodic]=@Periodic
-           ,[Base]=@Base
-           ,[PlaInv]=@PlaInv
-           ,[RendOfre]=@RendOfre
-           ,[Dividendo]=@Dividendo
-   where [CodInv]=@CodInv  "
-
-
-
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-
-            .Add("@CuoPart", SqlDbType.Float).Value = CDec(Coleccion(1).TrimEnd("%"))
-            .Add("@VaPart", SqlDbType.Float).Value = CDec(Coleccion(2).TrimEnd("%"))
-            .Add("@CoCasa", SqlDbType.Float).Value = CDec(Coleccion(3).TrimEnd("%"))
-            .Add("@CoBolsa", SqlDbType.Float).Value = CDec(Coleccion(4).TrimEnd("%"))
-            .Add("@DiasLiq", SqlDbType.Int).Value = CInt(Coleccion(5))
-            .Add("@FechaOpe", SqlDbType.DateTime).Value = CDate(Coleccion(6))
-            .Add("@FechaVen", SqlDbType.DateTime).Value = CDate(Coleccion(7))
-            .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(8).ToString
-            .Add("@Base", SqlDbType.Int).Value = CInt(Coleccion(9))
-            .Add("@PlaInv", SqlDbType.VarChar).Value = Coleccion(10).ToString
-            .Add("@RendOfre", SqlDbType.Float).Value = CDec(Coleccion(11).TrimEnd("%"))
-            .Add("@Dividendo", SqlDbType.Float).Value = CDec(Coleccion(12).TrimEnd("%"))
-            .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
 
 
     Public Function ProcesoDatos(ByVal Coleccion As Collection, ByVal Codigo As String, ByVal Diccionario As Dictionary(Of String, Collection), ByVal Estado As String)
@@ -304,79 +242,6 @@ Public Class FondoInversionDAO
     End Function
 
 
-    Public Function Nuevo(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "INSERT INTO [dbo].[FINV](
-
-           [CuoPart]
-           ,[VaPart]
-           ,[CoCasa]
-           ,[CoBolsa]
-           ,[DiasLiq]
-           ,[FechaOpe]
-           ,[FechaVen]
-           ,[Periodic]
-           ,[Base]
-           ,[PlaInv]
-           ,[RendOfre]
-           ,[Dividendo]
-           ,[CodInv]
-) VALUES(
-           @CuoPart
-           ,@VaPart
-           ,@CoCasa
-           ,@CoBolsa
-           ,@DiasLiq
-           ,@FechaOpe
-           ,@FechaVen
-           ,@Periodic
-           ,@Base
-           ,@PlaInv
-           ,@RendOfre
-           ,@Dividendo
-           ,@CodInv
-)
-    "
-
-
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-
-            .Add("@CuoPart", SqlDbType.Float).Value = CDec(Coleccion(1).TrimEnd("%"))
-            .Add("@VaPart", SqlDbType.Float).Value = CDec(Coleccion(2).TrimEnd("%"))
-            .Add("@CoCasa", SqlDbType.Float).Value = CDec(Coleccion(3).TrimEnd("%"))
-            .Add("@CoBolsa", SqlDbType.Float).Value = CDec(Coleccion(4).TrimEnd("%"))
-            .Add("@DiasLiq", SqlDbType.Int).Value = CInt(Coleccion(5))
-            .Add("@FechaOpe", SqlDbType.DateTime).Value = CDate(Coleccion(6))
-            .Add("@FechaVen", SqlDbType.DateTime).Value = CDate(Coleccion(7))
-            .Add("@Periodic", SqlDbType.VarChar).Value = Coleccion(8).ToString
-            .Add("@Base", SqlDbType.Int).Value = CInt(Coleccion(9))
-            .Add("@PlaInv", SqlDbType.VarChar).Value = Coleccion(10).ToString
-            .Add("@RendOfre", SqlDbType.Float).Value = CDec(Coleccion(11).TrimEnd("%"))
-            .Add("@Dividendo", SqlDbType.Float).Value = CDec(Coleccion(12).TrimEnd("%"))
-            .Add("@CodInv ", SqlDbType.VarChar).Value = Codigo.ToString
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
 
     Public Function Cargar(ByVal CodInv As String)
         Dim objCon As New Conexion
@@ -432,113 +297,11 @@ Public Class FondoInversionDAO
     End Function
 
 
-    Function GuardarDataGrid(ByVal coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "INSERT INTO [dbo].[FINV1](
-
-           [CodInv]
-           ,[correlativo]
-           ,[FechaCorte]
-           ,[Dias]
-           ,[Dividendo]
-           ,[Ingreso]
-           ,[RendMensual]
-         
-      
-) VALUES(
-           @CodInv
-           ,@correlativo
-           ,@FechaCorte
-           ,@Dias
-           ,@Dividendo
-           ,@Ingreso
-           ,@RendMensual
-)
-    "
 
 
 
 
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@correlativo", SqlDbType.Int).Value = CInt(coleccion(1))
-            .Add("@FechaCorte", SqlDbType.DateTime).Value = coleccion(2)
-            .Add("@Dias", SqlDbType.Int).Value = coleccion(3)
-            .Add("@Dividendo", SqlDbType.Float).Value = coleccion(4)
-            .Add("@Ingreso", SqlDbType.Float).Value = coleccion(5)
-            .Add("@RendMensual", SqlDbType.VarChar).Value = coleccion(6)
-
-
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
-
-
-
-
-    Function ModificarDataGrid(ByVal coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE [dbo].[FINV1] SET
-           [FechaCorte]=@FechaCorte
-           ,[Dias]=@Dias
-           ,[Dividendo]=@Dividendo
-           ,[Ingreso]=@Ingreso
-           ,[RendMensual]=@RendMensual
-            WHERE  [CodInv]=@CodInv AND [correlativo]=@correlativo
 
-    "
-
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@correlativo", SqlDbType.Int).Value = CInt(coleccion(1))
-            .Add("@FechaCorte", SqlDbType.DateTime).Value = coleccion(2)
-            .Add("@Dias", SqlDbType.Int).Value = coleccion(3)
-            .Add("@Dividendo", SqlDbType.Float).Value = coleccion(4)
-            .Add("@Ingreso", SqlDbType.Float).Value = coleccion(5)
-            .Add("@RendMensual", SqlDbType.VarChar).Value = coleccion(6)
-
-
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
 
 
     Public Function CargarFilas(ByVal codigo As String)
@@ -644,28 +407,5 @@ Public Class FondoInversionDAO
         cn.Close()
     End Sub
 
-    Public Sub EliminarDatGrid(ByVal Codigo As String, ByVal correlativo As Integer)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim res As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "DELETE FROM [dbo].[FINV1]
-      WHERE [CodInv]=@CodInv AND [correlativo]=@correlativo"
-
-
 
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-        cmd.Parameters.Add("@correlativo", SqlDbType.Int).Value = correlativo
-        cmd.Connection = cn
-
-        res = cmd.ExecuteNonQuery
-        cn.Close()
-    End Sub
 End Class

DAO/FuturosDAO.vb

@@ -4,7 +4,7 @@ Imports System.Data.SqlClient
 Public Class FuturosDAO
 
 
-
+    Dim Operaciones As New Operaciones
 
 
 
@@ -55,35 +55,29 @@ where  [CodInv]=@CodInv
 
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@FOperC", SqlDbType.DateTime).Value = CDate(Coleccion(1))
-                .Add("@FLiqC", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-                .Add("@FVenC", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-                .Add("@VaUnidadC", SqlDbType.Float).Value = CDec(Coleccion(4))
-                .Add("@ValorTransadoC", SqlDbType.Float).Value = CDec(Coleccion(5))
-                .Add("@CoBrokerC", SqlDbType.Float).Value = CDec(Coleccion(6))
-                .Add("@VaRecC", SqlDbType.Float).Value = CDec(Coleccion(7))
+                .Add("@FOperC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(1).ToString)
+                .Add("@FLiqC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@FVenC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@VaUnidadC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@ValorTransadoC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+                .Add("@CoBrokerC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+                .Add("@VaRecC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
                 .Add("@IdContratoC", SqlDbType.VarChar).Value = Coleccion(8).ToString
-                .Add("@CantContratoC", SqlDbType.Int).Value = CInt(Coleccion(9))
-                .Add("@UniContraC", SqlDbType.Int).Value = CInt(Coleccion(10))
-
-
-                .Add("@FOperV", SqlDbType.DateTime).Value = CDate(Coleccion(11))
-                .Add("@FLiqV", SqlDbType.DateTime).Value = CDate(Coleccion(12))
-                .Add("@FVenV", SqlDbType.DateTime).Value = CDate(Coleccion(13))
-                .Add("@VaUnidadV", SqlDbType.Float).Value = CDec(Coleccion(14))
-                .Add("@ValorTransadoV", SqlDbType.Float).Value = CDec(Coleccion(15))
-                .Add("@CoBrokerV", SqlDbType.Float).Value = CDec(Coleccion(16))
-                .Add("@VaRecV", SqlDbType.Float).Value = CDec(Coleccion(17))
+                .Add("@CantContratoC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(9).ToString)
+                .Add("@UniContraC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(10).ToString)
+                .Add("@FOperV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(11).ToString)
+                .Add("@FLiqV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(12).ToString)
+                .Add("@FVenV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(13).ToString)
+                .Add("@VaUnidadV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(14).ToString)
+                .Add("@ValorTransadoV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(15).ToString)
+                .Add("@CoBrokerV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(16).ToString)
+                .Add("@VaRecV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(17).ToString)
                 .Add("@IdContratoV", SqlDbType.VarChar).Value = Coleccion(18).ToString
-                .Add("@CantContratoV", SqlDbType.Int).Value = CInt(Coleccion(19))
-                .Add("@UniContraV", SqlDbType.Int).Value = CInt(Coleccion(20))
-
-                .Add("@GP", SqlDbType.Float).Value = CDec(Coleccion(21))
-                .Add("@Rendimiento", SqlDbType.Float).Value = CDec(Coleccion(22))
+                .Add("@CantContratoV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(19).ToString)
+                .Add("@UniContraV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(20).ToString)
+                .Add("@GP", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(21).ToString)
+                .Add("@Rendimiento", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(22).ToString)
                 .Add("@TipoOperacion", SqlDbType.VarChar).Value = Coleccion(23).ToString
-
-
-
             End With
 
 
@@ -148,35 +142,30 @@ where  [CodInv]=@CodInv
 
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@FOperC", SqlDbType.DateTime).Value = CDate(Coleccion(1))
-                .Add("@FLiqC", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-                .Add("@FVenC", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-                .Add("@VaUnidadC", SqlDbType.Float).Value = CDec(Coleccion(4))
-                .Add("@ValorTransadoC", SqlDbType.Float).Value = CDec(Coleccion(5))
-                .Add("@CoBrokerC", SqlDbType.Float).Value = CDec(Coleccion(6))
-                .Add("@VaRecC", SqlDbType.Float).Value = CDec(Coleccion(7))
+                .Add("@FOperC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(1).ToString)
+                .Add("@FLiqC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@FVenC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@VaUnidadC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@ValorTransadoC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+                .Add("@CoBrokerC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+                .Add("@VaRecC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
                 .Add("@IdContratoC", SqlDbType.VarChar).Value = Coleccion(8).ToString
-                .Add("@CantContratoC", SqlDbType.Int).Value = CInt(Coleccion(9))
-                .Add("@UniContraC", SqlDbType.Int).Value = CInt(Coleccion(10))
-
-
-                .Add("@FOperV", SqlDbType.DateTime).Value = CDate(Coleccion(11))
-                .Add("@FLiqV", SqlDbType.DateTime).Value = CDate(Coleccion(12))
-                .Add("@FVenV", SqlDbType.DateTime).Value = CDate(Coleccion(13))
-                .Add("@VaUnidadV", SqlDbType.Float).Value = CDec(Coleccion(14))
-                .Add("@ValorTransadoV", SqlDbType.Float).Value = CDec(Coleccion(15))
-                .Add("@CoBrokerV", SqlDbType.Float).Value = CDec(Coleccion(16))
-                .Add("@VaRecV", SqlDbType.Float).Value = CDec(Coleccion(17))
+                .Add("@CantContratoC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(9).ToString)
+                .Add("@UniContraC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(10).ToString)
+                .Add("@FOperV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(11).ToString)
+                .Add("@FLiqV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(12).ToString)
+                .Add("@FVenV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(13).ToString)
+                .Add("@VaUnidadV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(14).ToString)
+                .Add("@ValorTransadoV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(15).ToString)
+                .Add("@CoBrokerV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(16).ToString)
+                .Add("@VaRecV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(17).ToString)
                 .Add("@IdContratoV", SqlDbType.VarChar).Value = Coleccion(18).ToString
-                .Add("@CantContratoV", SqlDbType.Int).Value = CInt(Coleccion(19))
-                .Add("@UniContraV", SqlDbType.Int).Value = CInt(Coleccion(20))
-
-                .Add("@GP", SqlDbType.Float).Value = CDec(Coleccion(21))
-                .Add("@Rendimiento", SqlDbType.Float).Value = CDec(Coleccion(22))
+                .Add("@CantContratoV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(19).ToString)
+                .Add("@UniContraV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(20).ToString)
+                .Add("@GP", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(21).ToString)
+                .Add("@Rendimiento", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(22).ToString)
                 .Add("@TipoOperacion", SqlDbType.VarChar).Value = Coleccion(23).ToString
 
-
-
             End With
 
 
@@ -271,51 +260,44 @@ where  [CodInv]=@CodInv
         cmd = New SqlCommand
             cmd.CommandText = sql
 
-        'Try
-
-
-
-        With cmd.Parameters
-                .Add("@CodInv", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@FOperC", SqlDbType.DateTime).Value = CDate(Coleccion(1))
-                .Add("@FLiqC", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-                .Add("@FVenC", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-                .Add("@VaUnidadC", SqlDbType.Float).Value = CDec(Coleccion(4))
-                .Add("@ValorTransadoC", SqlDbType.Float).Value = CDec(Coleccion(5))
-                .Add("@CoBrokerC", SqlDbType.Float).Value = CDec(Coleccion(6))
-                .Add("@VaRecC", SqlDbType.Float).Value = CDec(Coleccion(7))
-                .Add("@IdContratoC", SqlDbType.VarChar).Value = Coleccion(8).ToString
-                .Add("@CantContratoC", SqlDbType.Int).Value = CInt(Coleccion(9))
-                .Add("@UniContraC", SqlDbType.Int).Value = CInt(Coleccion(10))
-
-
-                .Add("@FOperV", SqlDbType.DateTime).Value = CDate(Coleccion(11))
-                .Add("@FLiqV", SqlDbType.DateTime).Value = CDate(Coleccion(12))
-                .Add("@FVenV", SqlDbType.DateTime).Value = CDate(Coleccion(13))
-                .Add("@VaUnidadV", SqlDbType.Float).Value = CDec(Coleccion(14))
-                .Add("@ValorTransadoV", SqlDbType.Float).Value = CDec(Coleccion(15))
-                .Add("@CoBrokerV", SqlDbType.Float).Value = CDec(Coleccion(16))
-                .Add("@VaRecV", SqlDbType.Float).Value = CDec(Coleccion(17))
-                .Add("@IdContratoV", SqlDbType.VarChar).Value = Coleccion(18).ToString
-                .Add("@CantContratoV", SqlDbType.Int).Value = CInt(Coleccion(19))
-                .Add("@UniContraV", SqlDbType.Int).Value = CInt(Coleccion(20))
 
-                .Add("@GP", SqlDbType.Float).Value = CDec(Coleccion(21))
-                .Add("@Rendimiento", SqlDbType.Float).Value = CDec(Coleccion(22))
-                .Add("@TipoOperacion", SqlDbType.VarChar).Value = Coleccion(23).ToString
 
 
 
-            End With
+        With cmd.Parameters
+            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo.ToString
+            .Add("@FOperC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(1).ToString)
+            .Add("@FLiqC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+            .Add("@FVenC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+            .Add("@VaUnidadC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@ValorTransadoC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+            .Add("@CoBrokerC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@VaRecC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+            .Add("@IdContratoC", SqlDbType.VarChar).Value = Coleccion(8).ToString
+            .Add("@CantContratoC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(9).ToString)
+            .Add("@UniContraC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(10).ToString)
+            .Add("@FOperV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(11).ToString)
+            .Add("@FLiqV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(12).ToString)
+            .Add("@FVenV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(13).ToString)
+            .Add("@VaUnidadV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(14).ToString)
+            .Add("@ValorTransadoV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(15).ToString)
+            .Add("@CoBrokerV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(16).ToString)
+            .Add("@VaRecV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(17).ToString)
+            .Add("@IdContratoV", SqlDbType.VarChar).Value = Coleccion(18).ToString
+            .Add("@CantContratoV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(19).ToString)
+            .Add("@UniContraV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(20).ToString)
+            .Add("@GP", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(21).ToString)
+            .Add("@Rendimiento", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(22).ToString)
+            .Add("@TipoOperacion", SqlDbType.VarChar).Value = Coleccion(23).ToString
+
+        End With
 
 
             cmd.Connection = cn
 
             retorno = cmd.ExecuteNonQuery
             MsgBox("Registro Creado")
-        'Catch ex As Exception
-        '    MsgBox("Error al crear el registro")
-        'End Try
+
         cn.Close()
         Return retorno
 
@@ -398,35 +380,30 @@ where  [CodInv]=@CodInv
 
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo.ToString
-                .Add("@FOperC", SqlDbType.DateTime).Value = CDate(Coleccion(1))
-                .Add("@FLiqC", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-                .Add("@FVenC", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-                .Add("@VaUnidadC", SqlDbType.Float).Value = CDec(Coleccion(4))
-                .Add("@ValorTransadoC", SqlDbType.Float).Value = CDec(Coleccion(5))
-                .Add("@CoBrokerC", SqlDbType.Float).Value = CDec(Coleccion(6))
-                .Add("@VaRecC", SqlDbType.Float).Value = CDec(Coleccion(7))
+                .Add("@FOperC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(1).ToString)
+                .Add("@FLiqC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@FVenC", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@VaUnidadC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@ValorTransadoC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+                .Add("@CoBrokerC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+                .Add("@VaRecC", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
                 .Add("@IdContratoC", SqlDbType.VarChar).Value = Coleccion(8).ToString
-                .Add("@CantContratoC", SqlDbType.Int).Value = CInt(Coleccion(9))
-                .Add("@UniContraC", SqlDbType.Int).Value = CInt(Coleccion(10))
-
-
-                .Add("@FOperV", SqlDbType.DateTime).Value = CDate(Coleccion(11))
-                .Add("@FLiqV", SqlDbType.DateTime).Value = CDate(Coleccion(12))
-                .Add("@FVenV", SqlDbType.DateTime).Value = CDate(Coleccion(13))
-                .Add("@VaUnidadV", SqlDbType.Float).Value = CDec(Coleccion(14))
-                .Add("@ValorTransadoV", SqlDbType.Float).Value = CDec(Coleccion(15))
-                .Add("@CoBrokerV", SqlDbType.Float).Value = CDec(Coleccion(16))
-                .Add("@VaRecV", SqlDbType.Float).Value = CDec(Coleccion(17))
+                .Add("@CantContratoC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(9).ToString)
+                .Add("@UniContraC", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(10).ToString)
+                .Add("@FOperV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(11).ToString)
+                .Add("@FLiqV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(12).ToString)
+                .Add("@FVenV", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(13).ToString)
+                .Add("@VaUnidadV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(14).ToString)
+                .Add("@ValorTransadoV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(15).ToString)
+                .Add("@CoBrokerV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(16).ToString)
+                .Add("@VaRecV", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(17).ToString)
                 .Add("@IdContratoV", SqlDbType.VarChar).Value = Coleccion(18).ToString
-                .Add("@CantContratoV", SqlDbType.Int).Value = CInt(Coleccion(19))
-                .Add("@UniContraV", SqlDbType.Int).Value = CInt(Coleccion(20))
-
-                .Add("@GP", SqlDbType.Float).Value = CDec(Coleccion(21))
-                .Add("@Rendimiento", SqlDbType.Float).Value = CDec(Coleccion(22))
+                .Add("@CantContratoV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(19).ToString)
+                .Add("@UniContraV", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(20).ToString)
+                .Add("@GP", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(21).ToString)
+                .Add("@Rendimiento", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(22).ToString)
                 .Add("@TipoOperacion", SqlDbType.VarChar).Value = Coleccion(23).ToString
 
-
-
             End With
 
 
@@ -463,7 +440,7 @@ where  [CodInv]=@CodInv
         cmd.Parameters.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
         cmd.Connection = cn
 
-        ' Dim Datos = cmd.ExecuteScalar
+
         Dim Datos = cmd.ExecuteReader
         If Datos.HasRows Then
             'SE ENCONTRO EL REGISTRO
@@ -540,7 +517,7 @@ where  [CodInv]=@CodInv
         cmd.Parameters.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
         cmd.Connection = cn
 
-        ' Dim Datos = cmd.ExecuteScalar
+
         Dim Datos = cmd.ExecuteReader
         If Datos.HasRows Then
             'SE ENCONTRO EL REGISTRO

DAO/InversionDAO.vb

@@ -2,7 +2,6 @@
 Public Class InversionDAO
 
 
-    'Private frmPIN As New frmPIN
     Private Operaciones As New Operaciones
     Dim CambiarEstArbCE As New CambiarEstArbCE
 
@@ -40,14 +39,7 @@ Public Class InversionDAO
         Return valor
     End Function
 
-    Public Function ResumenPorInstrumento() As DataTable
-        Dim dt As DataTable = VistaInversiones_ValorNominal()
 
-
-
-
-
-    End Function
     Public Function VistaInversiones_ValorNominal() As DataTable
         Dim oVistaInversiones As DataTable = Me.VistaInversiones
         Dim vCodigoInstrumento As String
@@ -137,7 +129,7 @@ Public Class InversionDAO
 
         Dim dt As New DataTable
 
-        sql = "SELECT [DocId] FROM [dbo].[INV0] ORDER BY [CodInv]"
+        sql = "SELECT   ROW_NUMBER() OVER(ORDER BY [CodInv] ),[DocId] FROM [dbo].[INV0] ORDER BY [CodInv]"
         If cn Is Nothing Then
             cn = objCon.Conectar
         End If
@@ -155,83 +147,9 @@ Public Class InversionDAO
         da.Fill(dt)
 
         Return dt
-        dt.Dispose()
-        da.Dispose()
-        cn.Dispose()
-
-    End Function
-
-
-    Public Function ListaCodigosPropuesta() As DataTable
-        Dim objCon As New Conexion
-        Dim cn As SqlConnection = objCon.Conectar
-        Dim sql As String
-        Dim da As SqlDataAdapter
-
-        Dim dt As New DataTable
-
-        sql = "SELECT 
-[DocId]
-,[CodEmpr]
-,[Asunto]
-,[CodIF]
-,[MontoInv]
-,[Precio]
-,[Rendimiento]
-,[Plazo]
-,[PlazoFact]
-,[Ingresos]
-,[OFon]
-,[CodEmis]
-,[CodCalRi]
-,[CodECalRi]
-,[CodPais]
-,[TipoMerc]
-,[CodInv]
-,[DocEst]
-,[TipoOper]
-,[FechaDoc]
-,[AutEstado] 
-FROM [dbo].[PIN0] ORDER BY [CodInv]"
-        If cn Is Nothing Then
-            cn = objCon.Conectar
-        End If
-        If cn.State = ConnectionState.Open Then
-            cn.Close()
-            cn.Dispose()
-            cn = objCon.Conectar
-            cn.Open()
-        Else
-            cn = objCon.Conectar
-            cn.Open()
-        End If
 
-        da = New SqlDataAdapter(sql, cn)
-        da.Fill(dt)
-
-        Return dt
-        dt.Dispose()
-        da.Dispose()
-        cn.Dispose()
 
     End Function
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
     Public Function Eliminar(ByVal Codigo As String, ByVal Tabla As String, ByVal Validar As Boolean) As Integer
         Dim objCon As New Conexion
         Dim cn As SqlConnection = objCon.Conectar
@@ -743,7 +661,6 @@ FROM [dbo].[PIN0] ORDER BY [CodInv]"
         Dim vPuedoContinuar As Boolean = True
         Dim vCodigoNuevo As String
         vCodigoNuevo = oInversionesCE.CodigoIversion
-        '        vCodigoNuevo = SeriesDAO.SiguienteCodigoInversion(oInversionesCE.CodigoEmpresa, oInversionesCE.CodigoInstrumentoFinanciero)
 
         If oInversionesCE Is Nothing Then
 
@@ -1248,7 +1165,6 @@ VALUES
         Dim vPuedoContinuar As Boolean = True
         Dim vCodigoNuevo As String
         vCodigoNuevo = oInversionesCE.CodigoIversion
-        '        vCodigoNuevo = SeriesDAO.SiguienteCodigoInversion(oInversionesCE.CodigoEmpresa, oInversionesCE.CodigoInstrumentoFinanciero)
 
         If oInversionesCE Is Nothing Then
 
@@ -1511,14 +1427,13 @@ VALUES
 
 
             Else
-                'NADA?
+
                 vRetorno = 0
             End If
 
 
         Else
-            cn.Close()
-            'NO VIENE
+
             vRetorno = -1
         End If
 
@@ -2149,14 +2064,11 @@ VALUES
                 oInversion.Periodicidad = dr.Item("Periodicidad").ToString
                 oInversion.TipoTasa = dr.Item("TipTasa").ToString
                 oInversion.TipoRenta = dr.Item("TipRenta").ToString
-
-
                 If String.IsNullOrEmpty(dr.Item("Plazo").ToString) Then
                     oInversion.PlazoNumero = 0
                 Else
                     oInversion.PlazoNumero = dr.Item("Plazo")
                 End If
-
                 oInversion.PlazoFactor = dr.Item("PlazoFact").ToString
                 oInversion.Comentarios = dr.Item("Coment").ToString
                 oInversion.TipoOperacion = dr.Item("TipoOper").ToString
@@ -2175,83 +2087,10 @@ VALUES
         End If
 
 
-        'oSqlConnection.Dispose()
-
-        cn.Close()
-        Return oInversion
-    End Function
-
-
-
 
-    Public Function CargarRegistroPropuesta(ByVal IdRegistro As Integer) As InversionesCE
-        Dim objCon As New Conexion
-        Dim cn As SqlConnection = objCon.Conectar
-        Dim oInversion As InversionesCE
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim dr As SqlDataReader
-
-        sql = "SELECT * FROM [dbo].[PIN0] WHERE [DocId]=@DocId"
-        If cn Is Nothing Then
-            cn = objCon.Conectar
-        End If
-        If cn.State = ConnectionState.Open Then
-            cn.Close()
-            cn.Dispose()
-            cn = objCon.Conectar
-            cn.Open()
-        Else
-            cn = objCon.Conectar
-            cn.Open()
-        End If
-        cmd = New SqlCommand(sql, cn)
-        cmd.Parameters.Add("@DocId", SqlDbType.Int).Value = IdRegistro
-
-        dr = cmd.ExecuteReader
-
-        If dr.HasRows Then
-            oInversion = New InversionesCE
-            While dr.Read
-                'oInversion.CodigoEmpresa = dr.Item("CodEmpr")
-                'oInversion.CodigoInstrumentoFinanciero = dr.Item("CodIF")
-                oInversion.CodigoEmisor = dr.Item("CodEmis")
-                'oInversion.CodigoCalificacionDeRiesgo = dr.Item("CodCalRi").ToString
-                'oInversion.CodigoEmpresaCalificadora = dr.Item("CodECalRi").ToString
-                'oInversion.Pais = dr.Item("CodPais").ToString
-                'oInversion.TipoMercado = dr.Item("TipoMerc").ToString
-                'oInversion.CodigoIversion = dr.Item("CodInv").ToString
-                'oInversion.EstadoDocumento = dr.Item("DocEst").ToString
-                'oInversion.NombreManual = dr.Item("NombreManIF").ToString
-                'oInversion.CodigoManual = dr.Item("CodManIF").ToString
-                'oInversion.Periodicidad = dr.Item("Periodicidad").ToString
-                'oInversion.TipoTasa = dr.Item("TipTasa").ToString
-                'oInversion.TipoRenta = dr.Item("TipRenta").ToString
-                'oInversion.PlazoNumero = dr.Item("Plazo").ToString
-                'oInversion.PlazoFactor = dr.Item("PlazoFact").ToString
-                'oInversion.Comentarios = dr.Item("Coment").ToString
-
-
-            End While
-            dr.Close()
-            cmd.Dispose()
-
-
-            '    oInversion.TipoInstrumentoFinanciero = Me.ObtenerTipoInstrumentoFinanciero(oInversion.CodigoInstrumentoFinanciero)
-
-        Else
-
-        End If
-
-
-        'oSqlConnection.Dispose()
 
         cn.Close()
         Return oInversion
     End Function
 
-
-
-
-
 End Class

DAO/LETESDAO.vb

@@ -2,72 +2,14 @@
 Public Class LETESDAO
 
 
+    Dim Operaciones As New Operaciones
 
-    Public Function Nuevo(ByVal objLete As LETESCE) As Integer
-        Dim retorno As Integer
-
-
-        Return retorno
-    End Function
-    Public Function Nuevo(ByVal coleccion As Collection)
-        Dim objCon As New Conexion
-        Dim retorno As Integer = -1
-        Dim query As String
-
-        Dim Tabla As String = ""
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-
-
-
-
-        Dim cmd As SqlCommand
-
-
-
-
-        query = "INSERT INTO [dbo].[LET0]
-           (
-           [ValNom]
-           ,[FOper]
-           ,[FLiq]
-           ,[RendBruto]
-           ,[Plazo])
-     VALUES
-           (@ValNom
-           ,@FOper
-           ,@FLiq
-           ,@RendBruto
-           ,@Plazo
-		   )"
-
-        cmd = New SqlCommand
-        cmd.CommandText = query
-
-        With cmd.Parameters
-            .Add("@ValNom", SqlDbType.Decimal).Value = coleccion(1)
-            .Add("@FOper", SqlDbType.DateTime).Value = coleccion(2)
-            .Add("@FLiq", SqlDbType.DateTime).Value = coleccion(3)
-
-            .Add("@RendBruto", SqlDbType.Decimal).Value = coleccion(4)
-            .Add("@Plazo", SqlDbType.Int).Value = coleccion(5)
-        End With
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-        cn.Close()
-        Return retorno
-    End Function
 
 
     Public Function ActualizarLETE(ByVal coleccion As Collection, ByVal Instrumento As String)
         Dim objCon As New Conexion
         Dim retorno As Integer
-        Dim sql As String
+        Dim sql As String = String.Empty
         Dim cmd As SqlCommand
         Dim cn As SqlConnection = objCon.Conectar
         If cn.State = ConnectionState.Closed Then
@@ -202,93 +144,87 @@ where [CodInv]=   @CodInv
 "
         End If
 
-        'Try
+
 
 
         cmd = New SqlCommand
             cmd.CommandText = sql
 
             With cmd.Parameters
-                .Add("@ValNom", SqlDbType.Decimal).Value = coleccion(1)
-
-                .Add("@FOper", SqlDbType.DateTime).Value = coleccion(2)
-                .Add("@FLiq", SqlDbType.DateTime).Value = coleccion(3)
-                .Add("@RendBruto", SqlDbType.Decimal).Value = coleccion(4)
-                .Add("@Plazo", SqlDbType.Int).Value = CInt(coleccion(5))
-                .Add("@CodInv", SqlDbType.VarChar).Value = coleccion(6)
-                .Add("@ComisionCasa", SqlDbType.Decimal).Value = CDec(coleccion(7))
-                .Add("@ComisionBolsa", SqlDbType.Decimal).Value = CDec(coleccion(8))
-                .Add("@Periodic", SqlDbType.VarChar).Value = coleccion(9)
-
-                .Add("@AnioBase", SqlDbType.Int).Value = CInt(coleccion(10))
-
-                .Add("@CasasCorredoras", SqlDbType.VarChar).Value = coleccion(11)
-
-                If Instrumento = "LETE" Then
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(12)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(13)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(14)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(15)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(16)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(17)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(18)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(19)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(20)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(21)
-                    .Add("FVenc", SqlDbType.Date).Value = coleccion(22)
-                End If
+            .Add("@ValNom", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(1).ToString)
+            .Add("@FOper", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(2).ToString)
+            .Add("@FLiq", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(3).ToString)
+            .Add("@RendBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(4).ToString)
+            .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(5).ToString)
+            .Add("@CodInv", SqlDbType.VarChar).Value = coleccion(6).ToString
+            .Add("@ComisionCasa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(7).ToString)
+            .Add("@ComisionBolsa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(8).ToString)
+            .Add("@Periodic", SqlDbType.VarChar).Value = coleccion(9).ToString
+            .Add("@AnioBase", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(10).ToString)
+            .Add("@CasasCorredoras", SqlDbType.VarChar).Value = coleccion(11).ToString
+
+            If Instrumento = "LETE" Then
+                .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(12).ToString)
+                .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(13).ToString)
+                .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(20).ToString)
+                .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(21).ToString)
+                .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(22).ToString)
+            End If
 
                 If (Instrumento = "VCN" Or Instrumento = "PBUR") Then
 
 
                     .Add("@ValorPar", SqlDbType.Bit).Value = CByte(coleccion(12))
-                    .Add("@FechaUltima", SqlDbType.DateTime).Value = CDate(coleccion(13))
-
-
-
-                ElseIf Instrumento = "CETE" Then
-                    .Add("@FechaUltima", SqlDbType.DateTime).Value = CDate(coleccion(12))
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(13)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(14)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(15)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(16)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(17)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(18)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(19)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(20)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(21)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(22)
-                .Add("FVenc", SqlDbType.Date).Value = coleccion(23)
-                .Add("@IntAcumulado", SqlDbType.Float).Value = coleccion(24)
+                .Add("@FechaUltima", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(13).ToString)
+            ElseIf Instrumento = "CETE" Then
+                .Add("@FechaUltima", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(12).ToString)
+                .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(13).ToString)
+                .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString)
+                .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(21).ToString)
+                .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(22).ToString)
+                .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(23).ToString)
+                .Add("@IntAcumulado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(24).ToString)
             End If
                 If Instrumento = "VCN" Then
-                    .Add("@OtrosCostos", SqlDbType.Decimal).Value = CDec(coleccion(14))
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(15)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(16)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(17)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(18)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(19)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(20)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(21)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(22)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(23)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(24)
-                .Add("FVenc", SqlDbType.Date).Value = coleccion(25)
-                .Add("@IntAcumulado", SqlDbType.Float).Value = coleccion(26)
+                .Add("@OtrosCostos", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString)
+                .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(21).ToString)
+                .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(22).ToString)
+                .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(23).ToString)
+                .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(24).ToString)
+                .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(25).ToString)
+                .Add("@IntAcumulado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(26).ToString)
             End If
                 If Instrumento = "PBUR" Then
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(14)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(15)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(16)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(17)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(18)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(19)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(20)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(21)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(22)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(23)
-                .Add("FVenc", SqlDbType.Date).Value = coleccion(24)
-                .Add("@IntAcumulado", SqlDbType.Float).Value = coleccion(25)
+                .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString)
+                .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(21).ToString)
+                .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(22).ToString)
+                .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(23).ToString)
+                .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(24).ToString)
+                .Add("@IntAcumulado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(25).ToString)
             End If
 
             End With
@@ -298,9 +234,7 @@ where [CodInv]=   @CodInv
 
             retorno = cmd.ExecuteNonQuery
             MsgBox("Registro Modificado con éxito")
-        'Catch ex As Exception
-        '    MsgBox("Error al modificar el registro")
-        'End Try
+
         cn.Close()
         Return retorno
     End Function
@@ -561,86 +495,83 @@ where [CodInv]=   @CodInv
             cmd.CommandText = sql
 
             With cmd.Parameters
-                .Add("@ValNom", SqlDbType.Decimal).Value = coleccion(1)
-
-                .Add("@FOper", SqlDbType.DateTime).Value = coleccion(2)
-                .Add("@FLiq", SqlDbType.DateTime).Value = coleccion(3)
-                .Add("@RendBruto", SqlDbType.Decimal).Value = coleccion(4)
-                .Add("@Plazo", SqlDbType.Int).Value = CInt(coleccion(5))
-                .Add("@CodInv", SqlDbType.VarChar).Value = coleccion(6)
-                .Add("@ComisionCasa", SqlDbType.Decimal).Value = CDec(coleccion(7))
-                .Add("@ComisionBolsa", SqlDbType.Decimal).Value = CDec(coleccion(8))
-                .Add("@Periodic", SqlDbType.VarChar).Value = coleccion(9)
-
-                .Add("@AnioBase", SqlDbType.Int).Value = CInt(coleccion(10))
-
-                .Add("@CasasCorredoras", SqlDbType.VarChar).Value = coleccion(11)
+                .Add("@ValNom", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(1).ToString)
+                .Add("@FOper", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(2).ToString)
+                .Add("@FLiq", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(3).ToString)
+                .Add("@RendBruto", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(4).ToString)
+                .Add("@Plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(5).ToString)
+                .Add("@CodInv", SqlDbType.VarChar).Value = coleccion(6).ToString
+                .Add("@ComisionCasa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(7).ToString)
+                .Add("@ComisionBolsa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(8).ToString)
+                .Add("@Periodic", SqlDbType.VarChar).Value = coleccion(9).ToString
+                .Add("@AnioBase", SqlDbType.Int).Value = Operaciones.ConvertirEntero(coleccion(10).ToString)
+                .Add("@CasasCorredoras", SqlDbType.VarChar).Value = coleccion(11).ToString
 
                 If Instrumento = "LETE" Then
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(12)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(13)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(14)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(15)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(16)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(17)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(18)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(19)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(20)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(21)
-                    .Add("FVenc", SqlDbType.Date).Value = coleccion(22)
+                    .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(12).ToString)
+                    .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(13).ToString)
+                    .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                    .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                    .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                    .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                    .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                    .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(20).ToString)
+                    .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(21).ToString)
+                    .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(22).ToString)
                 End If
 
                 If (Instrumento = "VCN" Or Instrumento = "PBUR") Then
 
 
                     .Add("@ValorPar", SqlDbType.Bit).Value = CByte(coleccion(12))
-                    .Add("@FechaUltima", SqlDbType.DateTime).Value = CDate(coleccion(13))
+                    .Add("@FechaUltima", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(13).ToString)
 
 
 
                 ElseIf Instrumento = "CETE" Then
-                    .Add("@FechaUltima", SqlDbType.DateTime).Value = CDate(coleccion(12))
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(13)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(14)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(15)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(16)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(17)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(18)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(19)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(20)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(21)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(22)
-                    .Add("FVenc", SqlDbType.Date).Value = coleccion(23)
-                    .Add("@IntAcumulado", SqlDbType.Float).Value = coleccion(24)
+                    .Add("@FechaUltima", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(coleccion(12).ToString)
+                    .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(13).ToString)
+                    .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                    .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                    .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                    .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                    .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                    .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString)
+                    .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(21).ToString)
+                    .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(22).ToString)
+                    .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(23).ToString)
+                    .Add("@IntAcumulado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(24).ToString)
                 End If
                 If Instrumento = "VCN" Then
-                    .Add("@OtrosCostos", SqlDbType.Decimal).Value = CDec(coleccion(14))
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(15)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(16)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(17)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(18)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(19)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(20)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(21)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(22)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(23)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(24)
-                    .Add("FVenc", SqlDbType.Date).Value = coleccion(25)
-                    .Add("@IntAcumulado", SqlDbType.Float).Value = coleccion(26)
+                    .Add("@OtrosCostos", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                    .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                    .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                    .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                    .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                    .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                    .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString)
+                    .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(21).ToString)
+                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(22).ToString)
+                    .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(23).ToString)
+                    .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(24).ToString)
+                    .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(25).ToString)
+                    .Add("@IntAcumulado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(26).ToString)
                 End If
                 If Instrumento = "PBUR" Then
-                    .Add("ValTrans", SqlDbType.Float).Value = coleccion(14)
-                    .Add("Precio", SqlDbType.Float).Value = coleccion(15)
-                    .Add("TotPagar", SqlDbType.Float).Value = coleccion(16)
-                    .Add("RendNeto", SqlDbType.Float).Value = coleccion(17)
-                    .Add("IngrBruto", SqlDbType.Float).Value = coleccion(18)
-                    .Add("IngrNeto", SqlDbType.Float).Value = coleccion(19)
-                    .Add("ComisionCasaValor", SqlDbType.Float).Value = coleccion(20)
-                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = coleccion(21)
-                    .Add("FUlt", SqlDbType.Date).Value = coleccion(22)
-                    .Add("FRed", SqlDbType.Date).Value = coleccion(23)
-                    .Add("FVenc", SqlDbType.Date).Value = coleccion(24)
-                    .Add("@IntAcumulado", SqlDbType.Float).Value = coleccion(25)
+                    .Add("ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(14).ToString)
+                    .Add("Precio", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(15).ToString)
+                    .Add("TotPagar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(16).ToString)
+                    .Add("RendNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(17).ToString)
+                    .Add("IngrBruto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(18).ToString)
+                    .Add("IngrNeto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(19).ToString)
+                    .Add("ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(20).ToString)
+                    .Add("ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(21).ToString)
+                    .Add("FUlt", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(22).ToString)
+                    .Add("FRed", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(23).ToString)
+                    .Add("FVenc", SqlDbType.Date).Value = Operaciones.ConvertirFecha(coleccion(24).ToString)
+                    .Add("@IntAcumulado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(coleccion(25).ToString)
                 End If
 
             End With
@@ -701,234 +632,12 @@ where [CodInv]=   @CodInv
         End Try
         cn.Close()
     End Sub
-    Public Function Nuevo(ByVal oLete As LETESCE, CodigoInversion As String) As Integer
-        Dim Resultado As Integer = 0
-        Dim objCon As New Conexion
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        If Not oLete Is Nothing Then
-            Dim Transaccion As SqlTransaction
-            Dim query As String
 
-            Dim cmd As SqlCommand = cn.CreateCommand
 
-            Transaccion = cn.BeginTransaction("NuevoLete")
-            cmd.Connection = cn
-            cmd.Transaction = Transaccion
 
-            query = "INSERT INTO [dbo].[LET0]
-           ([CodInv]
-           ,[CodCasa]
-           ,[ValNom]
-           ,[ValTrans]
-           ,[Precio]
-           ,[Impuestos]
-           ,[TotPagar]
-           ,[FOper]
-           ,[FLiq]
-           ,[RendBruto]
-           ,[RendNeto]
-           ,[Periodic]
-           ,[Plazo]
-           ,[IngrBruto]
-           ,[IngrNeto])
-     VALUES
-           (@CodInv
-           ,@CodCasa
-           ,@ValNom
-           ,@ValTrans
-           ,@Precio
-           ,@Impuestos
-           ,@TotPagar
-           ,@FOper
-           ,@FLiq
-           ,@RendBruto
-           ,@RendNeto
-           ,@Periodic
-           ,@Plazo
-           ,@IngrBruto
-           ,@IngrNeto
-		   )"
-
-            cmd.CommandText = query
 
-            With cmd.Parameters
-                '.Add("@DocId", SqlDbType.Int).Value = DocId
-                .Add("@CodInv", SqlDbType.VarChar).Value = CodigoInversion
-                .Add("@CodCasa", SqlDbType.VarChar).Value = oLete.CodigoCasa
-                .Add("@ValNom", SqlDbType.Float).Value = oLete.ValorNominal
-                .Add("@ValTrans", SqlDbType.Float).Value = oLete.ValorTransado
-                .Add("@Precio", SqlDbType.Float).Value = oLete.Precio
-                .Add("@Impuestos", SqlDbType.Float).Value = oLete.Impuestos
-                .Add("@TotPagar", SqlDbType.Float).Value = oLete.TotalaPagar
-                .Add("@FOper", SqlDbType.DateTime).Value = oLete.FechaOperacion
-                .Add("@FLiq", SqlDbType.DateTime).Value = oLete.FechaLiquidacion
-                .Add("@RendBruto", SqlDbType.Float).Value = oLete.RendimientoBruto
-                .Add("@RendNeto", SqlDbType.Float).Value = oLete.RendimientoNeto
-                .Add("@Periodic", SqlDbType.VarChar).Value = oLete.Periodicidad
-                .Add("@Plazo", SqlDbType.Int).Value = oLete.Plazo
-                .Add("@IngrBruto", SqlDbType.Float).Value = oLete.IngresoBruto
-                .Add("@IngrNeto", SqlDbType.Float).Value = oLete.IngresoNeto
-            End With
-
-            Try
-                Resultado = cmd.ExecuteNonQuery()
-                Transaccion.Commit()
-
-            Catch ex As Exception
-                MsgBox("Error al Guardar Lete : " & ex.GetType.ToString)
-                MsgBox("Mensaje: " & ex.Message)
-                Resultado = 0
-                Try
-                    Transaccion.Rollback()
-                Catch ex2 As Exception
-                    MsgBox("Error en Rollback: " & ex2.GetType.ToString)
-                    MsgBox("Mensaje Rollbak: " & ex2.Message)
-                End Try
-            End Try
-
-            cmd.Dispose()
-            cn.Dispose()
-        Else
-            Resultado = -1
-        End If
-
-        Return Resultado
-    End Function
 
 
-    Public Sub CargarRegistro(ByVal oLetes As LETESCE, Tipo As String, IdRegistro As Integer)
-        Dim objCon As New Conexion
-        Dim drd As SqlDataReader
-        Dim cmd As SqlCommand
-        Dim sql As String
-        Dim Tabla As String
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        If Tipo = "P" Then
-            Tabla = "PLET0"
-        End If
-        If Tipo = "I" Then
-            Tabla = "ILET0"
-        End If
-
-        sql = "SELECT * FROM [dbo].[" & Tabla & "] T0 WHERE T0.[DocId]=@DocId"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@DocId", SqlDbType.Int).Value = IdRegistro
-        cmd.Connection = cn
-
-        drd = cmd.ExecuteReader
-
-        If drd.HasRows Then
-            'SE ENCONTRO EL REGISTRO
-            If drd.Read Then
-                oLetes.ValorNominal = drd.Item("ValNom")
-                oLetes.FechaOperacion = drd.Item("FOper")
-                oLetes.FechaLiquidacion = drd.Item("FLiq")
-
-                oLetes.Plazo = drd.Item("Plazo")
-                oLetes.CodigoCasa = drd.Item("CodCasa")
-                oLetes.Impuestos = drd.Item("Impuestos")
-                oLetes.Periodicidad = drd.Item("Periodic")
-                oLetes.RendimientoBruto = drd.Item("RendBruto")
-                oLetes.RendimientoNeto = drd.Item("RendNeto")
-                oLetes.IngresoBruto = drd.Item("IngrBruto")
-                oLetes.IngresoNeto = drd.Item("IngrNeto")
-                oLetes.ValorTransado = drd.Item("ValTrans")
-                oLetes.Precio = drd.Item("Precio")
-                oLetes.TotalaPagar = drd.Item("TotPagar")
-            End If
-
-        Else
-            'NO SE ENCONTRO EL REGISTRO
-        End If
-        drd.Close()
-        cmd.Dispose()
-        cn.Dispose()
-
-    End Sub
-    Public Function CargarRegistro(ByVal CodInversion As String) As LETESCE
-        Dim objCon As New Conexion
-        Dim oLETES As LETESCE
-        Dim cmd As SqlCommand
-        Dim drd As SqlDataReader
-        Dim vComprobar As Integer = 0
-        Dim sql As String
-        Dim vCodigoInversion As String = CodInversion
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        vComprobar = Comprobar(vCodigoInversion)
-        If vComprobar > 0 Then
-            oLETES = New LETESCE
-
-            sql = "SELECT * FROM [dbo].[LET0] T0 WHERE T0.[CodInv]=@CodInv"
-
-            cmd = New SqlCommand
-            cmd.CommandText = sql
-            cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = vCodigoInversion
-            cmd.Connection = cn
-
-            drd = cmd.ExecuteReader
-            If drd.HasRows Then
-                'SE ENCONTRO EL REGISTRO
-                If drd.Read Then
-                    'oLETES.ValorNominal = drd.Item("ValNom").ToString
-                    'oLETES.FechaOperacion = drd.Item("FOper").ToString
-                    'oLETES.FechaLiquidacion = drd.Item("FLiq").ToString
-                    'oLETES.Plazo = drd.Item("Plazo").ToString
-                    'oLETES.CodigoCasa = drd.Item("CodCasa").ToString
-                    'oLETES.Impuestos = drd.Item("Impuestos").ToString
-                    'oLETES.Periodicidad = drd.Item("Periodic").ToString
-                    'oLETES.RendimientoBruto = drd.Item("RendBruto").ToString
-                    'oLETES.RendimientoNeto = drd.Item("RendNeto").ToString
-                    'oLETES.IngresoBruto = drd.Item("IngrBruto").ToString
-                    'oLETES.IngresoNeto = drd.Item("IngrNeto").ToString
-                    'oLETES.ValorTransado = drd.Item("ValTrans").ToString
-                    'oLETES.Precio = drd.Item("Precio").ToString
-                    'oLETES.TotalaPagar = drd.Item("TotPagar").ToString
-                End If
-
-            Else
-                'NO SE ENCONTRO EL REGISTRO
-            End If
-            drd.Close()
-            cmd.Dispose()
-            cn.Dispose()
-
-        End If
-
-        Return oLETES
-    End Function
-    Public Function Comprobar(ByVal CodInversion As String) As Integer
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim count As Integer = 0
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "SELECT COUNT('A') FROM [dbo].[LET0] T0 WHERE T0.CodInv=@CodInversion"
-        cmd = New SqlCommand
-
-
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInversion", SqlDbType.VarChar).Value = CodInversion
-        cmd.Connection = cn
-
-        count = cmd.ExecuteScalar
-        cn.Close()
-        Return count
-    End Function
     Public Function Cargar(ByVal CodInversion As String, ByVal Instrumento As String)
         Dim objCon As New Conexion
         Dim sql As String
@@ -954,7 +663,7 @@ where [CodInv]=   @CodInv
         cmd.Parameters.Add("@CodInversion", SqlDbType.VarChar).Value = CodInversion
         cmd.Connection = cn
 
-        ' Dim Datos = cmd.ExecuteScalar
+
         Dim Datos = cmd.ExecuteReader
         If Datos.HasRows Then
             'SE ENCONTRO EL REGISTRO

DAO/PrestamoEmpresarialDAO.vb

@@ -2,7 +2,7 @@
 Public Class PrestamoEmpresarialDAO
 
 
-
+    Dim Operaciones As New Operaciones
 
     Public Function ProcesoDatos(ByVal Coleccion As Collection, ByVal Codigo As String, ByVal Diccionario2 As Dictionary(Of String, Collection), ByVal Estado As String)
         Dim objCon As New Conexion
@@ -75,15 +75,15 @@ Public Class PrestamoEmpresarialDAO
             cmd.Transaction = myTrans
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@monto", SqlDbType.Float).Value = CDec(Coleccion(1))
-                .Add("@fechaoper", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-                .Add("@fechaven", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-                .Add("@tasa", SqlDbType.Float).Value = CDec(Coleccion(4))
-                .Add("@periodicidad", SqlDbType.VarChar).Value = Coleccion(5)
-                .Add("@base", SqlDbType.Int).Value = CInt(Coleccion(6))
-                .Add("@tipotasa", SqlDbType.VarChar).Value = Coleccion(7)
-                .Add("@comisiondesembolso", SqlDbType.Float).Value = CDec(Coleccion(8))
-                .Add("@plazodias", SqlDbType.Int).Value = CInt(Coleccion(9))
+                .Add("@monto", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(1).ToString)
+                .Add("@fechaoper", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@fechaven", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@tasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@periodicidad", SqlDbType.VarChar).Value = Coleccion(5).ToString
+                .Add("@base", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(6).ToString)
+                .Add("@tipotasa", SqlDbType.VarChar).Value = Coleccion(7).ToString
+                .Add("@comisiondesembolso", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(8).ToString)
+                .Add("@plazodias", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(9).ToString)
 
 
             End With
@@ -165,33 +165,23 @@ Public Class PrestamoEmpresarialDAO
 
 
                         .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                        .Add("@correlativo", SqlDbType.Int).Value = Coleccion2(1)
-                        .Add("@plazo", SqlDbType.Int).Value = Coleccion2(2)
-                        .Add("@fechapago", SqlDbType.Date).Value = Coleccion2(3)
-                        .Add("@ingresarcomision", SqlDbType.Float).Value = Coleccion2(4)
-                        .Add("@ingresarinteres", SqlDbType.Float).Value = Coleccion2(5)
-                        .Add("@IVA", SqlDbType.Float).Value = Coleccion2(6)
-                        .Add("@amortizacion", SqlDbType.Float).Value = Coleccion2(7)
-                        .Add("@saldopendiente", SqlDbType.Float).Value = Coleccion2(8)
-                        .Add("@montorecibir", SqlDbType.Float).Value = Coleccion2(9)
-
-
-                    If Coleccion2(10) Is DBNull.Value Then
-                        .Add("@fechacorte", SqlDbType.Date).Value = DBNull.Value
-                    Else
+                        .Add("@correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(1).ToString)
+                        .Add("@plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(2).ToString)
+                        .Add("@fechapago", SqlDbType.Date).Value = Operaciones.ConvertirFecha(Coleccion2(3).ToString)
+                        .Add("@ingresarcomision", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                        .Add("@ingresarinteres", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                        .Add("@IVA", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                        .Add("@amortizacion", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
+                        .Add("@saldopendiente", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(8))
+                        .Add("@montorecibir", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(9).ToString)
+                        .Add("@fechacorte", SqlDbType.Date).Value = Operaciones.ConvertirFechaBaseDatos(Coleccion2(10).ToString)
 
 
-                        If String.IsNullOrEmpty(Coleccion2(10)) Then
-                            .Add("@fechacorte", SqlDbType.Date).Value = DBNull.Value
-                        Else
-                            .Add("@fechacorte", SqlDbType.Date).Value = Coleccion2(10)
-                        End If
 
 
-                    End If
 
 
-                End With
+                    End With
 
                     retorno = cmd.ExecuteNonQuery
 
@@ -232,125 +222,14 @@ Public Class PrestamoEmpresarialDAO
 
     End Function
 
-    Public Function NuevoDato(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "INSERT INTO [dbo].[PEMP0](
-           [CodInv]
-            ,[monto]
-            ,[fechaoper]
-            ,[fechaven]
-            ,[tasa]
-            ,[periodicidad]
-            ,[base]
-            ,[tipotasa]
-            ,[comisiondesembolso]
-            ,[plazodias]
 
-) VALUES(
-           @CodInv
-            ,@monto
-            ,@fechaoper
-            ,@fechaven
-            ,@tasa
-            ,@periodicidad
-            ,@base
-            ,@tipotasa
-            ,@comisiondesembolso
-            ,@plazodias
-)
-    "
 
 
-        cmd = New SqlCommand
-        cmd.CommandText = sql
 
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@monto", SqlDbType.Float).Value = CDec(Coleccion(1))
-            .Add("@fechaoper", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-            .Add("@fechaven", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-            .Add("@tasa", SqlDbType.Float).Value = CDec(Coleccion(4))
-            .Add("@periodicidad", SqlDbType.VarChar).Value = Coleccion(5)
-            .Add("@base", SqlDbType.Int).Value = CInt(Coleccion(6))
-            .Add("@tipotasa", SqlDbType.VarChar).Value = Coleccion(7)
-            .Add("@comisiondesembolso", SqlDbType.Float).Value = CDec(Coleccion(8))
-            .Add("@plazodias", SqlDbType.Int).Value = CInt(Coleccion(9))
 
 
-        End With
 
 
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
-
-
-
-
-
-    Public Function ModificarDato(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE [dbo].[PEMP0] SET
-          
-            [monto]=@monto
-            ,[fechaoper]=@fechaoper
-            ,[fechaven]=@fechaven
-            ,[tasa]=@tasa
-            ,[periodicidad]=@periodicidad
-            ,[base]=@base
-            ,[tipotasa]=@tipotasa
-            ,[comisiondesembolso]=@comisiondesembolso
-            ,[plazodias]=@plazodias
-            where  [CodInv]=@CodInv
-    "
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@monto", SqlDbType.Float).Value = CDec(Coleccion(1))
-            .Add("@fechaoper", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-            .Add("@fechaven", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-            .Add("@tasa", SqlDbType.Float).Value = CDec(Coleccion(4))
-            .Add("@periodicidad", SqlDbType.VarChar).Value = Coleccion(5)
-            .Add("@base", SqlDbType.Int).Value = CInt(Coleccion(6))
-            .Add("@tipotasa", SqlDbType.VarChar).Value = Coleccion(7)
-            .Add("@comisiondesembolso", SqlDbType.Float).Value = CDec(Coleccion(8))
-            .Add("@plazodias", SqlDbType.Int).Value = CInt(Coleccion(9))
-
-
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
-
 
 
 
@@ -404,30 +283,25 @@ Public Class PrestamoEmpresarialDAO
         With cmd.Parameters
 
 
-                .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@correlativo", SqlDbType.Int).Value = Coleccion(1)
-                .Add("@plazo", SqlDbType.Int).Value = Coleccion(2)
-                .Add("@fechapago", SqlDbType.Date).Value = Coleccion(3)
-                .Add("@ingresarcomision", SqlDbType.Float).Value = Coleccion(4)
-                .Add("@ingresarinteres", SqlDbType.Float).Value = Coleccion(5)
-                .Add("@IVA", SqlDbType.Float).Value = Coleccion(6)
-                .Add("@amortizacion", SqlDbType.Float).Value = Coleccion(7)
-                .Add("@saldopendiente", SqlDbType.Float).Value = Coleccion(8)
-                .Add("@montorecibir", SqlDbType.Float).Value = Coleccion(9)
-
+            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
+            .Add("@correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+            .Add("@plazo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(2).ToString)
+            .Add("@fechapago", SqlDbType.Date).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+            .Add("@ingresarcomision", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@ingresarinteres", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+            .Add("@IVA", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@amortizacion", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+            .Add("@saldopendiente", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(8))
+            .Add("@montorecibir", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+            .Add("@fechacorte", SqlDbType.Date).Value = Operaciones.ConvertirFechaBaseDatos(Coleccion(10).ToString)
 
 
-                If String.IsNullOrEmpty(Coleccion(10)) Then
-                    .Add("@fechacorte", SqlDbType.Date).Value = DBNull.Value
-                Else
-                    .Add("@fechacorte", SqlDbType.Date).Value = Coleccion(10)
-                End If
 
 
 
 
 
-            End With
+        End With
 
 
             cmd.Connection = cn
@@ -447,79 +321,7 @@ Public Class PrestamoEmpresarialDAO
 
 
 
-    Public Function ModificarDetalle(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE [dbo].[PEMP1] SET
-            [plazo]=@plazo
-            ,[fechapago]=@fechapago
-            ,[ingresarcomision]=@ingresarcomision
-            ,[ingresarinteres]=@ingresarinteres
-            ,[IVA]=@IVA
-            ,[amortizacion]=@amortizacion
-            ,[montorecibir]=@montorecibir
-            ,[saldopendiente]=@saldopendiente
-            ,[fechacorte]=@fechacorte
-            where [CodInv]=@CodInv AND [correlativo]=@correlativo
-          
-    "
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        Try
-
-
-
-            With cmd.Parameters
-
-
-                .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@correlativo", SqlDbType.Int).Value = Coleccion(1)
-                .Add("@plazo", SqlDbType.Int).Value = Coleccion(2)
-                .Add("@fechapago", SqlDbType.Date).Value = Coleccion(3)
-                .Add("@ingresarcomision", SqlDbType.Float).Value = Coleccion(4)
-                .Add("@ingresarinteres", SqlDbType.Float).Value = Coleccion(5)
-                .Add("@IVA", SqlDbType.Float).Value = Coleccion(6)
-                .Add("@amortizacion", SqlDbType.Float).Value = Coleccion(7)
-                .Add("@saldopendiente", SqlDbType.Float).Value = Coleccion(8)
-                .Add("@montorecibir", SqlDbType.Float).Value = Coleccion(9)
-
-
-                If Coleccion(10) Is DBNull.Value Then
-                    .Add("@fechacorte", SqlDbType.Date).Value = DBNull.Value
-
-
-                Else
-                    If String.IsNullOrEmpty(Coleccion(10)) Then
-                        .Add("@fechacorte", SqlDbType.Date).Value = DBNull.Value
-                    Else
-                        .Add("@fechacorte", SqlDbType.Date).Value = Coleccion(10)
-                    End If
-
-
-                End If
-
-
-
-            End With
-
-            cmd.Connection = cn
 
-            retorno = cmd.ExecuteNonQuery
-        Catch ex As Exception
-            Return Nothing
-        End Try
-        cn.Close()
-        Return retorno
-
-    End Function
 
 
 

DAO/PrestamoPersonalDAO.vb

@@ -1,12 +1,6 @@
 Imports System.Data.SqlClient
 Public Class PrestamoPersonalDAO
-
-
-
-
-
-
-
+    Dim Operaciones As New Operaciones
 
     Public Function ProcesoDatos(ByVal Coleccion As Collection, ByVal Coleccion2 As Collection, ByVal Codigo As String, ByVal Diccionario As Dictionary(Of String, Collection), ByVal EstadoDeudor As String, ByVal EstadoDetalles As String)
         Dim objCon As New Conexion
@@ -68,12 +62,11 @@ Public Class PrestamoPersonalDAO
 
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@nombredeudor", SqlDbType.VarChar).Value = Coleccion(1)
-                .Add("@numerodeudor", SqlDbType.VarChar).Value = Coleccion(2)
-                .Add("@fechaotorga", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-                .Add("@fechapago", SqlDbType.DateTime).Value = CDate(Coleccion(4))
-
-                .Add("@periodogracia", SqlDbType.Float).Value = CDec(Coleccion(5))
+                .Add("@nombredeudor", SqlDbType.VarChar).Value = Coleccion(1).ToString
+                .Add("@numerodeudor", SqlDbType.VarChar).Value = Coleccion(2).ToString
+                .Add("@fechaotorga", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(3).ToString)
+                .Add("@fechapago", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(4).ToString)
+                .Add("@periodogracia", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
 
             End With
 
@@ -139,13 +132,13 @@ Public Class PrestamoPersonalDAO
             cmd.Transaction = myTrans
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@tasainteres", SqlDbType.Float).Value = CDec(Coleccion2(1))
-                .Add("@duracionprestamo", SqlDbType.Float).Value = CDec(Coleccion2(2))
-                .Add("@totalcuotas", SqlDbType.Float).Value = CDec(Coleccion2(3))
-                .Add("@montoprestamo", SqlDbType.Float).Value = CDec(Coleccion2(4))
-                .Add("@seguro", SqlDbType.Float).Value = CDec(Coleccion2(5))
-                .Add("@CuotaSinSeguro", SqlDbType.Float).Value = CDec(Coleccion2(6))
-                .Add("@CuotaReal", SqlDbType.Float).Value = CDec(Coleccion2(7))
+                .Add("@tasainteres", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(1).ToString)
+                .Add("@duracionprestamo", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(2).ToString)
+                .Add("@totalcuotas", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(3).ToString)
+                .Add("@montoprestamo", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                .Add("@seguro", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                .Add("@CuotaSinSeguro", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                .Add("@CuotaReal", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
             End With
 
 
@@ -239,27 +232,23 @@ Public Class PrestamoPersonalDAO
 
                     With cmd.Parameters
                         .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                        .Add("@correlativo", SqlDbType.Int).Value = CInt(Coleccion3(1))
-                        .Add("@fecha", SqlDbType.DateTime).Value = CDate(Coleccion3(2))
-                        .Add("@Periodo", SqlDbType.Int).Value = CInt(Coleccion3(3))
-                        .Add("@saldoinicial", SqlDbType.Float).Value = CDec(Coleccion3(4))
-                        .Add("@pagocuota", SqlDbType.Float).Value = CDec(Coleccion3(5))
-                        .Add("@pagointeresIVA", SqlDbType.Float).Value = CDec(Coleccion3(6))
-                        .Add("@IVAinteres", SqlDbType.Float).Value = CDec(Coleccion3(7))
-                        .Add("@pagointeres", SqlDbType.Float).Value = CDec(Coleccion3(8))
-                        .Add("@abono", SqlDbType.Float).Value = CDec(Coleccion3(9))
-                        .Add("@prestamoremanente", SqlDbType.Float).Value = CDec(Coleccion3(10))
-                        .Add("@pagodanos", SqlDbType.Float).Value = CDec(Coleccion3(11))
-                        .Add("@pagovivienta", SqlDbType.Float).Value = CDec(Coleccion3(12))
-                        .Add("@totalcuota", SqlDbType.Float).Value = CDec(Coleccion3(13))
-                        .Add("@totalpagado", SqlDbType.Float).Value = CDec(Coleccion3(14))
-                        .Add("@abonoextra", SqlDbType.Float).Value = CDec(Coleccion3(15))
-                        If String.IsNullOrEmpty(Coleccion3(16).ToString) Then
-                            .Add("@fechacorte", SqlDbType.Date).Value = DBNull.Value
-                        Else
-
-                            .Add("@fechacorte", SqlDbType.Date).Value = Coleccion3(16)
-                        End If
+                        .Add("@correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion3(1).ToString)
+                        .Add("@fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion3(2).ToString)
+                        .Add("@Periodo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion3(3).ToString)
+                        .Add("@saldoinicial", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(4).ToString)
+                        .Add("@pagocuota", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(5).ToString)
+                        .Add("@pagointeresIVA", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(6).ToString)
+                        .Add("@IVAinteres", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(7).ToString)
+                        .Add("@pagointeres", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(8).ToString)
+                        .Add("@abono", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(9).ToString)
+                        .Add("@prestamoremanente", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(10).ToString)
+                        .Add("@pagodanos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(11).ToString)
+                        .Add("@pagovivienta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(12).ToString)
+                        .Add("@totalcuota", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(13).ToString)
+                        .Add("@totalpagado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(14).ToString)
+                        .Add("@abonoextra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion3(15).ToString)
+                        .Add("@fechacorte", SqlDbType.Date).Value = Operaciones.ConvertirFechaBaseDatos(Coleccion3(16).ToString)
+
 
                     End With
 
@@ -320,115 +309,6 @@ Public Class PrestamoPersonalDAO
 
 
 
-    Public Function NuevoDeudor(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "INSERT INTO [dbo].[PPER0](
-           [CodInv]
-           ,[nombredeudor]
-           ,[numerodeudor]
-           ,[fechaotorga]
-           ,[fechapago]
-           ,[periodogracia]
-) VALUES(
-           @CodInv
-           ,@nombredeudor
-           ,@numerodeudor
-           ,@fechaotorga
-           ,@fechapago
-           ,@periodogracia
-)
-    "
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@nombredeudor", SqlDbType.VarChar).Value = Coleccion(1)
-            .Add("@numerodeudor", SqlDbType.VarChar).Value = Coleccion(2)
-            .Add("@fechaotorga", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-            .Add("@fechapago", SqlDbType.DateTime).Value = CDate(Coleccion(4))
-
-            .Add("@periodogracia", SqlDbType.Float).Value = CDec(Coleccion(5))
-
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Dispose()
-        cn.Close()
-        Return retorno
-
-    End Function
-
-
-
-
-
-
-
-    Public Function ModificarDeudor(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE [dbo].[PPER0] SET
-           
-           [nombredeudor]=@nombredeudor
-           ,[numerodeudor]=@numerodeudor
-           ,[fechaotorga]=@fechaotorga
-           ,[fechapago]=@fechapago
-           ,[periodogracia]=@periodogracia
-           where [CodInv]=@CodInv
-
-    "
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@nombredeudor", SqlDbType.VarChar).Value = Coleccion(1)
-            .Add("@numerodeudor", SqlDbType.VarChar).Value = Coleccion(2)
-            .Add("@fechaotorga", SqlDbType.DateTime).Value = CDate(Coleccion(3))
-            .Add("@fechapago", SqlDbType.DateTime).Value = CDate(Coleccion(4))
-            .Add("@periodogracia", SqlDbType.Float).Value = CDec(Coleccion(5))
-
-        End With
-
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Dispose()
-        cn.Close()
-        Return retorno
-
-    End Function
-
-
-
-
-
-
-
-
-
 
 
 
@@ -438,112 +318,25 @@ Public Class PrestamoPersonalDAO
 
 
 
-    Public Function NuevoDetalle(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "INSERT INTO [dbo].[PPER1](        
-           [CodInv]
-           ,[tasainteres]
-           ,[duracionprestamo]
-           ,[totalcuotas]
-           ,[montoprestamo]
-           ,[seguro]
-            ,[CuotaSinSeguro]
-            ,[CuotaReal]
-
-) VALUES(
-           @CodInv
-           ,@tasainteres
-           ,@duracionprestamo
-           ,@totalcuotas
-           ,@montoprestamo
-           ,@seguro
-           ,@CuotaSinSeguro
-           ,@CuotaReal
 
-)
-    "
 
-        cmd = New SqlCommand
-        cmd.CommandText = sql
 
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@tasainteres", SqlDbType.Float).Value = CDec(Coleccion(1))
-            .Add("@duracionprestamo", SqlDbType.Float).Value = CDec(Coleccion(2))
-            .Add("@totalcuotas", SqlDbType.Float).Value = CDec(Coleccion(3))
-            .Add("@montoprestamo", SqlDbType.Float).Value = CDec(Coleccion(4))
-            .Add("@seguro", SqlDbType.Float).Value = CDec(Coleccion(5))
-            .Add("@CuotaSinSeguro", SqlDbType.Float).Value = CDec(Coleccion(6))
-            .Add("@CuotaReal", SqlDbType.Float).Value = CDec(Coleccion(7))
-        End With
 
 
-        cmd.Connection = cn
 
-        retorno = cmd.ExecuteNonQuery
-        cn.Dispose()
-        cn.Close()
 
-        Return retorno
 
-    End Function
 
-    Public Function ModificarDetalle(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE  [dbo].[PPER1] SET       
-           
-           [tasainteres]=@tasainteres
-           ,[duracionprestamo]=@duracionprestamo
-           ,[totalcuotas]=@totalcuotas
-           ,[montoprestamo]=@montoprestamo
-           ,[seguro]=@seguro
-            ,[CuotaSinSeguro]=@CuotaSinSeguro
-            ,[CuotaReal]=@CuotaReal
-           where [CodInv]=@CodInv
- 
 
 
-    "
 
-        cmd = New SqlCommand
-        cmd.CommandText = sql
 
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@tasainteres", SqlDbType.Float).Value = CDec(Coleccion(1))
-            .Add("@duracionprestamo", SqlDbType.Float).Value = CDec(Coleccion(2))
-            .Add("@totalcuotas", SqlDbType.Float).Value = CDec(Coleccion(3))
-            .Add("@montoprestamo", SqlDbType.Float).Value = CDec(Coleccion(4))
-            .Add("@seguro", SqlDbType.Float).Value = CDec(Coleccion(5))
-            .Add("@CuotaSinSeguro", SqlDbType.Float).Value = CDec(Coleccion(6))
-            .Add("@CuotaReal", SqlDbType.Float).Value = CDec(Coleccion(7))
 
-        End With
 
 
-        cmd.Connection = cn
 
-        retorno = cmd.ExecuteNonQuery
 
-        cn.Dispose()
-        cn.Close()
-        Return retorno
 
-    End Function
 
 
 
@@ -603,27 +396,23 @@ Public Class PrestamoPersonalDAO
 
         With cmd.Parameters
             .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@correlativo", SqlDbType.Int).Value = CInt(Coleccion(1))
-            .Add("@fecha", SqlDbType.DateTime).Value = CDate(Coleccion(2))
-            .Add("@Periodo", SqlDbType.Int).Value = CInt(Coleccion(3))
-            .Add("@saldoinicial", SqlDbType.Float).Value = CDec(Coleccion(4))
-            .Add("@pagocuota", SqlDbType.Float).Value = CDec(Coleccion(5))
-            .Add("@pagointeresIVA", SqlDbType.Float).Value = CDec(Coleccion(6))
-            .Add("@IVAinteres", SqlDbType.Float).Value = CDec(Coleccion(7))
-            .Add("@pagointeres", SqlDbType.Float).Value = CDec(Coleccion(8))
-            .Add("@abono", SqlDbType.Float).Value = CDec(Coleccion(9))
-            .Add("@prestamoremanente", SqlDbType.Float).Value = CDec(Coleccion(10))
-            .Add("@pagodanos", SqlDbType.Float).Value = CDec(Coleccion(11))
-            .Add("@pagovivienta", SqlDbType.Float).Value = CDec(Coleccion(12))
-            .Add("@totalcuota", SqlDbType.Float).Value = CDec(Coleccion(13))
-            .Add("@totalpagado", SqlDbType.Float).Value = CDec(Coleccion(14))
-            .Add("@abonoextra", SqlDbType.Float).Value = CDec(Coleccion(15))
-            If String.IsNullOrEmpty(Coleccion(16).ToString) Then
-                .Add("@fechacorte", SqlDbType.Date).Value = DBNull.Value
-            Else
+            .Add("@correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+            .Add("@fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+            .Add("@Periodo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(3).ToString)
+            .Add("@saldoinicial", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@pagocuota", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+            .Add("@pagointeresIVA", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@IVAinteres", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+            .Add("@pagointeres", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(8).ToString)
+            .Add("@abono", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+            .Add("@prestamoremanente", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+            .Add("@pagodanos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(11).ToString)
+            .Add("@pagovivienta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(12).ToString)
+            .Add("@totalcuota", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(13).ToString)
+            .Add("@totalpagado", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(14).ToString)
+            .Add("@abonoextra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(15).ToString)
+            .Add("@fechacorte", SqlDbType.Date).Value = Operaciones.ConvertirFechaBaseDatos(Coleccion(16).ToString)
 
-                .Add("@fechacorte", SqlDbType.date).Value = Coleccion(16)
-            End If
 
         End With
 
@@ -640,66 +429,7 @@ Public Class PrestamoPersonalDAO
 
 
 
-    Public Function ModificarAmortizacion(ByVal Coleccion As Collection, ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE [dbo].[PPER2] SET
-           
-           [fecha]=@fecha
-           ,[Periodo]=@Periodo
-           ,[saldoinicial]=@saldoinicial
-           ,[pagocuota]=@pagocuota
-           ,[pagointeresIVA]=@pagointeresIVA
-           ,[IVAinteres]=@IVAinteres
-           ,[pagointeres]=@pagointeres
-           ,[abono]=@abono
-           ,[prestamoremanente]=@prestamoremanente
-           ,[pagodanos]=@pagodanos
-           ,[pagovivienta]=@pagovivienta
-           ,[totalcuota]=@totalcuota
-           ,[totalpagado]=@totalpagado
-           ,[abonoextra]=@abonoextra
-           ,[correlativo]=@correlativo
-           where [CodInv]=@CodInv 
-    "
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@fecha", SqlDbType.DateTime).Value = CDate(Coleccion(1))
-            .Add("@Periodo", SqlDbType.Int).Value = CInt(Coleccion(2))
-            .Add("@saldoinicial", SqlDbType.Float).Value = CDec(Coleccion(3))
-            .Add("@pagocuota", SqlDbType.Float).Value = CDec(Coleccion(4))
-            .Add("@pagointeresIVA", SqlDbType.Float).Value = CDec(Coleccion(5))
-            .Add("@IVAinteres", SqlDbType.Float).Value = CDec(Coleccion(6))
-            .Add("@pagointeres", SqlDbType.Float).Value = CDec(Coleccion(7))
-            .Add("@abono", SqlDbType.Float).Value = CDec(Coleccion(8))
-            .Add("@prestamoremanente", SqlDbType.Float).Value = CDec(Coleccion(9))
-            .Add("@pagodanos", SqlDbType.Float).Value = CDec(Coleccion(10))
-            .Add("@pagovivienta", SqlDbType.Float).Value = CDec(Coleccion(11))
-            .Add("@totalcuota", SqlDbType.Float).Value = CDec(Coleccion(12))
-            .Add("@totalpagado", SqlDbType.Float).Value = CDec(Coleccion(13))
-            .Add("@abonoextra", SqlDbType.Float).Value = CDec(Coleccion(14))
-            .Add("@correlativo", SqlDbType.Int).Value = CInt(Coleccion(15))
-
-        End With
-
-        cmd.Connection = cn
 
-        retorno = cmd.ExecuteNonQuery
-        cn.Dispose()
-        cn.Close()
-        Return retorno
-
-    End Function
 
 
 
@@ -724,7 +454,7 @@ Public Class PrestamoPersonalDAO
         cmd.Parameters.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
         cmd.Connection = cn
 
-        ' Dim Datos = cmd.ExecuteScalar
+
         Dim Datos = cmd.ExecuteReader
         If Datos.HasRows Then
             'SE ENCONTRO EL REGISTRO
@@ -880,50 +610,7 @@ Public Class PrestamoPersonalDAO
 
     End Sub
 
-    Public Sub EliminarDetalle(ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim res As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "DELETE FROM [dbo].[PPER1]
-      WHERE [CodInv]=@CodInv"
 
 
 
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-        cmd.Connection = cn
-
-        res = cmd.ExecuteNonQuery
-        cn.Close()
-    End Sub
-
-
-    Public Sub EliminarAmortizacion(ByVal Codigo As String)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim res As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "DELETE FROM [dbo].[PPER2]
-      WHERE [CodInv]=@CodInv "
-
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-        cmd.Connection = cn
-
-        res = cmd.ExecuteNonQuery
-        cn.Close()
-    End Sub
 End Class

DAO/RegistrosDAO.vb

@@ -1,239 +1,4 @@
 Imports System.Data.SqlClient
 Public Class RegistrosDAO
 
-
-
-
-
-
-
-    Public Function CargarInv(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a left join REP0 on REP0.CodInv=a.CodInv where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-    Public Function CargarInvLETE(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join LET0 on LET0.CodInv=a.CodInv where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-
-
-    Public Function CargarInvVCN(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join VCN on VCN.CodInv=a.CodInv where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-
-    Public Function CargarInvPBUR(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join PBUR on PBUR.CodInv=a.CodInv where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-    Public Function CargarInvPPER(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join PPER0 on PPER0.CodInv=a.CodInv right join PPER1 on PPER1.CodInv=a.CodInv right join PPER2 on PPER2.CodInv=a.CodInv  where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-
-
-    Public Function CargarInvFUTU(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join FUT0 on FUT0.CodInv=a.CodInv   where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-    Public Function CargarInvOPC(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join OPC0 on OPC0.CodInv=a.CodInv   where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-
-    Public Function CargarInvACCC(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodIF Like '%" + codigo + "%') a inner join ACC0 on ACC0.CodInv=a.CodInv    where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-        ' Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodIF Like '%" + codigo + "%') a inner join ACC0 on ACC0.CodInv=a.CodInv inner join ACC1 on ACC1.CodInv=a.CodInv   where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-
-    Public Function CargarInvPEMP(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join PEMP0 on PEMP0.CodInv=a.CodInv inner join PEMP1 on PEMP1.CodInv=a.CodInv where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-
-
-
-    Public Function CargarInvFINV(ByVal codigo As String, ByVal Ini As Integer, ByVal final As Integer)
-        Dim objCon As New Conexion
-        If (Ini = 1) Then
-            Ini = Ini - 1
-        End If
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "Select * FROM( SELECT *, ROW_NUMBER() OVER (ORDER BY CodInv)  As row FROM INV0 where CodInv Like '%" + codigo + "%') a inner join FINV on FINV.CodInv=a.CodInv inner join FINV1 on FINV1.CodInv=a.CodInv where row > " + Ini.ToString + " and row <= " + final.ToString + ""
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        Dim dr As SqlDataReader
-        dr = cmd.ExecuteReader
-
-        Return dr
-    End Function
-
-    Public Function Contador(ByVal codigo As String)
-        Dim objCon As New Conexion
-        Dim Cantidad As Integer
-        Dim sql As String
-        Dim Valor, tamaño
-        Dim cmd As SqlCommand = New SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "select count(*) from INV0 where CodInv Like '%" + codigo + "%'"
-        cmd.CommandText = sql
-        cmd.Connection = cn
-
-
-        Cantidad = cmd.ExecuteScalar
-        cn.Close()
-        Valor = Math.Round(Cantidad / 100, 0)
-        If (Cantidad > Valor) Then
-            tamaño = Valor + 1
-        Else
-            tamaño = Valor
-        End If
-        Return tamaño
-    End Function
-
-
-
-
 End Class

DAO/ReportosDAO.vb

@@ -5,12 +5,7 @@ Public Class ReportosDAO
 
     Dim Operaciones As New Operaciones
 
-    Public Function Nuevo(ByVal oReporto As ReportosCE) As Integer
-        Dim retorno As Integer
-
 
-        Return retorno
-    End Function
 
 
     Public Function ProcesoDatos(ByVal Diccionario As Dictionary(Of String, Collection), ByVal Codigo As String, ByVal Tabla As String)
@@ -367,216 +362,9 @@ Public Class ReportosDAO
 
 
 
-    Public Function Nuevo(ByVal oReporto As ReportosCE, DocId As Integer, Tipo As String) As Integer
-        Dim objCon As New Conexion
-        Dim retorno As Integer = -1
-        Dim Transaccion As SqlTransaction
-        Dim query As String
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim Tabla As String = ""
-
-
-        If Tipo = "P" Then
-            Tabla = "PREP"
-        End If
-        If Tipo = "I" Then
-            Tabla = "IREP"
-        End If
-
-        Dim cmd As SqlCommand = cn.CreateCommand
-
-        Transaccion = cn.BeginTransaction("NuevoLete")
-        cmd.Connection = cn
-        cmd.Transaction = Transaccion
-
-        query = "INSERT INTO [dbo].[PREP]
-           ([DocId]
-           ,[CodInv]           
-           ,[ValTrans]
-           ,[Dias]
-           ,[FVenc]
-           ,[Rend]
-           ,[OtrosCostos]
-           ,[TotCostos]
-           ,[MontoLiq]
-           ,[InterGen]
-           ,[CostoTransfr]
-           ,[RendNetoAntImp]
-           ,[ValReCompra]
-           ,[ImpLiquidacion]
-           ,[IngrNeto]
-           ,[ValNeto]
-           ,[RendNetoDespImp])
-     VALUES
-           (@DocId
-           ,@CodInv
-           ,@ValTrans
-           ,@Dias
-           ,@FVenc
-           ,@Rend
-           ,@OtrosCostos
-           ,@TotCostos
-           ,@MontoLiq
-           ,@InterGen
-           ,@CostoTransfr
-           ,@RendNetoAntImp
-           ,@ValReCompra
-           ,@ImpLiquidacion
-           ,@IngrNeto
-           ,@ValNeto
-           ,@RendNetoDespImp
-		   )"
-
-
-        cmd.CommandText = query
-
-        With cmd.Parameters
-            .Add("@DocId", SqlDbType.Int).Value = DocId
-            .Add("@CodInv", SqlDbType.VarChar).Value = oReporto.ValorTransado
-            .Add("@ValTrans", SqlDbType.Decimal).Value = oReporto.ValorTransado
-            .Add("@Dias", SqlDbType.Int).Value = oReporto.Dias
-            .Add("@FVenc", SqlDbType.DateTime).Value = oReporto.FechaVencimiento
-            .Add("@Rend", SqlDbType.Decimal).Value = oReporto.Rendimiento
-            .Add("@OtrosCostos", SqlDbType.Decimal).Value = oReporto.OtrosCostos
-            .Add("@TotCostos", SqlDbType.Decimal).Value = oReporto.TotalCostos
-            .Add("@MontoLiq", SqlDbType.Decimal).Value = oReporto.MontoALiquidar
-            .Add("@InterGen", SqlDbType.Decimal).Value = oReporto.InteresAGenerar
-            .Add("@CostoTransfr", SqlDbType.Decimal).Value = oReporto.CostoDeTransferencia
-            .Add("@RendNetoAntImp", SqlDbType.Decimal).Value = oReporto.RendimientoNetoAntesDeImpuestos
-            .Add("@ValReCompra", SqlDbType.Decimal).Value = oReporto.ValorReCompra
-            .Add("@ImpLiquidacion", SqlDbType.Decimal).Value = oReporto.ImpuestosLiquidacion
-            .Add("@IngrNeto", SqlDbType.Decimal).Value = oReporto.IngresoNeto
-            .Add("@ValNeto", SqlDbType.Decimal).Value = oReporto.ValorNeto
-            .Add("@RendNetoDespImp", SqlDbType.Decimal).Value = oReporto.RendimientoNetoDespuesDeImpuestos
-        End With
-
-        Try
-            cmd.ExecuteNonQuery()
-            Transaccion.Commit()
-            retorno = 0
-        Catch ex As Exception
-            MsgBox("Error al Guardar Reporto : " & ex.GetType.ToString)
-            MsgBox("Mensaje: " & ex.Message)
-            retorno = 1
-            Try
-                Transaccion.Rollback()
-                retorno = 2
-            Catch ex2 As Exception
-                MsgBox("Error en Rollback: " & ex2.GetType.ToString)
-                MsgBox("Mensaje Rollbak: " & ex2.Message)
-                retorno = 3
-            End Try
-        End Try
-
-        cmd.Dispose()
-        cn.Dispose()
-        Return retorno
-    End Function
-
-    Public Sub CargarRegistro(ByVal oReportos As ReportosCE, Tipo As String, IdRegistro As Integer)
-        Dim objCon As New Conexion
-        Dim drd As SqlDataReader
-        Dim cmd As SqlCommand
-        Dim sql As String
-        Dim Tabla As String
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        If Tipo = "P" Then
-            Tabla = "PREP"
-        End If
-        If Tipo = "I" Then
-            Tabla = "IREP"
-        End If
-
-        sql = "SELECT * FROM [dbo].[" & Tabla & "] T0 WHERE T0.[DocId]=@DocId"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@DocId", SqlDbType.Int).Value = IdRegistro
-        cmd.Connection = cn
 
-        drd = cmd.ExecuteReader
-        If drd.HasRows Then
-            'SE ENCONTRO EL REGISTRO
-            If drd.Read Then
-                oReportos.CodigoCasa = drd.Item("CodCasa")
-                oReportos.Nombre = drd.Item("Nombre")
-                oReportos.FechaDeCompra = drd.Item("FCompra")
-                oReportos.ValorTransado = drd.Item("ValTrans")
-                oReportos.Dias = drd.Item("Dias")
-                oReportos.FechaVencimiento = drd.Item("FVenc")
-                oReportos.Rendimiento = drd.Item("Rend")
-                oReportos.Impuestos = drd.Item("Impuestos")
-                oReportos.OtrosCostos = drd.Item("OtrosCostos")
-                'oReportos.TotalCostos = drd.Item("TotCostos")
-                oReportos.MontoALiquidar = drd.Item("MontoLiq")
-                'oReportos.InteresAGenerar = drd.Item("InterGen")
-                oReportos.CostoDeTransferencia = drd.Item("CostoTransfr")
-                'oReportos.RendimientoNetoAntesDeImpuestos = drd.Item("RendNetoAntImp")
-                oReportos.ValorReCompra = drd.Item("ValReCompra")
-                oReportos.ImpuestosLiquidacion = drd.Item("ImpLiquidacion")
-                'oReportos.IngresoNeto = drd.Item("IngrNeto")
-                oReportos.ValorNeto = drd.Item("ValNeto")
-                'oReportos.RendimientoNetoDespuesDeImpuestos = drd.Item("RendNetoDespImp")
-            End If
-        Else
-            'NO SE ENCONTRO EL REGISTRO
-        End If
-        drd.Close()
-        cmd.Dispose()
-        cn.Dispose()
 
 
-    End Sub
-
-    Public Function CargarRegistro(ByVal vCodigoInversion As String) As ReportosCE
-        Dim objCon As New Conexion
-        Dim oReportosCE As ReportosCE
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim drd As SqlDataReader
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        oReportosCE = New ReportosCE
-        sql = "SELECT * FROM [dbo].[REP0] T0 WHERE T0.[CodInv]=@CodInv"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = vCodigoInversion
-        cmd.Connection = cn
-
-        drd = cmd.ExecuteReader
-        If drd.HasRows Then
-            'SE ENCONTRO EL REGISTRO
-            If drd.Read Then
-                oReportosCE.CodigoInversion = vCodigoInversion
-                oReportosCE.Nombre = drd.Item("Nombre")
-                oReportosCE.FechaDeCompra = drd.Item("FCompra")
-                oReportosCE.ValorTransado = drd.Item("ValTrans")
-                oReportosCE.Dias = drd.Item("Dias")
-                oReportosCE.FechaVencimiento = drd.Item("FVenc")
-                oReportosCE.Rendimiento = drd.Item("Rend")
-            End If
-        Else
-            'NO SE ENCONTRO EL REGISTRO
-        End If
-
-        drd.Close()
-        cmd.Dispose()
-        cn.Dispose()
-
-        Return oReportosCE
-    End Function
-
 
     Public Function Nuevo(ByVal Coleccion As Collection, ByVal Codigo As String, ByVal Tabla As String)
         Dim objCon As New Conexion
@@ -735,35 +523,35 @@ Public Class ReportosDAO
 
 
         With cmd.Parameters
-                        .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                        .Add("@Nombre", SqlDbType.VarChar).Value = Coleccion(1)
-                        .Add("@FCompra", SqlDbType.DateTime).Value = Coleccion(2)
-                        .Add("@ValTrans", SqlDbType.Float).Value = Coleccion(3)
-                        .Add("@Dias", SqlDbType.Float).Value = Coleccion(4)
-                        .Add("@FVenc", SqlDbType.DateTime).Value = Coleccion(5)
-                        .Add("@Rend", SqlDbType.Float).Value = Coleccion(6)
-                        .Add("@CostoTransfr", SqlDbType.Float).Value = Coleccion(7)
-                        .Add("@codigo", SqlDbType.VarChar).Value = Coleccion(8)
-                        .Add("@ComisionCasa", SqlDbType.Decimal).Value = Coleccion(9)
-                        .Add("@ComisionBolsa", SqlDbType.Decimal).Value = Coleccion(10)
-                        .Add("@Casa", SqlDbType.VarChar).Value = Coleccion(11)
-                        .Add("@IOF", SqlDbType.Bit).Value = CByte(Coleccion(12))
+            .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
+            .Add("@Nombre", SqlDbType.VarChar).Value = Coleccion(1).ToString
+            .Add("@FCompra", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+            .Add("@ValTrans", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(3).ToString)
+            .Add("@Dias", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@FVenc", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(5).ToString)
+            .Add("@Rend", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@CostoTransfr", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+            .Add("@codigo", SqlDbType.VarChar).Value = Coleccion(8).ToString
+            .Add("@ComisionCasa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+            .Add("@ComisionBolsa", SqlDbType.Decimal).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+            .Add("@Casa", SqlDbType.VarChar).Value = Coleccion(11).ToString
+            .Add("@IOF", SqlDbType.Bit).Value = CByte(Coleccion(12))
             .Add("@Renta", SqlDbType.Bit).Value = CByte(Coleccion(13))
             .Add("@Base", SqlDbType.Int).Value = DBNull.Value
-            .Add("@ComisionCasaValor", SqlDbType.Float).Value = Coleccion(14)
-                .Add("@ComisionBolsaValor", SqlDbType.Float).Value = Coleccion(15)
-                .Add("@IOFValor", SqlDbType.Float).Value = Coleccion(16)
-                .Add("@OtrosCostos", SqlDbType.Float).Value = Coleccion(17)
-                .Add("@TotalCostos", SqlDbType.Float).Value = Coleccion(18)
-                .Add("@MontoLiq", SqlDbType.Float).Value = Coleccion(19)
-                .Add("@IntGenerar", SqlDbType.Float).Value = Coleccion(20)
-                .Add("@RendAntImp", SqlDbType.Float).Value = Coleccion(21)
-                .Add("@RendDesImp", SqlDbType.Float).Value = Coleccion(22)
-                .Add("@ImpLiq", SqlDbType.Float).Value = Coleccion(23)
-                .Add("@IngrNet", SqlDbType.Float).Value = Coleccion(24)
-            .Add("@ValorNet", SqlDbType.Float).Value = Coleccion(25)
-            .Add("@EstadoIOF", SqlDbType.Float).Value = Coleccion(24)
-            .Add("@EstadoRenta", SqlDbType.Float).Value = Coleccion(25)
+            .Add("@ComisionCasaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(14).ToString)
+            .Add("@ComisionBolsaValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(15).ToString)
+            .Add("@IOFValor", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(16).ToString)
+            .Add("@OtrosCostos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(17).ToString)
+            .Add("@TotalCostos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(18).ToString)
+            .Add("@MontoLiq", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(19).ToString)
+            .Add("@IntGenerar", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(20).ToString)
+            .Add("@RendAntImp", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(21).ToString)
+            .Add("@RendDesImp", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(22).ToString)
+            .Add("@ImpLiq", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(23).ToString)
+            .Add("@IngrNet", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(24).ToString)
+            .Add("@ValorNet", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(25).ToString)
+            .Add("@EstadoIOF", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(24).ToString)
+            .Add("@EstadoRenta", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(25).ToString)
 
 
         End With
@@ -783,172 +571,7 @@ Public Class ReportosDAO
 
 
 
-    Public Function Modificar(ByVal Coleccion As Collection, ByVal Codigo As String, ByVal Tabla As String)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-
-        If Tabla = "REP0" Then
-
-            sql = "UPDATE " + Tabla + " SET
-            [codigo]=@codigo
-            ,[Nombre]=@Nombre
-            ,[FCompra]=@FCompra
-            ,[ValTrans]=@ValTrans
-            ,[Dias]=@Dias
-            ,[FVenc]=@FVenc
-            ,[Rend]=@Rend
-            ,[CostoTransfr]=@CostoTransfr
-            ,[ComisionCasa]=@ComisionCasa
-            ,[ComisionBolsa]=@ComisionBolsa
-            ,[Casa]=@Casa
-            ,[IOF]=@IOF
-            ,[Renta]=@Renta
-            ,[Base]=@Base
-
-
-         ,[ComisionCasaValor]=@ComisionCasaValor
-            ,[ComisionBolsaValor]=@ComisionBolsaValor
-            ,[IOFValor]=@IOFValor
-            ,[OtrosCostos]=@OtrosCostos
-            ,[TotalCostos]=@TotalCostos
-            ,[MontoLiq]=@MontoLiq
-            ,[IntGenerar]=@IntGenerar
-            ,[RendAntImp]=@RendAntImp
-            ,[RendDesImp]=@RendDesImp
-            ,[ImpLiq]=@ImpLiq
-            ,[IngrNet]=@IngrNet
-            ,[ValorNet]=@ValorNet
-
-
-
-
-            where  [CodInv]=@CodInv AND ([codigo]=@codigo OR codigo is null)
-    "
-        Else
-
-            sql = "UPDATE " + Tabla + " SET
-   
-            [Monto]=@Monto
-            ,[FVenc]=@FVenc
-            ,[CostoFinanciero]=@CostoFinanciero
-            ,[Interes]=@Interes
-            ,[Bolsa]=@Bolsa
-            ,[TotPagar]=@TotPagar
-            ,[Nombre]=@Nombre
-            ,[FCompra]=@FCompra
-            ,[ComisionCasa]=@ComisionCasa
-            ,[ComisionBolsa]=@ComisionBolsa
-            ,[Casa]=@Casa
-            ,[Casa2]=@Casa2
-            ,[Dias]=@Dias
-            ,[Base]=@Base
-   where  [CodInv]=@CodInv AND ([codigo]=@codigo OR codigo is null)
-
-
-    "
-
-        End If
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        'Try
-
-        If Tabla = "REP0" Then
-
-
-            With cmd.Parameters
-                .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@Nombre", SqlDbType.VarChar).Value = Coleccion(1)
-                .Add("@FCompra", SqlDbType.DateTime).Value = Coleccion(2)
-                .Add("@ValTrans", SqlDbType.Float).Value = Coleccion(3)
-                .Add("@Dias", SqlDbType.Float).Value = Coleccion(4)
-                .Add("@FVenc", SqlDbType.DateTime).Value = Coleccion(5)
-                .Add("@Rend", SqlDbType.Float).Value = Coleccion(6)
-                .Add("@CostoTransfr", SqlDbType.Float).Value = Coleccion(7)
-                .Add("@codigo", SqlDbType.VarChar).Value = Coleccion(8)
-                .Add("@ComisionCasa", SqlDbType.Decimal).Value = Coleccion(9)
-                .Add("@ComisionBolsa", SqlDbType.Decimal).Value = Coleccion(10)
-                .Add("@Casa", SqlDbType.VarChar).Value = Coleccion(11)
-                .Add("@IOF", SqlDbType.Bit).Value = CByte(Coleccion(12))
-                .Add("@Renta", SqlDbType.Bit).Value = CByte(Coleccion(13))
-
-                If Coleccion(14) Is DBNull.Value Then
-                    '.Add("@Base", SqlDbType.Int).Value = 0
-                Else
-                    If String.IsNullOrEmpty(Coleccion(14)) Then
-                        '.Add("@Base", SqlDbType.Int).Value = 0
-                    Else
-                        '.Add("@Base", SqlDbType.Int).Value = Coleccion(14)
-                    End If
-
-                End If
-
-                .Add("@Base", SqlDbType.Int).Value = DBNull.Value
-
-
-                .Add("@ComisionCasaValor", SqlDbType.Float).Value = Coleccion(14)
-                .Add("@ComisionBolsaValor", SqlDbType.Float).Value = Coleccion(15)
-                .Add("@IOFValor", SqlDbType.Float).Value = Coleccion(16)
-                .Add("@OtrosCostos", SqlDbType.Float).Value = Coleccion(17)
-                .Add("@TotalCostos", SqlDbType.Float).Value = Coleccion(18)
-                .Add("@MontoLiq", SqlDbType.Float).Value = Coleccion(19)
-                .Add("@IntGenerar", SqlDbType.Float).Value = Coleccion(20)
-                .Add("@RendAntImp", SqlDbType.Float).Value = Coleccion(21)
-                .Add("@RendDesImp", SqlDbType.Float).Value = Coleccion(22)
-                .Add("@ImpLiq", SqlDbType.Float).Value = Coleccion(23)
-                .Add("@IngrNet", SqlDbType.Float).Value = Coleccion(24)
-                .Add("@ValorNet", SqlDbType.Float).Value = Coleccion(25)
-            End With
-
-        Else
-            With cmd.Parameters
-                .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@Monto", SqlDbType.Float).Value = Coleccion(1)
-                .Add("@FVenc", SqlDbType.Date).Value = Coleccion(2)
-                .Add("@CostoFinanciero", SqlDbType.Float).Value = Coleccion(3)
-                .Add("@Interes", SqlDbType.Float).Value = Coleccion(4)
-                .Add("@Bolsa", SqlDbType.Float).Value = Coleccion(5)
-                .Add("@TotPagar", SqlDbType.Float).Value = Coleccion(6)
-                .Add("@Nombre", SqlDbType.VarChar).Value = Coleccion(7)
-                .Add("@FCompra", SqlDbType.Date).Value = Coleccion(8)
-                .Add("@ComisionCasa", SqlDbType.Decimal).Value = Coleccion(9)
-                .Add("@ComisionBolsa", SqlDbType.Decimal).Value = Coleccion(10)
-                .Add("@Casa", SqlDbType.Float).Value = Coleccion(11)
-                .Add("@Casa2", SqlDbType.VarChar).Value = Coleccion(12)
-                .Add("@Dias", SqlDbType.Int).Value = Coleccion(13)
-                .Add("@codigo", SqlDbType.Int).Value = Coleccion(14)
-                If Coleccion(15) Is DBNull.Value Then
-                    '.Add("@Base", SqlDbType.Int).Value = 0
-                Else
-                    If String.IsNullOrEmpty(Coleccion(15)) Then
-                        '.Add("@Base", SqlDbType.Int).Value = 0
-                    Else
-                        '.Add("@Base", SqlDbType.Int).Value = Coleccion(15)
-                    End If
 
-                End If
-                .Add("@Base", SqlDbType.Int).Value = DBNull.Value
-
-            End With
-        End If
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        'Catch ex As Exception
-        '    MsgBox("Error al Modificar los registros")
-        '    Return Nothing
-        'End Try
-        cn.Close()
-        Return retorno
-
-    End Function
 
     Public Function TraerImpuesto(ByVal Codigo As String, ByVal codigoElemento As String)
         Dim objCon As New Conexion
@@ -974,7 +597,7 @@ Public Class ReportosDAO
             cmd.Parameters.Add("@codigoElemento", SqlDbType.VarChar).Value = codigoElemento
             cmd.Connection = cn
 
-            ' Dim Datos = cmd.ExecuteScalar
+
             Dim Datos = cmd.ExecuteReader
             cn.Close()
             If Datos.HasRows Then
@@ -1003,90 +626,7 @@ Public Class ReportosDAO
         End If
     End Function
 
-    Public Function AgregarImpuesto(ByVal CodigoInv As String, ByVal CodigoElemento As String, ByVal Impues As String, ByVal Flag As Integer)
-        Dim objCon As New Conexion
-        Dim retorno As Integer
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim Impuestos As String = TraerImpuesto(CodigoInv, CodigoElemento)
-        If (String.IsNullOrEmpty(Impuestos) Or Impuestos = "0") Then
-            Impuestos = Impues
-        Else
-            If (Flag = 0) Then
-
-
-                If InStr(1, Impuestos, Impues) = 0 Then
-
-                    Impuestos = Impuestos.ToString + "-" + Impues.ToString
-                End If
-            Else
-                If Not InStr(1, Impuestos, Impues) = 0 Then
-
-                    Dim QuitarImpuesto = Impuestos.Split("-")
-                    Impuestos = String.Empty
-                    For Each i In QuitarImpuesto
-
-                        If (Not i = Impues) Then
-                            If (String.IsNullOrEmpty(Impuestos)) Then
-                                Impuestos = i
-                            Else
-                                Impuestos = Impuestos + "-" + i
-                            End If
-                        End If
-                    Next
-
-
-
-                End If
-
-            End If
-        End If
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-        sql = "UPDATE [dbo].[REP0] SET
-           
-           [Impuestos]=@Impuestos
-           where [CodInv]=@CodInv and [codigo]=@codigo
-
-    "
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
 
-        With cmd.Parameters
-            .Add("@CodInv", SqlDbType.VarChar).Value = CodigoInv
-            .Add("@codigo", SqlDbType.VarChar).Value = CodigoElemento
-            .Add("@Impuestos", SqlDbType.VarChar).Value = Impuestos
-        End With
-
-        cmd.Connection = cn
-
-        retorno = cmd.ExecuteNonQuery
-
-        cn.Close()
-        Return retorno
-
-    End Function
 
     Public Function FiltroReportoVenta(ByRef FechaVenOperacion1 As String, ByRef FechaVenOperacion2 As String, ByRef Estado As String, ByRef Empresa As String, ByRef CasaCorredora As String) As DataSet
         Dim objCon As New Conexion
@@ -1114,49 +654,4 @@ Public Class ReportosDAO
         Return ds
     End Function
 
-
-    Public Function FiltroReportoCostos() As DataSet
-        Dim objCon As New Conexion
-        Dim da As New SqlDataAdapter
-        Dim ds As New DataSet
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "SP_CargarReportoCostos"
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        cmd.CommandType = CommandType.StoredProcedure
-
-        da = New SqlDataAdapter(cmd)
-
-        da.Fill(ds)
-        cn.Close()
-        Return ds
-    End Function
-
-    Public Function ReportoVentaFondo(ByRef Vigente As String, ByRef Vencido As String) As DataTable
-        Dim objCon As New Conexion
-        Dim da As New SqlDataAdapter
-        Dim ds As New DataSet
-
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        Dim sql = "SP_CargarReportoVentaFondo"
-
-
-        Dim cmd As New SqlCommand(sql, cn)
-        cmd.CommandType = CommandType.StoredProcedure
-        cmd.Parameters.Add("@Vigente", SqlDbType.VarChar).Value = Vigente
-        cmd.Parameters.Add("@Vencido", SqlDbType.VarChar).Value = Vencido
-
-        da = New SqlDataAdapter(cmd)
-
-        da.Fill(ds)
-        cn.Close()
-        Return ds.Tables(0)
-    End Function
 End Class

DAO/SeriesDAO.vb

@@ -193,40 +193,10 @@ Public Module SeriesDAO
             Return (vCodigoEmpresa + vCodigoInstrumentoFinanciero + Codigo)
         End If
 
-        '  cmd.CommandType = CommandType.StoredProcedure
 
-        '.Parameters.Add("@vCodEmpresa", SqlDbType.VarChar).Value = vCodigoEmpresa
-        'cmd.Parameters.Add("@vCodigoIF", SqlDbType.VarChar).Value = vCodigoInstrumentoFinanciero
 
 
 
     End Function
-    Public Sub IncrementarCodigoInversion(ByVal vCodigoEmpresa As String, ByVal vCodigoInstrumentoFinanciero As String)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-
-        Dim res As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "UPDATE [dbo].[SER0]
-   SET [Correlativo] = [Correlativo]+1
- WHERE [CodEmpr] = @CodEmpr AND [CodIF] = @CodIF"
-
-
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodEmpr", SqlDbType.VarChar).Value = vCodigoEmpresa
-        cmd.Parameters.Add("@CodIF", SqlDbType.VarChar).Value = vCodigoInstrumentoFinanciero
-        cmd.Connection = cn
-
-        res = cmd.ExecuteNonQuery
-
-        cmd.Dispose()
-        cn.Dispose()
-
 
-    End Sub
 End Module

DAO/TitularizacionDAO.vb

@@ -2,7 +2,7 @@
 
 Public Class TitularizacionDAO
 
-
+    Dim Operaciones As New Operaciones
 
 
 
@@ -71,11 +71,10 @@ Public Class TitularizacionDAO
 
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@FechaEmision", SqlDbType.DateTime).Value = Coleccion(1)
-                .Add("@Tasa", SqlDbType.Float).Value = Coleccion(2)
-                .Add("@MontoCompra", SqlDbType.Float).Value = Coleccion(3)
-
-                .Add("@MontoCompraPrimario", SqlDbType.Float).Value = Coleccion(4)
+                .Add("@FechaEmision", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(1).ToString)
+                .Add("@Tasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(2).ToString)
+                .Add("@MontoCompra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(3).ToString)
+                .Add("@MontoCompraPrimario", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
 
 
             End With
@@ -155,15 +154,15 @@ Public Class TitularizacionDAO
 
                     With cmd.Parameters
                         .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                        .Add("@Correlativo", SqlDbType.Float).Value = Coleccion2(1)
-                        .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion2(2)
-                        .Add("@Dias", SqlDbType.Int).Value = Coleccion2(3)
-                        .Add("@Cuota", SqlDbType.Float).Value = Coleccion2(4)
-                        .Add("@AmortCap", SqlDbType.Float).Value = Coleccion2(5)
-                        .Add("@Interes", SqlDbType.Float).Value = Coleccion2(6)
-                        .Add("@Saldos", SqlDbType.Float).Value = Coleccion2(7)
-                        .Add("@Porcentaje ", SqlDbType.Float).Value = Coleccion2(8)
-                        .Add("@Vigente", SqlDbType.VarChar).Value = Coleccion2(9)
+                        .Add("@Correlativo", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(1).ToString)
+                        .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion2(2).ToString)
+                        .Add("@Dias", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion2(3).ToString)
+                        .Add("@Cuota", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(4).ToString)
+                        .Add("@AmortCap", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(5).ToString)
+                        .Add("@Interes", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(6).ToString)
+                        .Add("@Saldos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(7).ToString)
+                        .Add("@Porcentaje ", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion2(8).ToString)
+                        .Add("@Vigente", SqlDbType.VarChar).Value = Coleccion2(9).ToString
 
                     End With
                     retorno = cmd.ExecuteNonQuery
@@ -293,18 +292,18 @@ Public Class TitularizacionDAO
 
         With cmd.Parameters
             .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@EmisTotal", SqlDbType.Float).Value = Coleccion(1)
-            .Add("@FechaEmision", SqlDbType.DateTime).Value = Coleccion(2)
-            .Add("@Tasa", SqlDbType.Float).Value = Coleccion(3)
-            .Add("@Periodicidad", SqlDbType.Int).Value = Coleccion(4)
-            .Add("@Periodos", SqlDbType.Int).Value = Coleccion(5)
-            .Add("@MontoCompra", SqlDbType.Float).Value = Coleccion(6)
-            .Add("@MontoCompraPrimario", SqlDbType.Float).Value = Coleccion(7)
-            .Add("@CS1", SqlDbType.Float).Value = Coleccion(8)
-            .Add("@CS2", SqlDbType.Float).Value = Coleccion(9)
-            .Add("@CS3", SqlDbType.Float).Value = Coleccion(10)
-            .Add("@CS4", SqlDbType.Float).Value = Coleccion(11)
-            .Add("@CS5", SqlDbType.Float).Value = Coleccion(12)
+            .Add("@EmisTotal", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(1).ToString)
+            .Add("@FechaEmision", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+            .Add("@Tasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(3).ToString)
+            .Add("@Periodicidad", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(4).ToString)
+            .Add("@Periodos", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(5).ToString)
+            .Add("@MontoCompra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@MontoCompraPrimario", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+            .Add("@CS1", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(8).ToString)
+            .Add("@CS2", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+            .Add("@CS3", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+            .Add("@CS4", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(11).ToString)
+            .Add("@CS5", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(12).ToString)
 
         End With
 
@@ -362,18 +361,19 @@ Public Class TitularizacionDAO
 
         With cmd.Parameters
             .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@EmisTotal", SqlDbType.Float).Value = Coleccion(1)
-            .Add("@FechaEmision", SqlDbType.DateTime).Value = Coleccion(2)
-            .Add("@Tasa", SqlDbType.Float).Value = Coleccion(3)
-            .Add("@Periodicidad", SqlDbType.Int).Value = Coleccion(4)
-            .Add("@Periodos", SqlDbType.Int).Value = Coleccion(5)
-            .Add("@MontoCompra", SqlDbType.Float).Value = Coleccion(6)
-            .Add("@MontoCompraPrimario", SqlDbType.Float).Value = Coleccion(7)
-            .Add("@CS1", SqlDbType.Float).Value = Coleccion(8)
-            .Add("@CS2", SqlDbType.Float).Value = Coleccion(9)
-            .Add("@CS3", SqlDbType.Float).Value = Coleccion(10)
-            .Add("@CS4", SqlDbType.Float).Value = Coleccion(11)
-            .Add("@CS5", SqlDbType.Float).Value = Coleccion(12)
+            .Add("@EmisTotal", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(1).ToString)
+            .Add("@FechaEmision", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+            .Add("@Tasa", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(3).ToString)
+            .Add("@Periodicidad", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(4).ToString)
+            .Add("@Periodos", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(5).ToString)
+            .Add("@MontoCompra", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@MontoCompraPrimario", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+            .Add("@CS1", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(8).ToString)
+            .Add("@CS2", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(9).ToString)
+            .Add("@CS3", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(10).ToString)
+            .Add("@CS4", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(11).ToString)
+            .Add("@CS5", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(12).ToString)
+
 
         End With
 
@@ -486,13 +486,13 @@ Public Class TitularizacionDAO
 
         With cmd.Parameters
             .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-            .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(2)
-            .Add("@CSFlujo", SqlDbType.Float).Value = Coleccion(3)
-            .Add("@AmortCap", SqlDbType.Float).Value = Coleccion(4)
-            .Add("@Interes", SqlDbType.Float).Value = Coleccion(5)
-            .Add("@Amort", SqlDbType.Float).Value = Coleccion(6)
-            .Add("@Saldos", SqlDbType.Float).Value = Coleccion(7)
+            .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+            .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+            .Add("@CSFlujo", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(3).ToString)
+            .Add("@AmortCap", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@Interes", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+            .Add("@Amort", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@Saldos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
 
         End With
 
@@ -545,13 +545,14 @@ Public Class TitularizacionDAO
 
         With cmd.Parameters
             .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-            .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-            .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(2)
-            .Add("@CSFlujo", SqlDbType.Float).Value = Coleccion(3)
-            .Add("@AmortCap", SqlDbType.Float).Value = Coleccion(4)
-            .Add("@Interes", SqlDbType.Float).Value = Coleccion(5)
-            .Add("@Amort", SqlDbType.Float).Value = Coleccion(6)
-            .Add("@Saldos", SqlDbType.Float).Value = Coleccion(7)
+            .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+            .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+            .Add("@CSFlujo", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(3).ToString)
+            .Add("@AmortCap", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+            .Add("@Interes", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+            .Add("@Amort", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+            .Add("@Saldos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+
 
         End With
 
@@ -565,31 +566,9 @@ Public Class TitularizacionDAO
 
     End Function
 
-    Public Sub EliminarAmortCap(ByVal Codigo As String, ByVal correlativo As Integer)
-        Dim objCon As New Conexion
-        Dim sql As String
-        Dim cmd As SqlCommand
-        Dim res As Integer
-        Dim cn As SqlConnection = objCon.Conectar
-        If cn.State = ConnectionState.Closed Then
-            cn.Open()
-        End If
-        sql = "DELETE FROM [dbo].[TIT1]
-      WHERE [CodInv]=@CodInv AND Correlativo=@Correlativo"
 
 
 
-        cmd = New SqlCommand
-        cmd.CommandText = sql
-        cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-        cmd.Parameters.Add("@Correlativo", SqlDbType.Int).Value = correlativo
-        cmd.Connection = cn
-
-        res = cmd.ExecuteNonQuery
-        cn.Close()
-    End Sub
-
-
 
 
 
@@ -638,14 +617,14 @@ Public Class TitularizacionDAO
 
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-                .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(2)
-                .Add("@Dias", SqlDbType.Int).Value = Coleccion(3)
-                .Add("@Cuota", SqlDbType.Float).Value = Coleccion(4)
-                .Add("@AmortCap", SqlDbType.Float).Value = Coleccion(5)
-                .Add("@Interes", SqlDbType.Float).Value = Coleccion(6)
-                .Add("@Saldos", SqlDbType.Float).Value = Coleccion(7)
-                .Add("@Porcentaje ", SqlDbType.Float).Value = Coleccion(8)
+                .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+                .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@Dias", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(3).ToString)
+                .Add("@Cuota", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@AmortCap", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+                .Add("@Interes", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+                .Add("@Saldos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+                .Add("@Porcentaje ", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(8).ToString)
 
             End With
 
@@ -716,14 +695,15 @@ Public Class TitularizacionDAO
 
             With cmd.Parameters
                 .Add("@CodInv", SqlDbType.VarChar).Value = Codigo
-                .Add("@Correlativo", SqlDbType.Int).Value = Coleccion(1)
-                .Add("@Fecha", SqlDbType.DateTime).Value = Coleccion(2)
-                .Add("@Dias", SqlDbType.Int).Value = Coleccion(3)
-                .Add("@Cuota", SqlDbType.Float).Value = Coleccion(4)
-                .Add("@AmortCap", SqlDbType.Float).Value = Coleccion(5)
-                .Add("@Interes", SqlDbType.Float).Value = Coleccion(6)
-                .Add("@Saldos", SqlDbType.Float).Value = Coleccion(7)
-                .Add("@Porcentaje ", SqlDbType.Float).Value = Coleccion(8)
+                .Add("@Correlativo", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(1).ToString)
+                .Add("@Fecha", SqlDbType.DateTime).Value = Operaciones.ConvertirFecha(Coleccion(2).ToString)
+                .Add("@Dias", SqlDbType.Int).Value = Operaciones.ConvertirEntero(Coleccion(3).ToString)
+                .Add("@Cuota", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(4).ToString)
+                .Add("@AmortCap", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(5).ToString)
+                .Add("@Interes", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(6).ToString)
+                .Add("@Saldos", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(7).ToString)
+                .Add("@Porcentaje ", SqlDbType.Float).Value = Operaciones.ConvertirDecimal(Coleccion(8).ToString)
+
 
             End With
 

DAO/frmRendimientos.vb

@@ -2,7 +2,7 @@
 
 Public Class Rendimientos
 
-
+    Dim Operaciones As New Operaciones
 
 
     Public Function TraerRendimientos(ByVal TipoFecha As String, ByVal FechaInicial As Date, ByVal FechaFinal As Date, ByVal Empresa As String, ByVal Instrumento As String, ByVal Renta As String, ByVal Lugar As String, ByVal Vigencia As String, ByVal AutEstado As String, ByVal Fecha As Date, Lista As String) As DataTable
@@ -34,15 +34,15 @@ Public Class Rendimientos
 
         Dim cmd As New SqlCommand(sql, cn)
         cmd.CommandType = CommandType.StoredProcedure
-        cmd.Parameters.Add("@FechaInicial", SqlDbType.Date).Value = FechaInicial
-        cmd.Parameters.Add("@FechaFinal", SqlDbType.Date).Value = FechaFinal
+        cmd.Parameters.Add("@FechaInicial", SqlDbType.Date).Value = Operaciones.ConvertirFecha(FechaInicial.ToString)
+        cmd.Parameters.Add("@FechaFinal", SqlDbType.Date).Value = Operaciones.ConvertirFecha(FechaFinal.ToString)
         cmd.Parameters.Add("@Empresa", SqlDbType.VarChar).Value = Empresa
         cmd.Parameters.Add("@Instrumento ", SqlDbType.VarChar).Value = Instrumento
         cmd.Parameters.Add("@TipoRenta", SqlDbType.VarChar).Value = Renta
         cmd.Parameters.Add("@Nacionalidad", SqlDbType.VarChar).Value = Lugar
         cmd.Parameters.Add("@Vigencia", SqlDbType.VarChar).Value = Vigencia
         cmd.Parameters.Add("@Estado", SqlDbType.VarChar).Value = AutEstado
-        cmd.Parameters.Add("@Fecha", SqlDbType.Date).Value = Fecha
+        cmd.Parameters.Add("@Fecha", SqlDbType.Date).Value = Operaciones.ConvertirFecha(Fecha.ToString)
         cmd.Parameters.Add("@TipoFecha", SqlDbType.VarChar).Value = TipoFecha
         cmd.Parameters.Add("@ConAgrupacion", SqlDbType.VarChar).Value = ConAgrupacion
         cmd.Parameters.Add("@Lista", SqlDbType.VarChar).Value = Lista
@@ -177,8 +177,8 @@ Public Class Rendimientos
         Dim sql = "[dbo].[SP_CargarRendimientoDiario]"
         Dim cmd As New SqlCommand(sql, cn)
         cmd.CommandType = CommandType.StoredProcedure
-        cmd.Parameters.Add("@FechaInicial", SqlDbType.Date).Value = FechaInicial
-        cmd.Parameters.Add("@FechaFinal", SqlDbType.Date).Value = FechaFinal
+        cmd.Parameters.Add("@FechaInicial", SqlDbType.Date).Value = Operaciones.ConvertirFecha(FechaInicial.ToString)
+        cmd.Parameters.Add("@FechaFinal", SqlDbType.Date).Value = Operaciones.ConvertirFecha(FechaFinal.ToString)
         cmd.Parameters.Add("@TipoRendimiento", SqlDbType.VarChar).Value = TipoRendimiento
 
 

ENTI/AccionesCE.vb

@@ -12,7 +12,6 @@ Public Class AccionesCE
     Private _IngresoNeto As Double
     Dim Operaciones As New Operaciones
     Private _IngresoNetoPendiente As Double
-    'Private _Dividendos As New AccionesDetalleCE
     Private _dtImpuestosYComisiones As DataTable
     Private _dtDividendos As DataTable
     Private _TipoInstrumento As String = "ACC"
@@ -36,24 +35,9 @@ Public Class AccionesCE
     Private _ComisionPorcentajeVentaCasa As Double = 0
     Private _ComisionPorcentajeVentaBolsa As Double = 0
     Private _MontoNetoComprasus As Double = 0
-    Public ReadOnly Property TipoInstrumento As String
-        Get
-            Return _TipoInstrumento
-        End Get
-    End Property
-    Public Property DescripcionTipoInstrumento As String
-        Get
-            Return _DescripcionTipoInstrumento
-        End Get
-        Set(value As String)
-            _DescripcionTipoInstrumento = value
-        End Set
-    End Property
-    Public ReadOnly Property Registro As DataTable
-        Get
-            Return _Registro
-        End Get
-    End Property
+
+
+
 
 
 
@@ -126,63 +110,7 @@ Public Class AccionesCE
             _FactorDeDividendo = value
         End Set
     End Property
-    Public Property IngresoBruto As Double
-        Get
-            Return _IngresoBruto
-        End Get
-        Set(value As Double)
-            _IngresoBruto = value
-            CalcularRetornoAnualBrutoVenta()
-
-        End Set
-    End Property
-    Public Property IngresoBrutoPendiente As Double
-        Get
-            Return _IngresoBrutoPendiente
-        End Get
-        Set(value As Double)
-            _IngresoBrutoPendiente = value
-            CalcularRetornoAnualBrutoVenta()
-
-        End Set
-    End Property
-    Public Property ISR As Double
-        Get
-            Return _ISR
-        End Get
-        Set(value As Double)
-            _ISR = value
-        End Set
-    End Property
 
-    Public Property ISRPendiente As Double
-        Get
-            Return _ISRPendiente
-        End Get
-        Set(value As Double)
-            _ISRPendiente = value
-        End Set
-    End Property
-    Public Property IngresoNeto As Double
-        Get
-            Return _IngresoNeto
-        End Get
-        Set(value As Double)
-            _IngresoNeto = value
-            CalcularRetornoAnualNetoVenta()
-
-        End Set
-    End Property
-    Public Property IngresoNetoPendiente As Double
-        Get
-            Return _IngresoNetoPendiente
-        End Get
-        Set(value As Double)
-            _IngresoNetoPendiente = value
-            CalcularRetornoAnualNetoVenta()
-
-        End Set
-    End Property
     Public Property ImpuestosYComisiones As DataTable
         Get
             Return _dtImpuestosYComisiones
@@ -193,16 +121,7 @@ Public Class AccionesCE
 
         End Set
     End Property
-    Public Property Dividendos As DataTable
-        Get
-            Return _dtDividendos
-        End Get
-        Set(value As DataTable)
-            _dtDividendos = value
-            CalcularSumasDividendos()
 
-        End Set
-    End Property
 
 
 
@@ -704,7 +623,7 @@ Public Class AccionesCE
         CalcularGananciaDeCapitalTotalVenta()
         CalcularRetornoAnualBrutoVenta()
         CalcularRetornoAnualNetoVenta()
-        CalcularSumasDividendos()
+
 
     End Sub
     Private Sub CalcularPrecioSucioCompra()
@@ -729,7 +648,6 @@ Public Class AccionesCE
         _DiasDeTenenciaVenta = valor
         CalcularRetornoAnualBrutoVenta()
         CalcularRetornoAnualNetoVenta()
-        CalcularSumasDividendos()
 
     End Sub
     Private Sub CalcularValorTransadoVenta()
@@ -747,7 +665,7 @@ Public Class AccionesCE
         CalcularGananciaDeCapitalUnitarioVenta()
         CalcularRetornoAnualBrutoVenta()
         CalcularRetornoAnualNetoVenta()
-        CalcularSumasDividendos()
+
 
     End Sub
     Private Sub CalcularGananciaDeCapitalUnitarioVenta()
@@ -802,24 +720,7 @@ Public Class AccionesCE
         CalcularMontoNetoCompra()
         CalcularMontoNetoVenta()
     End Sub
-    Private Sub CalcularSumasDividendos()
-        'If Not Double.TryParse(_dtDividendos.Compute("SUM(IngresoBruto)", "").ToString, _IngresoBruto) Then
-        '    _IngresoBruto = 0
-        'End If
-
-        'If Not Double.TryParse(_dtDividendos.Compute("SUM(ISR)", "").ToString, _ISR) Then
-        '    _ISR = 0
-        'End If
-
-        'If Not Double.TryParse(_dtDividendos.Compute("SUM(IngresoNeto)", "").ToString, _IngresoNeto) Then
-        '    _IngresoNeto = 0
-        'End If
-
-
-    End Sub
-    Private Sub PrepararRegistro()
 
-    End Sub
 
 
 

ENTI/BonosCE.vb

@@ -24,29 +24,7 @@
         End Get
     End Property
 
-    Public Property CodigoEmpresa As String
-        Get
-            Return _CodigoEmpresa
-        End Get
-        Set(value As String)
-            _CodigoEmpresa = value
-        End Set
-    End Property
-    Public ReadOnly Property SumaIngresos As Double
-        Get
-            Return _SumaIngresos
-        End Get
-    End Property
-    Public ReadOnly Property SumaImpuestosIngresos As Double
-        Get
-            Return _SumaImpuestosIngresos
-        End Get
-    End Property
-    Public ReadOnly Property SumaliquidoIngresos As Double
-        Get
-            Return _SumaliquidoIngresos
-        End Get
-    End Property
+
     Public Property Ingresos As DataTable
         Get
             Return _dtIngresos
@@ -57,7 +35,6 @@
     End Property
 
     Private _PeriodicidadCompra As String
-    'Private _CodigoCasaCompra As String
     Private _ValorNominalCompra As Double
     Private _UltimaFechaCuponCompra As Date
     Private _SiguienteFechaCuponCompra As Date
@@ -80,7 +57,7 @@
     Private _SumaImpuestosyComisionesCompra As Double
 
 
-    'Private _CodigoCasaVenta As String
+
     Private _ValorNominalVenta As Double
     Private _UltimaFechaCuponVenta As Date
     Private _SiguienteFechaCuponVenta As Date
@@ -94,7 +71,6 @@
     Private _DiasBaseVenta As Integer
     Private _DiasAcumuladosVenta As Integer
     Private _DiasAlVencimientoVenta As Integer
-    'Private _PorcentajeInteresAcumuladoVenta As Double
     Private _InteresAcumuladoVenta As Double
     Private _InteresAcumuladoPorcentajeVenta As Double
     Private _PrecioSucioVenta As Double
@@ -121,30 +97,8 @@
     Private _RendimientoAntesImpuestos As Double
     Private _RendimientoDespuesImpuestos As Double
 
-    Public Property CodigoInversion As String
-        Get
-            Return _CodigoInversion
-        End Get
-        Set(value As String)
-            _CodigoInversion = value
-        End Set
-    End Property
-    Public Property DocumentoBase As String
-        Get
-            Return _DocumentoBase
-        End Get
-        Set(value As String)
-            _DocumentoBase = value
-        End Set
-    End Property
-    Public Property TipoBase As String
-        Get
-            Return _TipoBase
-        End Get
-        Set(value As String)
-            _TipoBase = value
-        End Set
-    End Property
+
+
     Public Property ImpuestosYComisiones As DataTable
         Get
             Return _dtImpuestosYComisiones
@@ -155,15 +109,7 @@
 
         End Set
     End Property
-    Public Property SumaImpuestosYComisionesVenta As Double
-        Get
-            Return _SumaImpuestosYComisionesVenta
-        End Get
-        Set(value As Double)
-            _SumaImpuestosYComisionesVenta = value
 
-        End Set
-    End Property
 
     'COMPRA
     Public Property PeriodicidadCompra As String
@@ -242,11 +188,7 @@
 
         End Set
     End Property
-    Public ReadOnly Property PorcentajeCuponCompra_x100 As Double
-        Get
-            Return _PorcentajeCuponCompra * 100
-        End Get
-    End Property
+
     Public ReadOnly Property YTMAlVencimientoComisionCompra As Double
         Get
             Return _YTMAlVencimientoComisionCompra
@@ -342,12 +284,7 @@
 
         End Set
     End Property
-    Public ReadOnly Property SumaImpuestosyComisionesCompra As Double
-        Get
-            Return _SumaImpuestosyComisionesCompra
-        End Get
 
-    End Property
 
     'VENTA
 
@@ -426,9 +363,7 @@
         Get
             Return _YTMAlVencimientoVenta
         End Get
-        'Set(value As Double)
-        '    _YTMAlVencimientoVenta = value
-        'End Set
+
     End Property
     Public Property PrecioAlVencimientoVenta As Double
         Get
@@ -477,11 +412,7 @@
             Return _DiasAlVencimientoVenta
         End Get
     End Property
-    'Public ReadOnly Property PorcentajeInteresAcumuladoVenta As Double
-    '    Get
-    '        Return _PorcentajeInteresAcumuladoVenta
-    '    End Get
-    'End Property
+
 
     Public ReadOnly Property InteresAcumuladoVenta As Double
         Get
@@ -591,17 +522,7 @@
         End Get
 
     End Property
-    Public Property PeriodicidadVenta As String
-        Get
-            Return _PeriodicidadVenta
-        End Get
-        Set(value As String)
-            _PeriodicidadVenta = value
-            CalcularYTMAlVencimientoVenta()
-            CalcularInteresAcumuladoPorcentajeVenta()
 
-        End Set
-    End Property
 
     Public Sub New()
         _ValorNominalCompra = 0
@@ -658,7 +579,7 @@
             valor = 0
         End Try
         _InteresAcumuladoCompra = valor
-        'CalcularDiasAcumuladosCompra()
+
         CalcularPorcentajeInteresAcumuladoCompra()
         CalcularMontoAPagarCompra()
     End Sub
@@ -734,19 +655,12 @@
         valor = _UltimaFechaCuponVenta.AddDays(vDiasPeriodo + 1)
         _SiguienteFechaCuponVenta = valor
     End Sub
-    Private Sub CalcularFechaLiquidacionVenta()
-        Dim valor As Date
-
-        valor = DateTime.Now.Date + DateTime.Now.AddDays(3)
-        _FechaLiquidacionVenta = valor
 
-    End Sub
     Private Sub CalcularYTMAlVencimientoComisionVenta()
         Dim valor As Double
 
         Try
             valor = _YTMAlVencimientoVenta - (_PorcentajeComisionCasaVenta * _DiasBaseVenta / _DiasAlVencimientoVenta) - (_PorcentajeComisionBolsaVenta * _DiasBaseVenta / _DiasAlVencimientoVenta)
-            'valor = valor * 100
         Catch ex As Exception
             valor = 0
         End Try
@@ -871,20 +785,7 @@
         CalcularRendimientoGananciaPerdida()
 
     End Sub
-    Private Sub CalcularIngresoPorInteres()
-        Dim valor As Double
-        'Dim vCuponesPagados As Double = 0 'FALTA VALOR
-        'Dim vInteresAcumulado As Double = GetInteresAcumuladoCompra()
-
-        'valor = vCuponesPagados + vInteresAcumulado
-        valor = 0
-
-        _IngresoPorInteres = valor
-        CalcularGananciaPerdidaTotal()
-        CalcularRendimientoDeIntereses()
-
 
-    End Sub
     Private Sub CalcularGananciaPerdidaTotal()
         Dim valor As Double
         valor = _GananciaPerdidaDeCapital + _IngresoPorInteres
@@ -897,7 +798,6 @@
         Dim valor As Double
         Try
             valor = _GananciaPerdidaDeCapital / _ValorTransadoCompra * _DiasBaseCompra / _DiasPlazoRO
-            'valor = valor * 100
         Catch ex As Exception
             valor = 0
         End Try
@@ -908,7 +808,6 @@
         Dim valor As Double
         Try
             valor = _IngresoPorInteres / _ValorTransadoCompra * _DiasBaseCompra / _DiasPlazoRO
-            'valor = valor * 100
         Catch ex As Exception
             valor = 0
         End Try
@@ -928,41 +827,11 @@
     End Sub
 
 
-    Private Sub CalcularSiguienteFechaCuponCompra()
-        Dim valor As Date
-        Dim vUltimaFechCupon As Date = _UltimaFechaCuponCompra
-        Dim vPeriodicidad As String = _PeriodicidadCompra
-        Dim vDiasPeriodo As Integer = Utilidades.DiasDeUnPeriodo(vPeriodicidad)
 
-        valor = vUltimaFechCupon.AddDays(vDiasPeriodo + 1)
 
-        _SiguienteFechaCuponCompra = valor
-    End Sub
-    Private Sub CalcularSumaImpuestosyComisionesCompra()
-        _SumaImpuestosyComisionesCompra = 0
-    End Sub
-    'Private Sub CalcularPorcentajeInteresAcumuladoVenta()
-    '    Dim valor As Double
-
-    '    Try
-    '        valor = _ValorNominalVenta * _PorcentajeCuponVenta * _DiasAcumuladosVenta / _DiasBaseVenta
-    '    Catch ex As Exception
-    '        valor = 0
-    '    End Try
-    '    _PorcentajeInteresAcumuladoVenta = valor
-    '    CalcularPrecioSucioVenta()
-
-    'End Sub
-    Private Sub CalcularComisionBolsaVenta()
-        _ComisionBolsaVenta = 0
-        CalcularMontoARecibirVenta()
 
-    End Sub
-    Private Sub CalcularComisionCasaVenta()
-        _ComisionCasaVenta = 0
-        CalcularMontoARecibirVenta()
 
-    End Sub
+
     Private Sub CalcularSumaImpuestosyComisiones()
         If Not Double.TryParse(_dtImpuestosYComisiones.Compute("SUM(MontoImp)", "TipoOper='C'").ToString, _SumaImpuestosyComisionesCompra) Then
             _SumaImpuestosyComisionesCompra = 0
@@ -973,18 +842,7 @@
         End If
 
     End Sub
-    Private Sub CalcularSumasIngresos()
-        If Not Double.TryParse(_dtIngresos.Compute("SUM(Ingreso)", "").ToString, _SumaIngresos) Then
-            _SumaIngresos = 0
-        End If
-        If Not Double.TryParse(_dtIngresos.Compute("SUM(MontoImpuesto)", "").ToString, _SumaImpuestosIngresos) Then
-            _SumaImpuestosIngresos = 0
-        End If
-        If Not Double.TryParse(_dtIngresos.Compute("SUM(Liquido)", "").ToString, _SumaliquidoIngresos) Then
-            _SumaliquidoIngresos = 0
-        End If
 
-    End Sub
     Private Sub CalcularYTMAlVencimientoCompra()
 
         Dim vRedemption As Double = (_PrecioAlVencimientoCompra * 100) 'Amortizacion,Precio al vencimiento
@@ -1008,42 +866,7 @@
 
     End Sub
 
-    Public Function CalcularYTMAl(ByVal PrecioVencimiento As Double, ByVal PorcentajeCupon As Double, ByVal PrecioCompra As Double, ByVal DiasAcumulados As Integer, ByVal Periodicidad As String, ByVal DiasVencimiento As Integer)
 
-        'Dim vRedemption As Double = (PrecioVencimiento * 100) 'Amortizacion,Precio al vencimiento
-        'Dim vRate As Double = PorcentajeCupon 'Porcentaje de cupon, tasa
-        'Dim vFrecuency As Integer = 0 'For annual payments, frequency = 1; for semiannual, frequency = 2; for quarterly, frequency = 4.
-        'Dim vPar As Double = (PrecioCompra * 100) 'Precio de Compra
-        'Dim vA As Integer = DiasAcumulados 'Dias Acumulados
-        'Dim vE As Integer = Utilidades.DiasDeUnPeriodo(Periodicidad) 'número de días en el período del cupón.
-        'Dim vDSR As Integer = DiasVencimiento 'número de días desde la fecha de liquidación hasta la fecha de amortización.
-        'Dim Vencimiento
-        'If vA = 0 Then vA = 1
-        Dim vFrecuency As Integer
-        If Periodicidad = "A" Then vFrecuency = 1
-        If Periodicidad = "S" Then vFrecuency = 2
-        If Periodicidad = "T" Then vFrecuency = 4
-
-        Dim vRedemption As Double = PrecioVencimiento 'Amortizacion,Precio al vencimiento
-        Dim vRate As Double = PorcentajeCupon 'Porcentaje de cupon, tasa
-        'Dim vFrecuency As Integer =  'For annual payments, frequency = 1; for semiannual, frequency = 2; for quarterly, frequency = 4.
-        Dim vPar As Double = PrecioCompra   'Precio de Compra
-        Dim vA As Integer = DiasAcumulados 'Dias Acumulados
-        Dim vE As Integer = Utilidades.DiasDeUnPeriodo(Periodicidad)  'número de días en el período del cupón.
-        Dim vDSR As Integer = DiasVencimiento 'número de días desde la fecha de liquidación hasta la fecha de amortización.
-        Dim Vencimiento
-        'If vA = 0 Then vA = 1
-
-
-        Vencimiento = (vRedemption / 100) + (vRate / vFrecuency)
-        Vencimiento = Vencimiento - ((vPar / 100) + ((vA / vE) * (vRate / vFrecuency)))
-        Vencimiento = Vencimiento / ((vPar / 100) + ((vA / vE) * (vRate / vFrecuency)))
-        Vencimiento = Vencimiento * ((vFrecuency * vE) / vDSR)
-
-        'Dim pr = (vRedemption / (1 + Vencimiento / vFrecuency) ^ (50 - 1 + (vDSR / vE))) + (100 * (vRate / vFrecuency)) / (1 + (Vencimiento / vFrecuency)) ^ (vDSR / vE) - (100 * (vRate / vFrecuency) * vA / vE)
-
-        Return Vencimiento
-    End Function
 
     Public Function CalcularYTMComision(ByVal YTMVen As Double, ByVal ComisionCasa As Double, ByVal DiasVencimiento As Integer, ByVal ComisionBolsa As Double, ByVal Fecha1 As Date, ByVal Fecha2 As Date, ByVal IndexBase As Integer)
         Dim Valor As Double = 0.0
@@ -1118,24 +941,6 @@
                 Return Valor
 
             End If
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
         End If
 
 

ENTI/CEPropuestaInversion.vb

@@ -93,11 +93,7 @@
             ObtenerTipoIF()
         End Set
     End Property
-    Public ReadOnly Property TipoInstrumentoFinanciero As String
-        Get
-            Return _TipoIF
-        End Get
-    End Property
+
     Public Property CodigoEmpresa As String
         Get
             If _CodigoEmpresa Is Nothing Then Return String.Empty Else Return _CodigoEmpresa
@@ -158,14 +154,7 @@
 
 
 
-    Public Property IdProInv As Integer
-        Get
-            Return _IdProInv
-        End Get
-        Set(value As Integer)
-            _IdProInv = value
-        End Set
-    End Property
+
 
 
     Public Property IdFlujo As Integer
@@ -309,14 +298,7 @@
         End Set
     End Property
 
-    Public Property DocumentoBase As Integer
-        Get
-            Return _DocumentoBase
-        End Get
-        Set(value As Integer)
-            _DocumentoBase = value
-        End Set
-    End Property
+
     Public Property FechaDocumento As Date
         Get
             Return _FechaDocumento

ENTI/DepositosAPlazoCE.vb

@@ -81,14 +81,7 @@
             CalcularRendimientoNeto()
         End Set
     End Property
-    Public Property AnioBase As Integer
-        Get
-            Return _AnioBase
-        End Get
-        Set(value As Integer)
-            _AnioBase = value
-        End Set
-    End Property
+
     Public Property Periodicidad As String
         Get
             Return _Periodicidad
@@ -109,30 +102,8 @@
         End Get
 
     End Property
-    Public Property IngresoBruto As Double
-        Get
-            Return _IngresoBruto
-        End Get
-        Set(value As Double)
-            _IngresoBruto = value
-        End Set
-    End Property
-    Public Property Impuestos As Double
-        Get
-            Return _Impuestos
-        End Get
-        Set(value As Double)
-            _Impuestos = value
-        End Set
-    End Property
-    Public Property IngresoNeto As Double
-        Get
-            Return _IngresoNeto
-        End Get
-        Set(value As Double)
-            _IngresoNeto = value
-        End Set
-    End Property
+
+
 
 
     Public Sub New()

ENTI/FondosDeInversionCE.vb

@@ -189,12 +189,7 @@
         ValorNominal = valor
 
     End Sub
-    Public Sub CalcularComisionCasa()
 
-    End Sub
-    Public Sub CalcularComisionBolsa()
-
-    End Sub
     Public Sub CalcularValorTransado()
         Dim valor As Double
         Dim vValorNominal As Double = ValorNominal
@@ -209,98 +204,7 @@
         ValorTransado = valor
     End Sub
 
-    Public Function TablaIngresos() As DataTable
-        Dim dtIngresos As DataTable
-        Dim vFilas As DataRow
-        Dim vColumnas As DataColumn
-
-        Dim vFechaInicial As Date
-        Dim vSiguienteFecha As Date
-        Dim vDias As Integer
-        Dim vDividendo As Double = Dividendo
-        Dim vIngreso As Double
-        Dim vRendimiento As Double
-        Dim vCuotasDeParticipacion As Double = CuotasDeParticipacion
-        Dim vValorNominal As Double = ValorNominal
-        Dim vAnioBase As Integer = AnioBase
-        Dim vDiasDelMes As Integer
-        Dim vEstaFecha As Date
-        Dim vPrimerCalculo As Boolean = True
-
-
-        dtIngresos = New DataTable
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Date)
-        vColumnas.ColumnName = "Fecha"
-        vColumnas.Caption = "Fecha de Corte"
-        vColumnas.AllowDBNull = False
-        dtIngresos.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Integer)
-        vColumnas.ColumnName = "Dias"
-        vColumnas.Caption = "Dias"
-        vColumnas.AllowDBNull = False
-        dtIngresos.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "Dividendo"
-        vColumnas.Caption = "Dividendo"
-        vColumnas.AllowDBNull = False
-        dtIngresos.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "Ingreso"
-        vColumnas.Caption = "Ingreso"
-        vColumnas.AllowDBNull = False
-        dtIngresos.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "Rendimiento"
-        vColumnas.Caption = "Rendimiento"
-        vColumnas.AllowDBNull = False
-        dtIngresos.Columns.Add(vColumnas)
-
-        vFechaInicial = FechaOperacion
-        vDiasDelMes = Date.DaysInMonth(vFechaInicial.Year, vFechaInicial.Month)
-        vSiguienteFecha = New Date(vFechaInicial.Year, vFechaInicial.Month, vDiasDelMes)
-        vDias = DateDiff(DateInterval.Day, vFechaInicial, vSiguienteFecha)
-
 
-        While vSiguienteFecha.Date <= FechaVencimiento.Date
-            If vPrimerCalculo Then
-                vIngreso = ((vDividendo * vCuotasDeParticipacion) / 30) * vDias
-                vPrimerCalculo = False
-            Else
-                vIngreso = vDividendo * vCuotasDeParticipacion
-            End If
-            vRendimiento = vIngreso / vValorNominal * vAnioBase / vDias
-
-            vFilas = dtIngresos.NewRow
-            vFilas("Fecha") = vSiguienteFecha
-            vFilas("Dias") = vDias
-            vFilas("Dividendo") = vDividendo
-            vFilas("Ingreso") = vIngreso
-            vFilas("Rendimiento") = vRendimiento
-            dtIngresos.Rows.Add(vFilas)
-
-            vEstaFecha = vSiguienteFecha
-            vSiguienteFecha = vSiguienteFecha.AddDays(1)
-            vDiasDelMes = Date.DaysInMonth(vSiguienteFecha.Year, vSiguienteFecha.Month)
-            vSiguienteFecha = New Date(vSiguienteFecha.Year, vSiguienteFecha.Month, vDiasDelMes)
-            vDias = DateDiff(DateInterval.Day, vEstaFecha, vSiguienteFecha)
-        End While
-
-
-
-
-        Return dtIngresos
-        dtIngresos.Dispose()
-    End Function
     Public Function CalculoValorNominal(ByVal CuotasParticipacion As Double, ByVal ValorParticipacion As Double)
         Dim Total = CuotasParticipacion * ValorParticipacion
         Return Total
@@ -309,15 +213,9 @@
         Dim fecha = FechaOperaciones.AddDays(Dias)
         Return fecha
     End Function
-    Public Sub Modificar(ByVal Coleccion As Collection, ByVal Codigo As String)
-        FondoInversionDAO.Modificar(Coleccion, Codigo)
-    End Sub
-    Public Sub Nuevo(ByVal Coleccion As Collection, ByVal Codigo As String)
-        FondoInversionDAO.Nuevo(Coleccion, Codigo)
-    End Sub
-    Public Sub Eliminar(ByVal Codigo As String)
-        FondoInversionDAO.Eliminar(Codigo)
-    End Sub
+
+
+
 
 
 End Class

ENTI/FormulasBonoCE.vb

@@ -3,7 +3,6 @@
 
     Dim ElementosConsulta As New CargarElementosDAO
     Dim V_CodEmpr = ElementosConsulta.CodEmpr
-    'Dim V_CodIF = ElementosConsulta.CodIF
     Dim V_CodEmis = ElementosConsulta.CodEmis
     Dim V_CodECalRi = ElementosConsulta.CodECalRi
     Dim V_CodPais = ElementosConsulta.CodPais
@@ -15,106 +14,6 @@
     Dim V_ListaEstado = ElementosConsulta.ListaEstado
     Dim Operaciones As New Operaciones
     Dim V_ListaCasasCorredoras = ElementosConsulta.ListaCasasCorredoras
-
-
-    Public ReadOnly Property ListaCasasCorredoras
-
-        Get
-
-            Return V_ListaCasasCorredoras
-        End Get
-    End Property
-
-
-
-
-    Public ReadOnly Property ListaEstado
-
-        Get
-
-            Return V_ListaEstado
-        End Get
-    End Property
-
-
-
-
-    Public ReadOnly Property ListaTipoRenta
-        Get
-            Return V_ListaTipoRenta
-        End Get
-    End Property
-
-
-
-
-
-    Public ReadOnly Property ListaTipoTasa
-        Get
-            Return V_ListaTipoTasa
-        End Get
-    End Property
-
-
-    Public ReadOnly Property ListaPeriodos
-        Get
-            Return V_ListaPeriodos
-        End Get
-    End Property
-
-
-    Public ReadOnly Property CodPais
-        Get
-            Return V_CodPais
-        End Get
-    End Property
-
-
-
-    Public ReadOnly Property CodEmpr
-        Get
-            Return V_CodEmpr
-        End Get
-    End Property
-    Public ReadOnly Property ListaTiposMercados
-        Get
-            Return V_ListaTiposMercados
-        End Get
-    End Property
-
-    Public ReadOnly Property ListaPlazo
-        Get
-            Return V_ListaPlazo
-        End Get
-    End Property
-
-    Public ReadOnly Property CodEmis
-        Get
-            Return V_CodEmis
-        End Get
-    End Property
-
-    Public ReadOnly Property CodECalRi
-        Get
-            Return V_CodECalRi
-        End Get
-    End Property
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
     Public Function DiasVencimiento(ByVal fecha1 As DateTime, ByVal fecha2 As DateTime, ByVal Base As Integer)
         fecha1 = Format(fecha1, "dd/MM/yyyy")
         fecha2 = Format(fecha2, "dd/MM/yyyy")
@@ -133,23 +32,7 @@
 
         Return Total
     End Function
-    Public Function DiasAcumulados(ByVal fecha1 As DateTime, ByVal fecha2 As DateTime, ByVal Base As Integer)
-
-        Dim Total As Integer
 
-        If (Base = 0 Or Base = 2) Then
-            Total = Base360(fecha1, fecha2)
-
-        ElseIf (Base = 1 Or Base = 3) Then
-            Total = Base365(fecha1, fecha2)
-
-        Else
-            Total = 0
-
-        End If
-
-        Return Total
-    End Function
 
     Public Function InteresAcumulado(ByVal ValorNominal As Double, ByVal Cupon As Double, ByVal Fecha1 As Date, ByVal Fecha2 As Date, ByVal DiasAcumulados As Double, ByVal IndexBase As Integer)
         Dim Valor As Double = 0
@@ -264,13 +147,6 @@
         Return Proceso
     End Function
 
-
-    Public Function Comisiones(ByVal Comision As Double, ByVal ValorTrasado As Double)
-        Dim Valor = CDec(Comision) * CDec(ValorTrasado)
-
-        Return Valor / 100
-    End Function
-
     Public Function MontoPagar(ByVal ValorTrasado As Double, ByVal ComisionBolsa As Double, ByVal ComisionCasa As Double, ByVal InteresAcumulado As Double, ByVal CostoTransferencias As Double)
         Dim Valor = ValorTrasado + ComisionBolsa + ComisionCasa + InteresAcumulado + CostoTransferencias
 
@@ -284,20 +160,12 @@
 
     End Function
 
-    Public Function MontoRecibir(ByVal ValorTrasado As Double, ByVal ComisionBolsa As Double, ByVal ComisionCasa As Double, ByVal InteresAcumulado As Double, ByVal InteresGenerado As Double)
-        Dim Valor = ValorTrasado - ComisionBolsa - ComisionCasa + InteresAcumulado + InteresGenerado
-        Return Valor
 
-    End Function
     Public Function Base360(ByVal Fecha1 As Date, ByVal Fecha2 As Date)
         Dim dia As Integer
         Dim dias31 As Integer
         Dim febreros As Integer
         Dim bisiesto As Integer
-
-
-
-
         While (Fecha1 < Fecha2)
             dia = dia + 1
 

ENTI/FuturosCE.vb

@@ -14,22 +14,8 @@
     Private _Ganancia As Double
     Private _Rendimiento As Double
 
-    Public Property TipoOperacion As String
-        Get
-            Return _TipoOperacion
-        End Get
-        Set(value As String)
-            _TipoOperacion = value
-        End Set
-    End Property
-    Public Property IdDelContrato As String
-        Get
-            Return _IdDelContrato
-        End Get
-        Set(value As String)
-            _IdDelContrato = value
-        End Set
-    End Property
+
+
     Public Property CantidadContratos As Integer
         Get
             Return _CantidadContratos
@@ -85,30 +71,7 @@
             CalcularGanancia()
         End Set
     End Property
-    Public Property FechaOperacion As Date
-        Get
-            Return _FechaOperacion
-        End Get
-        Set(value As Date)
-            _FechaOperacion = value
-        End Set
-    End Property
-    Public Property FechaLiquidacion As Date
-        Get
-            Return _FechaLiquidacion
-        End Get
-        Set(value As Date)
-            _FechaLiquidacion = value
-        End Set
-    End Property
-    Public Property FechaVencimiento As Date
-        Get
-            Return _FechaVencimiento
-        End Get
-        Set(value As Date)
-            _FechaVencimiento = value
-        End Set
-    End Property
+
     Public Property ValorTransadoCompra As Double
         Get
             Return _ValorTransadoCompra
@@ -126,16 +89,6 @@
             _Ganancia = value
         End Set
     End Property
-    Public Property Rendimiento As Double
-        Get
-            Return _Rendimiento
-        End Get
-        Set(value As Double)
-            _Rendimiento = value
-        End Set
-    End Property
-
-
 
     Private Sub CalcularValorTransado()
         Dim valor As Double
@@ -175,10 +128,6 @@
         End Try
         Ganancia = valor
     End Sub
-    Private Sub CalcularRendimiento()
-        Dim valor As Double
-        Dim vGanancias As Double = Ganancia
 
-    End Sub
 
 End Class

ENTI/IngresoDetalleCE.vb

@@ -43,23 +43,9 @@
         End Set
     End Property
 
-    Public Property CodigoEmisor As Integer
-        Get
-            Return _CodigoEmisor
-        End Get
-        Set(ByVal Value As Integer)
-            _CodigoEmisor = Value
-        End Set
-    End Property
 
-    Public Property CodigoEmpresaCalificadora As String
-        Get
-            Return _CodigoEmpresaCalificadora
-        End Get
-        Set(ByVal Value As String)
-            _CodigoEmpresaCalificadora = Value
-        End Set
-    End Property
+
+
 
     Public Property NombreManualIF As String
         Get
@@ -124,14 +110,7 @@
         End Set
     End Property
 
-    Public Property MontoIngresoLiquidoProyectado As Double
-        Get
-            Return _MontoIngresoLiquidoProyectado
-        End Get
-        Set(ByVal Value As Double)
-            _MontoIngresoLiquidoProyectado = Value
-        End Set
-    End Property
+
 
     Public Property IngresoId As Integer
         Get

ENTI/InversionesCE.vb

@@ -3,16 +3,13 @@
     Private _CodigoInversion As String = String.Empty
     Private _EstadoDocumento As String = String.Empty
     Private _EstadoAutorizacion As String = String.Empty
-    'Private _Asunto As String
     Private _CodigoEmpresa As String = String.Empty
     Private _CodigoIF As String = String.Empty
     Private _TipoIF As String = String.Empty
     Private _CodigoEmisor As Integer = 0
     Private _CodigoCalificacionDeRiesgo As String = String.Empty
     Private _CodigoCalificadoraDeRiesgo As String = String.Empty
-    'Private _OrigendeFondos As String
     Private _Comentarios As String = String.Empty
-    'Private _Justificacion As String
     Private _TipoOperacion As String = String.Empty
     Private _DocumentoBase As Integer = 0
     Private _CodigoAsociado As String = String.Empty
@@ -91,14 +88,7 @@
             _CodigoCalificadoraDeRiesgo = value
         End Set
     End Property
-    'Public Property Asunto As String
-    '    Get
-    '        Return _Asunto
-    '    End Get
-    '    Set(value As String)
-    '        _Asunto = value
-    '    End Set
-    'End Property
+
     Public Property CodigoInstrumentoFinanciero As String
         Get
             If _CodigoIF Is Nothing Then Return String.Empty Else Return _CodigoIF
@@ -123,14 +113,7 @@
             _CodigoEmpresa = value
         End Set
     End Property
-    'Public Property OrigenDeFondos As String
-    '    Get
-    '        If _OrigendeFondos Is Nothing Then Return String.Empty Else Return _OrigendeFondos
-    '    End Get
-    '    Set(value As String)
-    '        _OrigendeFondos = value
-    '    End Set
-    'End Property
+
     Public Property PlazoNumero As Integer
         Get
             Return _PlazoNumero
@@ -147,38 +130,8 @@
             _Plazofactor = value
         End Set
     End Property
-    Public Property MontoInversion As Double
-        Get
-            Return _MontoInversion
-        End Get
-        Set(value As Double)
-            _MontoInversion = value
-        End Set
-    End Property
-    Public Property Precio As Double
-        Get
-            Return _Precio
-        End Get
-        Set(value As Double)
-            _Precio = value
-        End Set
-    End Property
-    Public Property Rendimiento As Double
-        Get
-            Return _Rendimiento
-        End Get
-        Set(value As Double)
-            _Rendimiento = value
-        End Set
-    End Property
-    Public Property Ingresos As Double
-        Get
-            Return _Ingresos
-        End Get
-        Set(value As Double)
-            _Ingresos = value
-        End Set
-    End Property
+
+
     Public Property TipoOperacion As String
         Get
             Return _TipoOperacion
@@ -214,26 +167,11 @@
             If _EstadoDocumento Is Nothing Then Return String.Empty Else Return _EstadoDocumento
         End Get
         Set(value As String)
-            'If IsDBNull(value) Then _EstadoDocumento = String.Empty Else _EstadoDocumento = value
             _EstadoDocumento = value
         End Set
     End Property
-    Public Property EstadoAutorizacion As String
-        Get
-            If _EstadoAutorizacion Is Nothing Then Return String.Empty Else Return _EstadoAutorizacion
-        End Get
-        Set(value As String)
-            _EstadoAutorizacion = value
-        End Set
-    End Property
-    'Public Property Justificacion As String
-    '    Get
-    '        Return _Justificacion
-    '    End Get
-    '    Set(value As String)
-    '        _Justificacion = value
-    '    End Set
-    'End Property
+
+
     Public Property Comentarios As String
         Get
             Return _Comentarios

ENTI/LETESCE.vb

@@ -18,22 +18,7 @@
     Private _IngresoNeto As Double
 
 
-    Public Property DocId As Integer
-        Get
-            Return _DocId
-        End Get
-        Set(value As Integer)
-            _DocId = value
-        End Set
-    End Property
-    Public Property CodigoInversion As String
-        Get
-            Return _CodigoInversion
-        End Get
-        Set(value As String)
-            _CodigoInversion = value
-        End Set
-    End Property
+
 
     Public Property CodigoCasa As String
         Get
@@ -51,14 +36,7 @@
             _ValorNominal = value
         End Set
     End Property
-    Public Property ValorTransado As Double
-        Get
-            Return _ValorTransado
-        End Get
-        Set(value As Double)
-            _ValorTransado = value
-        End Set
-    End Property
+
     Public Property Precio As Double
         Get
             Return _Precio
@@ -67,14 +45,7 @@
             _Precio = value
         End Set
     End Property
-    Public Property Impuestos As Double
-        Get
-            Return _Impuestos
-        End Get
-        Set(value As Double)
-            _Impuestos = value
-        End Set
-    End Property
+
     Public Property TotalaPagar As Double
         Get
             Return _TotalaPagar

ENTI/NotaEstructuradaCE.vb

@@ -81,14 +81,7 @@
             CalcularRendimientoNeto()
         End Set
     End Property
-    Public Property AnioBase As Integer
-        Get
-            Return _AnioBase
-        End Get
-        Set(value As Integer)
-            _AnioBase = value
-        End Set
-    End Property
+
     Public Property Periodicidad As String
         Get
             Return _Periodicidad
@@ -109,31 +102,6 @@
         End Get
 
     End Property
-    Public Property IngresoBruto As Double
-        Get
-            Return _IngresoBruto
-        End Get
-        Set(value As Double)
-            _IngresoBruto = value
-        End Set
-    End Property
-    Public Property Impuestos As Double
-        Get
-            Return _Impuestos
-        End Get
-        Set(value As Double)
-            _Impuestos = value
-        End Set
-    End Property
-    Public Property IngresoNeto As Double
-        Get
-            Return _IngresoNeto
-        End Get
-        Set(value As Double)
-            _IngresoNeto = value
-        End Set
-    End Property
-
 
     Public Sub New()
         _MontoDeInversion = 0.00

ENTI/Operaciones.vb

@@ -9,7 +9,6 @@
     Dim V_FechaCorte As Date
     Dim ElementosConsulta As New CargarElementosDAO
     Dim V_CodEmpr = ElementosConsulta.CodEmpr
-    'Dim V_CodIF = ElementosConsulta.CodIF
     Dim V_CodEmis = ElementosConsulta.CodEmis
     Dim V_CodECalRi = ElementosConsulta.CodECalRi
     Dim V_CodPais = ElementosConsulta.CodPais
@@ -21,109 +20,6 @@
     Dim V_ListaEstado = ElementosConsulta.ListaEstado
 
     Dim V_ListaCasasCorredoras = ElementosConsulta.ListaCasasCorredoras
-
-
-
-
-
-
-
-    Public ReadOnly Property ListaCasasCorredoras
-
-        Get
-
-            Return V_ListaCasasCorredoras
-        End Get
-    End Property
-
-
-
-
-    Public ReadOnly Property ListaEstado
-
-        Get
-
-            Return V_ListaEstado
-        End Get
-    End Property
-
-
-
-
-    Public ReadOnly Property ListaTipoRenta
-        Get
-            Return V_ListaTipoRenta
-        End Get
-    End Property
-
-
-
-
-
-    Public ReadOnly Property ListaTipoTasa
-        Get
-            Return V_ListaTipoTasa
-        End Get
-    End Property
-
-
-    Public ReadOnly Property ListaPeriodos
-        Get
-            Return V_ListaPeriodos
-        End Get
-    End Property
-
-
-    Public ReadOnly Property CodPais
-        Get
-            Return V_CodPais
-        End Get
-    End Property
-
-
-
-    Public ReadOnly Property CodEmpr
-        Get
-            Return V_CodEmpr
-        End Get
-    End Property
-    Public ReadOnly Property ListaTiposMercados
-        Get
-            Return V_ListaTiposMercados
-        End Get
-    End Property
-
-    Public ReadOnly Property ListaPlazo
-        Get
-            Return V_ListaPlazo
-        End Get
-    End Property
-
-    Public ReadOnly Property CodEmis
-        Get
-            Return V_CodEmis
-        End Get
-    End Property
-
-    Public ReadOnly Property CodECalRi
-        Get
-            Return V_CodECalRi
-        End Get
-    End Property
-
-
-
-
-
-
-
-
-
-
-
-
-
-
     Public Property TipoOperacion() As String
         Get
             Return V_TipoOperacion
@@ -133,11 +29,7 @@
         End Set
     End Property
 
-    Public Function DiasVencimiento(ByVal fecha1 As DateTime, ByVal fecha2 As DateTime)
 
-        Dim rango = DateDiff(DateInterval.Day, fecha2, fecha1)
-        Return rango
-    End Function
     Public Function DiasAcumulados(ByVal fecha1 As DateTime, ByVal fecha2 As DateTime, ByVal Base As Integer)
         Dim Total As Integer = 0
         fecha1 = Format(fecha1, "dd/MM/yyyy")
@@ -167,18 +59,8 @@
         Return Total
     End Function
 
-    Public Function CantidadDiasAgregar(ByVal fecha1 As DateTime, ByVal fecha2 As DateTime)
-        Dim Total As Integer = 0
 
-        Total = Dias360(fecha1, fecha2)
-        Total = 0
-        Return Total
-    End Function
 
-    Public Function InteresAcumulado(ByVal ValorNominal As Double, ByVal Cupon As Double, ByVal DiasAcumulados As Double, ByVal BaseDias As Integer)
-        Dim Proceso = ValorNominal * Cupon * DiasAcumulados / BaseDias
-        Return Proceso
-    End Function
 
     Public Function InteresAcumuladoPBUR(ByVal ValorNominal As Double, ByVal PorcCupon As Double, ByVal DiasAcumulados As Integer, ByVal IndexBase As Integer, ByVal FechaInicial As Date, FechaFinal As Date)
         Dim Proceso As Double = 0
@@ -286,22 +168,9 @@
 
         Return Proceso
     End Function
-    Public Function InteresAcumuladoPor(ByVal InteresAcumulado As Double, ByVal ValorNominal As Double)
-        Dim Proceso = InteresAcumulado / ValorNominal * 360 * 180
-        Return Proceso
-    End Function
-
 
-    Public Function PrecioSucio(ByVal PrecioCompra As Double, ByVal InteresAcumulado As Double)
 
-        Dim Proceso = PrecioCompra * 0.01 + InteresAcumulado
 
-        Return Proceso
-    End Function
-    Public Function ValorTrasado(ByVal PrecioCompra As Double, ByVal ValorNominal As Double)
-        Dim Proceso = (PrecioCompra / 100) * ValorNominal
-        Return Proceso
-    End Function
 
 
     Public Function Comisiones(ByVal Comision As Double, ByVal ValorTrasado As Double)
@@ -311,18 +180,9 @@
         Return Valor
     End Function
 
-    Public Function MontoPagar(ByVal ValorTrasado As Double, ByVal ComisionBolsa As Double, ByVal ComisionCasa As Double, ByVal InteresAcumulado As Double, ByVal CostoTransferencias As Double)
 
-        Dim Valor = ValorTrasado + ComisionBolsa + ComisionCasa + InteresAcumulado + CostoTransferencias
-        Return Valor
-
-    End Function
 
-    Public Function MontoRecibir(ByVal ValorTrasado As Double, ByVal ComisionBolsa As Double, ByVal ComisionCasa As Double, ByVal InteresAcumulado As Double)
-        Dim Valor = ValorTrasado - ComisionBolsa - ComisionCasa + InteresAcumulado
-        Return Valor
 
-    End Function
     Public Function Base360(ByVal Fecha1 As Date, ByVal Fecha2 As Date)
         Dim Total As Integer = 0
         Dim dias = DateDiff(DateInterval.Day, Fecha1, Fecha2)
@@ -353,45 +213,6 @@
         Return Total
     End Function
 
-
-
-    Public Function Dias360(ByVal Fecha1 As Date, ByVal Fecha2 As Date)
-        Dim Total As Integer = 0
-        Dim dias = DateDiff(DateInterval.Day, Fecha1, Fecha2)
-        Dim dia As Integer = 0
-        Dim dias31 As Integer = 0
-        Dim febreros As Integer = 0
-        Dim bisiesto As Integer = 0
-        Dim PasaFebrero As Integer = 0
-        Dim PasaBisiesto As Integer = 0
-
-
-        While (Fecha1 < Fecha2)
-            dia = dia + 1
-
-            If (Fecha1.Day = 31) Then
-                dias31 = dias31 + 1
-
-            End If
-            If (Fecha1.Month = 2 And Fecha1.Day = 28) Then
-                febreros = febreros + 2
-                PasaFebrero += 1
-            End If
-            If (Fecha1.Month = 2 And Fecha1.Day = 29) Then
-                bisiesto = bisiesto + 1
-                PasaBisiesto += 1
-            End If
-
-            Fecha1 = Fecha1.AddDays(1)
-        End While
-
-
-        Total = dia + dias31 - febreros - bisiesto
-
-        Return Total
-    End Function
-
-
     Public Function FechaDias360(ByVal Fecha1 As Date, ByVal Day As Integer)
         Dim CorrelativoDias As Integer = 1
         Dim Dias As Integer = Day
@@ -714,27 +535,6 @@
         Return Dias
     End Function
 
-
-    'Public Sub ValidarEntrada(sender As Object, e As KeyPressEventArgs)
-    '    If (Char.IsNumber(e.KeyChar)) Then
-    '        e.Handled = False
-
-    '    ElseIf Char.IsSeparator(e.KeyChar) Then
-    '        e.Handled = True
-    '    ElseIf Char.IsLetter(e.KeyChar) Then
-    '        e.Handled = True
-
-
-
-
-    '    ElseIf Char.IsSymbol(e.KeyChar) Then
-    '        e.Handled = True
-
-    '    ElseIf Char.IsWhiteSpace(e.KeyChar) Then
-    '        e.Handled = True
-    '    End If
-    'End Sub
-
     Public Sub ValidarEntrada(sender As Object, e As KeyPressEventArgs, ByVal NoAgregar As Boolean)
         If (Char.IsNumber(e.KeyChar)) Then
             e.Handled = False

ENTI/RegistroIngresoCE.vb

@@ -61,14 +61,7 @@
             _IngresoID = value
         End Set
     End Property
-    Public Property CodigoInstitucionFinanciera As String
-        Get
-            Return _CodigoInstitucionFinanciera
-        End Get
-        Set(value As String)
-            _CodigoInstitucionFinanciera = value
-        End Set
-    End Property
+
     Public Property FormaDePago As String
         Get
             Return _FormaDePago

ENTI/ReportosCE.vb

@@ -21,275 +21,7 @@
     Private _RendimientoNetoDespuesDeImpuestos As Double
     Private Operaciones As New Operaciones
 
-    Public Property CodigoInversion As String
-        Get
-            Return _CodigoInversion
-        End Get
-        Set(value As String)
-            _CodigoInversion = value
-        End Set
-    End Property
 
-    Public Property CodigoCasa As String
-        Get
-            Return _CodigoCasa
-        End Get
-        Set(value As String)
-            _CodigoCasa = value
-        End Set
-    End Property
-    Public Property Nombre As String
-        Get
-            Return _Nombre
-        End Get
-        Set(value As String)
-            _Nombre = value
-        End Set
-    End Property
-    Public Property FechaDeCompra As Date
-        Get
-            Return _FechaDeCompra
-        End Get
-        Set(value As Date)
-            _FechaDeCompra = value
-        End Set
-    End Property
-    Public Property ValorTransado As Double
-        Get
-            Return _ValorTransado
-        End Get
-        Set(value As Double)
-            _ValorTransado = value
-            Calcular_MontoALiquidar()
-            Calcular_InteresAGenerar()
-            Caluclar_RendimientoNetoAntesImpuestos()
-            Calcular_ValorRecompra()
-            Calcular_ValorNeto()
-            Calcular_RendimientoNetoDespuesImpuestos()
-
-
-        End Set
-    End Property
-    Public Property Dias As Integer
-        Get
-            Return _Dias
-        End Get
-        Set(value As Integer)
-            _Dias = value
-            Calcular_InteresAGenerar()
-            Caluclar_RendimientoNetoAntesImpuestos()
-            Calcular_RendimientoNetoDespuesImpuestos()
-
-        End Set
-    End Property
-    Public Property FechaVencimiento As Date
-        Get
-            Return _FechaVencimiento
-        End Get
-        Set(value As Date)
-            _FechaVencimiento = value
-        End Set
-    End Property
-    Public Property Rendimiento As Double
-        Get
-            Return _Rendimiento
-        End Get
-        Set(value As Double)
-            _Rendimiento = value
-            Calcular_InteresAGenerar()
-
-        End Set
-    End Property
-    Public Property Impuestos As Double
-        Get
-            Return _Impuestos
-        End Get
-        Set(value As Double)
-            _Impuestos = value
-        End Set
-    End Property
-    Public Property OtrosCostos As Double
-        Get
-            Return _OtrosCostos
-        End Get
-        Set(value As Double)
-            _OtrosCostos = value
-        End Set
-    End Property
-    Public ReadOnly Property TotalCostos As Double
-        Get
-            Return _TotalCostos
-        End Get
-    End Property
-    Public Property MontoALiquidar As Double
-        Get
-            Return _MontoALiquidar
-        End Get
-        Set(value As Double)
-            _MontoALiquidar = value
-        End Set
-    End Property
-    Public ReadOnly Property InteresAGenerar As Double
-        Get
-            Return _InteresAGenerar
-        End Get
-    End Property
-    Public Property CostoDeTransferencia As Double
-        Get
-            Return _CostoDeTransferencia
-        End Get
-        Set(value As Double)
-            _CostoDeTransferencia = value
-            Calcular_ValorNeto()
-
-        End Set
-    End Property
-    Public ReadOnly Property RendimientoNetoAntesDeImpuestos As Double
-        Get
-            Return _RendimientoNetoAntesDeImpuestos
-        End Get
-    End Property
-    Public Property ValorReCompra As Double
-        Get
-            Return _ValorReCompra
-        End Get
-        Set(value As Double)
-            _ValorReCompra = value
-        End Set
-    End Property
-    Public Property ImpuestosLiquidacion As Double
-        Get
-            Return _ImpuestosLiquidacion
-        End Get
-        Set(value As Double)
-            _ImpuestosLiquidacion = value
-        End Set
-    End Property
-    Public ReadOnly Property IngresoNeto As Double
-        Get
-            Return _IngresoNeto
-        End Get
-    End Property
-    Public Property ValorNeto As Double
-        Get
-            Return _ValorNeto
-        End Get
-        Set(value As Double)
-            _ValorNeto = value
-        End Set
-    End Property
-    Public ReadOnly Property RendimientoNetoDespuesDeImpuestos As Double
-        Get
-            Return _RendimientoNetoDespuesDeImpuestos
-        End Get
-    End Property
-
-
-
-
-    Private Sub Calcular_TotalCostos()
-        Dim valor As Double
-
-        valor = 0
-        _TotalCostos = valor
-        Calcular_MontoALiquidar()
-        Caluclar_RendimientoNetoAntesImpuestos()
-        Calcular_RendimientoNetoDespuesImpuestos()
-
-    End Sub
-    Private Sub Calcular_MontoALiquidar()
-        Dim valor As Double
-
-        valor = _ValorTransado + _TotalCostos
-        _MontoALiquidar = valor
-
-    End Sub
-
-    Private Sub Calcular_InteresAGenerar()
-        Dim valor As Double
-        valor = _ValorTransado * (_Rendimiento / 100) * _Dias / 365
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-        _InteresAGenerar = valor
-
-        Caluclar_RendimientoNetoAntesImpuestos()
-        Calcular_ValorRecompra()
-        Calcular_ISR()
-        Calcular_IngresoNeto()
-
-    End Sub
-    Private Sub Caluclar_RendimientoNetoAntesImpuestos()
-        Dim valor As Double
-
-        valor = ((_InteresAGenerar - _TotalCostos) / _ValorTransado) * (365 / _Dias)
-        _RendimientoNetoAntesDeImpuestos = valor * 100
-    End Sub
-    Private Sub Calcular_ValorRecompra()
-        Dim valor As Double
-
-        valor = _ValorTransado + _InteresAGenerar
-        _ValorReCompra = valor
-
-    End Sub
-    Private Sub Calcular_ISR()
-        Dim valor As Double
-
-        valor = _InteresAGenerar * 0.1
-        _ImpuestosLiquidacion = valor
-
-        Calcular_IngresoNeto()
-
-    End Sub
-    Private Sub Calcular_IngresoNeto()
-        Dim valor As Double
-
-        valor = _InteresAGenerar - _ImpuestosLiquidacion
-        _IngresoNeto = valor
-
-        Calcular_ValorNeto()
-        Calcular_RendimientoNetoDespuesImpuestos()
-
-    End Sub
-    Private Sub Calcular_ValorNeto()
-        Dim valor As Double
-
-        valor = _ValorTransado + _IngresoNeto - _CostoDeTransferencia
-        _ValorNeto = valor
-
-    End Sub
-    Private Sub Calcular_RendimientoNetoDespuesImpuestos()
-        Dim valor As Double
-
-        valor = (_IngresoNeto - _TotalCostos) / _ValorTransado * 365 / _Dias
-        _RendimientoNetoDespuesDeImpuestos = valor * 100
-
-
-    End Sub
 
 
     Function FechaDeVencimiento(ByVal fecha As Date, ByVal dias As Integer)
@@ -300,199 +32,24 @@
 
 
     Function Comision(ByVal valortrasado As String, ByVal dias As Integer, ByVal por As Double, ByVal Fecha1 As Date, ByVal Fecha2 As Date, ByVal IndexBase As Integer)
-
-
-
-
-
-
-
-
-
         Dim Valor As Double = 0
         Valor = valortrasado * dias * por / 365
         Return Valor
-        'If (IndexBase = 0) Then
-        '    Valor = valortrasado * dias * (por / 100) / 360
-        '    Return Valor
-        'ElseIf (IndexBase = 1) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = valortrasado * DiasPrimeraFecha * (por / 100) / 366
-        '        PrOpc2 = valortrasado * DiasSegundaFecha * (por / 100) / 365
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = valortrasado * DiasSegundaFecha * (por / 100) / 365
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = valortrasado * DiasPrimeraFecha * (por / 100) / 366
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-
-
-        'ElseIf (IndexBase = 2) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha360Bi(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha360(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = valortrasado * DiasPrimeraFecha * (por / 100) / 366
-        '        PrOpc2 = valortrasado * DiasSegundaFecha * (por / 100) / 365
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = valortrasado * DiasSegundaFecha * (por / 100) / 365
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = valortrasado * DiasPrimeraFecha * (por / 100) / 366
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-
-
-
-
-
-        'Else
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = valortrasado * DiasPrimeraFecha * (por / 100) / 360
-        '        PrOpc2 = valortrasado * DiasSegundaFecha * (por / 100) / 360
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = valortrasado * DiasSegundaFecha * (por / 100) / 360
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = valortrasado * DiasPrimeraFecha * (por / 100) / 360
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-        'End If
-        'Return Valor
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
     End Function
 
     Function IOF(ByVal valortrasado As Double, comisioncasa As Double, ByVal comisionbolsa As Double, ByVal dias As Integer, ByVal VALIOF As Double, ByVal Fecha1 As Date, ByVal Fecha2 As Date, ByVal IndexBase As Integer)
-
         Dim Valor As Double = 0
         Valor = ((valortrasado + comisioncasa + comisionbolsa) * (dias * VALIOF)) / 365
-
         Return Valor
-        'If (IndexBase = 0) Then
-        '    Valor = ((valortrasado + comisioncasa + comisionbolsa) * (dias * VALIOF)) / 360
-        '    Return Valor
-        'ElseIf (IndexBase = 1) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ((valortrasado + comisioncasa + comisionbolsa) * (DiasPrimeraFecha * VALIOF)) / 366
-        '        PrOpc2 = ((valortrasado + comisioncasa + comisionbolsa) * (DiasSegundaFecha * VALIOF)) / 365
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ((valortrasado + comisioncasa + comisionbolsa) * (DiasSegundaFecha * VALIOF)) / 365
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ((valortrasado + comisioncasa + comisionbolsa) * (DiasPrimeraFecha * VALIOF)) / 366
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-
-
-        'ElseIf (IndexBase = 2) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha360Bi(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha360(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ((valortrasado + comisioncasa + comisionbolsa) * (DiasPrimeraFecha * VALIOF)) / 366
-        '        PrOpc2 = ((valortrasado + comisioncasa + comisionbolsa) * (DiasSegundaFecha * VALIOF)) / 365
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ((valortrasado + comisioncasa + comisionbolsa) * (DiasSegundaFecha * VALIOF)) / 365
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ((valortrasado + comisioncasa + comisionbolsa) * (DiasPrimeraFecha * VALIOF)) / 366
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-
-
-
-
-
-        'Else
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ((valortrasado + comisioncasa + comisionbolsa) * (DiasPrimeraFecha * VALIOF)) / 360
-        '        PrOpc2 = ((valortrasado + comisioncasa + comisionbolsa) * (DiasSegundaFecha * VALIOF)) / 360
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ((valortrasado + comisioncasa + comisionbolsa) * (DiasSegundaFecha * VALIOF)) / 360
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ((valortrasado + comisioncasa + comisionbolsa) * (DiasPrimeraFecha * VALIOF)) / 360
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-        'End If
-        'Return Valor
-
-
-
     End Function
 
     Function TotCostos(ByVal ComisionCasa As Double, ByVal ComisionBolsa As Double, ByVal IOF As Double, ByVal OC As Double, ByVal ValorTransado As Double, ByVal Instrumento As String)
         Dim Valor As Double = 0
-
         Valor = ComisionCasa + ComisionBolsa + IOF + OC
-
-
-
         Return Valor
     End Function
     Function MontoLiquidacion(ByVal ValorTrasado As Double, ByVal totalcosto As Double)
         Dim Valor = ValorTrasado + totalcosto
-
         Return Valor
     End Function
 
@@ -500,84 +57,6 @@
         Dim Valor As Double = 0
         Valor = ValorTrasado * rendimiento * dias / 365
         Return Valor
-        'If (IndexBase = 0) Then
-        '    Valor = ValorTrasado * rendimiento * dias / 360
-
-        '    Return Valor
-        'ElseIf (IndexBase = 1) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ValorTrasado * rendimiento * DiasPrimeraFecha / 366
-        '        PrOpc2 = ValorTrasado * rendimiento * DiasSegundaFecha / 365
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ValorTrasado * rendimiento * DiasSegundaFecha / 365
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ValorTrasado * rendimiento * DiasPrimeraFecha / 366
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-
-
-        'ElseIf (IndexBase = 2) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha360Bi(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha360(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ValorTrasado * rendimiento * DiasPrimeraFecha / 366
-        '        PrOpc2 = ValorTrasado * rendimiento * DiasSegundaFecha / 365
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ValorTrasado * rendimiento * DiasSegundaFecha / 365
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ValorTrasado * rendimiento * DiasPrimeraFecha / 366
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-
-
-
-
-
-        'Else
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ValorTrasado * rendimiento * DiasPrimeraFecha / 360
-        '        PrOpc2 = ValorTrasado * rendimiento * DiasSegundaFecha / 360
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ValorTrasado * rendimiento * DiasSegundaFecha / 360
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ValorTrasado * rendimiento * DiasPrimeraFecha / 360
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor
-
-        'End If
-        'Return Valor
-
-
-
-
-
-
-
-
-
-
-
     End Function
 
     Function RendimientoAntes(ByVal interesgenerar As Double, ByVal totcostos As Double, ByVal valortra As Double, ByVal dias As Integer, ByVal Fecha1 As Date, ByVal Fecha2 As Date, ByVal IndexBase As Integer, ByVal Tabla As String)
@@ -587,94 +66,6 @@
         Else
             Valor = ((interesgenerar + totcostos) / valortra) * (365 / dias)
         End If
-
-
-
-        'If (IndexBase = 0) Then
-        '    Valor = ((interesgenerar - totcostos) / valortra) * (360 / dias)
-        '    Return Valor * 100
-        'ElseIf (IndexBase = 1) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ((interesgenerar - totcostos) / valortra) * (366 / DiasPrimeraFecha)
-        '        PrOpc2 = ((interesgenerar - totcostos) / valortra) * (365 / DiasSegundaFecha)
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ((interesgenerar - totcostos) / valortra) * (365 / DiasSegundaFecha)
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ((interesgenerar - totcostos) / valortra) * (366 / DiasPrimeraFecha)
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor * 100
-
-
-
-        'ElseIf (IndexBase = 2) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha360Bi(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha360(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ((interesgenerar - totcostos) / valortra) * (366 / DiasPrimeraFecha)
-        '        PrOpc2 = ((interesgenerar - totcostos) / valortra) * (365 / DiasSegundaFecha)
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ((interesgenerar - totcostos) / valortra) * (365 / DiasSegundaFecha)
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ((interesgenerar - totcostos) / valortra) * (366 / DiasPrimeraFecha)
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor * 100
-
-
-
-
-
-
-        'Else
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = ((interesgenerar - totcostos) / valortra) * (360 / DiasPrimeraFecha)
-        '        PrOpc2 = ((interesgenerar - totcostos) / valortra) * (360 / DiasSegundaFecha)
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = ((interesgenerar - totcostos) / valortra) * (360 / DiasSegundaFecha)
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = ((interesgenerar - totcostos) / valortra) * (360 / DiasPrimeraFecha)
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor * 100
-
-        'End If
-        'Return Valor * 100
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
         Return Valor * 100
     End Function
 
@@ -683,10 +74,6 @@
         Return Valor
     End Function
 
-    Function Renta(ByVal InteresGenerar As Double, ByVal Porcentaje As Double)
-        Dim Valor = InteresGenerar * Porcentaje
-        Return Valor
-    End Function
 
     Function IngresoNet(ByVal InteresGenerar As Double, ByVal Renta As Double)
         Dim Valor = InteresGenerar - Renta
@@ -701,78 +88,6 @@
     Function RendimientoDespues(ByVal IngresoNeto As Double, ByVal totalcosto As Double, ByVal valortrasado As Double, ByVal dias As Integer, ByVal Fecha1 As Date, Fecha2 As Date, ByVal IndexBase As Integer)
         Dim Valor As Double = 0
         Valor = (IngresoNeto - totalcosto) / valortrasado * 365 / dias
-        'If (IndexBase = 0) Then
-        '    Valor = (IngresoNeto - totalcosto) / valortrasado * 360 / dias
-        '    Return Valor * 100
-        'ElseIf (IndexBase = 1) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = (IngresoNeto - totalcosto) / valortrasado * 366 / DiasPrimeraFecha
-        '        PrOpc2 = (IngresoNeto - totalcosto) / valortrasado * 365 / DiasSegundaFecha
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = (IngresoNeto - totalcosto) / valortrasado * 365 / DiasSegundaFecha
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = (IngresoNeto - totalcosto) / valortrasado * 366 / DiasPrimeraFecha
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor * 100
-
-
-
-        'ElseIf (IndexBase = 2) Then
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha360Bi(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha360(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = (IngresoNeto - totalcosto) / valortrasado * 366 / DiasPrimeraFecha
-        '        PrOpc2 = (IngresoNeto - totalcosto) / valortrasado * 365 / DiasSegundaFecha
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = (IngresoNeto - totalcosto) / valortrasado * 365 / DiasSegundaFecha
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = (IngresoNeto - totalcosto) / valortrasado * 366 / DiasPrimeraFecha
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor * 100
-
-
-
-
-
-
-        'Else
-        '    Dim PrOpc1 = 0.0, PrOpc2 = 0.0
-        '    Dim DiasPrimeraFecha = 0, DiasSegundaFecha = 0
-        '    DiasPrimeraFecha = Operaciones.DiasDespuesCambioPrimeraFecha366Varios(Fecha1, Fecha2)
-        '    DiasSegundaFecha = Operaciones.DiasDespuesCambioPrimeraFecha365Varios(Fecha1, Fecha2)
-        '    If (DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        PrOpc1 = (IngresoNeto - totalcosto) / valortrasado * 360 / DiasPrimeraFecha
-        '        PrOpc2 = (IngresoNeto - totalcosto) / valortrasado * 360 / DiasSegundaFecha
-        '        Valor = PrOpc1 + PrOpc2
-        '    ElseIf (Not DiasPrimeraFecha > 0 And DiasSegundaFecha > 0) Then
-        '        Valor = (IngresoNeto - totalcosto) / valortrasado * 360 / DiasSegundaFecha
-        '    ElseIf (DiasPrimeraFecha > 0 And Not DiasSegundaFecha > 0) Then
-        '        Valor = (IngresoNeto - totalcosto) / valortrasado * 360 / DiasPrimeraFecha
-        '    Else
-        '        Valor = 0
-        '    End If
-        '    Return Valor * 100
-
-        'End If
-        'Return Valor * 100
-
-
-
-
-
-
         Return Valor * 100
     End Function
 End Class

ENTI/SeriesCE.vb

@@ -5,38 +5,6 @@
     Private _Numero As Integer
 
 
-    Public Property CodigoEmpresa As String
-        Get
-            Return _CodigoEmpresa
-        End Get
-        Set(value As String)
-            _CodigoEmpresa = value
-        End Set
-    End Property
-    Public Property CodigoInstrumentoFinanciero As String
-        Get
-            Return _CodigoInstrumentoFinanciero
-        End Get
-        Set(value As String)
-            _CodigoInstrumentoFinanciero = value
-        End Set
-    End Property
-    Public Property Tipo As String
-        Get
-            Return _Tipo
-        End Get
-        Set(value As String)
-            _Tipo = value
-        End Set
-    End Property
-    Public Property Numero As Integer
-        Get
-            Return _Numero
-        End Get
-        Set(value As Integer)
-            _Numero = value
-        End Set
-    End Property
 
 
 End Class

ENTI/zAccionesDetalleCE.vb

@@ -8,73 +8,4 @@
     Private _IngresoNeto As Double
     Private _Estado As String
 
-    Public Property CodigoInversion As String
-        Get
-            Return _CodigoInversion
-        End Get
-        Set(value As String)
-            _CodigoInversion = value
-        End Set
-    End Property
-    Public Property Fecha As Date
-        Get
-            Return _Fecha
-        End Get
-        Set(value As Date)
-            _Fecha = value
-        End Set
-    End Property
-    Public Property Dividendo As Double
-        Get
-            Return _Dividendo
-        End Get
-        Set(value As Double)
-            _Dividendo = value
-        End Set
-    End Property
-    Public ReadOnly Property IngresoBruto As Double
-        Get
-            Return _IngresoBruto
-        End Get
-    End Property
-    Public Property PorcentajeISR As Double
-        Get
-            Return _PorcentajeISR
-        End Get
-        Set(value As Double)
-            _PorcentajeISR = value
-        End Set
-    End Property
-    Public ReadOnly Property ValorISR As Double
-        Get
-            Return _ValorISR
-        End Get
-    End Property
-    Public ReadOnly Property IngresoNeto As Double
-        Get
-            Return _IngresoNeto
-        End Get
-    End Property
-    Public Property Estado As String
-        Get
-            Return _Estado
-        End Get
-        Set(value As String)
-            _Estado = value
-        End Set
-    End Property
-
-    'Public Sub New()
-    '    _Fecha = Date.Now.Date
-    '    _IngresoBruto = 0
-    '    _PorcentajeISR = 0
-    '    _ValorISR = 0
-    '    _IngresoNeto = 0
-    'End Sub
-
-
-
-
-
-
 End Class

FRM/frmAcciones.Designer.vb

@@ -110,7 +110,6 @@ Partial Class frmAcciones
         Me.txtRentaCompra = New System.Windows.Forms.TextBox()
         Me.TabAcciones = New System.Windows.Forms.TabControl()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.btnAsociarAccion = New System.Windows.Forms.Button()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.BindingNavigator1.SuspendLayout()
@@ -129,23 +128,29 @@ Partial Class frmAcciones
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(33, 40)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(98, 40)
         Me.btnAceptar.TabIndex = 66
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(173, 40)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(93, 40)
         Me.btnCancelar.TabIndex = 79
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'lblTitulo
         '
@@ -222,21 +227,27 @@ Partial Class frmAcciones
         '
         'btnQuitar
         '
-        Me.btnQuitar.Location = New System.Drawing.Point(281, 11)
+        Me.btnQuitar.BackColor = System.Drawing.Color.White
+        Me.btnQuitar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnQuitar.Location = New System.Drawing.Point(250, 15)
         Me.btnQuitar.Name = "btnQuitar"
-        Me.btnQuitar.Size = New System.Drawing.Size(96, 30)
+        Me.btnQuitar.Size = New System.Drawing.Size(104, 30)
         Me.btnQuitar.TabIndex = 118
         Me.btnQuitar.Text = "Quitar"
-        Me.btnQuitar.UseVisualStyleBackColor = True
+        Me.btnQuitar.UseVisualStyleBackColor = False
         '
         'btnActualizar
         '
-        Me.btnActualizar.Location = New System.Drawing.Point(555, 8)
+        Me.btnActualizar.BackColor = System.Drawing.Color.White
+        Me.btnActualizar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnActualizar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnActualizar.Location = New System.Drawing.Point(360, 15)
         Me.btnActualizar.Name = "btnActualizar"
-        Me.btnActualizar.Size = New System.Drawing.Size(118, 36)
+        Me.btnActualizar.Size = New System.Drawing.Size(106, 30)
         Me.btnActualizar.TabIndex = 22
         Me.btnActualizar.Text = "Actualizar calculos"
-        Me.btnActualizar.UseVisualStyleBackColor = True
+        Me.btnActualizar.UseVisualStyleBackColor = False
         '
         'GroupBox1
         '
@@ -274,17 +285,19 @@ Partial Class frmAcciones
         'dgvDividendos
         '
         Me.dgvDividendos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvDividendos.BackgroundColor = System.Drawing.Color.WhiteSmoke
         Me.dgvDividendos.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvDividendos.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.Raised
         Me.dgvDividendos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvDividendos.Location = New System.Drawing.Point(2, 50)
         Me.dgvDividendos.Name = "dgvDividendos"
         Me.dgvDividendos.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders
-        Me.dgvDividendos.Size = New System.Drawing.Size(961, 344)
+        Me.dgvDividendos.Size = New System.Drawing.Size(961, 461)
         Me.dgvDividendos.TabIndex = 18
         '
         'TbOperacion
         '
+        Me.TbOperacion.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TbOperacion.Controls.Add(Me.btnVenderTitulo)
         Me.TbOperacion.Controls.Add(Me.GrpDatos)
         Me.TbOperacion.Controls.Add(Me.lblTitulo)
@@ -298,16 +311,18 @@ Partial Class frmAcciones
         Me.TbOperacion.Size = New System.Drawing.Size(1149, 519)
         Me.TbOperacion.TabIndex = 0
         Me.TbOperacion.Text = "Operación"
-        Me.TbOperacion.UseVisualStyleBackColor = True
         '
         'btnVenderTitulo
         '
-        Me.btnVenderTitulo.Location = New System.Drawing.Point(468, 17)
+        Me.btnVenderTitulo.BackColor = System.Drawing.Color.White
+        Me.btnVenderTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVenderTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.btnVenderTitulo.Location = New System.Drawing.Point(414, 17)
         Me.btnVenderTitulo.Name = "btnVenderTitulo"
-        Me.btnVenderTitulo.Size = New System.Drawing.Size(75, 35)
+        Me.btnVenderTitulo.Size = New System.Drawing.Size(178, 35)
         Me.btnVenderTitulo.TabIndex = 174
         Me.btnVenderTitulo.Text = "Vender Titulo"
-        Me.btnVenderTitulo.UseVisualStyleBackColor = True
+        Me.btnVenderTitulo.UseVisualStyleBackColor = False
         Me.btnVenderTitulo.Visible = False
         '
         'GrpDatos
@@ -1022,15 +1037,6 @@ Partial Class frmAcciones
         Me.Panel1.Size = New System.Drawing.Size(1157, 545)
         Me.Panel1.TabIndex = 159
         '
-        'btnAsociarAccion
-        '
-        Me.btnAsociarAccion.Location = New System.Drawing.Point(128, 23)
-        Me.btnAsociarAccion.Name = "btnAsociarAccion"
-        Me.btnAsociarAccion.Size = New System.Drawing.Size(96, 23)
-        Me.btnAsociarAccion.TabIndex = 81
-        Me.btnAsociarAccion.Text = "Asociar Acción"
-        Me.btnAsociarAccion.UseVisualStyleBackColor = True
-        '
         'OpenFileDialog1
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
@@ -1040,14 +1046,12 @@ Partial Class frmAcciones
         Me.AcceptButton = Me.btnAceptar
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.AutoScroll = True
         Me.CancelButton = Me.btnCancelar
         Me.ClientSize = New System.Drawing.Size(1157, 570)
-        Me.Controls.Add(Me.btnAsociarAccion)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmAcciones"
-        Me.Text = "Acciones"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()
@@ -1154,7 +1158,6 @@ Partial Class frmAcciones
     Friend WithEvents GrpImpuesto As GroupBox
     Friend WithEvents Panel1 As Panel
     Friend WithEvents btnActualizar As Button
-    Friend WithEvents btnAsociarAccion As Button
     Friend WithEvents OpenFileDialog1 As OpenFileDialog
     Friend WithEvents btnQuitar As Button
     Friend WithEvents GrpBotonos As GroupBox

FRM/frmAcciones.resx

@@ -140,27 +140,27 @@
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
-        +ADMyGjc0HVnp2laY5p0VTfWiLbYNB3SxHZr4oNgHB8jEsDy0IAzOsBQmEcwHOfeABXiNKR/8uXkzJz7
-        3Zl7CZQ8t/A4zS9aUtwHa+pk3crz/of4RTuJRt8/KhzNdeYjb3sSoaFKKcyM0J6ZIDVBiW4nJbpacBpQ
-        Y1MZu825iQXp7XmLHH7Tr+0+Bz00CDr3ElRFAlX7Y0qpLAOSYMFFcLarEHqhvGOeVvXDqV5t5xlo+yTE
+        +ADMyGjc0HVnp20aY5p0VTfWiLbYNB3SxHZr4oNgHB8jEsDy0IAzOsBQmEcwHOfeABXiNKR/8uXkzJz7
+        3Zl7CZQ8t/A4zS9aUtwHa+pk3crz/of4RTuJRt8/KhzNdeYj73oSoaFKKcyM0J6ZIDVBiW4nJbpacBpQ
+        Y1MZu825iQXp7XmLHH7br+0+Bz00CDr3ElRFAlX7Y0qpLAOSYMFFcLarEHqhvGGeVvXDqV5t5xlo+yTE
         clVTkIQkKbEm+NRV5Jkn+t4waFt9oAYHQBAEnYtnYMX3Gb6zgQbrX7/BYeKqWYAOTOD93RPj7hvNkLAb
         7DkaSEgViIsKxAziotogkas0C+oZcbgUMS8DG/iBByLnEnxcXILlZV+D1TU/RDOyuUAqlvGnooHkVQn4
         31k4Omsmea20JwhnSsDFs7BvgGqd00sTgaNFcJKWwLf6pXGACNSfXhRMBPZmQey6AhFB+Yuxc+RSxc/b
         Ehzcc42oP062XGM9dnI8d1eQlquYVK3e5V6BzTZZzhuCjZ+/8MC/UNQijI5O87WlBAEAD4xfYL3e1+CZ
-        9ALteYWrGTRN6w7SHWAYpqOm+N8QxC3b0mvwrfREqAAAAABJRU5ErkJggg==
+        9ALteYWrGTRN6w7SHWAYpqOm+N8QxC3OwmvsWlVoEQAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOLV0k2q9bP4A
-        xUUUcXJwUHRxE1QcagidOrnoYAelWKEQdREEFwc3LwVJ6c1ek/T+er7Q1KqtrR88JBzO++T7ziFctXoY
-        Voa9BQOMDsavsqqqmpQkqVwqldCIXC4HQRBcbG9DiZ3C2WwWiqLUSKVSSCQSCIfDuiQUCkEUxV8SE8NO
-        GzRNQz6f159EJpNBMplEJBLRBaxL0Efcbrch0asmoLABCSiQTqcRjUa/jUNQppr9EhSLxdoGeqe5jVFi
-        sZjeiSzLzQU/qZdQJ3Qe8Xi8fQFhSGgcOhMS0XrbAqJQKOjnQhKC1v4loC7ezo5wtziCwKQFN/P9EOwm
-        8U8BhQyCXgGPG2PQfIeoPPmhnKxDcoyWr8bNay0F1P7twhBUFsbRLLDZCewOIro/Dt8E/9JUUC+htisP
-        XtRXYqcbO05zpSZwuVyVRhLieq4PWc8SwEK5DQ4fjOAqD/80/04CKhu7HqXZz/R6eoD7lWHIm4OIbFnw
-        vGxCwGEuX051bFfzXC/DxqCraYhnpks8d/IytX3h4MPHY/wex3HcJ/E1g0s+Et1bAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFW6ldbr5g9Q
+        XEQRJweHFl26CSodbAidnFx00EERFQpVF0FwcXDzBpKSXkx6Se/t6/lCE6ttvXzwkHA475PvO4dwtepi
+        2BmOX+hjWBkNZc9ms2o4HK6Uy2U0I5/PQxCEHba3qcRB4UwmA03TTJLJJBRFgSzLuiQSiUAUxQaJheGg
+        DblcDoVCQX8S6XQaqqoiGo3qAtYl6CPBYNCQ6GUKKGxAAgqkUinEYrEv4xCUqWU/BaVSydxA7zS3MUo8
+        Htc7kSSpteA79RLqhM4jkUj8XUAYEhqHzoREtP5nAVEsFvVzIQlBa/8SUBcvhwHczA8hNN6Gq9leCA6L
+        +KOAQgavRwLuPU7kTv2oPpxD219F2DVcuXDbVn4VUPvXcwPIsjAC04C3HdjoR2zLjdNR/qmloF5CbVfv
+        jlBfiq8TvjFb1RT4/f5qMwlxOdODzO4CwEJ5D4d3xusyj/NJ/o0EVCPserRWP9PzwTZulwYhefsRXWvD
+        46IFIZetcjZhXa/luW7GCIOupim7Ux3i8RgvUdsnLl7ec/KbHMdxH+iJgz/BouckAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

FRM/frmAcciones.vb

@@ -42,12 +42,10 @@ Public Class frmAcciones
     Dim DobleClick As Boolean = False
     Dim Operaciones As New Operaciones
     Dim InstrumentoFinanciero As String = oDAOGeneral.ObtenerInstrumento(Variables.Codigo)
-    'Dim oAccionesNEG As New AccionesNEG
     Dim Cargado As Boolean = False
     Dim Cierre As Boolean = False
     Dim DatosCargados As Boolean = False
-    'Dim dtImpuestosYComisiones As DataTable
-    'Dim dtDividendos As DataTable
+
 
     Private _Modo As String
     Private _IdDocumento As Integer
@@ -423,22 +421,11 @@ Public Class frmAcciones
 
     Public Function NuevaAccion()
         Dim Coleccion = ColeccionDatos()
-        'Dim Codigo = Variables.Codigo
-        'oAccionesDAO.NuevaAccion(Codigo, Coleccion)
-        Return Coleccion
-    End Function
-    Public Function NuevaAccionConsulta()
-        Dim Coleccion = ColeccionDatos()
-        Dim Codigo = Variables.Codigo
-        oAccionesDAO.NuevaAccion(Codigo, Coleccion)
         Return Coleccion
     End Function
 
-    Sub ModificarAccion()
-        Dim Coleccion = ColeccionDatos()
-        Dim Codigo = Variables.Codigo
-        oAccionesDAO.ModificarAccion(Codigo, Coleccion)
-    End Sub
+
+
 
     Sub Eliminar()
 
@@ -446,11 +433,6 @@ Public Class frmAcciones
         oAccionesDAO.Eliminar(Codigo)
     End Sub
 
-    'Sub EliminrElementoAccion()
-
-    '    Dim Codigo = Variables.Codigo
-    '    'oAccionesDAO.EliminarElemeno(Codigo)
-    'End Sub
 
     Sub ModificacionesPreferentes()
         GrpVenta.Visible = False
@@ -593,14 +575,7 @@ Public Class frmAcciones
 
 
 
-    Function ExisteVenta()
-        Dim Ventas As Boolean = False
-        Dim General As New DAOGeneral
-        Dim Codigo As String = Variables.Codigo
-        Ventas = General.ExisteVenta(Codigo)
 
-        Return Ventas
-    End Function
 
 
     Sub ModificarDividendo()
@@ -617,82 +592,9 @@ Public Class frmAcciones
 
     End Sub
 
-    'LOAD
-    'Sub ActualizarDividendos()
-
-    'Dim vFactorDeDividendo = oAccionesCE.FactorDeDividendo
-    'Dim vFechaInicial = oAccionesCE.FechaLiquidacionCompra
-    'Dim vFechaLiquidacionVenta = oAccionesCE.FechaLiquidacionVenta
-    'Dim vUnidadesVenta = oAccionesCE.CantidadVenta
-    'Dim vAccionPreferente = oAccionesCE.AccionPreferente
-    'Dim vValorTransadoCompra = oAccionesCE.ValorTransadoCompra
-
-    'Dim Periodos As Integer
-    'Dim Periodicidad As String = "A"
-    'Dim Filas As DataRow
-    'Dim FactorDidivendo As Double = vFactorDeDividendo
-    'Dim FechaInicial As Date = vFechaInicial
-    'Dim PorcentajeRenta As Double = 0.05
-    'Dim IngresoBruto As Double
-    'Dim Renta As Double
-    'Dim IngresoNeto As Double
-    'Dim SumaImgresoBruto As Double
-    'Dim SumaImgresoNeto As Double
-    'Dim Suma As Object
-
-    'If Periodicidad = "A" Then
-    '       Periodos = DateDiff(DateInterval.Year, vFechaInicial, vFechaLiquidacionVenta)
-
-    'End If
-
-    'For i As Integer = 1 To Periodos
-
-    'If Periodicidad = "A" Then
-    '           FechaInicial = FechaInicial.AddYears(1)
-    'End If
-
-    '       IngresoBruto = FactorDidivendo * vUnidadesVenta
-    'If vAccionPreferente = "S" Then
-    '           IngresoBruto = vValorTransadoCompra * FactorDidivendo
-    'End If
-
-
-    '       Renta = IngresoBruto * PorcentajeRenta
-    '      IngresoNeto = IngresoBruto - Renta
-
-    '     Filas = dtDividendos.NewRow()
-    '    Filas("Fecha") = FechaInicial
-    '   Filas("Dividendo") = FactorDidivendo
-    '  Filas("IngresoBruto") = IngresoBruto
-    ' Filas("Renta") = Renta
-    'Filas("IngresoNeto") = IngresoNeto
-
-    'dtDividendos.Rows.Add(Filas)
-    'Next
-
-    '   SumaImgresoBruto = Dividendos.Compute("SUM(IngresoBruto)", "").ToString
-    '  Suma = dtDividendos.Compute("SUM(IngresoBruto)", "")
-    'If Suma IsNot DBNull.Value Then
-    '       SumaImgresoBruto = Convert.ToDouble(Suma)
-    'End If
 
-    '   SumaImgresoNeto = Dividendos.Compute("SUM(IngresoNeto)", "").ToString
-    '  Suma = dtDividendos.Compute("SUM(IngresoNeto)", "")
-    'If Suma IsNot DBNull.Value Then
-    '       SumaImgresoNeto = Convert.ToDouble(Suma)
-    'End If
-
-
-    'Me.txtIngresoBrutoDividendos_Venta.Text = SumaImgresoBruto.ToString
-    'Me.txtIngresoNetoDividendos_Venta.Text = SumaImgresoNeto.ToString
-
-    'Me.dgvDividendos.DataSource = dtDividendos
-
-    '   RefrescarRetornoAnualBruto_Venta()
-    '  RefrescarRetornoAnualNeto_Venta()
-    'End Sub
     Private Sub chkAccionPreferente_CheckedChanged(sender As Object, e As EventArgs)
-        ControlChkAccionPreferente()
+
 
 
     End Sub
@@ -700,18 +602,8 @@ Public Class frmAcciones
         Dim codigo As String = Variables.Codigo
         Dim Accion As Collection = NuevaAccion()
         Dim ElementosAccion As Dictionary(Of String, Collection) = ColeccionNuevo(codigo)
-
-        ''RefrescarClaseEntidad()
-
-        'ModificarElementoAccion()
-
-
         If (Estado = "N") Then
-
-
             oAccionesDAO.ProcesoDatos(Accion, codigo, ElementosAccion, "Nuevo")
-
-
         ElseIf Not ExisteValidacion() Then
 
             Variables.ColeccionACC = NuevaAccion()
@@ -725,14 +617,11 @@ Public Class frmAcciones
         If Estado = "M" Then
             oAccionesDAO.ProcesoDatos(Accion, codigo, ElementosAccion, "Modificar")
 
-            'ActualizarRegistro()
-            'ModificarAccion()
-            'ModificarElementoAccion()
+
 
         End If
         If Estado = "B" Then
-            'ActualizarRegistro()
-            'EliminarAccion()
+
             Eliminar()
 
         End If
@@ -853,9 +742,7 @@ Public Class frmAcciones
 
     End Sub
 
-    Private Sub RefrescarValores()
 
-    End Sub
 
     '********** CONTROL DE VALORES **********
     'COMPRA
@@ -948,15 +835,7 @@ Public Class frmAcciones
         RefrescarValorControles()
 
     End Sub
-    Private Sub ControlChkBolsa()
-        'ActivarEdicion()
 
-    End Sub
-    Private Sub ControlChkAccionPreferente()
-        'ActivarEdicion()
-
-
-    End Sub
 
     '********** FIN CONTROL DE VALORES **********
 
@@ -966,8 +845,6 @@ Public Class frmAcciones
 
     'COMPRA
     Private Sub txtPrecioLimpioCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioLimpioCompra.TextChanged
-        'ControlPrecioLimpioCompra()
-        'ActivarEdicion()
         ControlPrecioLimpioCompra()
     End Sub
 
@@ -975,7 +852,6 @@ Public Class frmAcciones
         ControlPrecioLimpioCompra()
     End Sub
     Private Sub dtpFechaOperacionCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaOperacionCompra.ValueChanged
-        'ActivarEdicion()
         If DatosCargados Then
             ControlFechaOperacionCompra()
             RefrescarValorControles()
@@ -984,7 +860,6 @@ Public Class frmAcciones
     End Sub
 
     Private Sub dtpFechaLiquidacionCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoCompra.ValueChanged
-        'ActivarEdicion()
         If DatosCargados Then
             ControlFechaLiquidacionCompra()
             RefrescarValorControles()
@@ -993,11 +868,7 @@ Public Class frmAcciones
     End Sub
 
     Private Sub txtUnidadesCompra_TextChanged(sender As Object, e As EventArgs) Handles txtUnidadesCompra.TextChanged
-        'ActivarEdicion()
-        'ControlCantidadCompra()
         If DatosCargados Then
-
-
             ControlCantidadCompra()
             CopiarDatos()
         End If
@@ -1015,8 +886,6 @@ Public Class frmAcciones
 
     'VENTA
     Private Sub txtPrecioLimpioVenta_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioLimpioVenta.TextChanged
-        'ActivarEdicion()
-        'ControlPrecioLimpioVenta()
         ControlPrecioLimpioVenta()
     End Sub
 
@@ -1025,7 +894,7 @@ Public Class frmAcciones
     End Sub
 
     Private Sub dtpFechaOperacionVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaOperacionVenta.ValueChanged
-        'ActivarEdicion()
+
         If DatosCargados Then
             ControlFechaOperacionVenta()
             RefrescarValorControles()
@@ -1033,7 +902,7 @@ Public Class frmAcciones
     End Sub
 
     Private Sub dtpFechaLiquidacionVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoVenta.ValueChanged
-        'ActivarEdicion()
+
         If DatosCargados Then
             ControlFechaLiquidacionVenta()
             RefrescarValorControles()
@@ -1041,11 +910,9 @@ Public Class frmAcciones
     End Sub
 
     Private Sub txtUnidadesVenta_TextChanged(sender As Object, e As EventArgs) Handles txtUnidadesVenta.TextChanged
-        'ActivarEdicion()
-        'ControlCantidadVenta()
+
         If DatosCargados Then
             ControlCantidadVenta()
-
             MensajeAlerta()
             MostrarMensaje = True
         End If
@@ -1074,7 +941,7 @@ Public Class frmAcciones
         ControlCantidadVenta()
     End Sub
     Private Sub chkBolsa_CheckedChanged(sender As Object, e As EventArgs)
-        ControlChkBolsa()
+
     End Sub
 
     '********** FIN EVENTOS DE CONTROLES ********** 
@@ -1083,7 +950,7 @@ Public Class frmAcciones
 
     '********** FUNCIONES **********
     Private Sub RefrescarClaseEntidad()
-        ControlChkBolsa()
+
 
         ControlPrecioLimpioCompra()
         ControlFechaOperacionCompra()
@@ -1095,7 +962,7 @@ Public Class frmAcciones
         ControlFechaLiquidacionVenta()
         ControlCantidadVenta()
 
-        'RefrescarValorControles()
+
 
     End Sub
 
@@ -1190,34 +1057,7 @@ Public Class frmAcciones
 
     Sub RefrescarValorControlesInicial()
 
-
-
-
-
-
-
         Me.txtRetornoAnualBrutoCompra.Text = oAccionesCE.RetornoBruto * 100
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
         Dim IOF = oAccionesCE.IOF
         Dim Renta = oAccionesCE.Renta
 
@@ -1287,8 +1127,6 @@ Public Class frmAcciones
 
 
 
-        '   ImpuestosCalculoCompra = CalcularComisionImpuestos(CDec(CalcularImpuesto()), CDec(txtValorTransadoCompra.Text))
-
 
         Dim ValorIOFCompra = 0.0, ValorRentaCompra = 0.0
 
@@ -1327,8 +1165,6 @@ Public Class frmAcciones
 
 
 
-        '  ImpuestosCalculoVenta = CalcularComisionImpuestos(CDec(CalcularImpuesto()), CDec(txtValorTransadoVenta.Text))
-
         Dim ValorIOFVenta = 0.0, ValorRentaVenta = 0.0
 
 
@@ -1554,7 +1390,6 @@ Public Class frmAcciones
             Me.txtComisionBolsaCompra.Text = CalcularComisionImpuestos(ComisionBolsaCompra, txtValorTransadoCompra.Text)
 
 
-            '   ImpuestosCalculoCompra = CalcularComisionImpuestos(CDec(CalcularImpuesto()), CDec(txtValorTransadoCompra.Text))
             If (String.IsNullOrEmpty(oAccionesCE.SumaImpuestosYComisionesCompra.ToString(Configuraciones.CodigoTXTMontos))) Then
 
 
@@ -1713,19 +1548,6 @@ Public Class frmAcciones
                     End If
 
                 End If
-
-
-
-
-
-
-
-
-
-
-
-
-
             End If
             If (String.IsNullOrEmpty(oAccionesCE.CantidadVenta.ToString)) Then
 
@@ -1773,7 +1595,6 @@ Public Class frmAcciones
 
             Me.txtComisionBolsaVenta.Text = CalcularComisionImpuestos(ComisionBolsaVenta, ValorTransadoVenta)
 
-            '  ImpuestosCalculoVenta = CalcularComisionImpuestos(CDec(CalcularImpuesto()), CDec(txtValorTransadoVenta.Text))
             txtGananciaCapitalTotalVenta.Text += SumaComisiones()
             Dim ValorIOFVenta = 0.0, ValorRentaVenta = 0.0
 
@@ -1892,68 +1713,7 @@ Public Class frmAcciones
         Return Comision * ValorTransado
     End Function
 
-    Private Sub PrepararTablaImpuestosYComisiones()
-        Dim oDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
-        Dim oDataGridViewComboBoxColumn As DataGridViewComboBoxColumn
-
-        oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-        oDataGridViewComboBoxColumn.Name = "CodImp"
-        oDataGridViewComboBoxColumn.HeaderText = "Tipo Impuesto"
-        oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTiposImpuesto
-        oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-        oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-        oDataGridViewComboBoxColumn.DataPropertyName = "CodImp"
-        oDataGridViewComboBoxColumn.DisplayIndex = 0
-        '  Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-        oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-        oDataGridViewComboBoxColumn.Name = "TipoOper"
-        oDataGridViewComboBoxColumn.HeaderText = "Tipo Operación"
-        oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTipoOperacion
-        oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-        oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-        oDataGridViewComboBoxColumn.DataPropertyName = "TipoOper"
-        oDataGridViewComboBoxColumn.DisplayIndex = 1
-        '  Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "PorcImp"
-        oDataGridViewTextBoxColumn.HeaderText = "Porcentaje"
-        oDataGridViewTextBoxColumn.DataPropertyName = "PorcImp"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTPorcentaje
-        oDataGridViewTextBoxColumn.DisplayIndex = 2
-        '  Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "MontoSujeto"
-        oDataGridViewTextBoxColumn.HeaderText = "Monto Sujeto"
-        oDataGridViewTextBoxColumn.DataPropertyName = "MontoSujeto"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        oDataGridViewTextBoxColumn.ReadOnly = True
-        oDataGridViewTextBoxColumn.DisplayIndex = 3
-        '  Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "MontoImp"
-        oDataGridViewTextBoxColumn.HeaderText = "Monto Impuesto"
-        oDataGridViewTextBoxColumn.DataPropertyName = "MontoImp"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        oDataGridViewTextBoxColumn.DisplayIndex = 4
-        oDataGridViewTextBoxColumn.ReadOnly = True
-        '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "CodInv"
-        oDataGridViewTextBoxColumn.DataPropertyName = "CodInv"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.Visible = False
-        '   Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
 
-        '   Me.dgvImpuestosYComisiones.DataSource = oAccionesCE.ImpuestosYComisiones
-    End Sub
     Private Sub PrepararTablaDividendos()
         Dim oDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
         oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
@@ -2079,28 +1839,8 @@ Public Class frmAcciones
 
     End Sub
 
-    Private Sub GuardarRegistro()
 
-    End Sub
-    Private Sub ActualizarRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
-        res = oAccionesDAO.Actualizar(oAccionesCE)
-
-        If res > 0 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
 
-    End Sub
-    'Private Sub ActivarEdicion()
-    '    If TipoTransaccion = "C" Then
-    '        Me.TipoTransaccion = "A"
-    '        Me.btnAceptar.Text = "Guardar"
-    '    End If
-
-    'End Sub
     Private Function FechaDividendo()
         Dim Index = dgvDividendos.CurrentRow.Index
         Dim IndexAnterior = Index - 1
@@ -2270,113 +2010,39 @@ Public Class frmAcciones
 
     End Function
 
-    Function RangoDias(ByVal Fecha As Date, ByVal FechaVen As Date)
-        Dim Dias As Integer = DateDiff(DateInterval.Day, Fecha, FechaVen)
-        Return Dias
-    End Function
 
 
 
-    Function CantidadDiasUtimo(ByVal Fecha As Date)
-        Dim Año As Integer = Fecha.Year
-        Dim FechaCorte As Date = CDate("31/12/" + Año.ToString)
 
-        Dim Dias As Integer = DateDiff(DateInterval.Day, Fecha, FechaCorte)
 
-        Return Dias
-    End Function
 
 
 
-    Private Sub PrepararImpuestosYComisiones(ByVal IdFila As Integer)
-        '   Dim vFila As DataGridViewRow = dgvImpuestosYComisiones.Rows(IdFila)
-        '   If vFila.IsNewRow Then
-        '  vFila.Cells("TipoOper").Value = "V"
-        ' vFila.Cells("PorcImp").Value = 0
-        '  vFila.Cells("MontoSujeto").Value = oAccionesCE.ValorTransadoVenta
-        '     vFila.Cells("MontoImp").Value = 0.00
-        'End If
-
-    End Sub
-    '  Private Sub CalcularImpuestosYComisiones(ByVal IdFila As Integer, ByVal IdCol As Integer)
-    ' Dim vFila As DataGridViewRow = dgvImpuestosYComisiones.Rows(IdFila)
-    'Dim vTipoOperacion As String
-    'Dim vCodigoImpuesto As String
-    'Dim vPorcentajeImpuesto As Double
-    'Dim vMontoSujeto As Double
-    'Dim vMontoImpuesto As Double
-    '
-    'If Not vFila.IsNewRow Then
-    '       vCodigoImpuesto = vFila.Cells("CodImp").Value.ToString
-    '      vTipoOperacion = vFila.Cells("TipoOper").Value.ToString
-    'Double.TryParse(vFila.Cells("PorcImp").Value.ToString, vPorcentajeImpuesto)
-    'If IdCol = 3 Then
-    '           vPorcentajeImpuesto = vPorcentajeImpuesto / 100
-    '          vFila.Cells("PorcImp").Value = vPorcentajeImpuesto
-    'End If
-
-    'If vTipoOperacion = "C" Then
-    '           vMontoSujeto = oAccionesCE.ValorTransadoCompra
-    '          vFila.Cells("MontoSujeto").Value = oAccionesCE.ValorTransadoCompra
-    'ElseIf vTipoOperacion = "V" Then
-    '           vMontoSujeto = oAccionesCE.ValorTransadoVenta
-    '          vFila.Cells("MontoSujeto").Value = oAccionesCE.ValorTransadoVenta
-    'Else
-    '           vMontoSujeto = 0
-    'End If
-
-    '       vMontoImpuesto = vMontoSujeto * vPorcentajeImpuesto
-    '      vFila.Cells("MontoImp").Value = vMontoImpuesto
-
-    'End If
-
-    '   RefrescarClaseEntidad()
-    '  RefrescarValorControles()
-    'End Sub
+
 
 
     Private Sub dgvDividendos_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs) Handles dgvDividendos.CellBeginEdit
-        'ActivarEdicion()
         PrepararCalculoDividendos(e.RowIndex)
     End Sub
     Private Sub dgvDividendos_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvDividendos.CellEndEdit
-        '    If (Not dgvDividendos.Rows(0).IsNewRow) Then
-
-
-        '        If (DobleClick) Then
-        '            DobleClick = False
-        '            rdbEfectivo.Enabled = True
-        '            rdbPorcentaje.Enabled = True
-
-
-        '            TabControl1.TabPages.Insert(0, TabPage1)
-        '        End If
-        '    End If
-
         CalcularDividendos()
-
-
         RefrescarValorControles()
-
-
     End Sub
 
     Private Sub dgvDividendos_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles dgvDividendos.UserDeletedRow
-        'ActivarEdicion()
-        '   oAccionesCE.Dividendos.AcceptChanges()
+
     End Sub
 
     Private Sub dgvImpuestosYComisiones_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs)
-        'ActivarEdicion()
-        PrepararImpuestosYComisiones(e.RowIndex)
+
     End Sub
 
     Private Sub dgvImpuestosYComisiones_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs)
-        ' CalcularImpuestosYComisiones(e.RowIndex, e.ColumnIndex)
+
     End Sub
 
     Private Sub dgvImpuestosYComisiones_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs)
-        'ActivarEdicion()
+
         oAccionesCE.ImpuestosYComisiones.AcceptChanges()
     End Sub
 
@@ -2473,13 +2139,9 @@ Public Class frmAcciones
 
     Private Sub Button1_Click(sender As Object, e As EventArgs)
         If (Estado = "N") Then
-            'RefrescarClaseEntidad()
             NuevaAccion()
         End If
-        If Estado = "M" Then
-            'ActualizarRegistro()
 
-        End If
     End Sub
 
     Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click
@@ -2583,164 +2245,19 @@ Public Class frmAcciones
     End Sub
 
     Private Sub btnAgregarImpuesto_Click(sender As Object, e As EventArgs)
-        '    GuardarImpuesto()
-    End Sub
-
-    'Private Sub PrepararTablaImpuestos()
-    '   Dim cboColumna As DataGridViewComboBoxColumn
-    '    cboColumna = New DataGridViewComboBoxColumn
-    '     cboColumna.Name = "Valor"
-    '      cboColumna.HeaderText = "CodImp"
-    '       cboColumna.DataSource = oDAOGeneral.ListaImpuesto
-    'cboColumna.ValueMember = "CodImp"
-    'cboColumna.DisplayMember = "Descripcion"
-    ' cboColumna.DataPropertyName = "CodImp"
-    '  cboColumna.DisplayIndex = 1
-    '   Me.dgvImpuestos.Columns.Add(cboColumna)
-
-    'End Sub
-    'Sub GuardarImpuesto()
-    'Dim Impuesto = dgvImpuestos.CurrentRow.Cells(0).Value
-    'Dim CodigoInv = Variables.Codigo
-    '  Dim ValorImpuesto = ReportoConsula.TraerImpuesto(Impuesto)
-    ' Dim Valor = oDAOGeneral.AgregarImpuesto(CodigoInv, "ACC0", Impuesto, 0)
-    '  ActualizarImpuestos(Valor)
-    '   RefrescarValorControles()
-    'End Sub
-
-    ' Sub ModificarImpu(ByVal Impuesto As String)
-
-    ' Dim CodigoInv = Variables.Codigo
-    '  Dim ValorImpuesto = ReportoConsula.TraerImpuesto(Impuesto)
-    '  Dim Valor = oDAOGeneral.AgregarImpuesto(CodigoInv, "ACC0", Impuesto, 1)
-    '   ActualizarImpuestos(Valor)
-    '    RefrescarValorControles()
-    ' End Sub
-
-    ' Sub ActualizarImpuestos(ByVal Valor As Integer)
-    'If (Valor = 1) Then
-    '       dgvImpuestoAgregado.Rows.Clear()
-    '      CargarImpuestos()
-    'End If
-
-    'End Sub
-
-    Private Sub dgvImpuestoAgregado_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
 
     End Sub
 
-    'Sub CargarImpuestos()
-
-    'Try
-
-
-    'Dim codigo As String = Variables.Codigo
-    'Dim ListaImpuestos As String()
-    'Dim ClaveImpuesto
-
-    'Dim dr = oDAOGeneral.CargarImpuesto(codigo, "ACC0")
-    'While dr.Read
-    'If (Not String.IsNullOrEmpty(dr("Impuestos").ToString)) Then
-    '               ClaveImpuesto = dr("Impuestos")
-    '              ListaImpuestos = ClaveImpuesto.split("-")
-    'Else
-    '               ClaveImpuesto = String.Empty
-    'End If
-
-    'End While
-    'For Each i As String In ListaImpuestos
-    '           dgvImpuestoAgregado.Rows.Add(i)
-
-    'Next
-    'Catch ex As Exception
-
-    'End Try
-    'End Sub
-
-
-    ' Sub ModificarImpuestos()
-    'Dim Index As Integer = dgvImpuestoAgregado.CurrentRow.Index
-    'Dim Cantidad As Integer = dgvImpuestoAgregado.Rows.Count - 1
-    'Dim Cadena As String = String.Empty
-    'Dim IsNothing As Boolean = False
-
 
-    '   Cadena = dgvImpuestoAgregado.CurrentRow.Cells(0).Value
-    'If (String.IsNullOrEmpty(Cadena)) Then
-    '       MsgBox("No se puede quitar una cadena vacía")
-    'Else
-    '       ModificarImpu(Cadena)
-    'End If
-
-
-
-
-
-
-
-
-    'End Sub
-
-    Function ObtenerCodigosImpuestos()
-
-
-        Dim codigo As String = Variables.Codigo
-        Dim ListaImpuestos As String()
-        Dim ClaveImpuesto
-        Dim coleccion As New Collection
-        Dim dr = oDAOGeneral.CargarImpuesto(codigo, "ACC0")
-        While dr.Read
-            If (Not String.IsNullOrEmpty(dr("Impuestos").ToString)) Then
-                ClaveImpuesto = dr("Impuestos")
-                ListaImpuestos = ClaveImpuesto.split("-")
-            Else
-                ClaveImpuesto = String.Empty
-            End If
-
-        End While
-        For Each i As String In ListaImpuestos
-            coleccion.Add(i)
-        Next
-
-
-
-        Return coleccion
-    End Function
-    ' Sub AgregarCamposImpuestos()
-    '    Dim CodImp, code As New DataGridViewTextBoxColumn
-    '    CodImp.Name = "CodImp"
-    'dgvImpuestoAgregado.Columns.Add(CodImp)
-
-    '  End Sub
-
-    '********** FIN FUNCIONES **********
-
-    ' Function CalcularImpuesto()
-    'Dim Cargar As New Collection
-    'Dim CantidadFilas = dgvImpuestoAgregado.Rows.Count - 1
-    'Dim Val As String
-    'For i As Integer = 0 To CantidadFilas
-    '       Val = dgvImpuestoAgregado.Rows(i).Cells(0).Value
-    '      Cargar.Add(Val)
-    'Next
-    'Dim Cantidad As Double = 0
-    'Dim Impuestos As Dictionary(Of String, String) = oDAOGeneral.ObtenerImpuesto()
-    'For Each i In Cargar
 
+    Private Sub dgvImpuestoAgregado_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
 
-    'For Each valor In Impuestos
-    'If (valor.Key.ToString = i) Then
-    '               Cantidad = Cantidad + valor.Value
+    End Sub
 
-    'End If
-    'Next
 
-    'Next
-    'Return Cantidad
-    'End Function
 
     Private Sub btnQuitar_Click(sender As Object, e As EventArgs)
-        '   ModificarImpuestos()
+
     End Sub
 
     Private Sub dgvImpuestoAgregado_CellClick(sender As Object, e As DataGridViewCellEventArgs)
@@ -2961,17 +2478,6 @@ Public Class frmAcciones
     End Sub
 
     Private Sub dgvDividendos_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvDividendos.CellDoubleClick
-        'If (dgvDividendos.Rows.Count = 1) Then
-
-
-
-        '    If (dgvDividendos.Rows(0).IsNewRow) Then
-        '        DobleClick = True
-        '        rdbEfectivo.Enabled = False
-        '        rdbPorcentaje.Enabled = False
-        '        TabPage1.Parent = Nothing
-        '    End If
-        'End If
 
 
 
@@ -3277,21 +2783,11 @@ Public Class frmAcciones
         End While
     End Sub
 
-    Private Sub btnGenerarAccion_Click(sender As Object, e As EventArgs) Handles btnAsociarAccion.Click
-        GenerarAccion()
-    End Sub
+    Private Sub btnGenerarAccion_Click(sender As Object, e As EventArgs)
 
-    Sub GenerarAccion()
-        Dim result As Integer = MsgBox("¿Está seguro de Asociar acciones?", MsgBoxStyle.OkCancel)
-        ' Test result.
-        If result = MsgBoxResult.Ok Then
-            ' Get the file name.
-            Dim frmAsociaciones As New frmAsociarAcciones
+    End Sub
 
-            frmAsociaciones.Show()
 
-        End If
-    End Sub
 
     Private Sub dgvDividendos_CellMouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvDividendos.CellMouseMove
         If Cierre Then
@@ -3483,4 +2979,20 @@ Public Class frmAcciones
         TrasladarDatos.AgregarCMVTA = True
         Return TrasladarDatos
     End Function
+
+    Private Sub txtValorTransadoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtValorTransadoVenta.TextChanged
+
+    End Sub
+
+    Private Sub txtMontoNetoVenta_TextChanged(sender As Object, e As EventArgs) Handles txtMontoNetoVenta.TextChanged
+
+    End Sub
+
+    Private Sub txtComisionCasaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtComisionCasaCompra.TextChanged
+
+    End Sub
+
+    Private Sub txtComisionCasaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtComisionCasaVenta.TextChanged
+
+    End Sub
 End Class

FRM/frmActualizar.Designer.vb

@@ -1,52 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmActualizar
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.dgvActualizar = New System.Windows.Forms.DataGridView()
-        CType(Me.dgvActualizar, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'dgvActualizar
-        '
-        Me.dgvActualizar.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvActualizar.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvActualizar.Location = New System.Drawing.Point(0, 0)
-        Me.dgvActualizar.Name = "dgvActualizar"
-        Me.dgvActualizar.Size = New System.Drawing.Size(772, 334)
-        Me.dgvActualizar.TabIndex = 0
-        '
-        'frmActualizar
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(772, 334)
-        Me.Controls.Add(Me.dgvActualizar)
-        Me.Name = "frmActualizar"
-        Me.Text = "frmActualizar"
-        CType(Me.dgvActualizar, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents dgvActualizar As DataGridView
-End Class

FRM/frmActualizar.vb

@@ -1,13 +0,0 @@
-Public Class frmActualizar
-    Private Sub frmActualizar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        CargarRegistroBD()
-    End Sub
-    Private Sub CargarRegistroBD()
-        Dim oAccionesCE As AccionesCE = New AccionesCE
-
-        Dim CodigoInversion As String = Variables.Codigo
-        Dim oAccionesDAO As New AccionesDAO
-        Dim dt As DataTable = oAccionesDAO.CargarRegistroActualizar()
-        dgvActualizar.DataSource = dt
-    End Sub
-End Class

FRM/frmAsociarAcciones.Designer.vb

@@ -1,160 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmAsociarAcciones
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Me.lblTitulo = New System.Windows.Forms.Label()
-        Me.cboCodigo = New System.Windows.Forms.ComboBox()
-        Me.InversionesDEVDataSet1 = New Inversiones.InversionesDEVDataSet1()
-        Me.InversionesDEVDataSet = New Inversiones.InversionesDEVDataSet()
-        Me.INV0BindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.INV0TableAdapter = New Inversiones.InversionesDEVDataSetTableAdapters.INV0TableAdapter()
-        Me.INV0BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
-        Me.INV0TableAdapter1 = New Inversiones.InversionesDEVDataSet1TableAdapters.INV0TableAdapter()
-        Me.txtCodigo = New System.Windows.Forms.TextBox()
-        Me.btnAceptar = New System.Windows.Forms.Button()
-        Me.btnEliminar = New System.Windows.Forms.Button()
-        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
-        CType(Me.InversionesDEVDataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.InversionesDEVDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.INV0BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.INV0BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'lblTitulo
-        '
-        Me.lblTitulo.AutoSize = True
-        Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.Location = New System.Drawing.Point(79, 9)
-        Me.lblTitulo.Name = "lblTitulo"
-        Me.lblTitulo.Size = New System.Drawing.Size(159, 24)
-        Me.lblTitulo.TabIndex = 81
-        Me.lblTitulo.Text = "Asociar Acciones"
-        '
-        'cboCodigo
-        '
-        Me.cboCodigo.DataSource = Me.InversionesDEVDataSet1
-        Me.cboCodigo.DisplayMember = "INV0.CodInv"
-        Me.cboCodigo.FormattingEnabled = True
-        Me.cboCodigo.Location = New System.Drawing.Point(88, 50)
-        Me.cboCodigo.Name = "cboCodigo"
-        Me.cboCodigo.Size = New System.Drawing.Size(130, 21)
-        Me.cboCodigo.TabIndex = 82
-        Me.cboCodigo.ValueMember = "INV0.CodInv"
-        '
-        'InversionesDEVDataSet1
-        '
-        Me.InversionesDEVDataSet1.DataSetName = "InversionesDEVDataSet1"
-        Me.InversionesDEVDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'InversionesDEVDataSet
-        '
-        Me.InversionesDEVDataSet.DataSetName = "InversionesDEVDataSet"
-        Me.InversionesDEVDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'INV0BindingSource
-        '
-        Me.INV0BindingSource.DataMember = "INV0"
-        Me.INV0BindingSource.DataSource = Me.InversionesDEVDataSet
-        '
-        'INV0TableAdapter
-        '
-        Me.INV0TableAdapter.ClearBeforeFill = True
-        '
-        'INV0BindingSource1
-        '
-        Me.INV0BindingSource1.DataMember = "INV0"
-        Me.INV0BindingSource1.DataSource = Me.InversionesDEVDataSet1
-        '
-        'INV0TableAdapter1
-        '
-        Me.INV0TableAdapter1.ClearBeforeFill = True
-        '
-        'txtCodigo
-        '
-        Me.txtCodigo.Location = New System.Drawing.Point(86, 89)
-        Me.txtCodigo.Name = "txtCodigo"
-        Me.txtCodigo.Size = New System.Drawing.Size(130, 20)
-        Me.txtCodigo.TabIndex = 83
-        '
-        'btnAceptar
-        '
-        Me.btnAceptar.Location = New System.Drawing.Point(33, 236)
-        Me.btnAceptar.Name = "btnAceptar"
-        Me.btnAceptar.Size = New System.Drawing.Size(82, 37)
-        Me.btnAceptar.TabIndex = 84
-        Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
-        '
-        'btnEliminar
-        '
-        Me.btnEliminar.Location = New System.Drawing.Point(189, 236)
-        Me.btnEliminar.Name = "btnEliminar"
-        Me.btnEliminar.Size = New System.Drawing.Size(77, 37)
-        Me.btnEliminar.TabIndex = 85
-        Me.btnEliminar.Text = "Eliminar"
-        Me.btnEliminar.UseVisualStyleBackColor = True
-        '
-        'RichTextBox1
-        '
-        Me.RichTextBox1.Location = New System.Drawing.Point(12, 115)
-        Me.RichTextBox1.Name = "RichTextBox1"
-        Me.RichTextBox1.Size = New System.Drawing.Size(314, 96)
-        Me.RichTextBox1.TabIndex = 86
-        Me.RichTextBox1.Text = ""
-        '
-        'frmAsociarAcciones
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(338, 305)
-        Me.Controls.Add(Me.RichTextBox1)
-        Me.Controls.Add(Me.btnEliminar)
-        Me.Controls.Add(Me.btnAceptar)
-        Me.Controls.Add(Me.txtCodigo)
-        Me.Controls.Add(Me.cboCodigo)
-        Me.Controls.Add(Me.lblTitulo)
-        Me.Name = "frmAsociarAcciones"
-        Me.Text = "frmAsociarAcciones"
-        CType(Me.InversionesDEVDataSet1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.InversionesDEVDataSet, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.INV0BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.INV0BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents lblTitulo As Label
-    Friend WithEvents cboCodigo As ComboBox
-    Friend WithEvents InversionesDEVDataSet As InversionesDEVDataSet
-    Friend WithEvents INV0BindingSource As BindingSource
-    Friend WithEvents INV0TableAdapter As InversionesDEVDataSetTableAdapters.INV0TableAdapter
-    Friend WithEvents InversionesDEVDataSet1 As InversionesDEVDataSet1
-    Friend WithEvents INV0BindingSource1 As BindingSource
-    Friend WithEvents INV0TableAdapter1 As InversionesDEVDataSet1TableAdapters.INV0TableAdapter
-    Friend WithEvents txtCodigo As TextBox
-    Friend WithEvents btnAceptar As Button
-    Friend WithEvents btnEliminar As Button
-    Friend WithEvents RichTextBox1 As RichTextBox
-End Class

FRM/frmAsociarAcciones.resx

@@ -1,138 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="InversionesDEVDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>504, 17</value>
-  </metadata>
-  <metadata name="InversionesDEVDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="INV0BindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>195, 17</value>
-  </metadata>
-  <metadata name="INV0TableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>352, 17</value>
-  </metadata>
-  <metadata name="INV0BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
-  </metadata>
-  <metadata name="INV0TableAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>181, 56</value>
-  </metadata>
-</root>

FRM/frmAsociarAcciones.vb

@@ -1,17 +0,0 @@
-Public Class frmAsociarAcciones
-    Private Sub frmAsociarAcciones_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'TODO: esta línea de código carga datos en la tabla 'InversionesDEVDataSet1.INV0' Puede moverla o quitarla según sea necesario.
-        Me.INV0TableAdapter1.Fill(Me.InversionesDEVDataSet1.INV0)
-        'TODO: esta línea de código carga datos en la tabla 'InversionesDEVDataSet.INV0' Puede moverla o quitarla según sea necesario.
-        Me.INV0TableAdapter.Fill(Me.InversionesDEVDataSet.INV0)
-
-    End Sub
-
-    Private Sub txtCodigo_TextChanged(sender As Object, e As EventArgs) Handles txtCodigo.TextChanged
-
-    End Sub
-
-    Private Sub cboCodigo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCodigo.SelectedIndexChanged
-        txtCodigo.Text = cboCodigo.SelectedValue
-    End Sub
-End Class

FRM/frmBonos.Designer.vb

@@ -1,1380 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmBonos
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBonos))
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.Label18 = New System.Windows.Forms.Label()
-        Me.Label19 = New System.Windows.Forms.Label()
-        Me.Label20 = New System.Windows.Forms.Label()
-        Me.Label21 = New System.Windows.Forms.Label()
-        Me.dtpUltimaFechaCuponCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpSiguienteFechaCuponCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaLiquidacionCompra = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaVencimientoCompra = New System.Windows.Forms.DateTimePicker()
-        Me.txtValorNominalCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeCuponCompra = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoComisionCompra = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioCompra = New System.Windows.Forms.TextBox()
-        Me.txtDiasAcumuladosCompra = New System.Windows.Forms.TextBox()
-        Me.txtPrecioSucioCompra = New System.Windows.Forms.TextBox()
-        Me.txtInteresAcumuladoCompra = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeInteresAcumuladoCompra = New System.Windows.Forms.TextBox()
-        Me.txtValorTransadoCompra = New System.Windows.Forms.TextBox()
-        Me.txtMontoAPagar = New System.Windows.Forms.TextBox()
-        Me.txtCostoTransferenciaCompra = New System.Windows.Forms.TextBox()
-        Me.txtDiasAlVencimientoCompra = New System.Windows.Forms.TextBox()
-        Me.Label17 = New System.Windows.Forms.Label()
-        Me.lblBono = New System.Windows.Forms.Label()
-        Me.txtDiasAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtCostoTransferenciaVenta = New System.Windows.Forms.TextBox()
-        Me.txtMontoARecibir = New System.Windows.Forms.TextBox()
-        Me.txtValorTransadoVenta = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeInteresAcumuladoVenta = New System.Windows.Forms.TextBox()
-        Me.txtInteresAcumuladoVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioSucioVenta = New System.Windows.Forms.TextBox()
-        Me.txtDiasAcumuladosVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioVenta = New System.Windows.Forms.TextBox()
-        Me.txtPrecioAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoVenta = New System.Windows.Forms.TextBox()
-        Me.txtYTMAlVencimientoComisionVenta = New System.Windows.Forms.TextBox()
-        Me.txtPorcentajeCuponVenta = New System.Windows.Forms.TextBox()
-        Me.txtValorNominalVenta = New System.Windows.Forms.TextBox()
-        Me.dtpFechaVencimientoVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaLiquidacionVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpSiguienteFechaCuponVenta = New System.Windows.Forms.DateTimePicker()
-        Me.dtpUltimaFechaCuponVenta = New System.Windows.Forms.DateTimePicker()
-        Me.Label22 = New System.Windows.Forms.Label()
-        Me.Label23 = New System.Windows.Forms.Label()
-        Me.Label24 = New System.Windows.Forms.Label()
-        Me.Label25 = New System.Windows.Forms.Label()
-        Me.Label26 = New System.Windows.Forms.Label()
-        Me.label27 = New System.Windows.Forms.Label()
-        Me.lblIngresosPorIntereses_Op = New System.Windows.Forms.Label()
-        Me.lblCostosTotales_Op = New System.Windows.Forms.Label()
-        Me.lblGananciaPerdidaTotal_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoGananciaPerdida_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoIntereses_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoAntesISR_Op = New System.Windows.Forms.Label()
-        Me.lblRendimientoDespuesISR_Op = New System.Windows.Forms.Label()
-        Me.Label35 = New System.Windows.Forms.Label()
-        Me.txtValorNominal_Op = New System.Windows.Forms.TextBox()
-        Me.txtPlazo_Op = New System.Windows.Forms.TextBox()
-        Me.txtPrecioCompra_Op = New System.Windows.Forms.TextBox()
-        Me.txtPrecioVenta_Op = New System.Windows.Forms.TextBox()
-        Me.txtGananciaPerdidaCapital_Op = New System.Windows.Forms.TextBox()
-        Me.txtIngresosPorIntereses_Op = New System.Windows.Forms.TextBox()
-        Me.txtCostosTotales_Op = New System.Windows.Forms.TextBox()
-        Me.txtGananciaPerdidaTotal_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoGananciaPerdida_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoIntereses_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoAntesISR_Op = New System.Windows.Forms.TextBox()
-        Me.txtRendimientoDespuesISR_Op = New System.Windows.Forms.TextBox()
-        Me.btnAceptar = New System.Windows.Forms.Button()
-        Me.btnCancelar = New System.Windows.Forms.Button()
-        Me.cboAnioBaseC = New System.Windows.Forms.ComboBox()
-        Me.cboAnioBaseV = New System.Windows.Forms.ComboBox()
-        Me.cboPeriodosC = New System.Windows.Forms.ComboBox()
-        Me.cboPeriodosV = New System.Windows.Forms.ComboBox()
-        Me.Label29 = New System.Windows.Forms.Label()
-        Me.Label30 = New System.Windows.Forms.Label()
-        Me.TabControl1 = New System.Windows.Forms.TabControl()
-        Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.btnBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.btnCasaVenta = New System.Windows.Forms.TextBox()
-        Me.btnBolsaCompra = New System.Windows.Forms.TextBox()
-        Me.btnCasaCompra = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeBolsaVenta = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeCasaVenta = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeBolsaCompra = New System.Windows.Forms.TextBox()
-        Me.btnPorcentajeCasaCompra = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.btnAccionIngreso = New System.Windows.Forms.Button()
-        Me.dgvIngresos = New System.Windows.Forms.DataGridView()
-        Me.TabPage4 = New System.Windows.Forms.TabPage()
-        Me.pnlPie = New System.Windows.Forms.Panel()
-        Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.navModificar = New System.Windows.Forms.ToolStripButton()
-        Me.navNuevo = New System.Windows.Forms.ToolStripButton()
-        Me.navEliminar = New System.Windows.Forms.ToolStripButton()
-        Me.TabControl1.SuspendLayout()
-        Me.TabPage1.SuspendLayout()
-        Me.TabPage2.SuspendLayout()
-        CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TabPage4.SuspendLayout()
-        Me.pnlPie.SuspendLayout()
-        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.BindingNavigator1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(20, 73)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(88, 18)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "Valor Nominal"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(20, 95)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(142, 18)
-        Me.Label2.TabIndex = 1
-        Me.Label2.Text = "Ultima Fecha de Cupon"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(20, 117)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(159, 18)
-        Me.Label3.TabIndex = 2
-        Me.Label3.Text = "Siguiente Fecha de Cupon"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(20, 139)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(131, 18)
-        Me.Label4.TabIndex = 3
-        Me.Label4.Text = "Fecha de Liquidacion"
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(20, 161)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(136, 18)
-        Me.Label5.TabIndex = 4
-        Me.Label5.Text = "Fecha de Vencimiento"
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(20, 250)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 18)
-        Me.Label6.TabIndex = 5
-        Me.Label6.Text = "Cupon %"
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(20, 294)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(182, 18)
-        Me.Label7.TabIndex = 6
-        Me.Label7.Text = "YTM Al Vencimiento Comision"
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
-        Me.Label8.Location = New System.Drawing.Point(20, 272)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(124, 18)
-        Me.Label8.TabIndex = 7
-        Me.Label8.Text = "YTM Al vencimiento"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(20, 382)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(134, 18)
-        Me.Label9.TabIndex = 8
-        Me.Label9.Text = "Precio al Vencimiento"
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.ForeColor = System.Drawing.SystemColors.ControlText
-        Me.Label10.Location = New System.Drawing.Point(20, 404)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(133, 18)
-        Me.Label10.TabIndex = 9
-        Me.Label10.Text = "Precio Compra/Venta"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(20, 183)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(74, 18)
-        Me.Label11.TabIndex = 10
-        Me.Label11.Text = "Base (Dias)"
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(20, 228)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(106, 18)
-        Me.Label12.TabIndex = 11
-        Me.Label12.Text = "Dias Acumulados"
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(20, 206)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(123, 18)
-        Me.Label13.TabIndex = 12
-        Me.Label13.Text = "Dias al Vencimiento"
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label16.Location = New System.Drawing.Point(20, 426)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(116, 18)
-        Me.Label16.TabIndex = 15
-        Me.Label16.Text = "Interes Acumulado"
-        '
-        'Label18
-        '
-        Me.Label18.AutoSize = True
-        Me.Label18.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label18.Location = New System.Drawing.Point(20, 448)
-        Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(91, 18)
-        Me.Label18.TabIndex = 17
-        Me.Label18.Text = "Precio Sucio %"
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label19.Location = New System.Drawing.Point(20, 470)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(95, 18)
-        Me.Label19.TabIndex = 18
-        Me.Label19.Text = "Valor Transado"
-        '
-        'Label20
-        '
-        Me.Label20.AutoSize = True
-        Me.Label20.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label20.Location = New System.Drawing.Point(20, 492)
-        Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(140, 18)
-        Me.Label20.TabIndex = 19
-        Me.Label20.Text = "Monto a Pagar/Recibir"
-        '
-        'Label21
-        '
-        Me.Label21.AutoSize = True
-        Me.Label21.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label21.Location = New System.Drawing.Point(20, 514)
-        Me.Label21.Name = "Label21"
-        Me.Label21.Size = New System.Drawing.Size(126, 18)
-        Me.Label21.TabIndex = 20
-        Me.Label21.Text = "Costo Transferencia"
-        '
-        'dtpUltimaFechaCuponCompra
-        '
-        Me.dtpUltimaFechaCuponCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpUltimaFechaCuponCompra.Location = New System.Drawing.Point(203, 94)
-        Me.dtpUltimaFechaCuponCompra.Name = "dtpUltimaFechaCuponCompra"
-        Me.dtpUltimaFechaCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpUltimaFechaCuponCompra.TabIndex = 3
-        '
-        'dtpSiguienteFechaCuponCompra
-        '
-        Me.dtpSiguienteFechaCuponCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpSiguienteFechaCuponCompra.Location = New System.Drawing.Point(203, 116)
-        Me.dtpSiguienteFechaCuponCompra.Name = "dtpSiguienteFechaCuponCompra"
-        Me.dtpSiguienteFechaCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpSiguienteFechaCuponCompra.TabIndex = 4
-        '
-        'dtpFechaLiquidacionCompra
-        '
-        Me.dtpFechaLiquidacionCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaLiquidacionCompra.Location = New System.Drawing.Point(203, 138)
-        Me.dtpFechaLiquidacionCompra.Name = "dtpFechaLiquidacionCompra"
-        Me.dtpFechaLiquidacionCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaLiquidacionCompra.TabIndex = 5
-        '
-        'dtpFechaVencimientoCompra
-        '
-        Me.dtpFechaVencimientoCompra.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimientoCompra.Location = New System.Drawing.Point(203, 160)
-        Me.dtpFechaVencimientoCompra.Name = "dtpFechaVencimientoCompra"
-        Me.dtpFechaVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimientoCompra.TabIndex = 6
-        '
-        'txtValorNominalCompra
-        '
-        Me.txtValorNominalCompra.Location = New System.Drawing.Point(203, 72)
-        Me.txtValorNominalCompra.Name = "txtValorNominalCompra"
-        Me.txtValorNominalCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominalCompra.TabIndex = 2
-        '
-        'txtPorcentajeCuponCompra
-        '
-        Me.txtPorcentajeCuponCompra.Location = New System.Drawing.Point(203, 249)
-        Me.txtPorcentajeCuponCompra.Name = "txtPorcentajeCuponCompra"
-        Me.txtPorcentajeCuponCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPorcentajeCuponCompra.TabIndex = 8
-        '
-        'txtYTMAlVencimientoComisionCompra
-        '
-        Me.txtYTMAlVencimientoComisionCompra.Location = New System.Drawing.Point(203, 293)
-        Me.txtYTMAlVencimientoComisionCompra.Name = "txtYTMAlVencimientoComisionCompra"
-        Me.txtYTMAlVencimientoComisionCompra.ReadOnly = True
-        Me.txtYTMAlVencimientoComisionCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoComisionCompra.TabIndex = 10
-        '
-        'txtYTMAlVencimientoCompra
-        '
-        Me.txtYTMAlVencimientoCompra.Location = New System.Drawing.Point(203, 271)
-        Me.txtYTMAlVencimientoCompra.Name = "txtYTMAlVencimientoCompra"
-        Me.txtYTMAlVencimientoCompra.ReadOnly = True
-        Me.txtYTMAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoCompra.TabIndex = 9
-        '
-        'txtPrecioAlVencimientoCompra
-        '
-        Me.txtPrecioAlVencimientoCompra.Location = New System.Drawing.Point(203, 381)
-        Me.txtPrecioAlVencimientoCompra.Name = "txtPrecioAlVencimientoCompra"
-        Me.txtPrecioAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioAlVencimientoCompra.TabIndex = 11
-        '
-        'txtPrecioCompra
-        '
-        Me.txtPrecioCompra.Location = New System.Drawing.Point(203, 403)
-        Me.txtPrecioCompra.Name = "txtPrecioCompra"
-        Me.txtPrecioCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioCompra.TabIndex = 12
-        '
-        'txtDiasAcumuladosCompra
-        '
-        Me.txtDiasAcumuladosCompra.Location = New System.Drawing.Point(203, 227)
-        Me.txtDiasAcumuladosCompra.Name = "txtDiasAcumuladosCompra"
-        Me.txtDiasAcumuladosCompra.ReadOnly = True
-        Me.txtDiasAcumuladosCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAcumuladosCompra.TabIndex = 0
-        '
-        'txtPrecioSucioCompra
-        '
-        Me.txtPrecioSucioCompra.Location = New System.Drawing.Point(203, 447)
-        Me.txtPrecioSucioCompra.Name = "txtPrecioSucioCompra"
-        Me.txtPrecioSucioCompra.ReadOnly = True
-        Me.txtPrecioSucioCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioSucioCompra.TabIndex = 0
-        '
-        'txtInteresAcumuladoCompra
-        '
-        Me.txtInteresAcumuladoCompra.Location = New System.Drawing.Point(203, 425)
-        Me.txtInteresAcumuladoCompra.Name = "txtInteresAcumuladoCompra"
-        Me.txtInteresAcumuladoCompra.ReadOnly = True
-        Me.txtInteresAcumuladoCompra.Size = New System.Drawing.Size(108, 20)
-        Me.txtInteresAcumuladoCompra.TabIndex = 0
-        '
-        'txtPorcentajeInteresAcumuladoCompra
-        '
-        Me.txtPorcentajeInteresAcumuladoCompra.Location = New System.Drawing.Point(313, 425)
-        Me.txtPorcentajeInteresAcumuladoCompra.Name = "txtPorcentajeInteresAcumuladoCompra"
-        Me.txtPorcentajeInteresAcumuladoCompra.ReadOnly = True
-        Me.txtPorcentajeInteresAcumuladoCompra.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeInteresAcumuladoCompra.TabIndex = 0
-        '
-        'txtValorTransadoCompra
-        '
-        Me.txtValorTransadoCompra.Location = New System.Drawing.Point(203, 469)
-        Me.txtValorTransadoCompra.Name = "txtValorTransadoCompra"
-        Me.txtValorTransadoCompra.ReadOnly = True
-        Me.txtValorTransadoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorTransadoCompra.TabIndex = 0
-        '
-        'txtMontoAPagar
-        '
-        Me.txtMontoAPagar.Location = New System.Drawing.Point(203, 491)
-        Me.txtMontoAPagar.Name = "txtMontoAPagar"
-        Me.txtMontoAPagar.ReadOnly = True
-        Me.txtMontoAPagar.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoAPagar.TabIndex = 0
-        '
-        'txtCostoTransferenciaCompra
-        '
-        Me.txtCostoTransferenciaCompra.Location = New System.Drawing.Point(203, 513)
-        Me.txtCostoTransferenciaCompra.Name = "txtCostoTransferenciaCompra"
-        Me.txtCostoTransferenciaCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostoTransferenciaCompra.TabIndex = 16
-        '
-        'txtDiasAlVencimientoCompra
-        '
-        Me.txtDiasAlVencimientoCompra.Location = New System.Drawing.Point(203, 205)
-        Me.txtDiasAlVencimientoCompra.Name = "txtDiasAlVencimientoCompra"
-        Me.txtDiasAlVencimientoCompra.ReadOnly = True
-        Me.txtDiasAlVencimientoCompra.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAlVencimientoCompra.TabIndex = 0
-        '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label17.Location = New System.Drawing.Point(256, 15)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(55, 18)
-        Me.Label17.TabIndex = 55
-        Me.Label17.Text = "Compra"
-        '
-        'lblBono
-        '
-        Me.lblBono.AutoSize = True
-        Me.lblBono.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBono.Location = New System.Drawing.Point(13, 33)
-        Me.lblBono.Name = "lblBono"
-        Me.lblBono.Size = New System.Drawing.Size(167, 24)
-        Me.lblBono.TabIndex = 56
-        Me.lblBono.Text = "Bono Corporativo"
-        '
-        'txtDiasAlVencimientoVenta
-        '
-        Me.txtDiasAlVencimientoVenta.Location = New System.Drawing.Point(359, 205)
-        Me.txtDiasAlVencimientoVenta.Name = "txtDiasAlVencimientoVenta"
-        Me.txtDiasAlVencimientoVenta.ReadOnly = True
-        Me.txtDiasAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAlVencimientoVenta.TabIndex = 77
-        '
-        'txtCostoTransferenciaVenta
-        '
-        Me.txtCostoTransferenciaVenta.Location = New System.Drawing.Point(359, 513)
-        Me.txtCostoTransferenciaVenta.Name = "txtCostoTransferenciaVenta"
-        Me.txtCostoTransferenciaVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostoTransferenciaVenta.TabIndex = 32
-        '
-        'txtMontoARecibir
-        '
-        Me.txtMontoARecibir.Location = New System.Drawing.Point(359, 491)
-        Me.txtMontoARecibir.Name = "txtMontoARecibir"
-        Me.txtMontoARecibir.ReadOnly = True
-        Me.txtMontoARecibir.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoARecibir.TabIndex = 0
-        '
-        'txtValorTransadoVenta
-        '
-        Me.txtValorTransadoVenta.Location = New System.Drawing.Point(359, 469)
-        Me.txtValorTransadoVenta.Name = "txtValorTransadoVenta"
-        Me.txtValorTransadoVenta.ReadOnly = True
-        Me.txtValorTransadoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorTransadoVenta.TabIndex = 0
-        '
-        'txtPorcentajeInteresAcumuladoVenta
-        '
-        Me.txtPorcentajeInteresAcumuladoVenta.Location = New System.Drawing.Point(469, 425)
-        Me.txtPorcentajeInteresAcumuladoVenta.Name = "txtPorcentajeInteresAcumuladoVenta"
-        Me.txtPorcentajeInteresAcumuladoVenta.ReadOnly = True
-        Me.txtPorcentajeInteresAcumuladoVenta.Size = New System.Drawing.Size(40, 20)
-        Me.txtPorcentajeInteresAcumuladoVenta.TabIndex = 0
-        '
-        'txtInteresAcumuladoVenta
-        '
-        Me.txtInteresAcumuladoVenta.Location = New System.Drawing.Point(359, 425)
-        Me.txtInteresAcumuladoVenta.Name = "txtInteresAcumuladoVenta"
-        Me.txtInteresAcumuladoVenta.ReadOnly = True
-        Me.txtInteresAcumuladoVenta.Size = New System.Drawing.Size(108, 20)
-        Me.txtInteresAcumuladoVenta.TabIndex = 0
-        '
-        'txtPrecioSucioVenta
-        '
-        Me.txtPrecioSucioVenta.Location = New System.Drawing.Point(359, 447)
-        Me.txtPrecioSucioVenta.Name = "txtPrecioSucioVenta"
-        Me.txtPrecioSucioVenta.ReadOnly = True
-        Me.txtPrecioSucioVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioSucioVenta.TabIndex = 0
-        '
-        'txtDiasAcumuladosVenta
-        '
-        Me.txtDiasAcumuladosVenta.Location = New System.Drawing.Point(359, 227)
-        Me.txtDiasAcumuladosVenta.Name = "txtDiasAcumuladosVenta"
-        Me.txtDiasAcumuladosVenta.ReadOnly = True
-        Me.txtDiasAcumuladosVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtDiasAcumuladosVenta.TabIndex = 68
-        '
-        'txtPrecioVenta
-        '
-        Me.txtPrecioVenta.Location = New System.Drawing.Point(359, 403)
-        Me.txtPrecioVenta.Name = "txtPrecioVenta"
-        Me.txtPrecioVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioVenta.TabIndex = 28
-        '
-        'txtPrecioAlVencimientoVenta
-        '
-        Me.txtPrecioAlVencimientoVenta.Location = New System.Drawing.Point(359, 381)
-        Me.txtPrecioAlVencimientoVenta.Name = "txtPrecioAlVencimientoVenta"
-        Me.txtPrecioAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioAlVencimientoVenta.TabIndex = 27
-        '
-        'txtYTMAlVencimientoVenta
-        '
-        Me.txtYTMAlVencimientoVenta.Location = New System.Drawing.Point(359, 271)
-        Me.txtYTMAlVencimientoVenta.Name = "txtYTMAlVencimientoVenta"
-        Me.txtYTMAlVencimientoVenta.ReadOnly = True
-        Me.txtYTMAlVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoVenta.TabIndex = 25
-        '
-        'txtYTMAlVencimientoComisionVenta
-        '
-        Me.txtYTMAlVencimientoComisionVenta.Location = New System.Drawing.Point(359, 293)
-        Me.txtYTMAlVencimientoComisionVenta.Name = "txtYTMAlVencimientoComisionVenta"
-        Me.txtYTMAlVencimientoComisionVenta.ReadOnly = True
-        Me.txtYTMAlVencimientoComisionVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtYTMAlVencimientoComisionVenta.TabIndex = 26
-        '
-        'txtPorcentajeCuponVenta
-        '
-        Me.txtPorcentajeCuponVenta.Location = New System.Drawing.Point(359, 249)
-        Me.txtPorcentajeCuponVenta.Name = "txtPorcentajeCuponVenta"
-        Me.txtPorcentajeCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtPorcentajeCuponVenta.TabIndex = 24
-        '
-        'txtValorNominalVenta
-        '
-        Me.txtValorNominalVenta.Location = New System.Drawing.Point(359, 72)
-        Me.txtValorNominalVenta.Name = "txtValorNominalVenta"
-        Me.txtValorNominalVenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominalVenta.TabIndex = 18
-        '
-        'dtpFechaVencimientoVenta
-        '
-        Me.dtpFechaVencimientoVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimientoVenta.Location = New System.Drawing.Point(359, 160)
-        Me.dtpFechaVencimientoVenta.Name = "dtpFechaVencimientoVenta"
-        Me.dtpFechaVencimientoVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimientoVenta.TabIndex = 22
-        '
-        'dtpFechaLiquidacionVenta
-        '
-        Me.dtpFechaLiquidacionVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaLiquidacionVenta.Location = New System.Drawing.Point(359, 138)
-        Me.dtpFechaLiquidacionVenta.Name = "dtpFechaLiquidacionVenta"
-        Me.dtpFechaLiquidacionVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaLiquidacionVenta.TabIndex = 21
-        '
-        'dtpSiguienteFechaCuponVenta
-        '
-        Me.dtpSiguienteFechaCuponVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpSiguienteFechaCuponVenta.Location = New System.Drawing.Point(359, 116)
-        Me.dtpSiguienteFechaCuponVenta.Name = "dtpSiguienteFechaCuponVenta"
-        Me.dtpSiguienteFechaCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpSiguienteFechaCuponVenta.TabIndex = 20
-        '
-        'dtpUltimaFechaCuponVenta
-        '
-        Me.dtpUltimaFechaCuponVenta.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpUltimaFechaCuponVenta.Location = New System.Drawing.Point(359, 94)
-        Me.dtpUltimaFechaCuponVenta.Name = "dtpUltimaFechaCuponVenta"
-        Me.dtpUltimaFechaCuponVenta.Size = New System.Drawing.Size(150, 20)
-        Me.dtpUltimaFechaCuponVenta.TabIndex = 19
-        '
-        'Label22
-        '
-        Me.Label22.AutoSize = True
-        Me.Label22.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label22.Location = New System.Drawing.Point(366, 15)
-        Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(43, 18)
-        Me.Label22.TabIndex = 80
-        Me.Label22.Text = "Venta"
-        '
-        'Label23
-        '
-        Me.Label23.AutoSize = True
-        Me.Label23.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label23.Location = New System.Drawing.Point(20, 55)
-        Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(88, 18)
-        Me.Label23.TabIndex = 81
-        Me.Label23.Text = "Valor Nominal"
-        '
-        'Label24
-        '
-        Me.Label24.AutoSize = True
-        Me.Label24.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label24.Location = New System.Drawing.Point(20, 77)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(38, 18)
-        Me.Label24.TabIndex = 82
-        Me.Label24.Text = "Plazo"
-        '
-        'Label25
-        '
-        Me.Label25.AutoSize = True
-        Me.Label25.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label25.Location = New System.Drawing.Point(20, 99)
-        Me.Label25.Name = "Label25"
-        Me.Label25.Size = New System.Drawing.Size(93, 18)
-        Me.Label25.TabIndex = 83
-        Me.Label25.Text = "Precio Compra"
-        '
-        'Label26
-        '
-        Me.Label26.AutoSize = True
-        Me.Label26.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label26.Location = New System.Drawing.Point(20, 121)
-        Me.Label26.Name = "Label26"
-        Me.Label26.Size = New System.Drawing.Size(81, 18)
-        Me.Label26.TabIndex = 84
-        Me.Label26.Text = "Precio Venta"
-        '
-        'label27
-        '
-        Me.label27.AutoSize = True
-        Me.label27.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.label27.Location = New System.Drawing.Point(20, 143)
-        Me.label27.Name = "label27"
-        Me.label27.Size = New System.Drawing.Size(176, 18)
-        Me.label27.TabIndex = 85
-        Me.label27.Text = "Ganancia/Perdida de Capital"
-        '
-        'lblIngresosPorIntereses_Op
-        '
-        Me.lblIngresosPorIntereses_Op.AutoSize = True
-        Me.lblIngresosPorIntereses_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblIngresosPorIntereses_Op.Location = New System.Drawing.Point(20, 165)
-        Me.lblIngresosPorIntereses_Op.Name = "lblIngresosPorIntereses_Op"
-        Me.lblIngresosPorIntereses_Op.Size = New System.Drawing.Size(132, 18)
-        Me.lblIngresosPorIntereses_Op.TabIndex = 86
-        Me.lblIngresosPorIntereses_Op.Text = "Ingreso por Intereses"
-        '
-        'lblCostosTotales_Op
-        '
-        Me.lblCostosTotales_Op.AutoSize = True
-        Me.lblCostosTotales_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblCostosTotales_Op.Location = New System.Drawing.Point(20, 187)
-        Me.lblCostosTotales_Op.Name = "lblCostosTotales_Op"
-        Me.lblCostosTotales_Op.Size = New System.Drawing.Size(94, 18)
-        Me.lblCostosTotales_Op.TabIndex = 87
-        Me.lblCostosTotales_Op.Text = "Costos Totales"
-        '
-        'lblGananciaPerdidaTotal_Op
-        '
-        Me.lblGananciaPerdidaTotal_Op.AutoSize = True
-        Me.lblGananciaPerdidaTotal_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblGananciaPerdidaTotal_Op.Location = New System.Drawing.Point(20, 209)
-        Me.lblGananciaPerdidaTotal_Op.Name = "lblGananciaPerdidaTotal_Op"
-        Me.lblGananciaPerdidaTotal_Op.Size = New System.Drawing.Size(147, 18)
-        Me.lblGananciaPerdidaTotal_Op.TabIndex = 88
-        Me.lblGananciaPerdidaTotal_Op.Text = "Ganancia/Perdida Total"
-        '
-        'lblRendimientoGananciaPerdida_Op
-        '
-        Me.lblRendimientoGananciaPerdida_Op.AutoSize = True
-        Me.lblRendimientoGananciaPerdida_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoGananciaPerdida_Op.Location = New System.Drawing.Point(20, 231)
-        Me.lblRendimientoGananciaPerdida_Op.Name = "lblRendimientoGananciaPerdida_Op"
-        Me.lblRendimientoGananciaPerdida_Op.Size = New System.Drawing.Size(191, 18)
-        Me.lblRendimientoGananciaPerdida_Op.TabIndex = 89
-        Me.lblRendimientoGananciaPerdida_Op.Text = "Rendimiento Ganancia/Perdida"
-        '
-        'lblRendimientoIntereses_Op
-        '
-        Me.lblRendimientoIntereses_Op.AutoSize = True
-        Me.lblRendimientoIntereses_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoIntereses_Op.Location = New System.Drawing.Point(20, 253)
-        Me.lblRendimientoIntereses_Op.Name = "lblRendimientoIntereses_Op"
-        Me.lblRendimientoIntereses_Op.Size = New System.Drawing.Size(140, 18)
-        Me.lblRendimientoIntereses_Op.TabIndex = 90
-        Me.lblRendimientoIntereses_Op.Text = "Rendimiento Intereses"
-        '
-        'lblRendimientoAntesISR_Op
-        '
-        Me.lblRendimientoAntesISR_Op.AutoSize = True
-        Me.lblRendimientoAntesISR_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoAntesISR_Op.Location = New System.Drawing.Point(20, 275)
-        Me.lblRendimientoAntesISR_Op.Name = "lblRendimientoAntesISR_Op"
-        Me.lblRendimientoAntesISR_Op.Size = New System.Drawing.Size(141, 18)
-        Me.lblRendimientoAntesISR_Op.TabIndex = 91
-        Me.lblRendimientoAntesISR_Op.Text = "Rendimiento antes ISR"
-        '
-        'lblRendimientoDespuesISR_Op
-        '
-        Me.lblRendimientoDespuesISR_Op.AutoSize = True
-        Me.lblRendimientoDespuesISR_Op.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRendimientoDespuesISR_Op.Location = New System.Drawing.Point(20, 297)
-        Me.lblRendimientoDespuesISR_Op.Name = "lblRendimientoDespuesISR_Op"
-        Me.lblRendimientoDespuesISR_Op.Size = New System.Drawing.Size(156, 18)
-        Me.lblRendimientoDespuesISR_Op.TabIndex = 92
-        Me.lblRendimientoDespuesISR_Op.Text = "Rendimiento despues ISR"
-        '
-        'Label35
-        '
-        Me.Label35.AutoSize = True
-        Me.Label35.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label35.Location = New System.Drawing.Point(122, 20)
-        Me.Label35.Name = "Label35"
-        Me.Label35.Size = New System.Drawing.Size(169, 18)
-        Me.Label35.TabIndex = 93
-        Me.Label35.Text = "Resultado de la Operacion"
-        '
-        'txtValorNominal_Op
-        '
-        Me.txtValorNominal_Op.Location = New System.Drawing.Point(219, 54)
-        Me.txtValorNominal_Op.Name = "txtValorNominal_Op"
-        Me.txtValorNominal_Op.ReadOnly = True
-        Me.txtValorNominal_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtValorNominal_Op.TabIndex = 0
-        '
-        'txtPlazo_Op
-        '
-        Me.txtPlazo_Op.Location = New System.Drawing.Point(219, 76)
-        Me.txtPlazo_Op.Name = "txtPlazo_Op"
-        Me.txtPlazo_Op.ReadOnly = True
-        Me.txtPlazo_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPlazo_Op.TabIndex = 0
-        '
-        'txtPrecioCompra_Op
-        '
-        Me.txtPrecioCompra_Op.Location = New System.Drawing.Point(219, 98)
-        Me.txtPrecioCompra_Op.Name = "txtPrecioCompra_Op"
-        Me.txtPrecioCompra_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioCompra_Op.TabIndex = 0
-        '
-        'txtPrecioVenta_Op
-        '
-        Me.txtPrecioVenta_Op.Location = New System.Drawing.Point(219, 120)
-        Me.txtPrecioVenta_Op.Name = "txtPrecioVenta_Op"
-        Me.txtPrecioVenta_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtPrecioVenta_Op.TabIndex = 0
-        '
-        'txtGananciaPerdidaCapital_Op
-        '
-        Me.txtGananciaPerdidaCapital_Op.Location = New System.Drawing.Point(219, 142)
-        Me.txtGananciaPerdidaCapital_Op.Name = "txtGananciaPerdidaCapital_Op"
-        Me.txtGananciaPerdidaCapital_Op.ReadOnly = True
-        Me.txtGananciaPerdidaCapital_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtGananciaPerdidaCapital_Op.TabIndex = 0
-        '
-        'txtIngresosPorIntereses_Op
-        '
-        Me.txtIngresosPorIntereses_Op.Location = New System.Drawing.Point(219, 164)
-        Me.txtIngresosPorIntereses_Op.Name = "txtIngresosPorIntereses_Op"
-        Me.txtIngresosPorIntereses_Op.ReadOnly = True
-        Me.txtIngresosPorIntereses_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtIngresosPorIntereses_Op.TabIndex = 0
-        '
-        'txtCostosTotales_Op
-        '
-        Me.txtCostosTotales_Op.Location = New System.Drawing.Point(219, 186)
-        Me.txtCostosTotales_Op.Name = "txtCostosTotales_Op"
-        Me.txtCostosTotales_Op.ReadOnly = True
-        Me.txtCostosTotales_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtCostosTotales_Op.TabIndex = 0
-        '
-        'txtGananciaPerdidaTotal_Op
-        '
-        Me.txtGananciaPerdidaTotal_Op.Location = New System.Drawing.Point(219, 208)
-        Me.txtGananciaPerdidaTotal_Op.Name = "txtGananciaPerdidaTotal_Op"
-        Me.txtGananciaPerdidaTotal_Op.ReadOnly = True
-        Me.txtGananciaPerdidaTotal_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtGananciaPerdidaTotal_Op.TabIndex = 0
-        '
-        'txtRendimientoGananciaPerdida_Op
-        '
-        Me.txtRendimientoGananciaPerdida_Op.Location = New System.Drawing.Point(219, 230)
-        Me.txtRendimientoGananciaPerdida_Op.Name = "txtRendimientoGananciaPerdida_Op"
-        Me.txtRendimientoGananciaPerdida_Op.ReadOnly = True
-        Me.txtRendimientoGananciaPerdida_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoGananciaPerdida_Op.TabIndex = 0
-        '
-        'txtRendimientoIntereses_Op
-        '
-        Me.txtRendimientoIntereses_Op.Location = New System.Drawing.Point(219, 252)
-        Me.txtRendimientoIntereses_Op.Name = "txtRendimientoIntereses_Op"
-        Me.txtRendimientoIntereses_Op.ReadOnly = True
-        Me.txtRendimientoIntereses_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoIntereses_Op.TabIndex = 0
-        '
-        'txtRendimientoAntesISR_Op
-        '
-        Me.txtRendimientoAntesISR_Op.Location = New System.Drawing.Point(219, 274)
-        Me.txtRendimientoAntesISR_Op.Name = "txtRendimientoAntesISR_Op"
-        Me.txtRendimientoAntesISR_Op.ReadOnly = True
-        Me.txtRendimientoAntesISR_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoAntesISR_Op.TabIndex = 0
-        '
-        'txtRendimientoDespuesISR_Op
-        '
-        Me.txtRendimientoDespuesISR_Op.Location = New System.Drawing.Point(219, 296)
-        Me.txtRendimientoDespuesISR_Op.Name = "txtRendimientoDespuesISR_Op"
-        Me.txtRendimientoDespuesISR_Op.ReadOnly = True
-        Me.txtRendimientoDespuesISR_Op.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoDespuesISR_Op.TabIndex = 0
-        '
-        'btnAceptar
-        '
-        Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnAceptar.Location = New System.Drawing.Point(10, 3)
-        Me.btnAceptar.Name = "btnAceptar"
-        Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
-        Me.btnAceptar.TabIndex = 106
-        Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
-        '
-        'btnCancelar
-        '
-        Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancelar.Location = New System.Drawing.Point(91, 3)
-        Me.btnCancelar.Name = "btnCancelar"
-        Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
-        Me.btnCancelar.TabIndex = 107
-        Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
-        '
-        'cboAnioBaseC
-        '
-        Me.cboAnioBaseC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboAnioBaseC.FormattingEnabled = True
-        Me.cboAnioBaseC.Items.AddRange(New Object() {"360", "365"})
-        Me.cboAnioBaseC.Location = New System.Drawing.Point(203, 182)
-        Me.cboAnioBaseC.Name = "cboAnioBaseC"
-        Me.cboAnioBaseC.Size = New System.Drawing.Size(150, 21)
-        Me.cboAnioBaseC.TabIndex = 7
-        '
-        'cboAnioBaseV
-        '
-        Me.cboAnioBaseV.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboAnioBaseV.FormattingEnabled = True
-        Me.cboAnioBaseV.Items.AddRange(New Object() {"360", "365"})
-        Me.cboAnioBaseV.Location = New System.Drawing.Point(359, 182)
-        Me.cboAnioBaseV.Name = "cboAnioBaseV"
-        Me.cboAnioBaseV.Size = New System.Drawing.Size(150, 21)
-        Me.cboAnioBaseV.TabIndex = 23
-        '
-        'cboPeriodosC
-        '
-        Me.cboPeriodosC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodosC.FormattingEnabled = True
-        Me.cboPeriodosC.Location = New System.Drawing.Point(203, 49)
-        Me.cboPeriodosC.Name = "cboPeriodosC"
-        Me.cboPeriodosC.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodosC.TabIndex = 1
-        '
-        'cboPeriodosV
-        '
-        Me.cboPeriodosV.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodosV.FormattingEnabled = True
-        Me.cboPeriodosV.Location = New System.Drawing.Point(359, 49)
-        Me.cboPeriodosV.Name = "cboPeriodosV"
-        Me.cboPeriodosV.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodosV.TabIndex = 17
-        '
-        'Label29
-        '
-        Me.Label29.AutoSize = True
-        Me.Label29.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label29.Location = New System.Drawing.Point(20, 50)
-        Me.Label29.Name = "Label29"
-        Me.Label29.Size = New System.Drawing.Size(80, 18)
-        Me.Label29.TabIndex = 115
-        Me.Label29.Text = "Periodicidad"
-        '
-        'Label30
-        '
-        Me.Label30.AutoSize = True
-        Me.Label30.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label30.Location = New System.Drawing.Point(536, 373)
-        Me.Label30.Name = "Label30"
-        Me.Label30.Size = New System.Drawing.Size(59, 18)
-        Me.Label30.TabIndex = 118
-        Me.Label30.Text = "Ingresos"
-        '
-        'TabControl1
-        '
-        Me.TabControl1.Controls.Add(Me.TabPage1)
-        Me.TabControl1.Controls.Add(Me.TabPage2)
-        Me.TabControl1.Controls.Add(Me.TabPage4)
-        Me.TabControl1.Location = New System.Drawing.Point(17, 72)
-        Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(696, 589)
-        Me.TabControl1.TabIndex = 121
-        '
-        'TabPage1
-        '
-        Me.TabPage1.Controls.Add(Me.btnBolsaVenta)
-        Me.TabPage1.Controls.Add(Me.btnCasaVenta)
-        Me.TabPage1.Controls.Add(Me.btnBolsaCompra)
-        Me.TabPage1.Controls.Add(Me.btnCasaCompra)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeBolsaVenta)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeCasaVenta)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeBolsaCompra)
-        Me.TabPage1.Controls.Add(Me.btnPorcentajeCasaCompra)
-        Me.TabPage1.Controls.Add(Me.Label15)
-        Me.TabPage1.Controls.Add(Me.Label14)
-        Me.TabPage1.Controls.Add(Me.Label17)
-        Me.TabPage1.Controls.Add(Me.Label1)
-        Me.TabPage1.Controls.Add(Me.Label2)
-        Me.TabPage1.Controls.Add(Me.Label3)
-        Me.TabPage1.Controls.Add(Me.Label4)
-        Me.TabPage1.Controls.Add(Me.Label5)
-        Me.TabPage1.Controls.Add(Me.Label29)
-        Me.TabPage1.Controls.Add(Me.Label6)
-        Me.TabPage1.Controls.Add(Me.cboPeriodosV)
-        Me.TabPage1.Controls.Add(Me.Label7)
-        Me.TabPage1.Controls.Add(Me.cboPeriodosC)
-        Me.TabPage1.Controls.Add(Me.Label8)
-        Me.TabPage1.Controls.Add(Me.cboAnioBaseV)
-        Me.TabPage1.Controls.Add(Me.Label9)
-        Me.TabPage1.Controls.Add(Me.cboAnioBaseC)
-        Me.TabPage1.Controls.Add(Me.Label10)
-        Me.TabPage1.Controls.Add(Me.Label11)
-        Me.TabPage1.Controls.Add(Me.Label12)
-        Me.TabPage1.Controls.Add(Me.Label13)
-        Me.TabPage1.Controls.Add(Me.Label16)
-        Me.TabPage1.Controls.Add(Me.Label18)
-        Me.TabPage1.Controls.Add(Me.Label19)
-        Me.TabPage1.Controls.Add(Me.Label20)
-        Me.TabPage1.Controls.Add(Me.Label21)
-        Me.TabPage1.Controls.Add(Me.dtpUltimaFechaCuponCompra)
-        Me.TabPage1.Controls.Add(Me.dtpSiguienteFechaCuponCompra)
-        Me.TabPage1.Controls.Add(Me.dtpFechaLiquidacionCompra)
-        Me.TabPage1.Controls.Add(Me.dtpFechaVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.txtValorNominalCompra)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeCuponCompra)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoComisionCompra)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.txtPrecioAlVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.txtPrecioCompra)
-        Me.TabPage1.Controls.Add(Me.txtDiasAcumuladosCompra)
-        Me.TabPage1.Controls.Add(Me.txtPrecioSucioCompra)
-        Me.TabPage1.Controls.Add(Me.txtInteresAcumuladoCompra)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeInteresAcumuladoCompra)
-        Me.TabPage1.Controls.Add(Me.txtValorTransadoCompra)
-        Me.TabPage1.Controls.Add(Me.txtMontoAPagar)
-        Me.TabPage1.Controls.Add(Me.txtCostoTransferenciaCompra)
-        Me.TabPage1.Controls.Add(Me.txtDiasAlVencimientoCompra)
-        Me.TabPage1.Controls.Add(Me.Label22)
-        Me.TabPage1.Controls.Add(Me.dtpUltimaFechaCuponVenta)
-        Me.TabPage1.Controls.Add(Me.txtDiasAlVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.dtpSiguienteFechaCuponVenta)
-        Me.TabPage1.Controls.Add(Me.txtCostoTransferenciaVenta)
-        Me.TabPage1.Controls.Add(Me.dtpFechaLiquidacionVenta)
-        Me.TabPage1.Controls.Add(Me.txtMontoARecibir)
-        Me.TabPage1.Controls.Add(Me.dtpFechaVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.txtValorTransadoVenta)
-        Me.TabPage1.Controls.Add(Me.txtValorNominalVenta)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeInteresAcumuladoVenta)
-        Me.TabPage1.Controls.Add(Me.txtPorcentajeCuponVenta)
-        Me.TabPage1.Controls.Add(Me.txtInteresAcumuladoVenta)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoComisionVenta)
-        Me.TabPage1.Controls.Add(Me.txtPrecioSucioVenta)
-        Me.TabPage1.Controls.Add(Me.txtYTMAlVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.txtPrecioAlVencimientoVenta)
-        Me.TabPage1.Controls.Add(Me.txtPrecioVenta)
-        Me.TabPage1.Controls.Add(Me.txtDiasAcumuladosVenta)
-        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(688, 563)
-        Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "Operación"
-        Me.TabPage1.UseVisualStyleBackColor = True
-        '
-        'btnBolsaVenta
-        '
-        Me.btnBolsaVenta.Location = New System.Drawing.Point(402, 355)
-        Me.btnBolsaVenta.Name = "btnBolsaVenta"
-        Me.btnBolsaVenta.ReadOnly = True
-        Me.btnBolsaVenta.Size = New System.Drawing.Size(104, 20)
-        Me.btnBolsaVenta.TabIndex = 125
-        '
-        'btnCasaVenta
-        '
-        Me.btnCasaVenta.Location = New System.Drawing.Point(402, 322)
-        Me.btnCasaVenta.Name = "btnCasaVenta"
-        Me.btnCasaVenta.ReadOnly = True
-        Me.btnCasaVenta.Size = New System.Drawing.Size(104, 20)
-        Me.btnCasaVenta.TabIndex = 124
-        '
-        'btnBolsaCompra
-        '
-        Me.btnBolsaCompra.Location = New System.Drawing.Point(247, 355)
-        Me.btnBolsaCompra.Name = "btnBolsaCompra"
-        Me.btnBolsaCompra.ReadOnly = True
-        Me.btnBolsaCompra.Size = New System.Drawing.Size(104, 20)
-        Me.btnBolsaCompra.TabIndex = 123
-        '
-        'btnCasaCompra
-        '
-        Me.btnCasaCompra.Location = New System.Drawing.Point(247, 322)
-        Me.btnCasaCompra.Name = "btnCasaCompra"
-        Me.btnCasaCompra.ReadOnly = True
-        Me.btnCasaCompra.Size = New System.Drawing.Size(104, 20)
-        Me.btnCasaCompra.TabIndex = 122
-        '
-        'btnPorcentajeBolsaVenta
-        '
-        Me.btnPorcentajeBolsaVenta.Location = New System.Drawing.Point(359, 355)
-        Me.btnPorcentajeBolsaVenta.Name = "btnPorcentajeBolsaVenta"
-        Me.btnPorcentajeBolsaVenta.ReadOnly = True
-        Me.btnPorcentajeBolsaVenta.Size = New System.Drawing.Size(37, 20)
-        Me.btnPorcentajeBolsaVenta.TabIndex = 121
-        '
-        'btnPorcentajeCasaVenta
-        '
-        Me.btnPorcentajeCasaVenta.Location = New System.Drawing.Point(359, 322)
-        Me.btnPorcentajeCasaVenta.Name = "btnPorcentajeCasaVenta"
-        Me.btnPorcentajeCasaVenta.ReadOnly = True
-        Me.btnPorcentajeCasaVenta.Size = New System.Drawing.Size(37, 20)
-        Me.btnPorcentajeCasaVenta.TabIndex = 120
-        '
-        'btnPorcentajeBolsaCompra
-        '
-        Me.btnPorcentajeBolsaCompra.Location = New System.Drawing.Point(203, 355)
-        Me.btnPorcentajeBolsaCompra.Name = "btnPorcentajeBolsaCompra"
-        Me.btnPorcentajeBolsaCompra.ReadOnly = True
-        Me.btnPorcentajeBolsaCompra.Size = New System.Drawing.Size(38, 20)
-        Me.btnPorcentajeBolsaCompra.TabIndex = 119
-        '
-        'btnPorcentajeCasaCompra
-        '
-        Me.btnPorcentajeCasaCompra.Location = New System.Drawing.Point(203, 322)
-        Me.btnPorcentajeCasaCompra.Name = "btnPorcentajeCasaCompra"
-        Me.btnPorcentajeCasaCompra.ReadOnly = True
-        Me.btnPorcentajeCasaCompra.Size = New System.Drawing.Size(38, 20)
-        Me.btnPorcentajeCasaCompra.TabIndex = 118
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label15.Location = New System.Drawing.Point(20, 352)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(96, 18)
-        Me.Label15.TabIndex = 117
-        Me.Label15.Text = "Comisión Bolsa"
-        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label14.Location = New System.Drawing.Point(20, 322)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(94, 18)
-        Me.Label14.TabIndex = 116
-        Me.Label14.Text = "Comisión Casa"
-        '
-        'TabPage2
-        '
-        Me.TabPage2.Controls.Add(Me.btnAccionIngreso)
-        Me.TabPage2.Controls.Add(Me.dgvIngresos)
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage2.Name = "TabPage2"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(688, 563)
-        Me.TabPage2.TabIndex = 1
-        Me.TabPage2.Text = "Ingresos"
-        Me.TabPage2.UseVisualStyleBackColor = True
-        '
-        'btnAccionIngreso
-        '
-        Me.btnAccionIngreso.Location = New System.Drawing.Point(20, 212)
-        Me.btnAccionIngreso.Name = "btnAccionIngreso"
-        Me.btnAccionIngreso.Size = New System.Drawing.Size(75, 23)
-        Me.btnAccionIngreso.TabIndex = 117
-        Me.btnAccionIngreso.Text = "Aceptar"
-        Me.btnAccionIngreso.UseVisualStyleBackColor = True
-        '
-        'dgvIngresos
-        '
-        Me.dgvIngresos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvIngresos.Location = New System.Drawing.Point(20, 20)
-        Me.dgvIngresos.Name = "dgvIngresos"
-        Me.dgvIngresos.Size = New System.Drawing.Size(646, 174)
-        Me.dgvIngresos.TabIndex = 116
-        '
-        'TabPage4
-        '
-        Me.TabPage4.Controls.Add(Me.Label35)
-        Me.TabPage4.Controls.Add(Me.Label23)
-        Me.TabPage4.Controls.Add(Me.Label24)
-        Me.TabPage4.Controls.Add(Me.Label25)
-        Me.TabPage4.Controls.Add(Me.Label26)
-        Me.TabPage4.Controls.Add(Me.label27)
-        Me.TabPage4.Controls.Add(Me.lblIngresosPorIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.lblCostosTotales_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoDespuesISR_Op)
-        Me.TabPage4.Controls.Add(Me.lblGananciaPerdidaTotal_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoAntesISR_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoGananciaPerdida_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.txtRendimientoGananciaPerdida_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoAntesISR_Op)
-        Me.TabPage4.Controls.Add(Me.txtGananciaPerdidaTotal_Op)
-        Me.TabPage4.Controls.Add(Me.lblRendimientoDespuesISR_Op)
-        Me.TabPage4.Controls.Add(Me.txtCostosTotales_Op)
-        Me.TabPage4.Controls.Add(Me.txtValorNominal_Op)
-        Me.TabPage4.Controls.Add(Me.txtIngresosPorIntereses_Op)
-        Me.TabPage4.Controls.Add(Me.txtPlazo_Op)
-        Me.TabPage4.Controls.Add(Me.txtGananciaPerdidaCapital_Op)
-        Me.TabPage4.Controls.Add(Me.txtPrecioCompra_Op)
-        Me.TabPage4.Controls.Add(Me.txtPrecioVenta_Op)
-        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Size = New System.Drawing.Size(688, 563)
-        Me.TabPage4.TabIndex = 3
-        Me.TabPage4.Text = "Resultado de la Op."
-        Me.TabPage4.UseVisualStyleBackColor = True
-        '
-        'pnlPie
-        '
-        Me.pnlPie.Controls.Add(Me.btnAceptar)
-        Me.pnlPie.Controls.Add(Me.btnCancelar)
-        Me.pnlPie.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlPie.Location = New System.Drawing.Point(0, 667)
-        Me.pnlPie.Name = "pnlPie"
-        Me.pnlPie.Size = New System.Drawing.Size(747, 46)
-        Me.pnlPie.TabIndex = 122
-        '
-        'BindingNavigator1
-        '
-        Me.BindingNavigator1.AddNewItem = Nothing
-        Me.BindingNavigator1.CountItem = Nothing
-        Me.BindingNavigator1.DeleteItem = Nothing
-        Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorSeparator, Me.navModificar, Me.navNuevo, Me.navEliminar})
-        Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0)
-        Me.BindingNavigator1.MoveFirstItem = Nothing
-        Me.BindingNavigator1.MoveLastItem = Nothing
-        Me.BindingNavigator1.MoveNextItem = Nothing
-        Me.BindingNavigator1.MovePreviousItem = Nothing
-        Me.BindingNavigator1.Name = "BindingNavigator1"
-        Me.BindingNavigator1.PositionItem = Nothing
-        Me.BindingNavigator1.Size = New System.Drawing.Size(747, 25)
-        Me.BindingNavigator1.TabIndex = 128
-        Me.BindingNavigator1.Text = "BindingNavigator1"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'navModificar
-        '
-        Me.navModificar.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navModificar.Image = CType(resources.GetObject("navModificar.Image"), System.Drawing.Image)
-        Me.navModificar.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.navModificar.Name = "navModificar"
-        Me.navModificar.Size = New System.Drawing.Size(23, 22)
-        Me.navModificar.Text = "Modificar"
-        '
-        'navNuevo
-        '
-        Me.navNuevo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevo.Image = CType(resources.GetObject("navNuevo.Image"), System.Drawing.Image)
-        Me.navNuevo.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.navNuevo.Name = "navNuevo"
-        Me.navNuevo.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevo.Text = "Nuevo"
-        '
-        'navEliminar
-        '
-        Me.navEliminar.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navEliminar.Image = CType(resources.GetObject("navEliminar.Image"), System.Drawing.Image)
-        Me.navEliminar.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.navEliminar.Name = "navEliminar"
-        Me.navEliminar.Size = New System.Drawing.Size(23, 22)
-        Me.navEliminar.Text = "Eliminar"
-        '
-        'frmBonos
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.AutoScroll = True
-        Me.ClientSize = New System.Drawing.Size(747, 713)
-        Me.Controls.Add(Me.BindingNavigator1)
-        Me.Controls.Add(Me.pnlPie)
-        Me.Controls.Add(Me.TabControl1)
-        Me.Controls.Add(Me.Label30)
-        Me.Controls.Add(Me.lblBono)
-        Me.Name = "frmBonos"
-        Me.Text = "Bonos Corporativos"
-        Me.TabControl1.ResumeLayout(False)
-        Me.TabPage1.ResumeLayout(False)
-        Me.TabPage1.PerformLayout()
-        Me.TabPage2.ResumeLayout(False)
-        CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TabPage4.ResumeLayout(False)
-        Me.TabPage4.PerformLayout()
-        Me.pnlPie.ResumeLayout(False)
-        CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.BindingNavigator1.ResumeLayout(False)
-        Me.BindingNavigator1.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label3 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents Label6 As Label
-    Friend WithEvents Label7 As Label
-    Friend WithEvents Label8 As Label
-    Friend WithEvents Label9 As Label
-    Friend WithEvents Label10 As Label
-    Friend WithEvents Label11 As Label
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Label16 As Label
-    Friend WithEvents Label18 As Label
-    Friend WithEvents Label19 As Label
-    Friend WithEvents Label20 As Label
-    Friend WithEvents Label21 As Label
-    Friend WithEvents dtpUltimaFechaCuponCompra As DateTimePicker
-    Friend WithEvents dtpSiguienteFechaCuponCompra As DateTimePicker
-    Friend WithEvents dtpFechaLiquidacionCompra As DateTimePicker
-    Friend WithEvents dtpFechaVencimientoCompra As DateTimePicker
-    Friend WithEvents txtValorNominalCompra As TextBox
-    Friend WithEvents txtPorcentajeCuponCompra As TextBox
-    Friend WithEvents txtYTMAlVencimientoComisionCompra As TextBox
-    Friend WithEvents txtYTMAlVencimientoCompra As TextBox
-    Friend WithEvents txtPrecioAlVencimientoCompra As TextBox
-    Friend WithEvents txtPrecioCompra As TextBox
-    Friend WithEvents txtDiasAcumuladosCompra As TextBox
-    Friend WithEvents txtPrecioSucioCompra As TextBox
-    Friend WithEvents txtInteresAcumuladoCompra As TextBox
-    Friend WithEvents txtPorcentajeInteresAcumuladoCompra As TextBox
-    Friend WithEvents txtValorTransadoCompra As TextBox
-    Friend WithEvents txtMontoAPagar As TextBox
-    Friend WithEvents txtCostoTransferenciaCompra As TextBox
-    Friend WithEvents txtDiasAlVencimientoCompra As TextBox
-    Friend WithEvents Label17 As Label
-    Friend WithEvents lblBono As Label
-    Friend WithEvents txtDiasAlVencimientoVenta As TextBox
-    Friend WithEvents txtCostoTransferenciaVenta As TextBox
-    Friend WithEvents txtMontoARecibir As TextBox
-    Friend WithEvents txtValorTransadoVenta As TextBox
-    Friend WithEvents txtPorcentajeInteresAcumuladoVenta As TextBox
-    Friend WithEvents txtInteresAcumuladoVenta As TextBox
-    Friend WithEvents txtPrecioSucioVenta As TextBox
-    Friend WithEvents txtDiasAcumuladosVenta As TextBox
-    Friend WithEvents txtPrecioVenta As TextBox
-    Friend WithEvents txtPrecioAlVencimientoVenta As TextBox
-    Friend WithEvents txtYTMAlVencimientoVenta As TextBox
-    Friend WithEvents txtYTMAlVencimientoComisionVenta As TextBox
-    Friend WithEvents txtPorcentajeCuponVenta As TextBox
-    Friend WithEvents txtValorNominalVenta As TextBox
-    Friend WithEvents dtpFechaVencimientoVenta As DateTimePicker
-    Friend WithEvents dtpFechaLiquidacionVenta As DateTimePicker
-    Friend WithEvents dtpSiguienteFechaCuponVenta As DateTimePicker
-    Friend WithEvents dtpUltimaFechaCuponVenta As DateTimePicker
-    Friend WithEvents Label22 As Label
-    Friend WithEvents Label23 As Label
-    Friend WithEvents Label24 As Label
-    Friend WithEvents Label25 As Label
-    Friend WithEvents Label26 As Label
-    Friend WithEvents label27 As Label
-    Friend WithEvents lblIngresosPorIntereses_Op As Label
-    Friend WithEvents lblCostosTotales_Op As Label
-    Friend WithEvents lblGananciaPerdidaTotal_Op As Label
-    Friend WithEvents lblRendimientoGananciaPerdida_Op As Label
-    Friend WithEvents lblRendimientoIntereses_Op As Label
-    Friend WithEvents lblRendimientoAntesISR_Op As Label
-    Friend WithEvents lblRendimientoDespuesISR_Op As Label
-    Friend WithEvents Label35 As Label
-    Friend WithEvents txtValorNominal_Op As TextBox
-    Friend WithEvents txtPlazo_Op As TextBox
-    Friend WithEvents txtPrecioCompra_Op As TextBox
-    Friend WithEvents txtPrecioVenta_Op As TextBox
-    Friend WithEvents txtGananciaPerdidaCapital_Op As TextBox
-    Friend WithEvents txtIngresosPorIntereses_Op As TextBox
-    Friend WithEvents txtCostosTotales_Op As TextBox
-    Friend WithEvents txtGananciaPerdidaTotal_Op As TextBox
-    Friend WithEvents txtRendimientoGananciaPerdida_Op As TextBox
-    Friend WithEvents txtRendimientoIntereses_Op As TextBox
-    Friend WithEvents txtRendimientoAntesISR_Op As TextBox
-    Friend WithEvents txtRendimientoDespuesISR_Op As TextBox
-    Friend WithEvents btnAceptar As Button
-    Friend WithEvents btnCancelar As Button
-    Friend WithEvents cboAnioBaseC As ComboBox
-    Friend WithEvents cboAnioBaseV As ComboBox
-    Friend WithEvents cboPeriodosC As ComboBox
-    Friend WithEvents cboPeriodosV As ComboBox
-    Friend WithEvents Label29 As Label
-    Friend WithEvents Label30 As Label
-    Friend WithEvents TabControl1 As TabControl
-    Friend WithEvents TabPage1 As TabPage
-    Friend WithEvents TabPage4 As TabPage
-    Friend WithEvents pnlPie As Panel
-    Friend WithEvents BindingNavigator1 As BindingNavigator
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents navModificar As ToolStripButton
-    Friend WithEvents navNuevo As ToolStripButton
-    Friend WithEvents navEliminar As ToolStripButton
-    Friend WithEvents TabPage2 As TabPage
-    Friend WithEvents dgvIngresos As DataGridView
-    Friend WithEvents btnAccionIngreso As Button
-    Friend WithEvents btnBolsaVenta As TextBox
-    Friend WithEvents btnCasaVenta As TextBox
-    Friend WithEvents btnBolsaCompra As TextBox
-    Friend WithEvents btnCasaCompra As TextBox
-    Friend WithEvents btnPorcentajeBolsaVenta As TextBox
-    Friend WithEvents btnPorcentajeCasaVenta As TextBox
-    Friend WithEvents btnPorcentajeBolsaCompra As TextBox
-    Friend WithEvents btnPorcentajeCasaCompra As TextBox
-    Friend WithEvents Label15 As Label
-    Friend WithEvents Label14 As Label
-End Class

FRM/frmBonos.resx

@@ -1,167 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navModificar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIVSURBVDhPjVNNaxNRFM0fcKNbBbG4qC7FpRTcdCf9AwqC
-        Ci6UKrQWW1toQYJZKRgqLgRjDG0yH2kwWAWb0tZFA91EUDemaabtfKTNNJmMScz0+O6bSdKxFT3M4c59
-        754z9715L5BMpcqCLCMhioj7KPAoSBJEWdYDfwMV/AuapiEhCG89iR/0ZcKP/DpjAfn1Ao+UEyLRKI+q
-        qiIhSTFP1gW1SdgoFlFUFCibCo+UE97EYtANg7/zTuakWU/qgtZKUDa3sbWtdkg5YTWb5SbtTmbnRHhS
-        F3HBNVCZu6brHVJesap87iDiKRFfHi8g9+STa9Q20I0SjNKOjzSmMerGDkq7Jq8bGhtFXi7gcziLtUes
-        m7bBbrl8NE0TZrUGqwHcH5nAxpaGyVAQ6YcfsHp7umtg7lUOs2Jhr9ZE1QGWB0+i/F3ARPAZ3i8s4u7Y
-        A1rChY5B1bL8rNmoNVqw2dzi4BlgpY/t4Gl8ladwb2TcFR/cA9u2u/xZR725D9Y1Mlx8mYnPAy+P49Wt
-        3q6Y0Dao15uMDR4bvwD2IHPnFLB0CZjpBaZP4Pn1c0h+XPnjN3oHyXEcOK0Wi/s8N6IXgWIQyI0D4WN4
-        evUsHxdTab8BXaSj8GJ0AO+iTJwLIXytxxtlBnLSb/A6EsnQheI3kC2HnXck0/MYvnEFUzf78S3UD3F+
-        iX+ZxFTvSTvoYaRN+V9SvYdA4DcZDa931m0XwAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFPTNpQHMc7D+469bKr13nz7GkznuY87MQK
-        OhFTqGYXPNvblmVZFpKd5sUZwQ3NYokJejVRRzB2uooE2PijQVotUAb9Ewy/9b0ACrGG+E0++eXX/t7n
-        te8RKAXu06MMv9Cb5j4PpI9XB3je341fdJJYzPOwePSupxD90J8Mj1XLEWacdr0JUdOU6LBT4lQbdgPq
-        9UzWarFvY0Fm92OvHHn/XPs5DHr4BejcK1AVCVTtnynligxIggVnobd9xfCIsu15WtMPZwa1vWegHZAQ
-        z9dMQRKSpMS64GtfiWee6PsvQdsZAjU0CoIg6FwiC8veb7DOBpqsrv2Aw+RFqwAdmMD7H09POq40Q8IG
-        2VM0kJSqkBAViBskRLVJMl9tFTQybptSxIIMbGADD0RPJfiysAhLS94mvhU/xLKyuUAqVfCnooHURRn4
-        v+dw9KeV1KXSmSCSLQOXOIcDA1QbnORMBLY2wXFGAq/ve/MAEag/OSuaCKytgvhlFaKCco2xczSn4ucd
-        CX7dco2o/51qu8ZGrORk/qYgI9cw6Xq9ya0Ci8VZKRiC4OYWHrgLRS3BxMQsX19KEADwwPgF1u2eB5fT
-        DbRrDlczaJrWbaQjwDBMV11x3xDEf8bvbDj6Irl1AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZO5SgNRFIYnTvIANmLhFrAQwSohncS98wEU
-        G1HEysIiQRs7RcVChyFVKhstTKEEIwRcigQEGws7l4BMyGbWyZ783jNkYjSjiQc+Zrjc/5tz7mW4WvUw
-        TAxLCwYYHYymMmWz2YTP56uUy2Vokc/nIQjCIdurKbFQOJPJQJblOslkEvF4HKFQSJEEg0GIotgk0TEs
-        tCGXy6FQKChPIp1OI5FIIBwOKwLWJegjDodDlShVF1BYhQQUSKVSiEQi38YhKFPLfglKpVJ9A73T3Ooo
-        0WhU6USSpN8FP2mUUCd0HrFYrH0BoUpoHDoTEtF62wKiWCwq50ISgtb+JaAu3s6O4F8chnfSgNv5fggW
-        nfingEIqAZeAR9socu4DVJ88kE/WcW0dqVyN6ddaCqj9u4VBZFkYR7OAvRPYNiKyNwb3OP/yq6BRQm1X
-        H1xorPhWN3Ym9NW6wO/3V7UkxM1cHzLOJYCF8jYOH4zAKg/PNP9OAiozux6ZSTR/ptfTfdyvDEGyGxHe
-        MOB5WQevVV+5nOrYrOW5XoaZQVejiXOmSzyf4CVq+8LKh45H+V2O47hPEKaEPxpcorEAAAAASUVORK5C
-        YII=
-</value>
-  </data>
-</root>

FRM/frmBonos.vb

@@ -1,1088 +0,0 @@
-Public Class frmBonos
-    Dim oBonosCE As New BonosCE
-    Dim oBonosDAO As New BonosDAO
-    Dim oDAOGeneral As New DAOGeneral
-    Dim TotalValorCupones As Double
-    Dim codigo As String = Variables.Codigo
-    Dim BonosConsulta As New BonosDAO
-    Dim Estado As String = String.Empty
-    Dim Operaciones As New Operaciones
-    Dim InstrumentoFinanciero As String = oDAOGeneral.ObtenerInstrumento(Variables.Codigo)
-    'Private _Modo As String
-    Private _IdDocumento As Integer
-    Private _TipoDocumento As String
-    Private _CodigoInversion As String
-    Private _TipoTransaccion As String 'N=Nuevo, A=Actualizar, C=Consulta
-
-
-    Public Property TipoTransaccion As String
-        Get
-            Return _TipoTransaccion
-        End Get
-        Set(value As String)
-            _TipoTransaccion = value
-        End Set
-    End Property
-    Private Property IdDocumento As Integer
-        Get
-            Return _IdDocumento
-        End Get
-        Set(value As Integer)
-            _IdDocumento = value
-        End Set
-    End Property
-    Private Property TipoDocumento As String
-        Get
-            Return _TipoDocumento
-        End Get
-        Set(value As String)
-            _TipoDocumento = value
-        End Set
-    End Property
-    Private Property CodigoInversion As String
-        Get
-            Return _CodigoInversion
-        End Get
-        Set(value As String)
-            _CodigoInversion = value
-        End Set
-    End Property
-    Private Sub frmBonos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Call CargarPeriodos()
-        'PrepararTablaImpuestosYComisiones()
-        PrepararTablaIngresos()
-
-        If Me.TipoTransaccion Is Nothing Then
-            Me.TipoTransaccion = "N"
-
-        End If
-
-        If Me.TipoTransaccion = "C" Then
-            Call CargarRegistroBD()
-        End If
-        CargarIngresos()
-        'CargarComisiones()
-    End Sub
-    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
-        If (TipoTransaccion = "N" Or TipoTransaccion = "A") Then
-            RefrescarClaseEntidad()
-            If TipoTransaccion = "N" Then
-                GuardarNuevoRegistro()
-            End If
-            If TipoTransaccion = "A" Then
-                ActualizarRegistro()
-            End If
-        Else
-            Me.Close()
-        End If
-    End Sub
-    Function RetornarObjeto()
-        Return oBonosCE
-    End Function
-
-    Public Sub CargarRegistro(vId As Integer, vTipo As String)
-        TipoTransaccion = "C"
-        IdDocumento = vId
-        TipoDocumento = vTipo
-    End Sub
-    Public Sub CargarRegistro(ByVal CodInversion As String)
-        TipoTransaccion = "C"
-        CodigoInversion = CodInversion
-    End Sub
-    Private Sub CargarRegistroBD()
-        oBonosCE = Nothing
-        oBonosCE = oBonosDAO.CargarRegistro(Me.CodigoInversion)
-
-        TipoTransaccion = "C"
-        RefrescarValorControles()
-
-    End Sub
-    Private Sub dtpUltimaFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpUltimaFechaCuponCompra.ValueChanged
-        'ActivarEdicion()
-        ControlUltimaFechaCuponCompra()
-    End Sub
-    Private Sub dtpSiguienteFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpSiguienteFechaCuponCompra.ValueChanged
-        'ActivarEdicion()
-        ControlSiguienteFechaCuponCompra()
-    End Sub
-    Private Sub dtpFechaLiquidacionCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaLiquidacionCompra.ValueChanged
-        'ActivarEdicion()
-        ControlFechaLiquidacionCompra()
-    End Sub
-    Private Sub dtpFechaVencimientoCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoCompra.ValueChanged
-        'ActivarEdicion()
-        ControlFechaVencimientoCompra()
-    End Sub
-    Private Sub txtPorcentajeCuponCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeCuponCompra.TextChanged
-        'ActivarEdicion()
-    End Sub
-
-    Private Sub txtPrecioCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioCompra.TextChanged
-        'ActivarEdicion()
-    End Sub
-    Private Sub txtPrecioAlVencimientoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoCompra.TextChanged
-        'ActivarEdicion()
-    End Sub
-    Private Sub txtCostoTransferenciaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtCostoTransferenciaCompra.TextChanged
-        'RefrescarMontoAPagarCompra()
-        'ActivarEdicion()
-    End Sub
-
-    Private Sub dtpFechaVencimientoVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoVenta.ValueChanged
-
-        'ActivarEdicion()
-        ControlFechaVencimientoVenta()
-
-    End Sub
-    Private Sub ControlFechaVencimientoVenta()
-        Dim valor As Date
-        valor = dtpFechaVencimientoVenta.Value.Date
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            oBonosCE.FechaVencimientoVenta = valor
-            RefrescarValorControles()
-
-        End If
-
-    End Sub
-    Private Sub cboAnioBaseC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseC.SelectedIndexChanged
-        'ActivarEdicion()
-        ControlAnioBaseCompra()
-    End Sub
-
-    Private Sub cboAnioBaseV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseV.SelectedIndexChanged
-        'RefrescarInteresAcumuladoVenta()
-        'RefrescarDiasAlVencimientoVenta()
-        'RefrescarDiasAcumuladosVenta()
-        ControlAnioBaseVenta()
-        'ActivarEdicion()
-    End Sub
-    Private Sub ControlAnioBaseVenta()
-        Dim valor As Integer
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            If cboAnioBaseV.SelectedIndex > -1 Then
-                oBonosCE.DiasBaseVenta = cboAnioBaseV.SelectedItem
-            Else
-                oBonosCE.DiasBaseVenta = 365
-            End If
-        End If
-    End Sub
-    Sub CargarPeriodos()
-        Dim vTipoTransaccion As String = Me.TipoTransaccion
-        TipoTransaccion = "X"
-        Me.cboPeriodosC.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodosC.ValueMember = "Codigo"
-        Me.cboPeriodosC.DisplayMember = "Descripcion"
-        Me.cboPeriodosC.SelectedIndex = -1
-
-        Me.cboPeriodosV.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodosV.ValueMember = "Codigo"
-        Me.cboPeriodosV.DisplayMember = "Descripcion"
-        Me.cboPeriodosV.SelectedIndex = -1
-        TipoTransaccion = vTipoTransaccion
-
-    End Sub
-    Private Sub cboPeriodosC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodosC.SelectedIndexChanged
-
-        ControlPeriodosCompra()
-    End Sub
-
-    Private Sub cboPeriodosV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodosV.SelectedIndexChanged
-        'ActivarEdicion()
-    End Sub
-
-    Function CalcularCupones() As DataTable
-        Dim dtCupones As New DataTable
-        Dim vFechaLiquidacionCompra As Date = oBonosCE.FechaLiquidacionCompra
-        Dim vFechaLiquidacionVenta As Date = oBonosCE.FechaLiquidacionVenta
-        Dim vSiguienteFechaCuponCompra As Date = oBonosCE.SiguienteFechaCuponCompra
-        Dim vPeriodicidad As String = oBonosCE.PeriodicidadCompra
-        Dim vValorNominalCompra As Double = oBonosCE.ValorNominalCompra
-        Dim vPorcentajeCuponCompra As Double = oBonosCE.PorcentajeCuponCompra
-        Dim vAnioBaseCompra As Integer = oBonosCE.DiasBaseCompra
-        Dim vColumnas As DataColumn
-        Dim vFilas As DataRow
-
-        Dim vEstaFecha As Date
-        Dim vSiguienteFecha As Date
-        Dim vDias As Integer
-        Dim vValor As Double
-
-        'CREAMOS COLUMNAS
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Date)
-        vColumnas.ColumnName = "FechaCupon"
-        vColumnas.Caption = "Fecha Cupon"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Integer)
-        vColumnas.ColumnName = "Dias"
-        vColumnas.Caption = "Dias"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vColumnas = New DataColumn
-        vColumnas.DataType = GetType(Double)
-        vColumnas.ColumnName = "Valor"
-        vColumnas.Caption = "Valor Cupon"
-        vColumnas.AllowDBNull = False
-        dtCupones.Columns.Add(vColumnas)
-
-        vSiguienteFecha = vSiguienteFechaCuponCompra
-        vDias = DateDiff(DateInterval.Day, vFechaLiquidacionCompra, vSiguienteFechaCuponCompra)
-
-        Dim ControlBucle As Integer = 1
-
-        While vSiguienteFecha <= vFechaLiquidacionVenta
-            vEstaFecha = vSiguienteFecha
-            vFilas = dtCupones.NewRow
-            vFilas("FechaCupon") = vSiguienteFecha
-            vFilas("Dias") = vDias
-
-            Try
-                vValor = vValorNominalCompra * vPorcentajeCuponCompra * vDias / vAnioBaseCompra
-            Catch ex As Exception
-                vValor = 0
-            End Try
-
-            vFilas("Valor") = vValor
-            dtCupones.Rows.Add(vFilas)
-
-            If vPeriodicidad = "S" Then
-                vSiguienteFecha = vSiguienteFecha.AddMonths(6)
-            ElseIf vPeriodicidad = "M" Then
-                vSiguienteFecha = vSiguienteFecha.AddMonths(1)
-            Else
-                Exit While
-            End If
-
-            If vAnioBaseCompra = 360 Then
-                vDias = Utilidades.Days360(vEstaFecha, vSiguienteFecha)
-            Else
-                vDias = DateDiff(DateInterval.Day, vEstaFecha, vSiguienteFecha)
-            End If
-
-
-
-        End While
-
-        Try
-            TotalValorCupones = dtCupones.Compute("SUM(Valor)", "")
-        Catch ex As Exception
-            TotalValorCupones = 0
-        End Try
-
-        'Me.txtTotalIngresoCupones.Text = TotalValorCupones.ToString
-
-        Return dtCupones
-        dtCupones.Dispose()
-    End Function
-    Private Sub CalcularIngresos(ByVal IdFila As Integer)
-        Dim vFila As DataGridViewRow = dgvIngresos.Rows(IdFila)
-        Dim IdFilaAnterior As Integer = IdFila - 1
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vNumCupon As Integer
-        Dim vFechaCupon As Date
-        Dim vFechaAnteriorCupon As Date
-        Dim vDias As Integer
-        Dim vIngreso As Double
-        Dim vImpuesto As Double
-        Dim vLiquido As Double
-        Dim vValorNominal As Double = oBonosCE.ValorNominalCompra
-        Dim vPorcentajeCupon As Double = oBonosCE.PorcentajeCuponCompra
-        Dim vDiasBase As Integer = oBonosCE.DiasBaseCompra
-
-        If Not vFila.IsNewRow Then
-            'Date.TryParse(vFila.Cells("FechaCupon").Value.ToString, vFechaCupon)
-
-            If (IdFila) > 0 Then
-                vFilaAnterior = dgvIngresos.Rows(IdFilaAnterior)
-                vNumCupon = vFilaAnterior.Cells("NumCupon").Value
-                vNumCupon += 1
-
-                vFechaCupon = vFila.Cells("FechaCupon").Value
-                vFechaAnteriorCupon = vFilaAnterior.Cells("FechaCupon").Value
-                vDias = DateDiff(DateInterval.Day, vFechaCupon, vFechaAnteriorCupon)
-
-                vIngreso = vValorNominal * vPorcentajeCupon * vDias / vDiasBase
-                vImpuesto = vIngreso * 0.1
-                vLiquido = vIngreso - vImpuesto
-
-                vFila.Cells("NumCupon").Value = vNumCupon
-                vFila.Cells("Dias").Value = vDias
-                vFila.Cells("Ingreso").Value = vIngreso
-                vFila.Cells("MontoImpuesto").Value = vImpuesto
-                vFila.Cells("Liquido").Value = vLiquido
-            Else
-                vFila.Cells("NumCupon").Value = 1
-                vFila.Cells("Dias").Value = 0
-                vFila.Cells("Ingreso").Value = 0
-                vFila.Cells("MontoImpuesto").Value = 0
-                vFila.Cells("Liquido").Value = 0
-            End If
-
-        End If
-
-    End Sub
-    'Sub RefrescarTablaIngresos()
-    '    'Me.dgvIngresos.DataSource = CalcularCupones()
-    'End Sub
-    Private Sub RefrescarValorControles()
-        'Me.cboCasa_C.SelectedValue = oBonosCE.CodigoCasaCompra.ToString
-        Me.cboPeriodosC.SelectedValue = oBonosCE.PeriodicidadCompra.ToString
-        Me.txtValorNominalCompra.Text = oBonosCE.ValorNominalCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.dtpUltimaFechaCuponCompra.Value = oBonosCE.UltimaFechaCuponCompra
-        Me.dtpSiguienteFechaCuponCompra.Value = oBonosCE.SiguienteFechaCuponCompra
-        Me.dtpFechaLiquidacionCompra.Value = oBonosCE.FechaLiquidacionCompra
-        Me.dtpFechaVencimientoCompra.Value = oBonosCE.FechaVencimientoCompra
-        Me.txtPorcentajeCuponCompra.Text = oBonosCE.PorcentajeCuponCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoCompra.Text = oBonosCE.YTMAlVencimientoCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoComisionCompra.Text = oBonosCE.YTMAlVencimientoComisionCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioAlVencimientoCompra.Text = oBonosCE.PrecioAlVencimientoCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioCompra.Text = oBonosCE.PrecioCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.cboAnioBaseC.SelectedItem = oBonosCE.DiasBaseCompra.ToString
-        Me.txtDiasAcumuladosCompra.Text = oBonosCE.DiasAcumuladosCompra.ToString
-        Me.txtDiasAlVencimientoCompra.Text = oBonosCE.DiasAlVencimientoCompra.ToString
-        Me.txtPorcentajeInteresAcumuladoCompra.Text = oBonosCE.PorcentajeInteresAcumuladoCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtInteresAcumuladoCompra.Text = oBonosCE.InteresAcumuladoCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPrecioSucioCompra.Text = oBonosCE.PrecioSucioCompra.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtValorTransadoCompra.Text = oBonosCE.ValorTransadoCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtMontoAPagar.Text = oBonosCE.MontoAPagarCompra.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtCostoTransferenciaCompra.Text = oBonosCE.CostoDeTransferenciaCompra.ToString(Configuraciones.CodigoTXTMontos)
-
-        'Me.cboCasa_V.SelectedValue = oBonosCE.CodigoCasaVenta.ToString
-        Me.cboPeriodosV.SelectedValue = oBonosCE.PeriodicidadVenta.ToString
-        Me.txtValorNominalVenta.Text = oBonosCE.ValorNominalVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.dtpUltimaFechaCuponVenta.Value = oBonosCE.UltimaFechaCuponVenta
-        Me.dtpSiguienteFechaCuponVenta.Value = oBonosCE.SiguienteFechaCuponVenta
-        Me.dtpFechaLiquidacionVenta.Value = oBonosCE.FechaLiquidacionVenta
-        Me.dtpFechaVencimientoVenta.Value = oBonosCE.FechaVencimientoVenta
-        Me.txtPorcentajeCuponVenta.Text = oBonosCE.PorcentajeCuponVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoComisionVenta.Text = oBonosCE.YTMAlVencimientoComisionVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtYTMAlVencimientoVenta.Text = oBonosCE.YTMAlVencimientoVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioAlVencimientoVenta.Text = oBonosCE.PrecioAlVencimientoVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtPrecioVenta.Text = oBonosCE.PrecioVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.cboAnioBaseV.SelectedItem = oBonosCE.DiasBaseVenta.ToString
-        Me.txtDiasAcumuladosVenta.Text = oBonosCE.DiasAcumuladosVenta.ToString
-        Me.txtDiasAlVencimientoVenta.Text = oBonosCE.DiasAlVencimientoVenta.ToString
-        Me.txtPorcentajeInteresAcumuladoVenta.Text = oBonosCE.InteresAcumuladoPorcentajeVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtInteresAcumuladoVenta.Text = oBonosCE.InteresAcumuladoVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPrecioSucioVenta.Text = oBonosCE.PrecioSucioVenta.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtValorTransadoVenta.Text = oBonosCE.ValorTransadoVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtMontoARecibir.Text = oBonosCE.MontoARecibirVenta.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtCostoTransferenciaVenta.Text = oBonosCE.CostoDeTransferenciaVenta.ToString(Configuraciones.CodigoTXTMontos)
-
-        Me.txtValorNominal_Op.Text = oBonosCE.ValorNominalRO.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPlazo_Op.Text = oBonosCE.DiasPlazoRO.ToString
-        Me.txtPrecioCompra_Op.Text = oBonosCE.PrecioCompraRO.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtPrecioVenta_Op.Text = oBonosCE.PrecioVentaRO.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtGananciaPerdidaCapital_Op.Text = oBonosCE.GananciaPerdidaDeCapital.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtIngresosPorIntereses_Op.Text = oBonosCE.IngresoPorInteres.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtCostosTotales_Op.Text = oBonosCE.CostosTotales.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtGananciaPerdidaTotal_Op.Text = oBonosCE.GananciaPerdidaTotal.ToString(Configuraciones.CodigoTXTMontos)
-        Me.txtRendimientoGananciaPerdida_Op.Text = oBonosCE.RendimientoGananciaPerdida.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtRendimientoIntereses_Op.Text = oBonosCE.RendimientoDeIntereses.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtRendimientoAntesISR_Op.Text = oBonosCE.RendimientoAntesImpuestos.ToString(Configuraciones.CodigoTXTPorcentaje)
-        Me.txtRendimientoDespuesISR_Op.Text = oBonosCE.RendimientoDespuesImpuestos.ToString(Configuraciones.CodigoTXTPorcentaje)
-
-        If Me.TipoTransaccion = "N" Then Me.btnAceptar.Text = "Guardar"
-        If Me.TipoTransaccion = "A" Then Me.btnAceptar.Text = "Guardar"
-        If Me.TipoTransaccion = "C" Then Me.btnAceptar.Text = "Aceptar"
-
-    End Sub
-    Private Sub RefrescarClaseEntidad()
-        ControlValorNominalCompra()
-        ControlUltimaFechaCuponCompra()
-        ControlSiguienteFechaCuponCompra()
-        ControlFechaLiquidacionCompra()
-        ControlFechaVencimientoCompra()
-        ControlPorcentajeCuponCompra()
-        'ControlYTMAlVencimientoCompra()
-        ControlPrecioAlVencimientoCompra()
-        ControlPrecioCompra()
-        ControlAnioBaseCompra()
-        ControlCostosDeTransferencia()
-
-        'ControlValorNominalv
-        ControlUltimaFechaCuponCompra()
-        ControlSiguienteFechaCuponCompra()
-        ControlFechaLiquidacionCompra()
-        ControlFechaVencimientoCompra()
-        ControlPorcentajeCuponCompra()
-        'ControlYTMAlVencimientoCompra()
-        ControlPrecioAlVencimientoCompra()
-        ControlPrecioCompra()
-        ControlAnioBaseCompra()
-        ControlCostosDeTransferencia()
-
-
-    End Sub
-    Private Sub GuardarNuevoRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
-
-        res = oBonosDAO.Nuevo(oBonosCE)
-        If res = 1 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
-
-    End Sub
-    Private Sub ActualizarRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
-
-        res = oBonosDAO.Actualizar(oBonosCE)
-
-        If res = 1 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
-
-    End Sub
-    'Private Sub ActivarEdicion()
-    '    If TipoTransaccion = "C" Then
-    '        Me.TipoTransaccion = "A"
-    '        Me.btnAceptar.Text = "Guardar"
-    '    End If
-
-    'End Sub
-    Private Sub ControlPeriodosCompra()
-        Dim valor As String
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            If Me.cboPeriodosC.SelectedIndex = -1 Then
-                valor = ""
-            Else
-                valor = Me.cboPeriodosC.SelectedValue
-            End If
-            oBonosCE.PeriodicidadCompra = valor
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlValorNominalCompra()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtValorNominalCompra.Text, valor) Then
-            Me.txtValorNominalCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtValorNominalCompra.Focus()
-        Else
-            Me.txtValorNominalCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.ValorNominalCompra = valor
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-    Private Sub ControlUltimaFechaCuponCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.UltimaFechaCuponCompra = dtpUltimaFechaCuponCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlSiguienteFechaCuponCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.SiguienteFechaCuponCompra = dtpSiguienteFechaCuponCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlFechaLiquidacionCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.FechaLiquidacionCompra = dtpFechaLiquidacionCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlFechaVencimientoCompra()
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            Me.oBonosCE.FechaVencimientoCompra = dtpFechaVencimientoCompra.Value.Date
-            RefrescarValorControles()
-        End If
-    End Sub
-    Private Sub ControlPorcentajeCuponCompra()
-        Dim valor As Double
-
-        If Not Double.TryParse(txtPorcentajeCuponCompra.Text.Replace("%", ""), valor) Then
-            Me.txtPorcentajeCuponCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtPorcentajeCuponCompra.Focus()
-        Else
-            Me.txtPorcentajeCuponCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.PorcentajeCuponCompra = valor / 100
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-    Private Sub ControlAnioBaseCompra()
-        Dim valor As Integer
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            valor = cboAnioBaseC.SelectedItem
-            Me.oBonosCE.DiasBaseCompra = valor
-            RefrescarValorControles()
-        End If
-
-    End Sub
-
-    Private Sub txtValorNominalCompra_LostFocus(sender As Object, e As EventArgs) Handles txtValorNominalCompra.LostFocus
-        ControlValorNominalCompra()
-    End Sub
-
-
-    Private Sub ControlPrecioAlVencimientoCompra()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPrecioAlVencimientoCompra.Text.Replace("%", String.Empty), valor) Then
-            Me.txtPrecioAlVencimientoCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtPrecioAlVencimientoCompra.Focus()
-        Else
-            Me.txtPrecioAlVencimientoCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.PrecioAlVencimientoCompra = valor / 100
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-    Private Sub ControlPrecioCompra()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPrecioCompra.Text.Replace("%", String.Empty), valor) Then
-            Me.txtPrecioCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtPrecioCompra.Focus()
-        Else
-            Me.txtPrecioCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.PrecioCompra = valor / 100
-                RefrescarValorControles()
-            End If
-
-        End If
-    End Sub
-    Private Sub ControlCostosDeTransferencia()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtCostoTransferenciaCompra.Text, valor) Then
-            Me.txtCostoTransferenciaCompra.BackColor = Configuraciones.ColorFondoError
-            Me.txtCostoTransferenciaCompra.Focus()
-        Else
-            Me.txtCostoTransferenciaCompra.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                Me.oBonosCE.CostoDeTransferenciaCompra = valor
-                RefrescarValorControles()
-
-            End If
-        End If
-    End Sub
-    Private Sub txtPorcentajeCuponCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPorcentajeCuponCompra.LostFocus
-        ControlPorcentajeCuponCompra()
-    End Sub
-    Private Sub txtPrecioAlVencimientoCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoCompra.LostFocus
-        ControlPrecioAlVencimientoCompra()
-    End Sub
-
-    Private Sub txtPrecioCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioCompra.LostFocus
-        ControlPrecioCompra()
-    End Sub
-
-    Private Sub txtCostoTransferenciaCompra_LostFocus(sender As Object, e As EventArgs) Handles txtCostoTransferenciaCompra.LostFocus
-        ControlCostosDeTransferencia()
-    End Sub
-
-    Private Sub dtpSiguienteFechaCuponVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpSiguienteFechaCuponVenta.ValueChanged
-        'ActivarEdicion()
-    End Sub
-
-
-    Private Sub txtCostoTransferenciaVenta_TextChanged(sender As Object, e As EventArgs) Handles txtCostoTransferenciaVenta.TextChanged
-        'ActivarEdicion()
-    End Sub
-
-    'Private Sub PrepararTablaImpuestosYComisiones()
-    '    Dim oDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
-    '    Dim oDataGridViewComboBoxColumn As DataGridViewComboBoxColumn
-
-    '    oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-    '    oDataGridViewComboBoxColumn.Name = "CodImp"
-    '    oDataGridViewComboBoxColumn.HeaderText = "Tipo Impuesto"
-    '    oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTiposImpuesto
-    '    oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-    '    oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-    '    oDataGridViewComboBoxColumn.DataPropertyName = "CodImp"
-    '    oDataGridViewComboBoxColumn.DisplayIndex = 0
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-    '    oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-    '    oDataGridViewComboBoxColumn.Name = "TipoOper"
-    '    oDataGridViewComboBoxColumn.HeaderText = "Tipo Operación"
-    '    oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTipoOperacion
-    '    oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-    '    oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-    '    oDataGridViewComboBoxColumn.DataPropertyName = "TipoOper"
-    '    oDataGridViewComboBoxColumn.DisplayIndex = 1
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "PorcImp"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Porcentaje"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "PorcImp"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTPorcentaje
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 2
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "MontoSujeto"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Monto Sujeto"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "MontoSujeto"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-    '    oDataGridViewTextBoxColumn.ReadOnly = True
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 3
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "MontoImp"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Monto Impuesto"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "MontoImp"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 4
-    '    oDataGridViewTextBoxColumn.ReadOnly = True
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "CodInv"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "CodInv"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.Visible = False
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    Me.dgvImpuestosYComisiones.DataSource = oBonosCE.ImpuestosYComisiones
-    'End Sub
-    'Private Sub PrepararImpuestosYComisiones(ByVal IdFila As Integer)
-    '    Dim vFila As DataGridViewRow = dgvImpuestosYComisiones.Rows(IdFila)
-    '    If vFila.IsNewRow Then
-    '        vFila.Cells("TipoOper").Value = "V"
-    '        vFila.Cells("PorcImp").Value = 0
-    '        vFila.Cells("MontoSujeto").Value = oBonosCE.ValorTransadoVenta
-    '        vFila.Cells("MontoImp").Value = 0.00
-    '    End If
-    'End Sub
-    'Private Sub CalcularImpuestosYComisiones(ByVal IdFila As Integer, ByVal IdCol As Integer)
-    '    Dim vFila As DataGridViewRow = dgvImpuestosYComisiones.Rows(IdFila)
-    '    Dim vTipoOperacion As String
-    '    Dim vCodigoImpuesto As String
-    '    Dim vPorcentajeImpuesto As Double
-    '    Dim vMontoSujeto As Double
-    '    Dim vMontoImpuesto As Double
-
-    '    If Not vFila.IsNewRow Then
-    '        vCodigoImpuesto = vFila.Cells("CodImp").Value.ToString
-    '        vTipoOperacion = vFila.Cells("TipoOper").Value.ToString
-    '        Double.TryParse(vFila.Cells("PorcImp").Value.ToString, vPorcentajeImpuesto)
-    '        If IdCol = 3 Then
-    '            vPorcentajeImpuesto = vPorcentajeImpuesto / 100
-    '            vFila.Cells("PorcImp").Value = vPorcentajeImpuesto
-    '        End If
-
-    '        If vTipoOperacion = "C" Then
-    '            vMontoSujeto = oBonosCE.ValorTransadoCompra
-    '            vFila.Cells("MontoSujeto").Value = oBonosCE.ValorTransadoCompra
-    '        ElseIf vTipoOperacion = "V" Then
-    '            vMontoSujeto = oBonosCE.ValorTransadoVenta
-    '            vFila.Cells("MontoSujeto").Value = oBonosCE.ValorTransadoVenta
-    '        Else
-    '            vMontoSujeto = 0
-    '        End If
-
-    '        vMontoImpuesto = vMontoSujeto * vPorcentajeImpuesto
-    '        vFila.Cells("MontoImp").Value = vMontoImpuesto
-
-    '    End If
-
-    '    RefrescarClaseEntidad()
-    '    RefrescarValorControles()
-    'End Sub
-    'Function CalcularComisiones(ByVal TipoImp As String, ByVal TipoOpe As String)
-    '    Dim Cantidad = dgvImpuestosYComisiones.Rows.Count - 1
-    '    Dim Comision
-    '    For i As Integer = 0 To Cantidad
-
-
-    '        Comision = dgvIngresos.Rows(i).Cells(3)
-    '    Next
-
-
-    'End Function
-    'Private Sub dgvImpuestosYComisiones_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs)
-    '    'ActivarEdicion()
-    '    PrepararImpuestosYComisiones(e.RowIndex)
-    'End Sub
-
-    'Private Sub dgvImpuestosYComisiones_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs)
-    '    CalcularImpuestosYComisiones(e.RowIndex, e.ColumnIndex)
-    'End Sub
-
-    Private Sub dgvImpuestosYComisiones_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs)
-        'ActivarEdicion()
-        oBonosCE.ImpuestosYComisiones.AcceptChanges()
-    End Sub
-
-    Private Sub PrepararTablaIngresos()
-        Dim oDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "CodInv"
-        oDataGridViewTextBoxColumn.DataPropertyName = "CodInv"
-        oDataGridViewTextBoxColumn.HeaderText = "Código Inversión"
-        oDataGridViewTextBoxColumn.ValueType = GetType(String)
-        oDataGridViewTextBoxColumn.Visible = False
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "NumCupon"
-        oDataGridViewTextBoxColumn.DataPropertyName = "NumCupon"
-        oDataGridViewTextBoxColumn.HeaderText = "No. Cupón"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Integer)
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "FechaCupon"
-        oDataGridViewTextBoxColumn.DataPropertyName = "FechaCupon"
-        oDataGridViewTextBoxColumn.HeaderText = "Fecha Cupón"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Date)
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "Dias"
-        oDataGridViewTextBoxColumn.DataPropertyName = "Dias"
-        oDataGridViewTextBoxColumn.HeaderText = "Dias "
-        oDataGridViewTextBoxColumn.ValueType = GetType(Integer)
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "Ingreso"
-        oDataGridViewTextBoxColumn.DataPropertyName = "Ingreso"
-        oDataGridViewTextBoxColumn.HeaderText = "Ingreso"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "PorcentajeImpuesto"
-        oDataGridViewTextBoxColumn.DataPropertyName = "PorcImpuesto"
-        oDataGridViewTextBoxColumn.HeaderText = "% Impuesto"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "MontoImpuesto"
-        oDataGridViewTextBoxColumn.DataPropertyName = "MontoImpuesto"
-        oDataGridViewTextBoxColumn.HeaderText = "Impuesto"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-        oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-        oDataGridViewTextBoxColumn.Name = "Liquido"
-        oDataGridViewTextBoxColumn.DataPropertyName = "Liquido"
-        oDataGridViewTextBoxColumn.HeaderText = "Liquido"
-        oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-        oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-        Me.dgvIngresos.Columns.Add(oDataGridViewTextBoxColumn)
-
-    End Sub
-
-    Private Sub txtValorNominalVenta_LostFocus(sender As Object, e As EventArgs) Handles txtValorNominalVenta.LostFocus
-        ControlValorNominalVenta()
-    End Sub
-    Private Sub ControlValorNominalVenta()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtValorNominalVenta.Text, valor) Then
-            Me.txtValorNominalVenta.BackColor = Configuraciones.ColorFondoError
-            Me.txtValorNominalVenta.Focus()
-        Else
-            Me.txtValorNominalVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.ValorNominalVenta = valor
-                RefrescarValorControles()
-            End If
-        End If
-
-    End Sub
-
-    Private Sub txtPorcentajeCuponVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPorcentajeCuponVenta.LostFocus
-        ControlPorcentajeCuponVenta()
-    End Sub
-    Private Sub ControlPorcentajeCuponVenta()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPorcentajeCuponVenta.Text, valor) Then
-            Me.txtPorcentajeCuponVenta.BackColor = Configuraciones.ColorFondoError
-            Me.txtPorcentajeCuponVenta.Focus()
-        Else
-            Me.txtPorcentajeCuponVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.PorcentajeCuponVenta = valor
-                RefrescarValorControles()
-
-            End If
-        End If
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoVenta.LostFocus
-        ControlPrecioAlVencimientoVenta()
-    End Sub
-    Private Sub ControlPrecioAlVencimientoVenta()
-        Dim valor As Double
-        If Not Double.TryParse(Me.txtPrecioAlVencimientoVenta.Text, valor) Then
-            Me.txtPrecioAlVencimientoVenta.BackColor = Configuraciones.ColorFondoError
-            Me.txtPrecioAlVencimientoVenta.Focus()
-        Else
-            Me.txtPrecioAlVencimientoVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.PrecioAlVencimientoVenta = valor
-                RefrescarValorControles()
-            End If
-        End If
-    End Sub
-
-    Private Sub txtPrecioVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioVenta.LostFocus
-        ControlPrecioVenta()
-    End Sub
-    Private Sub ControlPrecioVenta()
-        Dim valor As Double
-        If Not Double.TryParse(txtPrecioVenta.Text, valor) Then
-            txtPrecioVenta.BackColor = Configuraciones.ColorFondoError
-            txtPrecioVenta.Focus()
-        Else
-            txtPrecioVenta.BackColor = Configuraciones.ColorFondoPredefinido
-            If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-                oBonosCE.PrecioVenta = valor
-                RefrescarValorControles()
-            End If
-        End If
-    End Sub
-
-    Private Sub dgvIngresos_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIngresos.CellContentClick
-
-    End Sub
-    Private Sub PrepararCalculoIngresos(ByVal IdFila As Integer)
-        Dim vFila As DataGridViewRow = dgvIngresos.Rows(IdFila)
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vNumCupon As Integer
-        Dim vFechaCupon As Date
-        Dim vFechaCuponAnterior As Date
-        Dim vDias As Integer
-
-        vFechaCupon = Date.Now.Date
-
-        If IdFila > 0 Then
-            vFilaAnterior = dgvIngresos.Rows(IdFila - 1)
-            vNumCupon = vFilaAnterior.Cells("NumCupon").Value
-            vNumCupon += 1
-            vFechaCuponAnterior = vFilaAnterior.Cells("FechaCupon").Value
-            'vFechaCupon = oBonosCE.SiguienteFechaCuponCompra
-        Else
-            vNumCupon = 1
-            vFechaCuponAnterior = oBonosCE.UltimaFechaCuponCompra
-        End If
-
-        vDias = DateDiff(DateInterval.Day, vFechaCuponAnterior, vFechaCupon)
-
-        If vFila.IsNewRow Then
-            vFila.Cells("NumCupon").Value = vNumCupon
-            vFila.Cells("FechaCupon").Value = vFechaCupon
-            vFila.Cells("Dias").Value = vDias
-            vFila.Cells("Ingreso").Value = 0
-            vFila.Cells("PorcentajeImpuesto").Value = 10
-            vFila.Cells("MontoImpuesto").Value = 0
-            vFila.Cells("Liquido").Value = 0.00
-        End If
-    End Sub
-    Private Sub dgvIngresos_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs) Handles dgvIngresos.CellBeginEdit
-        'ActivarEdicion()
-        PrepararCalculoIngresos(e.RowIndex)
-    End Sub
-
-    Private Sub dgvIngresos_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIngresos.CellEndEdit
-        CalcularIngresos(e.RowIndex)
-    End Sub
-
-    Private Sub dgvIngresos_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles dgvIngresos.UserDeletedRow
-        'ActivarEdicion()
-        oBonosCE.Ingresos.AcceptChanges()
-    End Sub
-
-    Private Sub dgvImpuestosYComisiones_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
-
-    End Sub
-
-    Private Sub btnAccionComision_Click(sender As Object, e As EventArgs)
-        If (Estado = "N") Then
-            'NuevaComision()
-        ElseIf (Estado = "M") Then
-            'ModificarComision()
-        ElseIf (Estado = "B") Then
-            EliminarComision()
-        End If
-    End Sub
-
-    'Function ColecccionComisiones()
-    '    Dim coleccion As New Collection
-    '    Dim TipoImp, TipOp, MontoSuje, PorcImp, MontoImp As String
-    '    TipoImp = dgvImpuestosYComisiones.CurrentRow.Cells(0).Value
-    '    TipOp = dgvImpuestosYComisiones.CurrentRow.Cells(1).Value
-    '    PorcImp = CDec(dgvImpuestosYComisiones.CurrentRow.Cells(2).Value.ToString.TrimEnd("%") / 100)
-    '    MontoSuje = dgvImpuestosYComisiones.CurrentRow.Cells(3).Value
-    '    MontoImp = dgvImpuestosYComisiones.CurrentRow.Cells(4).Value.ToString.TrimEnd("%")
-
-    '    coleccion.Add(TipoImp)
-    '    coleccion.Add(TipOp)
-    '    coleccion.Add(PorcImp)
-    '    coleccion.Add(MontoSuje)
-    '    coleccion.Add(MontoImp)
-    '    Return coleccion
-    'End Function
-
-
-    Function ColeccionIngresos()
-        Dim coleccion As New Collection
-        Dim NoCupon, Fecha, Ingreso, PorcImpuesto, Impuesto, Dias As String
-        NoCupon = dgvIngresos.CurrentRow.Cells(1).Value
-        Fecha = dgvIngresos.CurrentRow.Cells(2).Value
-        Dias = dgvIngresos.CurrentRow.Cells(3).Value
-        Ingreso = dgvIngresos.CurrentRow.Cells(4).Value
-        PorcImpuesto = dgvIngresos.CurrentRow.Cells(5).Value
-        Impuesto = dgvIngresos.CurrentRow.Cells(6).Value
-
-        coleccion.Add(NocUpon)
-        coleccion.Add(Fecha)
-        coleccion.Add(Dias)
-        coleccion.Add(Ingreso)
-        coleccion.Add(PorcImpuesto)
-        coleccion.Add(Impuesto)
-        Return coleccion
-    End Function
-
-    'Sub NuevaComision()
-    '    Dim coleccion = ColecccionComisiones()
-    '    BonosConsulta.NuevoImpuesto(coleccion, codigo)
-    'End Sub
-
-    Sub NuevoIngreso()
-        Dim coleccion = ColeccionIngresos()
-        '   BonosConsulta.NuevoIngreso(coleccion, codigo)
-    End Sub
-    'Sub ModificarComision()
-    '    Dim coleccion = ColecccionComisiones()
-    '    BonosConsulta.ModificarImpuesto(coleccion, codigo)
-    'End Sub
-
-    Sub ModificarIngreso()
-        Dim coleccion = ColeccionIngresos()
-        '    BonosConsulta.ModificarIngreso(coleccion, codigo)
-    End Sub
-
-    Sub EliminarComision()
-        BonosConsulta.EliminarImpuesto(codigo)
-    End Sub
-
-    Sub EliminarIngreso()
-        Dim NoCupon = dgvIngresos.CurrentRow.Cells(0).Value
-        ' BonosConsulta.EliminarIngreso(codigo, NoCupon)
-    End Sub
-
-    Private Sub navModificar_Click(sender As Object, e As EventArgs) Handles navModificar.Click
-        'btnAccionComision.Text = "Modificar"
-        btnAccionIngreso.Text = "Modificar"
-        Estado = "M"
-    End Sub
-
-    Private Sub navNuevo_Click(sender As Object, e As EventArgs) Handles navNuevo.Click
-        'btnAccionComision.Text = "Nuevo"
-        btnAccionIngreso.Text = "Nuevo"
-        Estado = "N"
-    End Sub
-
-    Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click
-        'btnAccionComision.Text = "Eliminar"
-        btnAccionIngreso.Text = "Eliminar"
-        Estado = "B"
-    End Sub
-
-    'Sub CargarComisiones()
-
-    '    Dim codigo As String = Variables.Codigo
-    '    Dim dr = BonosConsulta.CargarImpuestos(codigo)
-    '    While dr.Read
-    '        dgvImpuestosYComisiones.Rows.Add(dr("TipoImp"), dr("TipoOp"), ((dr("PorcImp") * 100.0).ToString + "%"), dr("MontoSuje"), dr("MontoImp"))
-    '    End While
-
-
-    'End Sub
-
-    Sub CargarIngresos()
-
-        Dim codigo As String = Variables.Codigo
-        Dim dr = BonosConsulta.CargarIngreso(codigo, InstrumentoFinanciero)
-        While dr.Read
-            dgvIngresos.Rows.Add("", dr("NoCupon"), dr("Fecha"), dr("Dias"), dr("Ingreso"), dr("PorcImpuesto"), dr("Impuesto"))
-        End While
-
-
-    End Sub
-
-    Private Sub btnAccionIngreso_Click(sender As Object, e As EventArgs) Handles btnAccionIngreso.Click
-        If (Estado = "N") Then
-            NuevoIngreso()
-        ElseIf (Estado = "M") Then
-            ModificarIngreso()
-        ElseIf (Estado = "B") Then
-            EliminarIngreso()
-        End If
-    End Sub
-
-    Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click
-
-    End Sub
-
-    Private Sub txtValorNominalCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtValorNominalCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtValorNominalVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtValorNominalVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPorcentajeCuponCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPorcentajeCuponCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPorcentajeCuponVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPorcentajeCuponVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioAlVencimientoCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioAlVencimientoVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioAlVencimientoVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtPrecioVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecioVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtCostoTransferenciaCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCostoTransferenciaCompra.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-
-    Private Sub txtCostoTransferenciaVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCostoTransferenciaVenta.KeyPress
-        'Operaciones.ValidarEntrada(sender, e)
-    End Sub
-End Class

FRM/frmBuscarReporteVenta.Designer.vb

@@ -30,6 +30,8 @@ Partial Class frmBuscarReporteVenta
         Me.lblEmpresa = New System.Windows.Forms.Label()
         Me.dgvReportoCompras = New System.Windows.Forms.DataGridView()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.rdbDeshabilitarFecha = New System.Windows.Forms.RadioButton()
         Me.rdbRangoFechas = New System.Windows.Forms.RadioButton()
@@ -39,16 +41,14 @@ Partial Class frmBuscarReporteVenta
         Me.dtpFechaOperacion2 = New System.Windows.Forms.DateTimePicker()
         Me.dtpFechaOperacion1 = New System.Windows.Forms.DateTimePicker()
         Me.grpVigencia = New System.Windows.Forms.GroupBox()
-        Me.rdbVigente = New System.Windows.Forms.RadioButton()
         Me.rdbTodosVigencia = New System.Windows.Forms.RadioButton()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.rdbVigente = New System.Windows.Forms.RadioButton()
         CType(Me.dgvReportoCompras, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.Panel2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.grpVigencia.SuspendLayout()
-        Me.Panel2.SuspendLayout()
-        Me.Panel3.SuspendLayout()
         Me.SuspendLayout()
         '
         'dtpFechaOperacion
@@ -132,6 +132,30 @@ Partial Class frmBuscarReporteVenta
         Me.Panel1.Size = New System.Drawing.Size(907, 424)
         Me.Panel1.TabIndex = 5
         '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.dgvReportoCompras)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel3.Location = New System.Drawing.Point(0, 142)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(907, 282)
+        Me.Panel3.TabIndex = 9
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.Controls.Add(Me.GroupBox1)
+        Me.Panel2.Controls.Add(Me.grpVigencia)
+        Me.Panel2.Controls.Add(Me.cboCasaCorredora)
+        Me.Panel2.Controls.Add(Me.lblEmpresa)
+        Me.Panel2.Controls.Add(Me.lblCasa)
+        Me.Panel2.Controls.Add(Me.cboEmpresa)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(907, 142)
+        Me.Panel2.TabIndex = 8
+        '
         'GroupBox1
         '
         Me.GroupBox1.Controls.Add(Me.rdbDeshabilitarFecha)
@@ -227,18 +251,6 @@ Partial Class frmBuscarReporteVenta
         Me.grpVigencia.TabStop = False
         Me.grpVigencia.Text = "Vigencia"
         '
-        'rdbVigente
-        '
-        Me.rdbVigente.AutoSize = True
-        Me.rdbVigente.Checked = True
-        Me.rdbVigente.Location = New System.Drawing.Point(8, 24)
-        Me.rdbVigente.Name = "rdbVigente"
-        Me.rdbVigente.Size = New System.Drawing.Size(128, 17)
-        Me.rdbVigente.TabIndex = 15
-        Me.rdbVigente.TabStop = True
-        Me.rdbVigente.Text = "Mostrar Solo Vigentes"
-        Me.rdbVigente.UseVisualStyleBackColor = True
-        '
         'rdbTodosVigencia
         '
         Me.rdbTodosVigencia.AutoSize = True
@@ -249,28 +261,17 @@ Partial Class frmBuscarReporteVenta
         Me.rdbTodosVigencia.Text = "Mostrar Todos"
         Me.rdbTodosVigencia.UseVisualStyleBackColor = True
         '
-        'Panel2
-        '
-        Me.Panel2.Controls.Add(Me.GroupBox1)
-        Me.Panel2.Controls.Add(Me.grpVigencia)
-        Me.Panel2.Controls.Add(Me.cboCasaCorredora)
-        Me.Panel2.Controls.Add(Me.lblEmpresa)
-        Me.Panel2.Controls.Add(Me.lblCasa)
-        Me.Panel2.Controls.Add(Me.cboEmpresa)
-        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel2.Location = New System.Drawing.Point(0, 0)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(907, 142)
-        Me.Panel2.TabIndex = 8
-        '
-        'Panel3
+        'rdbVigente
         '
-        Me.Panel3.Controls.Add(Me.dgvReportoCompras)
-        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel3.Location = New System.Drawing.Point(0, 142)
-        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(907, 282)
-        Me.Panel3.TabIndex = 9
+        Me.rdbVigente.AutoSize = True
+        Me.rdbVigente.Checked = True
+        Me.rdbVigente.Location = New System.Drawing.Point(8, 24)
+        Me.rdbVigente.Name = "rdbVigente"
+        Me.rdbVigente.Size = New System.Drawing.Size(128, 17)
+        Me.rdbVigente.TabIndex = 15
+        Me.rdbVigente.TabStop = True
+        Me.rdbVigente.Text = "Mostrar Solo Vigentes"
+        Me.rdbVigente.UseVisualStyleBackColor = True
         '
         'frmBuscarReporteVenta
         '
@@ -278,17 +279,17 @@ Partial Class frmBuscarReporteVenta
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(907, 424)
         Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmBuscarReporteVenta"
-        Me.Text = "frmBuscarReporteVenta"
         CType(Me.dgvReportoCompras, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
         Me.grpVigencia.ResumeLayout(False)
         Me.grpVigencia.PerformLayout()
-        Me.Panel2.ResumeLayout(False)
-        Me.Panel2.PerformLayout()
-        Me.Panel3.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub

FRM/frmBuscarReporteVenta.vb

@@ -10,11 +10,7 @@
         ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
 
     End Sub
-    Sub New(Codigo As String)
 
-        Me.New
-        Me.Codigo = Codigo
-    End Sub
 
 
 

FRM/frmCertificadosDeInversion.Designer.vb

@@ -139,7 +139,6 @@ Partial Class frmCertificadosDeInversion
         Me.GrpInfoAcc = New System.Windows.Forms.GroupBox()
         Me.btnQuitar = New System.Windows.Forms.Button()
         Me.pnlPie = New System.Windows.Forms.Panel()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
         Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
         Me.navModificar = New System.Windows.Forms.ToolStripButton()
@@ -862,23 +861,29 @@ Partial Class frmCertificadosDeInversion
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(10, 3)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 106
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(91, 3)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 107
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'cboAnioBaseC
         '
@@ -931,6 +936,7 @@ Partial Class frmCertificadosDeInversion
         'dgvIngresos
         '
         Me.dgvIngresos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvIngresos.BackgroundColor = System.Drawing.Color.WhiteSmoke
         Me.dgvIngresos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIngresos.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvIngresos.Location = New System.Drawing.Point(0, 0)
@@ -963,6 +969,7 @@ Partial Class frmCertificadosDeInversion
         'TabPage1
         '
         Me.TabPage1.AutoScroll = True
+        Me.TabPage1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage1.Controls.Add(Me.btnVenderTitulo)
         Me.TabPage1.Controls.Add(Me.GrpVenta)
         Me.TabPage1.Controls.Add(Me.GrpCompra)
@@ -974,16 +981,18 @@ Partial Class frmCertificadosDeInversion
         Me.TabPage1.Size = New System.Drawing.Size(929, 516)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Operación"
-        Me.TabPage1.UseVisualStyleBackColor = True
         '
         'btnVenderTitulo
         '
-        Me.btnVenderTitulo.Location = New System.Drawing.Point(587, 6)
+        Me.btnVenderTitulo.BackColor = System.Drawing.Color.White
+        Me.btnVenderTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVenderTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.btnVenderTitulo.Location = New System.Drawing.Point(574, 18)
         Me.btnVenderTitulo.Name = "btnVenderTitulo"
-        Me.btnVenderTitulo.Size = New System.Drawing.Size(75, 51)
+        Me.btnVenderTitulo.Size = New System.Drawing.Size(98, 28)
         Me.btnVenderTitulo.TabIndex = 142
         Me.btnVenderTitulo.Text = "Vender Titulo"
-        Me.btnVenderTitulo.UseVisualStyleBackColor = True
+        Me.btnVenderTitulo.UseVisualStyleBackColor = False
         Me.btnVenderTitulo.Visible = False
         '
         'GrpVenta
@@ -1221,6 +1230,7 @@ Partial Class frmCertificadosDeInversion
         '
         'TabPage4
         '
+        Me.TabPage4.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage4.Controls.Add(Me.GrpDatos)
         Me.TabPage4.Controls.Add(Me.GrpInfoAcc)
         Me.TabPage4.Controls.Add(Me.Label35)
@@ -1229,7 +1239,6 @@ Partial Class frmCertificadosDeInversion
         Me.TabPage4.Size = New System.Drawing.Size(929, 516)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Resultado de la Op."
-        Me.TabPage4.UseVisualStyleBackColor = True
         '
         'GrpDatos
         '
@@ -1275,16 +1284,18 @@ Partial Class frmCertificadosDeInversion
         '
         'btnQuitar
         '
+        Me.btnQuitar.BackColor = System.Drawing.Color.White
+        Me.btnQuitar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitar.ForeColor = System.Drawing.Color.Maroon
         Me.btnQuitar.Location = New System.Drawing.Point(172, 3)
         Me.btnQuitar.Name = "btnQuitar"
         Me.btnQuitar.Size = New System.Drawing.Size(78, 23)
         Me.btnQuitar.TabIndex = 117
         Me.btnQuitar.Text = "Quitar"
-        Me.btnQuitar.UseVisualStyleBackColor = True
+        Me.btnQuitar.UseVisualStyleBackColor = False
         '
         'pnlPie
         '
-        Me.pnlPie.Controls.Add(Me.Button1)
         Me.pnlPie.Controls.Add(Me.btnAceptar)
         Me.pnlPie.Controls.Add(Me.btnQuitar)
         Me.pnlPie.Controls.Add(Me.btnCancelar)
@@ -1294,15 +1305,6 @@ Partial Class frmCertificadosDeInversion
         Me.pnlPie.Size = New System.Drawing.Size(937, 46)
         Me.pnlPie.TabIndex = 122
         '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(256, 3)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 118
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
         'BindingNavigator1
         '
         Me.BindingNavigator1.AddNewItem = Nothing
@@ -1393,7 +1395,6 @@ Partial Class frmCertificadosDeInversion
         Me.Controls.Add(Me.pnlPie)
         Me.Controls.Add(Me.Label30)
         Me.Name = "frmCertificadosDeInversion"
-        Me.Text = "Certificados de Inversión"
         CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabCampos.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
@@ -1544,6 +1545,5 @@ Partial Class frmCertificadosDeInversion
     Friend WithEvents Panel2 As Panel
     Friend WithEvents GrpDatos As GroupBox
     Friend WithEvents GrpInfoAcc As GroupBox
-    Friend WithEvents Button1 As Button
     Friend WithEvents btnVenderTitulo As Button
 End Class

FRM/frmCertificadosDeInversion.resx

@@ -139,28 +139,29 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIbdDmVtYWFlha1zJ0CdgA5MwQmP
-        EGRiEEuY660IIYQqdSpLixoeAVEcIdGuSDyiIMzDhChJmwcoYIOTOE38UFAOvldJIBGuIn7p09Gxz/2u
-        fS+BkubmXif4+cY496UtfrbaxvOeV/hFPQmFPjdkTqbepIMzLVH/h0IuwPTTzgkfNUKJDjslDtdgN6AG
-        x5JWi30bCxK7s41yYLpL2+8E3d8DOtcHqiKBqv0zJZeXAUmw4NL3qSnjf6/8ZNqL+vHYW22vA7RDEsKp
-        oilIQpKUWBJ8b8ryTKt+0AvazjtQfd0gCILORZLww70MG6y3wuraOhxHb6oF6MAE3tM8MuS40wwJu8Ve
-        oIGoVICIqEDYICKqFaKpQrWgnH7bsCKmZWC9m3ggeCHB1/lvsLDgrrC45IFQUjYXSNk8/lQ0ELvJAf/3
-        Ck7+VBO7VeoTBJI54CJXcGiAapnzaxOBrUZwlpDAvbhSOUAE6s8vMyYCa7UgfFuAoKA8YOwcvFbx87oE
-        R09cI+pPYzXXWI6VHEo9FiTkIiZeqo95UmCxjObThmDr12888D8UNQsDA+N8aSlBAMAL4xdYl+sjOEdd
-        QDsncTWDpmndRjq8DMO8LCmeG4K4B04tbBPumXp1AAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFNTNpgGMe7Hbar08uuu86b553mspPTgydW
+        PhQxlbp4YWd727Isy2LiSS/ODFQ0xhIT59VEN4Kx6ioSwPGhQVotUAb9CAuPfd8AE0IN8Z/88uRpn/f3
+        tu9LoOS5r11pfr47xc32pk5We3ne/wi/6CTR6MzjwvHHJ/nI52eJ0FClFGbstHsqSI1TostJiWMtOA2o
+        kcmM1eLcwYL03pduOfxpQPv1CvTQIOjcW1AVCVTtrymlsgxIggUXwQ89hdBrZY15WdWPJvu0n/2gHZAQ
+        y1VNQRKSpMSa4FtPkWee6/vDoO2+ADX4BgRB0Ll4Br57l2GDDTRYXVuHo8RVswAdmMD7n46Puv5phoTd
+        Ys/RQEKqQFxUIGYQF9UGiVylWVCP3TamiHkZ2MAmHoicSzA3vwCLi94GviU/RDOyuUAqlvGnooHkVQn4
+        P5dwfNZM8lrpTBDOlICLX8KBAap1TrMmAluL4CQtgde30jhABOpPLwomAmuzIHZdgYig/MfYOZJV8fOO
+        BIdtrhH1v5Mt11iPlRzN3Rak5SomVau3aSuwWCbKeUOw9WMbD9yFohbB4XjH15YSBAA8MH6B9XimwT3h
+        Adr9HlczaJrWbaQrwDDMw5riviGIG0RhbBComwuwAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwVnAQwUnpJvW++QMU
-        F1HEycFB0cVNUHHQEDo5uehgB21RQYi6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
-        Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
-        YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
-        VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
-        VUAhm1e/gPulfhjBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAcJB/qimolFDbxTs/
-        KktZa8bakKtYFgQCgWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
-        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AD0lg7Tvh7efAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOLV0K631svkD
+        FBdRxMnBoaKLm6DioCF06uSig4UqRQUh6iIILg5uXgqS0pu9pk2vr+cLTa221frBQ8LhvE++7xzCVauH
+        YWZY/2CAYWQ0lDmbzSYkSSqXSiU0Q1VVCIKwz/Y2lVgpnMlkoChKjWQyiXg8jlAopEmCwSBEUWyQGBhW
+        2pDL5ZDP57UnkU6nkUgkEA6HNQHrEvQRt9utS7SqCSisQwIKpFIpRCKRb+MQlKlmvwTFYrG2gd5pbn2U
+        aDSqdSLLcmvBT+ol1AmdRywWa19A6BIah86ERLTetoAoFArauZCEoLV/CaiLt5MD3M2P4Gq8Azez/RCs
+        BvFXAYV0Al4Bjy4bcv49VJ4uoBytQrKPli8dppU/BdT+7dwQsiyMg2lgrRPYGkRkxwH/GP/SUlAvobYr
+        D17UV3yzG5tOU6Um8Pl8lWYS4nqmDxnPAsBCqovDByOwzONikn8nAZWFXY/S6md6Pd7F/dIw5LVBhNc7
+        8LxowJXdVD6fMG5U81wvw8Kgq2mKZ6pLPHXyMrV9ZudDhzZ+m+M47hM2pIOrSi+qCgAAAABJRU5ErkJg
+        gg==
 </value>
   </data>
   <data name="btnIngresos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

FRM/frmCertificadosDeInversion.vb

@@ -15,8 +15,7 @@
     Dim IndexBaseV As Integer = 0
     Dim PeriodoC As Integer = 0
     Dim PeriodoV As Integer = 0
-    'Dim InstrumentoFinanciero As String = oDAOGeneral.ObtenerInstrumento(Variables.Codigo)
-    'Private _Modo As String
+
     Private _IdDocumento As Integer
     Private _TipoDocumento As String
     Private _CodigoInversion As String
@@ -151,14 +150,12 @@
         If Tabla = "TIT" Then
             If (Existe) Then
                 navNuevo.Enabled = False
-                'TbIngresos.rea = False
                 navModificar.Enabled = True
                 navEliminar.Enabled = True
                 btnIngresos.Enabled = True
 
             Else
                 navNuevo.Enabled = True
-                'TbIngresos.Enabled = False
                 navModificar.Enabled = False
                 navEliminar.Enabled = False
                 btnIngresos.Enabled = False
@@ -168,13 +165,11 @@
         Else
             If (Existe) Then
                 navNuevo.Enabled = False
-                'TbIngresos.Enabled = True
                 navModificar.Enabled = True
                 navEliminar.Enabled = True
                 btnIngresos.Enabled = True
             Else
                 navNuevo.Enabled = True
-                'TbIngresos.Enabled = False
                 navModificar.Enabled = False
                 navEliminar.Enabled = False
                 btnIngresos.Enabled = False
@@ -225,7 +220,6 @@
         AsignacionPeriodicidad()
         If (Not Ins = "TIT") Then
             btnIngresos.Visible = False
-            'TbIngresos.Enabled = False
         End If
         If (Ins = "TIT") Then
             btnIngresos.Visible = True
@@ -239,37 +233,16 @@
         End If
         Bono()
         Tipo = 1
-
         Call CargarPeriodos()
-        'PrepararTablaImpuestosYComisiones()
-
         PrepararTablaIngresos()
-
         If Me.TipoTransaccion Is Nothing Then
             Me.TipoTransaccion = "N"
-
         End If
-
-        If Me.TipoTransaccion = "C" Then
-            '     Call CargarRegistroBD()
-        End If
-
         CargarIngresos()
-        ' CargarComisiones()
-
         RefrescarValorControles()
-
         Cargar = False
-
-        'Calculos()
-        'Formato()
-        'ValidacionErrores()
         BotonQuitar()
-
-
-
         CamposTiempo()
-
         CargarTransladoNuevo()
         ConfiguracionCMVTA(VExisteInversion)
     End Sub
@@ -299,14 +272,7 @@
         End If
     End Sub
 
-    Function ExisteVenta()
-        Dim Ventas As Boolean = False
-        Dim General As New DAOGeneral
-        Dim Codigo As String = Variables.Codigo
-        Ventas = General.ExisteVenta(Codigo)
 
-        Return Ventas
-    End Function
 
     Sub CamposTiempo()
         If Not TypeOf cboPeriodosC.SelectedValue Is DataRowView Then
@@ -596,85 +562,55 @@
             oDAOPrincipal.
                 Eliminar(Codigo, Instrumento)
 
-            'EliminarIngreso()
+
             LimpiarElementos()
 
         End If
         ValidarExistencia()
     End Sub
-    Function RetornarObjeto()
-        Return oCEPrincipal
-    End Function
 
-    Public Sub CargarRegistro(vId As Integer, vTipo As String)
-        TipoTransaccion = "C"
-        IdDocumento = vId
-        TipoDocumento = vTipo
-    End Sub
+
+
     Public Sub CargarRegistro(ByVal CodInversion As String)
         TipoTransaccion = "C"
         CodigoInversion = CodInversion
     End Sub
-    Private Sub CargarRegistroBD()
-        oCEPrincipal = Nothing
-        '  oCEPrincipal = oDAOPrincipal.CargarRegistro(Me.CodigoInversion)
 
-        TipoTransaccion = "C"
-        RefrescarValorControles()
-
-    End Sub
     Private Sub dtpUltimaFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpUltimaFechaCuponCompra.ValueChanged
-        'ActivarEdicion()
-        ' ControlUltimaFechaCuponCompra()
         Formato()
         Calculos()
         ValidacionErrores()
     End Sub
     Private Sub dtpSiguienteFechaCuponCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpSiguienteFechaCuponCompra.ValueChanged
-        'ActivarEdicion()
-        ' ControlSiguienteFechaCuponCompra()
         Formato()
         Calculos()
         ValidacionErrores()
     End Sub
     Private Sub dtpFechaLiquidacionCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaLiquidacionCompra.ValueChanged
-        'ActivarEdicion()
-        '  ControlFechaLiquidacionCompra()
         Formato()
         Calculos()
         ValidacionErrores()
     End Sub
     Private Sub dtpFechaVencimientoCompra_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimientoCompra.ValueChanged
-        'ActivarEdicion()
-        '  ControlFechaVencimientoCompra()
         Formato()
         Calculos()
         ValidacionErrores()
     End Sub
     Private Sub txtPorcentajeCuponCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeCuponCompra.TextChanged
-        'ActivarEdicion()
-
         Calculos()
         ValidacionErrores()
 
     End Sub
 
     Private Sub txtPrecioCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioCompra.TextChanged
-        'ActivarEdicion()
-
         Calculos()
         ValidacionErrores()
     End Sub
     Private Sub txtPrecioAlVencimientoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoCompra.TextChanged
-        'ActivarEdicion()
-
         Calculos()
         ValidacionErrores()
     End Sub
     Private Sub txtCostoTransferenciaCompra_TextChanged(sender As Object, e As EventArgs) Handles txtCostoTransferenciaCompra.TextChanged
-        'RefrescarMontoAPagarCompra()
-        'ActivarEdicion()
-
         Calculos()
         ValidacionErrores()
     End Sub
@@ -683,23 +619,9 @@
         Formato()
         Calculos()
         ValidacionErrores()
-        'ActivarEdicion()
-        '  ControlFechaVencimientoVenta()
-
     End Sub
-    Private Sub ControlFechaVencimientoVenta()
-        Dim valor As Date
-        valor = dtpFechaVencimientoVenta.Value.Date
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            oCEPrincipal.FechaVencimientoVenta = valor
-
-
-        End If
 
-    End Sub
     Private Sub cboAnioBaseC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseC.SelectedIndexChanged
-        'ActivarEdicion()
-        ' ControlAnioBaseCompra()
         Formato()
         Calculos()
         ValidacionErrores()
@@ -707,26 +629,12 @@
     End Sub
 
     Private Sub cboAnioBaseV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAnioBaseV.SelectedIndexChanged
-        'RefrescarInteresAcumuladoVenta()
-        'RefrescarDiasAlVencimientoVenta()
-        'RefrescarDiasAcumuladosVenta()
-        '    ControlAnioBaseVenta()
-        'ActivarEdicion()
         Formato()
         Calculos()
         ValidacionErrores()
         CamposTiempo()
     End Sub
-    Private Sub ControlAnioBaseVenta()
-        Dim valor As Integer
-        If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
-            If cboAnioBaseV.SelectedIndex > -1 Then
-                oCEPrincipal.DiasBaseVenta = cboAnioBaseV.SelectedItem
-            Else
-                oCEPrincipal.DiasBaseVenta = 365
-            End If
-        End If
-    End Sub
+
     Sub CargarPeriodos()
         If cboPeriodosC.Items.Count = 0 Or cboPeriodosC.Items.Count = 1 Then
 
@@ -755,7 +663,6 @@
     End Sub
 
     Private Sub cboPeriodosV_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodosV.SelectedIndexChanged
-        'ActivarEdicion()
         Formato()
         Calculos()
         ValidacionErrores()
@@ -765,9 +672,6 @@
 
 
 
-    'Sub RefrescarTablaIngresos()
-    '    'Me.dgvIngresos.DataSource = CalcularCupones()
-    'End Sub
     Private Sub RefrescarValorControles()
 
 
@@ -871,14 +775,7 @@
                 txtPorcentajeCuponCompra.Text = (CDec(coleccion(23) * 100).ToString)
             End If
 
-            'txtDiasAlVencimientoCompra.Text = BonoCalculo.DiasVencimiento(dtpFechaLiquidacionCompra.Value, dtpFechaVencimientoCompra.Value, IndexBaseC).ToString
-            'txtDiasAcumuladosCompra.Text = Operaciones.DiasAcumulados(dtpUltimaFechaCuponCompra.Value, dtpFechaLiquidacionCompra.Value, IndexBaseC).ToString
 
-
-            'txtInteresAcumuladoCompra.Text = Operaciones.InteresAcumulado(txtValorNominalCompra.Text, txtPorcentajeCuponCompra.Text.TrimEnd("%") / 100, txtDiasAcumuladosCompra.Text, IndexBaseC).ToString
-            'txtPorcentajeInteresAcumuladoCompra.Text = Operaciones.InteresAcumuladoPor(txtInteresAcumuladoCompra.Text, txtValorNominalCompra.Text) * 100
-            'txtPrecioSucioCompra.Text = Operaciones.PrecioSucio(txtPrecioCompra.Text, txtPorcentajeInteresAcumuladoCompra.Text / 100).ToString
-            'txtValorTransadoCompra.Text = Operaciones.ValorTrasado(txtPrecioCompra.Text, txtValorNominalCompra.Text).ToString
             If (String.IsNullOrEmpty(txtComisionPorCompraCasa.Text)) Then
                 txtComisionPorCompraCasa.Text = 0
             End If
@@ -898,14 +795,6 @@
                 txtYTMAlVencimientoCompra.Text = 0
             End If
 
-            'txtYTMAlVencimientoComisionCompra.Text = Bonos.CalcularYTMComision(CDec(txtYTMAlVencimientoCompra.Text.TrimEnd("%") / 100), CDec(txtComisionPorCompraCasa.Text.ToString.Trim("%")), CDec(txtDiasAlVencimientoCompra.Text), CDec(txtComisionPorBolsaCompra.Text.ToString.Trim("%")), dtpFechaLiquidacionCompra.Value, dtpFechaVencimientoCompra.Value, IndexBaseC).ToString
-
-
-
-
-            'txtMontoAPagar.Text = Operaciones.MontoPagar(CDec(txtValorTransadoCompra.Text), CDec(txtComisionCompraBolsa.Text), CDec(txtComisionCompraCasa.Text), CDec(txtInteresAcumuladoCompra.Text), CDec(txtCostoTransferenciaCompra.Text)).ToString
-
-
 
 
             If (String.IsNullOrEmpty(coleccion(12).ToString)) Then
@@ -970,12 +859,6 @@
                 txtCuponesRecibidos.Text = coleccion(22).ToString
             End If
 
-            'txtDiasAlVencimientoVenta.Text = BonoCalculo.DiasVencimiento(dtpFechaLiquidacionVenta.Value, dtpFechaVencimientoVenta.Value, IndexBaseV).ToString
-            'txtDiasAcumuladosVenta.Text = Operaciones.DiasAcumulados(dtpUltimaFechaCuponVenta.Value, dtpFechaLiquidacionVenta.Value, IndexBaseV).ToString
-            'txtInteresAcumuladoVenta.Text = Operaciones.InteresAcumulado(txtValorNominalVenta.Text, txtPorcentajeCuponVenta.Text.TrimEnd("%") / 100, txtDiasAcumuladosVenta.Text, IndexBaseV).ToString
-            'txtPorcentajeInteresAcumuladoVenta.Text = Operaciones.InteresAcumuladoPor(txtInteresAcumuladoVenta.Text, txtValorNominalVenta.Text) * 100
-            'txtPrecioSucioVenta.Text = Operaciones.PrecioSucio(txtPrecioVenta.Text, txtPorcentajeInteresAcumuladoVenta.Text / 100).ToString
-            'txtValorTransadoVenta.Text = Operaciones.ValorTrasado(txtPrecioVenta.Text, txtValorNominalCompra.Text).ToString
 
             If (String.IsNullOrEmpty(txtComisionPorVentaCasa.Text)) Then
                 txtComisionPorVentaCasa.Text = 0
@@ -985,16 +868,9 @@
             End If
 
 
-            'txtComisionVentaCasa.Text = Operaciones.Comisiones(CDec(txtComisionPorVentaCasa.Text.TrimEnd("%") / 100), CDec(txtValorTransadoVenta.Text)).ToString
-            'txtComisionVentaBolsa.Text = Operaciones.Comisiones(CDec(txtComisionPorBolsaVenta.Text.TrimEnd("%") / 100), CDec(txtValorTransadoVenta.Text)).ToString
             If String.IsNullOrEmpty(txtYTMAlVencimientoVenta.Text.ToString) Then
                 txtYTMAlVencimientoVenta.Text = 0
             End If
-            'txtYTMAlVencimientoComisionVenta.Text = Bonos.CalcularYTMComision(CDec(txtYTMAlVencimientoCompra.Text.TrimEnd("%") / 100), CDec(txtComisionPorCompraCasa.Text.ToString.Trim("%")), CDec(txtDiasAlVencimientoCompra.Text), CDec(txtComisionPorBolsaCompra.Text.ToString.Trim("%")), dtpFechaLiquidacionCompra.Value, dtpFechaVencimientoCompra.Value, IndexBaseC).ToString
-            'txtMontoARecibir.Text = Operaciones.MontoRecibir(txtValorTransadoVenta.Text, txtComisionVentaBolsa.Text, txtComisionVentaCasa.Text, txtInteresAcumuladoVenta.Text).ToString
-            'txtCuponesRecibidos.Text = Recibido().ToString
-
-
 
 
             If (String.IsNullOrEmpty(coleccion(25).ToString)) Then
@@ -1801,8 +1677,6 @@
             V_txtPorcentajeInteresAcumuladoCompra = BonoCalculo.InteresAcumuladoPor(V_txtInteresAcumuladoCompra, V_txtValorNominalCompra, PeriodoC, IndexBaseC) * 100
             V_txtPrecioSucioCompra = BonoCalculo.PrecioSucio(V_txtPrecioCompra, V_txtPorcentajeInteresAcumuladoCompra / 100)
             V_txtValorTransadoCompra = BonoCalculo.ValorTrasado(V_txtPrecioCompra, V_txtValorNominalCompra)
-            'V_txtComisionCompraCasa = BonoCalculo.Comisiones(CDec(V_txtComisionPorCompraCasa), CDec(V_txtValorTransadoCompra))
-            ' V_txtComisionCompraBolsa = BonoCalculo.Comisiones(CDec(V_txtComisionPorBolsaCompra), CDec(V_txtValorTransadoCompra))
             V_txtComisionCompraCasa = CalcularComision(V_txtComisionPorCompraCasa, V_txtValorTransadoCompra)
             V_txtComisionCompraBolsa = CalcularComision(V_txtComisionPorBolsaCompra, V_txtValorTransadoCompra)
             V_txtYTMAlVencimientoComisionCompra = Bonos.CalcularYTMComision(CDec(V_txtYTMAlVencimientoCompra), CDec(V_txtComisionPorCompraCasa), V_txtDiasAlVencimientoCompra, CDec(V_txtComisionPorBolsaCompra), V_dtpFechaLiquidacionCompra, V_dtpFechaVencimientoCompra, IndexBaseC)
@@ -1817,8 +1691,6 @@
             V_txtPorcentajeInteresAcumuladoVenta = BonoCalculo.InteresAcumuladoPor(V_txtInteresAcumuladoVenta, V_txtValorNominalVenta, PeriodoV, IndexBaseV) * 100
             V_txtPrecioSucioVenta = BonoCalculo.PrecioSucio(V_txtPrecioVenta, V_txtPorcentajeInteresAcumuladoVenta / 100)
             V_txtValorTransadoVenta = BonoCalculo.ValorTrasado(V_txtPrecioVenta, V_txtValorNominalVenta)
-            'V_txtComisionVentaCasa = BonoCalculo.Comisiones(CDec(V_txtComisionPorVentaCasa), CDec(V_txtValorTransadoVenta))
-            ' V_txtComisionVentaBolsa = BonoCalculo.Comisiones(CDec(V_txtComisionPorBolsaVenta), CDec(V_txtValorTransadoVenta))
 
             V_txtComisionVentaCasa = CalcularComision(V_txtComisionPorVentaCasa, V_txtValorTransadoVenta)
             V_txtComisionVentaBolsa = CalcularComision(V_txtComisionPorBolsaVenta, V_txtValorTransadoVenta)
@@ -1873,64 +1745,30 @@
 
 
     Private Sub RefrescarClaseEntidad()
-        ControlValorNominalCompra()
+
         ControlUltimaFechaCuponCompra()
         ControlSiguienteFechaCuponCompra()
         ControlFechaLiquidacionCompra()
         ControlFechaVencimientoCompra()
-        ControlPorcentajeCuponCompra()
-        'ControlYTMAlVencimientoCompra()
-        ControlPrecioAlVencimientoCompra()
-        ControlPrecioCompra()
+
+
+
         ControlAnioBaseCompra()
-        ControlCostosDeTransferencia()
 
-        'ControlValorNominalv
+
+
         ControlUltimaFechaCuponCompra()
         ControlSiguienteFechaCuponCompra()
         ControlFechaLiquidacionCompra()
         ControlFechaVencimientoCompra()
-        ControlPorcentajeCuponCompra()
-        'ControlYTMAlVencimientoCompra()
-        ControlPrecioAlVencimientoCompra()
-        ControlPrecioCompra()
-        ControlAnioBaseCompra()
-        ControlCostosDeTransferencia()
 
+        ControlAnioBaseCompra()
 
-    End Sub
-    Private Sub GuardarNuevoRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
 
-        res = oDAOPrincipal.Nuevo(oCEPrincipal)
-        If res = 1 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
 
     End Sub
-    Private Sub ActualizarRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
 
-        ' res = oDAOPrincipal.Actualizar(oCEPrincipal)
 
-        If res = 1 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
-
-    End Sub
-    'Private Sub ActivarEdicion()
-    '    If TipoTransaccion = "C" Then
-    '        Me.TipoTransaccion = "A"
-    '        Me.btnAceptar.Text = "Guardar"
-    '    End If
-
-    'End Sub
     Private Sub ControlPeriodosCompra()
         Dim valor As String
         If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
@@ -1967,9 +1805,7 @@
         Return Fecha
     End Function
 
-    Private Sub ControlValorNominalCompra()
 
-    End Sub
     Private Sub ControlUltimaFechaCuponCompra()
         If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
             Me.oCEPrincipal.UltimaFechaCuponCompra = dtpUltimaFechaCuponCompra.Value.Date
@@ -1994,9 +1830,7 @@
 
         End If
     End Sub
-    Private Sub ControlPorcentajeCuponCompra()
 
-    End Sub
     Private Sub ControlAnioBaseCompra()
         Dim valor As Integer
         If Me.TipoTransaccion = "N" Or Me.TipoTransaccion = "A" Then
@@ -2008,37 +1842,28 @@
     End Sub
 
     Private Sub txtValorNominalCompra_LostFocus(sender As Object, e As EventArgs) Handles txtValorNominalCompra.LostFocus
-        ' ControlValorNominalCompra()
-    End Sub
-
 
-    Private Sub ControlPrecioAlVencimientoCompra()
+    End Sub
 
 
-    End Sub
-    Private Sub ControlPrecioCompra()
 
-    End Sub
-    Private Sub ControlCostosDeTransferencia()
 
-    End Sub
     Private Sub txtPorcentajeCuponCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPorcentajeCuponCompra.LostFocus
-        ControlPorcentajeCuponCompra()
+
     End Sub
     Private Sub txtPrecioAlVencimientoCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoCompra.LostFocus
-        ControlPrecioAlVencimientoCompra()
+
     End Sub
 
     Private Sub txtPrecioCompra_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioCompra.LostFocus
-        ControlPrecioCompra()
+
     End Sub
 
     Private Sub txtCostoTransferenciaCompra_LostFocus(sender As Object, e As EventArgs) Handles txtCostoTransferenciaCompra.LostFocus
-        ControlCostosDeTransferencia()
+
     End Sub
 
     Private Sub dtpSiguienteFechaCuponVenta_ValueChanged(sender As Object, e As EventArgs) Handles dtpSiguienteFechaCuponVenta.ValueChanged
-        'ActivarEdicion()
         Formato()
         Calculos()
         ValidacionErrores()
@@ -2046,84 +1871,12 @@
 
 
     Private Sub txtCostoTransferenciaVenta_TextChanged(sender As Object, e As EventArgs)
-        'ActivarEdicion()
-    End Sub
-
-    'Private Sub PrepararTablaImpuestosYComisiones()
-    '    Dim oDataGridViewTextBoxColumn As DataGridViewTextBoxColumn
-    '    Dim oDataGridViewComboBoxColumn As DataGridViewComboBoxColumn
-
-    '    oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-    '    oDataGridViewComboBoxColumn.Name = "CodImp"
-    '    oDataGridViewComboBoxColumn.HeaderText = "Tipo Impuesto"
-    '    oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTiposImpuesto
-    '    oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-    '    oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-    '    oDataGridViewComboBoxColumn.DataPropertyName = "CodImp"
-    '    oDataGridViewComboBoxColumn.DisplayIndex = 0
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-    '    oDataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
-    '    oDataGridViewComboBoxColumn.Name = "TipoOper"
-    '    oDataGridViewComboBoxColumn.HeaderText = "Tipo Operación"
-    '    oDataGridViewComboBoxColumn.DataSource = oDAOGeneral.ListaTipoOperacion
-    '    oDataGridViewComboBoxColumn.ValueMember = "Codigo"
-    '    oDataGridViewComboBoxColumn.DisplayMember = "Descripcion"
-    '    oDataGridViewComboBoxColumn.DataPropertyName = "TipoOper"
-    '    oDataGridViewComboBoxColumn.DisplayIndex = 1
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewComboBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "PorcImp"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Porcentaje"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "PorcImp"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTPorcentaje
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 2
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "MontoSujeto"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Monto Sujeto"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "MontoSujeto"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-    '    oDataGridViewTextBoxColumn.ReadOnly = True
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 3
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "MontoImp"
-    '    oDataGridViewTextBoxColumn.HeaderText = "Monto Impuesto"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "MontoImp"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.DefaultCellStyle.Format = Configuraciones.CodigoTXTMontos
-    '    oDataGridViewTextBoxColumn.DisplayIndex = 4
-    '    oDataGridViewTextBoxColumn.ReadOnly = True
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    oDataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
-    '    oDataGridViewTextBoxColumn.Name = "CodInv"
-    '    oDataGridViewTextBoxColumn.DataPropertyName = "CodInv"
-    '    oDataGridViewTextBoxColumn.ValueType = GetType(Double)
-    '    oDataGridViewTextBoxColumn.Visible = False
-    '    Me.dgvImpuestosYComisiones.Columns.Add(oDataGridViewTextBoxColumn)
-
-    '    Me.dgvImpuestosYComisiones.DataSource = oCEPrincipal.ImpuestosYComisiones
-    'End Sub
-    'Private Sub PrepararImpuestosYComisiones(ByVal IdFila As Integer)
-    '    Dim vFila As DataGridViewRow = dgvImpuestosYComisiones.Rows(IdFila)
-    '    If vFila.IsNewRow Then
-    '        vFila.Cells("TipoOper").Value = "V"
-    '        vFila.Cells("PorcImp").Value = 0
-    '        vFila.Cells("MontoSujeto").Value = oCEPrincipal.ValorTransadoVenta
-    '        vFila.Cells("MontoImp").Value = 0.00
-    '    End If
-    'End Sub
+    End Sub
+
+
 
     Private Sub dgvImpuestosYComisiones_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs)
-        'ActivarEdicion()
-        'PrepararImpuestosYComisiones(e.RowIndex)
+
     End Sub
 
     Private Sub dgvImpuestosYComisiones_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIngresos.CellContentClick
@@ -2131,7 +1884,7 @@
     End Sub
 
     Private Sub dgvImpuestosYComisiones_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs)
-        'ActivarEdicion()
+
         oCEPrincipal.ImpuestosYComisiones.AcceptChanges()
     End Sub
 
@@ -2224,33 +1977,25 @@
     End Sub
 
     Private Sub txtValorNominalVenta_LostFocus(sender As Object, e As EventArgs) Handles txtValorNominalVenta.LostFocus
-        ControlValorNominalVenta()
-    End Sub
-    Private Sub ControlValorNominalVenta()
 
     End Sub
 
+
     Private Sub txtPorcentajeCuponVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPorcentajeCuponVenta.LostFocus
-        ControlPorcentajeCuponVenta()
-    End Sub
-    Private Sub ControlPorcentajeCuponVenta()
 
     End Sub
 
+
     Private Sub txtPrecioAlVencimientoVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioAlVencimientoVenta.LostFocus
-        ControlPrecioAlVencimientoVenta()
-    End Sub
-    Private Sub ControlPrecioAlVencimientoVenta()
 
     End Sub
 
+
     Private Sub txtPrecioVenta_LostFocus(sender As Object, e As EventArgs) Handles txtPrecioVenta.LostFocus
-        ControlPrecioVenta()
-    End Sub
-    Private Sub ControlPrecioVenta()
 
     End Sub
 
+
     Private Sub dgvIngresos_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
 
 
@@ -2262,8 +2007,6 @@
 
 
     Private Sub dgvIngresos_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs) Handles dgvIngresos.CellBeginEdit
-        'ActivarEdicion()
-
     End Sub
 
     Private Sub dgvIngresos_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIngresos.CellEndEdit
@@ -2274,11 +2017,10 @@
             CalculoIngresosBONO()
         End If
 
-        'Calculos()
     End Sub
 
     Private Sub dgvIngresos_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles dgvIngresos.UserDeletedRow
-        'ActivarEdicion()
+
         oCEPrincipal.Ingresos.AcceptChanges()
     End Sub
 
@@ -2755,17 +2497,11 @@
 
     End Sub
 
-    Private Function CalcularIngreso(ByVal ValorNominal As Double, ByVal Cupon As Double, ByVal Dias As Integer)
-        Dim Base As Integer = 365
-        Dim Calculo = ValorNominal * Cupon * Dias / Base
-        Return Calculo
-    End Function
+
 
 
     Private Sub TabPage2_Click(sender As Object, e As EventArgs) Handles TbIngresos.Click
-        If (dgvIngresos.Rows.Count > 1) Then
 
-        End If
 
     End Sub
 
@@ -2782,14 +2518,13 @@
         TipoTransaccion = "N"
         btnAceptar.Text = "Nuevo"
 
-        'btnAccionComisiones.Text = "Nuevo"
+
     End Sub
 
     Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click
         TipoTransaccion = "B"
         btnAceptar.Text = "Eliminar"
 
-        'btnAccionComisiones.Text = "Eliminar"
     End Sub
 
     Private Sub txtYTMAlVencimientoCompra_TextChanged(sender As Object, e As EventArgs) Handles txtYTMAlVencimientoCompra.TextChanged
@@ -2844,13 +2579,7 @@
     End Sub
 
     Private Sub btnAccionIngreso_Click(sender As Object, e As EventArgs)
-        'If (TipoTransaccion = "N") Then
-        '    NuevoIngreso(False, 0)
-        'ElseIf (TipoTransaccion = "M") Then
-        '    ModificarIngreso()
-        'ElseIf (TipoTransaccion = "B") Then
-        '    EliminarIngreso()
-        'End If
+
     End Sub
 
     Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles TabCampos.TabIndexChanged
@@ -2907,22 +2636,7 @@
 
 
 
-    'Function ColecccionComisiones()
-    '    Dim coleccion As New Collection
-    '    Dim TipoImp, TipOp, CodImp, PorcImp, MontoImp As String
-    '    TipoImp = dgvImpuestosYComisiones.CurrentRow.Cells("NumCupon").Value
-    '    TipOp = dgvImpuestosYComisiones.CurrentRow.Cells(1).Value
-    '    CodImp = dgvImpuestosYComisiones.CurrentRow.Cells(2).Value
-    '    PorcImp = CDec(dgvImpuestosYComisiones.CurrentRow.Cells(3).Value.ToString.TrimEnd("%") / 100)
-    '    MontoImp = dgvImpuestosYComisiones.CurrentRow.Cells(4).Value.ToString.TrimEnd("%")
 
-    '    coleccion.Add(TipoImp)
-    '    coleccion.Add(TipOp)
-    '    coleccion.Add(CodImp)
-    '    coleccion.Add(PorcImp)
-    '    coleccion.Add(MontoImp)
-    '    Return coleccion
-    'End Function
 
 
     Function ColeccionIngresos(ByRef index As Integer)
@@ -2954,36 +2668,9 @@
 
 
 
-    'Sub NuevaComision()
-    '    Dim coleccion = ColecccionComisiones()
-    '    BonosConsulta.NuevoImpuesto(coleccion, Codigo)
-    'End Sub
-
-    Sub NuevoIngreso(ByVal AgregarModificar As Boolean, ByVal Cantidad As Integer)
-        Dim i As Integer = 0
-
-        Dim Index = dgvIngresos.Rows.Count - 2
-
-        i = Cantidad
-        While i <= Index
-
 
 
 
-            Dim coleccion = ColeccionIngresos(i)
-            If (BonosConsulta.NuevoIngreso(coleccion, Codigo, Instrumento) Is Nothing) Then
-
-                Exit Sub
-            End If
-            i += 1
-        End While
-        MsgBox("Registro de ingresos actualizados")
-
-    End Sub
-    'Sub ModificarComision()
-    '    Dim coleccion = ColecccionComisiones()
-    '    BonosConsulta.ModificarImpuesto(coleccion, Codigo)
-    'End Sub
 
 
     Function Instrumento()
@@ -3006,25 +2693,7 @@
         Return Tabla
     End Function
 
-    Function CanRegistros()
-        Dim Tabla As String = String.Empty
-        Dim Ins As String = Instrumento()
-        If (Ins = "TIT") Then
-            Tabla = "TIT0_0"
-        ElseIf (Ins = "EURB") Then
-            Tabla = "EURB1"
-        ElseIf (Ins = "BONO") Then
-            Tabla = "BON1"
 
-        ElseIf (Ins = "CINV") Then
-            Tabla = "CIN1"
-
-        End If
-        Dim Codigo = Variables.Codigo
-        Dim Cantidad As Integer = oDAOGeneral.CantidadRegistros(Codigo, Tabla)
-
-        Return Cantidad
-    End Function
 
     Function ModificarIngreso()
         Dim i As Integer = 0
@@ -3043,38 +2712,11 @@
         Return Diccionario
     End Function
 
-    Sub EliminarComision()
-        BonosConsulta.EliminarImpuesto(Codigo)
-    End Sub
-
-    Sub EliminarIngreso()
 
 
-        BonosConsulta.EliminarIngresoCompleto(Codigo, Instrumento)
-    End Sub
-
-    'Private Sub btnAccionComisiones_Click(sender As Object, e As EventArgs)
-    '    'If (TipoTransaccion = "N") Then
-    '    '    NuevaComision()
-    '    'ElseIf (TipoTransaccion = "M") Then
-    '    '    ModificarComision()
-    '    ElseIf (TipoTransaccion = "B") Then
-    '        EliminarComision()
-    '    End If
-    'End Sub
 
 
 
-    'Sub CargarComisiones()
-
-    '    Dim codigo As String = Variables.Codigo
-    '    Dim dr = BonosConsulta.CargarImpuestos(codigo)
-    '    While dr.Read
-    '        dgvImpuestosYComisiones.Rows.Add(dr("TipoImp"), dr("TipoOp"), dr("CodImp"), dr("PorcImp"), dr("MontoImp"))
-    '    End While
-
-
-    'End Sub
 
     Sub CargarIngresos()
 
@@ -3830,9 +3472,6 @@
 
 
 
-        'If (String.IsNullOrEmpty(dgvIngresos.Rows(Index).Cells("NumCupon").Value)) Then
-        '    dgvIngresos.Rows(Index).Cells("NumCupon").Value = Correlativo()
-        'End If
 
 
 
@@ -3918,28 +3557,6 @@
                 ValorSaldo = Amortizacion.Rows(j - 1).Cells("Saldos").Value
             End If
 
-
-
-            'Else
-            '    If FechaPeriodoGracia < FechaActualCupon Then
-
-            '        ValorSaldo = Amortizacion.Rows(j - 1).Cells("Saldos").Value
-            '    Else
-            '        ValorSaldo = Variables.MontoCompraTIT
-            '    End If
-            'End If
-
-
-
-
-
-
-
-
-
-
-
-
             PorcCupon = CDec(txtPorcentajeCuponCompra.Text.ToString.Trim("%")) / 100
 
             Dim Fecha1 As Date = Date.Now.Date
@@ -4312,7 +3929,7 @@
 
     End Sub
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
 
     End Sub
 

FRM/frmColaTitulos.Designer.vb

@@ -64,7 +64,6 @@ Partial Class frmColaTitulos
         Me.Label1 = New System.Windows.Forms.Label()
         Me.dgvEspApro = New System.Windows.Forms.DataGridView()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.btnVerEstado = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.grpCancelados = New System.Windows.Forms.GroupBox()
         Me.dgvCancelados = New System.Windows.Forms.DataGridView()
@@ -89,9 +88,10 @@ Partial Class frmColaTitulos
         '
         Me.lblTitulo.Anchor = System.Windows.Forms.AnchorStyles.Top
         Me.lblTitulo.AutoSize = True
+        Me.lblTitulo.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.ForeColor = System.Drawing.Color.White
-        Me.lblTitulo.Location = New System.Drawing.Point(-152, 9)
+        Me.lblTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.lblTitulo.Location = New System.Drawing.Point(14, 9)
         Me.lblTitulo.Name = "lblTitulo"
         Me.lblTitulo.Size = New System.Drawing.Size(256, 24)
         Me.lblTitulo.TabIndex = 81
@@ -104,23 +104,23 @@ Partial Class frmColaTitulos
         DataGridViewCellStyle1.ForeColor = System.Drawing.Color.Black
         DataGridViewCellStyle1.SelectionForeColor = System.Drawing.Color.Black
         Me.dgvColaReportos.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvColaReportos.BackgroundColor = System.Drawing.Color.CornflowerBlue
+        Me.dgvColaReportos.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvColaReportos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.White
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
         Me.dgvColaReportos.DefaultCellStyle = DataGridViewCellStyle2
         Me.dgvColaReportos.GridColor = System.Drawing.Color.Gray
-        Me.dgvColaReportos.Location = New System.Drawing.Point(19, 42)
+        Me.dgvColaReportos.Location = New System.Drawing.Point(13, 19)
         Me.dgvColaReportos.Name = "dgvColaReportos"
         Me.dgvColaReportos.RowHeadersVisible = False
         DataGridViewCellStyle3.ForeColor = System.Drawing.Color.Black
         Me.dgvColaReportos.RowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.dgvColaReportos.Size = New System.Drawing.Size(1281, 194)
+        Me.dgvColaReportos.Size = New System.Drawing.Size(1287, 217)
         Me.dgvColaReportos.TabIndex = 82
         '
         'dgvGeneradosReportos
@@ -129,12 +129,12 @@ Partial Class frmColaTitulos
         Me.dgvGeneradosReportos.AllowUserToDeleteRows = False
         Me.dgvGeneradosReportos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvGeneradosReportos.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvGeneradosReportos.BackgroundColor = System.Drawing.Color.Khaki
+        Me.dgvGeneradosReportos.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvGeneradosReportos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -160,7 +160,7 @@ Partial Class frmColaTitulos
         'lblGenerados
         '
         Me.lblGenerados.AutoSize = True
-        Me.lblGenerados.ForeColor = System.Drawing.Color.White
+        Me.lblGenerados.ForeColor = System.Drawing.Color.Maroon
         Me.lblGenerados.Location = New System.Drawing.Point(863, 24)
         Me.lblGenerados.Name = "lblGenerados"
         Me.lblGenerados.Size = New System.Drawing.Size(247, 13)
@@ -171,7 +171,7 @@ Partial Class frmColaTitulos
         '
         Me.grpPropuesta.Controls.Add(Me.dgvColaReportos)
         Me.grpPropuesta.Controls.Add(Me.lblPropuestaTitulo)
-        Me.grpPropuesta.ForeColor = System.Drawing.Color.White
+        Me.grpPropuesta.ForeColor = System.Drawing.Color.Maroon
         Me.grpPropuesta.Location = New System.Drawing.Point(5, 308)
         Me.grpPropuesta.Name = "grpPropuesta"
         Me.grpPropuesta.Size = New System.Drawing.Size(1306, 253)
@@ -190,7 +190,7 @@ Partial Class frmColaTitulos
         Me.grpTitulos.Controls.Add(Me.Label2)
         Me.grpTitulos.Controls.Add(Me.dgvGenerarTitulos)
         Me.grpTitulos.Controls.Add(Me.Label3)
-        Me.grpTitulos.ForeColor = System.Drawing.Color.White
+        Me.grpTitulos.ForeColor = System.Drawing.Color.Maroon
         Me.grpTitulos.Location = New System.Drawing.Point(5, 36)
         Me.grpTitulos.Name = "grpTitulos"
         Me.grpTitulos.Size = New System.Drawing.Size(1306, 266)
@@ -209,8 +209,9 @@ Partial Class frmColaTitulos
         '
         'btnGenerarReporto
         '
-        Me.btnGenerarReporto.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.btnGenerarReporto.ForeColor = System.Drawing.Color.Black
+        Me.btnGenerarReporto.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.btnGenerarReporto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGenerarReporto.ForeColor = System.Drawing.Color.White
         Me.btnGenerarReporto.Location = New System.Drawing.Point(244, 216)
         Me.btnGenerarReporto.Name = "btnGenerarReporto"
         Me.btnGenerarReporto.Size = New System.Drawing.Size(153, 44)
@@ -222,12 +223,12 @@ Partial Class frmColaTitulos
         '
         Me.dgvDetalles.AllowUserToAddRows = False
         Me.dgvDetalles.AllowUserToDeleteRows = False
-        Me.dgvDetalles.BackgroundColor = System.Drawing.Color.DodgerBlue
+        Me.dgvDetalles.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvDetalles.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -242,8 +243,9 @@ Partial Class frmColaTitulos
         '
         'Button1
         '
-        Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.BackColor = System.Drawing.Color.White
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.Maroon
         Me.Button1.Location = New System.Drawing.Point(45, 35)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(149, 225)
@@ -257,12 +259,12 @@ Partial Class frmColaTitulos
         Me.dgvColaTitulos.AllowUserToDeleteRows = False
         Me.dgvColaTitulos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvColaTitulos.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvColaTitulos.BackgroundColor = System.Drawing.Color.LightGray
+        Me.dgvColaTitulos.BackgroundColor = System.Drawing.Color.White
         Me.dgvColaTitulos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle8.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -277,8 +279,9 @@ Partial Class frmColaTitulos
         '
         'btnGenerarTitulo
         '
-        Me.btnGenerarTitulo.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.btnGenerarTitulo.ForeColor = System.Drawing.Color.Black
+        Me.btnGenerarTitulo.BackColor = System.Drawing.Color.Black
+        Me.btnGenerarTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGenerarTitulo.ForeColor = System.Drawing.Color.White
         Me.btnGenerarTitulo.Location = New System.Drawing.Point(1090, 216)
         Me.btnGenerarTitulo.Name = "btnGenerarTitulo"
         Me.btnGenerarTitulo.Size = New System.Drawing.Size(153, 44)
@@ -301,12 +304,12 @@ Partial Class frmColaTitulos
         Me.dgvGenerarTitulos.AllowUserToDeleteRows = False
         Me.dgvGenerarTitulos.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvGenerarTitulos.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvGenerarTitulos.BackgroundColor = System.Drawing.Color.LightGray
+        Me.dgvGenerarTitulos.BackgroundColor = System.Drawing.Color.White
         Me.dgvGenerarTitulos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle10.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle10.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -335,7 +338,7 @@ Partial Class frmColaTitulos
         Me.GroupBox2.Controls.Add(Me.Label4)
         Me.GroupBox2.Controls.Add(Me.dgvReporteados)
         Me.GroupBox2.Controls.Add(Me.Label1)
-        Me.GroupBox2.ForeColor = System.Drawing.Color.White
+        Me.GroupBox2.ForeColor = System.Drawing.Color.Maroon
         Me.GroupBox2.Location = New System.Drawing.Point(5, 1120)
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.Size = New System.Drawing.Size(1306, 276)
@@ -349,12 +352,12 @@ Partial Class frmColaTitulos
         Me.dgvTitulosRaiz.AllowUserToDeleteRows = False
         Me.dgvTitulosRaiz.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvTitulosRaiz.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvTitulosRaiz.BackgroundColor = System.Drawing.Color.SandyBrown
+        Me.dgvTitulosRaiz.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvTitulosRaiz.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle12.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -382,12 +385,12 @@ Partial Class frmColaTitulos
         Me.dgvReporteados.AllowUserToDeleteRows = False
         Me.dgvReporteados.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvReporteados.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvReporteados.BackgroundColor = System.Drawing.Color.Salmon
+        Me.dgvReporteados.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvReporteados.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle14.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -415,12 +418,12 @@ Partial Class frmColaTitulos
         Me.dgvEspApro.AllowUserToDeleteRows = False
         Me.dgvEspApro.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvEspApro.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvEspApro.BackgroundColor = System.Drawing.Color.LightGreen
+        Me.dgvEspApro.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvEspApro.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle16.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle16.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -436,29 +439,20 @@ Partial Class frmColaTitulos
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.ForeColor = System.Drawing.Color.White
+        Me.Label5.ForeColor = System.Drawing.Color.Maroon
         Me.Label5.Location = New System.Drawing.Point(215, 24)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(149, 13)
         Me.Label5.TabIndex = 91
         Me.Label5.Text = "Titulos Esperando Aprobación"
         '
-        'btnVerEstado
-        '
-        Me.btnVerEstado.Location = New System.Drawing.Point(270, 9)
-        Me.btnVerEstado.Name = "btnVerEstado"
-        Me.btnVerEstado.Size = New System.Drawing.Size(111, 26)
-        Me.btnVerEstado.TabIndex = 89
-        Me.btnVerEstado.Text = "Ver Estado"
-        Me.btnVerEstado.UseVisualStyleBackColor = True
-        '
         'GroupBox1
         '
         Me.GroupBox1.Controls.Add(Me.dgvEspApro)
         Me.GroupBox1.Controls.Add(Me.Label5)
         Me.GroupBox1.Controls.Add(Me.dgvGeneradosReportos)
         Me.GroupBox1.Controls.Add(Me.lblGenerados)
-        Me.GroupBox1.ForeColor = System.Drawing.Color.White
+        Me.GroupBox1.ForeColor = System.Drawing.Color.Maroon
         Me.GroupBox1.Location = New System.Drawing.Point(5, 570)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(1306, 253)
@@ -470,10 +464,10 @@ Partial Class frmColaTitulos
         '
         Me.grpCancelados.Controls.Add(Me.dgvCancelados)
         Me.grpCancelados.Controls.Add(Me.Label7)
-        Me.grpCancelados.ForeColor = System.Drawing.Color.White
+        Me.grpCancelados.ForeColor = System.Drawing.Color.Maroon
         Me.grpCancelados.Location = New System.Drawing.Point(5, 829)
         Me.grpCancelados.Name = "grpCancelados"
-        Me.grpCancelados.Size = New System.Drawing.Size(638, 276)
+        Me.grpCancelados.Size = New System.Drawing.Size(1300, 276)
         Me.grpCancelados.TabIndex = 91
         Me.grpCancelados.TabStop = False
         Me.grpCancelados.Text = "Cancelados"
@@ -484,12 +478,12 @@ Partial Class frmColaTitulos
         Me.dgvCancelados.AllowUserToDeleteRows = False
         Me.dgvCancelados.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.dgvCancelados.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
-        Me.dgvCancelados.BackgroundColor = System.Drawing.Color.Salmon
+        Me.dgvCancelados.BackgroundColor = System.Drawing.Color.DimGray
         Me.dgvCancelados.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
         DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.ForeColor = System.Drawing.Color.White
+        DataGridViewCellStyle18.ForeColor = System.Drawing.Color.Maroon
         DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
@@ -499,13 +493,13 @@ Partial Class frmColaTitulos
         Me.dgvCancelados.RowHeadersVisible = False
         DataGridViewCellStyle19.ForeColor = System.Drawing.Color.Black
         Me.dgvCancelados.RowsDefaultCellStyle = DataGridViewCellStyle19
-        Me.dgvCancelados.Size = New System.Drawing.Size(602, 194)
+        Me.dgvCancelados.Size = New System.Drawing.Size(1273, 194)
         Me.dgvCancelados.TabIndex = 86
         '
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(262, 26)
+        Me.Label7.Location = New System.Drawing.Point(641, 26)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(63, 13)
         Me.Label7.TabIndex = 87
@@ -516,17 +510,16 @@ Partial Class frmColaTitulos
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
-        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
-        Me.ClientSize = New System.Drawing.Size(1336, 605)
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ClientSize = New System.Drawing.Size(1353, 605)
         Me.Controls.Add(Me.grpCancelados)
         Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.btnVerEstado)
         Me.Controls.Add(Me.GroupBox2)
         Me.Controls.Add(Me.grpTitulos)
         Me.Controls.Add(Me.grpPropuesta)
         Me.Controls.Add(Me.lblTitulo)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmColaTitulos"
-        Me.Text = "frmColaTitulos"
         CType(Me.dgvColaReportos, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvGeneradosReportos, System.ComponentModel.ISupportInitialize).EndInit()
         Me.grpPropuesta.ResumeLayout(False)
@@ -574,7 +567,6 @@ Partial Class frmColaTitulos
     Friend WithEvents Label4 As Label
     Friend WithEvents dgvEspApro As DataGridView
     Friend WithEvents Label5 As Label
-    Friend WithEvents btnVerEstado As Button
     Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents grpCancelados As GroupBox
     Friend WithEvents dgvCancelados As DataGridView

FRM/frmColaTitulos.vb

@@ -391,7 +391,7 @@
 
     End Sub
 
-    Private Sub btnVerEstado_Click(sender As Object, e As EventArgs) Handles btnVerEstado.Click
+    Private Sub btnVerEstado_Click(sender As Object, e As EventArgs) 
 
     End Sub
 

FRM/frmCostosReportos.Designer.vb

@@ -1,55 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmCostosReportos
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.dgvReportoCostos = New System.Windows.Forms.DataGridView()
-        CType(Me.dgvReportoCostos, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'dgvReportoCostos
-        '
-        Me.dgvReportoCostos.AllowUserToAddRows = False
-        Me.dgvReportoCostos.AllowUserToDeleteRows = False
-        Me.dgvReportoCostos.BackgroundColor = System.Drawing.Color.White
-        Me.dgvReportoCostos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvReportoCostos.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvReportoCostos.Location = New System.Drawing.Point(0, 0)
-        Me.dgvReportoCostos.Name = "dgvReportoCostos"
-        Me.dgvReportoCostos.Size = New System.Drawing.Size(856, 356)
-        Me.dgvReportoCostos.TabIndex = 0
-        '
-        'frmCostosReportos
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(856, 356)
-        Me.Controls.Add(Me.dgvReportoCostos)
-        Me.Name = "frmCostosReportos"
-        Me.Text = "frmCostosReportos"
-        CType(Me.dgvReportoCostos, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents dgvReportoCostos As DataGridView
-End Class

FRM/frmCostosReportos.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmCostosReportos.vb

@@ -1,28 +0,0 @@
-Public Class frmCostosReportos
-    Private Sub frmCostosReportos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        CargarDatosBusqueda()
-    End Sub
-
-
-    Sub CargarDatosBusqueda()
-        Dim ReportoVenta As New ReportosDAO
-        Dim ds As New DataSet
-        Dim FechaOperacion1 As Date = Date.Today.Date
-        Dim FechaOperacion2 As Date = Date.Today.Date
-        Dim Empresa As String = ""
-        Dim CasaCorredora As String = ""
-        Dim Estado As String = ""
-
-
-
-
-
-
-        ds = ReportoVenta.FiltroReportoCostos()
-        dgvReportoCostos.DataSource = ds.Tables(0)
-
-
-
-
-    End Sub
-End Class

FRM/frmDAP.Designer.vb

@@ -1,331 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmDAP
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.lblBono = New System.Windows.Forms.Label()
-        Me.cboPeriodicidad = New System.Windows.Forms.ComboBox()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.txtIngresoNeto = New System.Windows.Forms.TextBox()
-        Me.txtRenta = New System.Windows.Forms.TextBox()
-        Me.txtIngresoBruto = New System.Windows.Forms.TextBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.dtpFechaVencimiento = New System.Windows.Forms.DateTimePicker()
-        Me.dtpFechaOperacion = New System.Windows.Forms.DateTimePicker()
-        Me.txtRendimientoNeto = New System.Windows.Forms.TextBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.txtRendimientoBruto = New System.Windows.Forms.TextBox()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.txtPlazo = New System.Windows.Forms.TextBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.txtTasa = New System.Windows.Forms.TextBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtMontoInversion = New System.Windows.Forms.TextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.dgvIntereses = New System.Windows.Forms.DataGridView()
-        CType(Me.dgvIntereses, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'lblBono
-        '
-        Me.lblBono.AutoSize = True
-        Me.lblBono.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBono.Location = New System.Drawing.Point(12, 9)
-        Me.lblBono.Name = "lblBono"
-        Me.lblBono.Size = New System.Drawing.Size(166, 24)
-        Me.lblBono.TabIndex = 56
-        Me.lblBono.Text = "Depositos a Plazo"
-        '
-        'cboPeriodicidad
-        '
-        Me.cboPeriodicidad.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPeriodicidad.FormattingEnabled = True
-        Me.cboPeriodicidad.Location = New System.Drawing.Point(139, 157)
-        Me.cboPeriodicidad.Name = "cboPeriodicidad"
-        Me.cboPeriodicidad.Size = New System.Drawing.Size(150, 21)
-        Me.cboPeriodicidad.TabIndex = 77
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(16, 269)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(82, 18)
-        Me.Label13.TabIndex = 84
-        Me.Label13.Text = "Ingreso Neto"
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(16, 269)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(27, 18)
-        Me.Label12.TabIndex = 83
-        Me.Label12.Text = "ISR"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(16, 225)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(86, 18)
-        Me.Label11.TabIndex = 82
-        Me.Label11.Text = "Ingreso Bruto"
-        '
-        'txtIngresoNeto
-        '
-        Me.txtIngresoNeto.Location = New System.Drawing.Point(139, 268)
-        Me.txtIngresoNeto.Name = "txtIngresoNeto"
-        Me.txtIngresoNeto.ReadOnly = True
-        Me.txtIngresoNeto.Size = New System.Drawing.Size(150, 20)
-        Me.txtIngresoNeto.TabIndex = 66
-        '
-        'txtRenta
-        '
-        Me.txtRenta.Location = New System.Drawing.Point(139, 246)
-        Me.txtRenta.Name = "txtRenta"
-        Me.txtRenta.ReadOnly = True
-        Me.txtRenta.Size = New System.Drawing.Size(150, 20)
-        Me.txtRenta.TabIndex = 67
-        '
-        'txtIngresoBruto
-        '
-        Me.txtIngresoBruto.Location = New System.Drawing.Point(139, 224)
-        Me.txtIngresoBruto.Name = "txtIngresoBruto"
-        Me.txtIngresoBruto.ReadOnly = True
-        Me.txtIngresoBruto.Size = New System.Drawing.Size(150, 20)
-        Me.txtIngresoBruto.TabIndex = 68
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.Location = New System.Drawing.Point(16, 92)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(118, 18)
-        Me.Label10.TabIndex = 81
-        Me.Label10.Text = "Fecha Vencimiento"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(16, 70)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(105, 18)
-        Me.Label9.TabIndex = 80
-        Me.Label9.Text = "Fecha Operación"
-        '
-        'dtpFechaVencimiento
-        '
-        Me.dtpFechaVencimiento.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaVencimiento.Location = New System.Drawing.Point(139, 91)
-        Me.dtpFechaVencimiento.Name = "dtpFechaVencimiento"
-        Me.dtpFechaVencimiento.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaVencimiento.TabIndex = 72
-        '
-        'dtpFechaOperacion
-        '
-        Me.dtpFechaOperacion.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dtpFechaOperacion.Location = New System.Drawing.Point(139, 69)
-        Me.dtpFechaOperacion.Name = "dtpFechaOperacion"
-        Me.dtpFechaOperacion.Size = New System.Drawing.Size(150, 20)
-        Me.dtpFechaOperacion.TabIndex = 71
-        '
-        'txtRendimientoNeto
-        '
-        Me.txtRendimientoNeto.Location = New System.Drawing.Point(139, 202)
-        Me.txtRendimientoNeto.Name = "txtRendimientoNeto"
-        Me.txtRendimientoNeto.ReadOnly = True
-        Me.txtRendimientoNeto.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoNeto.TabIndex = 65
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(16, 203)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(113, 18)
-        Me.Label8.TabIndex = 79
-        Me.Label8.Text = "Rendimiento Neto"
-        '
-        'txtRendimientoBruto
-        '
-        Me.txtRendimientoBruto.Location = New System.Drawing.Point(139, 180)
-        Me.txtRendimientoBruto.Name = "txtRendimientoBruto"
-        Me.txtRendimientoBruto.ReadOnly = True
-        Me.txtRendimientoBruto.Size = New System.Drawing.Size(150, 20)
-        Me.txtRendimientoBruto.TabIndex = 64
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(16, 181)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(117, 18)
-        Me.Label7.TabIndex = 78
-        Me.Label7.Text = "Rendimiento Bruto"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(16, 158)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(80, 18)
-        Me.Label4.TabIndex = 76
-        Me.Label4.Text = "Periodicidad"
-        '
-        'txtPlazo
-        '
-        Me.txtPlazo.Location = New System.Drawing.Point(139, 113)
-        Me.txtPlazo.Name = "txtPlazo"
-        Me.txtPlazo.Size = New System.Drawing.Size(150, 20)
-        Me.txtPlazo.TabIndex = 73
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(16, 114)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(38, 18)
-        Me.Label3.TabIndex = 74
-        Me.Label3.Text = "Plazo"
-        '
-        'txtTasa
-        '
-        Me.txtTasa.Location = New System.Drawing.Point(139, 135)
-        Me.txtTasa.Name = "txtTasa"
-        Me.txtTasa.Size = New System.Drawing.Size(150, 20)
-        Me.txtTasa.TabIndex = 75
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(16, 136)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(36, 18)
-        Me.Label2.TabIndex = 70
-        Me.Label2.Text = "Tasa"
-        '
-        'txtMontoInversion
-        '
-        Me.txtMontoInversion.Location = New System.Drawing.Point(139, 47)
-        Me.txtMontoInversion.Name = "txtMontoInversion"
-        Me.txtMontoInversion.Size = New System.Drawing.Size(150, 20)
-        Me.txtMontoInversion.TabIndex = 69
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(16, 48)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(102, 18)
-        Me.Label1.TabIndex = 63
-        Me.Label1.Text = "Monto Inversión"
-        '
-        'dgvIntereses
-        '
-        Me.dgvIntereses.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.dgvIntereses.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvIntereses.Location = New System.Drawing.Point(19, 294)
-        Me.dgvIntereses.MultiSelect = False
-        Me.dgvIntereses.Name = "dgvIntereses"
-        Me.dgvIntereses.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvIntereses.Size = New System.Drawing.Size(425, 150)
-        Me.dgvIntereses.TabIndex = 85
-        '
-        'frmDAP
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(467, 450)
-        Me.Controls.Add(Me.dgvIntereses)
-        Me.Controls.Add(Me.cboPeriodicidad)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.txtIngresoNeto)
-        Me.Controls.Add(Me.txtRenta)
-        Me.Controls.Add(Me.txtIngresoBruto)
-        Me.Controls.Add(Me.Label10)
-        Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.dtpFechaVencimiento)
-        Me.Controls.Add(Me.dtpFechaOperacion)
-        Me.Controls.Add(Me.txtRendimientoNeto)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.txtRendimientoBruto)
-        Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.txtPlazo)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.txtTasa)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.txtMontoInversion)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.lblBono)
-        Me.Name = "frmDAP"
-        Me.Text = "frmDAP"
-        CType(Me.dgvIntereses, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents lblBono As Label
-    Friend WithEvents cboPeriodicidad As ComboBox
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label11 As Label
-    Friend WithEvents txtIngresoNeto As TextBox
-    Friend WithEvents txtRenta As TextBox
-    Friend WithEvents txtIngresoBruto As TextBox
-    Friend WithEvents Label10 As Label
-    Friend WithEvents Label9 As Label
-    Friend WithEvents dtpFechaVencimiento As DateTimePicker
-    Friend WithEvents dtpFechaOperacion As DateTimePicker
-    Friend WithEvents txtRendimientoNeto As TextBox
-    Friend WithEvents Label8 As Label
-    Friend WithEvents txtRendimientoBruto As TextBox
-    Friend WithEvents Label7 As Label
-    Friend WithEvents Label4 As Label
-    Friend WithEvents txtPlazo As TextBox
-    Friend WithEvents Label3 As Label
-    Friend WithEvents txtTasa As TextBox
-    Friend WithEvents Label2 As Label
-    Friend WithEvents txtMontoInversion As TextBox
-    Friend WithEvents Label1 As Label
-    Friend WithEvents dgvIntereses As DataGridView
-End Class

FRM/frmDAP.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmDAP.vb

@@ -1,77 +0,0 @@
-Public Class frmDAP
-    Private oDAOGeneral As New DAOGeneral
-    Private Operaciones As New Operaciones
-    Private Sub frmDAP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        PrepararControles()
-    End Sub
-    Private Sub PrepararControles()
-        CargarPeriodos()
-    End Sub
-    Private Sub CargarPeriodos()
-        Me.cboPeriodicidad.DataSource = oDAOGeneral.ListaPeriodicidad
-        Me.cboPeriodicidad.DisplayMember = "Descripcion"
-        Me.cboPeriodicidad.ValueMember = "Codigo"
-        Me.cboPeriodicidad.SelectedIndex = -1
-    End Sub
-
-    Private Sub cboPeriodicidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodicidad.SelectedIndexChanged
-        ControlPeriodicidad()
-    End Sub
-    Private Sub ControlPeriodicidad()
-
-    End Sub
-
-    Private Sub txtMontoInversion_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtMontoInversion.KeyPress
-        If String.IsNullOrEmpty(txtMontoInversion.Text) Then
-            If e.KeyChar = "." Then
-                txtMontoInversion.Text = "0"
-                Exit Sub
-            End If
-        End If
-
-        If (Not txtMontoInversion.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-            Operaciones.ValidarEntrada(sender, e, True)
-
-        Else
-
-            Operaciones.ValidarEntrada(sender, e, False)
-
-        End If
-    End Sub
-
-    Private Sub txtPlazo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPlazo.KeyPress
-        If String.IsNullOrEmpty(txtPlazo.Text) Then
-            If e.KeyChar = "." Then
-                txtPlazo.Text = "0"
-                Exit Sub
-            End If
-        End If
-
-        If (Not txtPlazo.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-            Operaciones.ValidarEntrada(sender, e, True)
-
-        Else
-
-            Operaciones.ValidarEntrada(sender, e, False)
-
-        End If
-    End Sub
-
-    Private Sub txtTasa_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTasa.KeyPress
-        If String.IsNullOrEmpty(txtTasa.Text) Then
-            If e.KeyChar = "." Then
-                txtTasa.Text = "0"
-                Exit Sub
-            End If
-        End If
-
-        If (Not txtTasa.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-            Operaciones.ValidarEntrada(sender, e, True)
-
-        Else
-
-            Operaciones.ValidarEntrada(sender, e, False)
-
-        End If
-    End Sub
-End Class

FRM/frmDepositosAPlazo.Designer.vb

@@ -206,6 +206,7 @@ Partial Class frmDepositosAPlazo
         Me.dgvIntereses.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvIntereses.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvIntereses.BackgroundColor = System.Drawing.Color.White
         Me.dgvIntereses.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIntereses.Location = New System.Drawing.Point(0, 358)
         Me.dgvIntereses.MultiSelect = False
@@ -216,13 +217,16 @@ Partial Class frmDepositosAPlazo
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(127, 562)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 64
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'cboPeriodicidad
         '
@@ -284,12 +288,15 @@ Partial Class frmDepositosAPlazo
         '
         'btnGME
         '
+        Me.btnGME.BackColor = System.Drawing.Color.White
+        Me.btnGME.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGME.ForeColor = System.Drawing.Color.Maroon
         Me.btnGME.Location = New System.Drawing.Point(29, 562)
         Me.btnGME.Name = "btnGME"
         Me.btnGME.Size = New System.Drawing.Size(75, 23)
         Me.btnGME.TabIndex = 128
         Me.btnGME.Text = "Aceptar"
-        Me.btnGME.UseVisualStyleBackColor = True
+        Me.btnGME.UseVisualStyleBackColor = False
         '
         'txtPlazo
         '
@@ -390,6 +397,7 @@ Partial Class frmDepositosAPlazo
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(783, 597)
         Me.Controls.Add(Me.txtImpuesto)
         Me.Controls.Add(Me.lblImpuesto)
@@ -415,9 +423,9 @@ Partial Class frmDepositosAPlazo
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.txtMontoInversion)
         Me.Controls.Add(Me.Label1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.Name = "frmDepositosAPlazo"
-        Me.Text = "Depositos a Plazo"
         CType(Me.dgvIntereses, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)

FRM/frmDepositosAPlazo.resx

@@ -139,29 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE9TNtAFMfdDnSlsHRlLVtnJkBMtAydUidQ
-        QpCJQSxhxltRVaEKqVNZCiJQAkI4QgIWBiSgURAGakKUhOYDFLDBSRwSfyhVHr5TEkiEUcRf+unp2e9+
-        Z98RKGnue2OCn26Kcz9a4ydLrTzvacAv6kkoNPUqczzxOh381hL19xRyAaaXdo76qEFKdNgpcaAGuwH1
-        eThptdi3sSCxO9kkB752a386Qfd/AJ37BKoigardmpLLy4AkWHDh+9Kc8XcpW5PtRf1o+J221wHaAQnh
-        VNEUJCFJSiwJZpqzPPNW3/8I2k4bqL73IAiCzkWSMOf+Daust8LS8gocRa+rBejABN7zZrDf8V8zJOw6
-        e44GolIBIqICYYOIqFaIpgrVgnJ6bQOKmJaB9a7hgeC5BD+nf8HsrLvC/IIHQknZXCBl8/hT0UDsOgf8
-        v0s4PqsmdqPUJwgkc8BFLuHAANUyp1cmAluN4CQhgXt+sXKACNSfXmRMBNZqQfimAEFBucfYOXil4ud1
-        CQ4fuUbU/43VXGM5VrI/9VCQkIuYeKk+5FGBxTKUTxuC9Y1NPPAUipqFvr4RvrSUIADghfELrMs1Ds4h
-        F9DOMVzNoGlat5EOL8MwL0uK54Yg7gCs02wwGPYHzgAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFNTNpgGMe7HdzV6cXrruO2807OeJrusBMr
+        +IGYSjW7sPN6mzHLspjsNC+bGX7gsqzExI+jiU6CsQMrEsDxIUFbLVAG/QiGx75vAIVYQ/wnvzx52uf9
+        ve37Eih57nNnmp/rSnFfLKnDFQvPezvwi3YSjc4+KoSmH+cjH58kAq8qpTAzRLve+qlxSnQ6KHGsBYcB
+        NTKZtVkdW1iQ3vnUJYdnXmq7faAHBkHn3oCqSKBq/00plWVAEizI+D90FwL9yuZMb1UPTj7T/rwAbZ+E
+        WK5qCpKQJCXWBN+7izzzVN97Ddr2c1D9AyAIgs7Fs/DDswS/WV+DlZ+/IJg4bxagAxN4b8/4qPNSMyTs
+        GnuCBhJSBeKiAjGDuKg2SOQqzYJ6huxjipiXgfWt4oHIiQRf577B/LynwcKiF6JZ2VwgFcv4U9FA8rwE
+        /L9TCB03k7xQ2hOEsyXg4qewb4BqnaMzE4G9RXCYlsCzsNw4QATqjzIFE4GtWRC7qEBEUK4xdo6cqfh5
+        W4K/t1wj6g+SLddYj40czd0UpOUqJlWrN7lVYLVOlPOGYG19Aw/chaIWYXh4iq8tJQgAeGD8Aut2vwfX
+        hBto1ztczaBpWreTTh/DMA9rivuGIK4AkrdsKPO6lN4AAAAASUVORK5CYII=
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG1SURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6ldZ62fwB
-        ioso4uTg0KKLgyCoONgQOjm56GAHpVhBUNtBEFwc3LwUJKU3e0t6b1/PF5paNfXywUPC4bxPvu8cwtWr
-        izHCsPxCH8PI+FYjuVwuFQgEqpVKBXoUCgUIgrDH9upKLBSWZRmKojRIp9NIJpOIRCKqJBwOQxTFbxID
-        w0Ib8vk8isWi+iSy2SxSqRSi0agqYF2CPuLxeDSJWg0BhTVIQIFMJoNYLPZpHIIy9eyHoFwuNzbQO82t
-        jRKPx9VOJElqLfhKs4Q6ofNIJBJ/FxCahMahMyERrf9ZQJRKJfVcSELQ2r8E1MXLsRs3c0O4GGvD9Uwv
-        BItB/FFAIY2QV8C904q8bxe1Bz+UwxVc2oar53bT8q8Caj8wO4AcC8M9Bbjagc1+xLbt8I3yTy0FzRJq
-        u3bnRXMl1zux4TDVGoJgMFjTkxBX0z2Q9+cBFio4ObwxQks8/BP8KwmozOx6FCbR/Zmej3ZwuzgIydWP
-        6GobHhcMuLCZqmfjxrV6nutmmBl0NbrsT3aIJw5eorZPbXzkwMpvcRzHvQOn44QHuJ9J8wAAAABJRU5E
-        rkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NgFIZT0/4AF3HwCg4iOLVkK/W++QMU
+        F1HEycGhRRc3QcVBQ+jUyUUHHZRihULVRRBcHNy8FCSlSWt6S+/t63dCU6u2Xg48JHx875NzviRcrboY
+        dobwC32MNsa3smez2UQoFKqUy2U0I5/PQxTFPba3qUSgcCaTga7rdZLJJDRNQzQaNSSRSASSJH2TWBgC
+        bcjlcigUCsaVSKfTSCQSUBTFELAuQQ/xer2mxKi6gMImJKBAKpWCqqqfxiEoU8t+CEqlUn0D3dPc5iix
+        WMzoRJbl1oKvNEqoEzqPeDz+dwFhSmgcOhMS0fqfBUSxWDTOhSQErf1LQF28HO/jZn4IwXEbrmZ7IQoW
+        6UcBhUzCJyLu3U7k/LuoPgSgH64i5BquXIxYV34VUPvXcwPIsjD2pwFPO7DZD3V7BP5R/qmloFFCbVfv
+        TtBY2kYnNsas1bqAfcrVZhLicqYHGd8CwEJ5N4c3RniZR2CSfyUBlYO9Hr3Vz/R8tIPbpUHInn4oazY8
+        LloQdFkr5xNt67U8181wMOjVNMU31SGdjvEytX3m4qMHTn6L4zjuHVT+g9XSi1zlAAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmDepositosAPlazo.vb

@@ -8,7 +8,7 @@
     Dim codigo As String = Variables.Codigo
     Dim Operaciones As New Operaciones
     Dim DepositoCalcular As New DepositosAPlazoCE
-    'Dim oUtilidades As New Utilidades
+
 
     Private _TipoTransaccion As String
     Private _IdDocumento As Integer
@@ -67,7 +67,7 @@
 
 
     Private Sub frmDAP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'Me.txtBase.Text = AnioBase.ToString
+
         dgvIntereses.Columns.Clear()
         AgregarCampos()
         Call CargarPeriodos()
@@ -80,7 +80,7 @@
         Call CargarRegistroBD()
 
 
-            PreparardgvIntereses()
+
         CalcularPlazo()
         Calculo()
         vCargado = True
@@ -139,7 +139,7 @@
             navNuevo.Enabled = True
             navModificar.Enabled = False
             navEliminar.Enabled = False
-            'LimpiarCampos()
+
         End If
         Estado = String.Empty
         btnGME.Text = "Aceptar"
@@ -157,26 +157,13 @@
         Return Existe
     End Function
 
-    Sub LimpiarCampos()
-        txtMontoInversion.Text = "0"
-        txtPlazo.Text = 0
-        txtTasa.Text = 0
-        cboPeriodicidad.SelectedIndex = 0
-        txtRendimientoBruto.Text = "0.0%"
-        txtRendimientoNeto.Text = "0.0%"
-        dtpFechaOperacion.Value = Date.Now.Date
-        dtpFechaVencimiento.Value = Date.Now.Date
-    End Sub
+
 
     Private Sub txtPlazo_TextChanged(sender As Object, e As EventArgs)
-        'If Modo = "N" Then
-        '    RefrescarFechaVencimiento()
-        '    CalcularIntereses()
-        'End If
         Calculo()
     End Sub
     Private Sub txtPlazo_LostFocus(sender As Object, e As EventArgs)
-        '   ControlPlazo()
+
     End Sub
     Private Sub ControlPlazo()
         Dim valor As Integer
@@ -194,10 +181,7 @@
 
     End Sub
     Private Sub dtpFechaOperacion_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaOperacion.ValueChanged
-        'If Modo = "N" Then
-        '    RefrescarFechaVencimiento()
-        'End If
-        'ControlFechaOperacion()
+
         CalcularPlazo()
         Calculo()
     End Sub
@@ -212,17 +196,13 @@
     End Sub
 
     Private Sub txtIngresoBruto_TextChanged(sender As Object, e As EventArgs)
-        'If Modo = "N" Then
-        '    RefrescarRendimientoBruto()
-        'End If
+
     End Sub
 
 
 
     Private Sub txtTasa_TextChanged(sender As Object, e As EventArgs) Handles txtTasa.TextChanged
-        'If Modo = "N" Then
-        '    CalcularIntereses()
-        'End If
+
 
 
         Calculo()
@@ -233,7 +213,7 @@
         Calculo()
     End Sub
     Private Sub txtTasa_LostFocus(sender As Object, e As EventArgs) Handles txtTasa.LostFocus
-        ' ControlTasa()
+
     End Sub
     Private Sub ControlTasa()
         Dim valor As Double
@@ -253,14 +233,12 @@
 
     Private Sub txtMontoInversion_TextChanged(sender As Object, e As EventArgs) Handles txtMontoInversion.TextChanged
 
-        'If Modo = "N" Then
-        '    CalcularIntereses()
-        'End If
+
         CalcularPlazo()
         Calculo()
     End Sub
     Private Sub txtMontoInversion_LostFocus(sender As Object, e As EventArgs) Handles txtMontoInversion.LostFocus
-        '  ControlMontoInversion()
+
     End Sub
     Private Sub ControlMontoInversion()
         Dim valor As Double
@@ -280,9 +258,7 @@
 
 
     Private Sub txtIngresoNeto_TextChanged(sender As Object, e As EventArgs)
-        'If Modo = "N" Then
-        '    RefrescarRendimientoNeto()
-        'End If
+
     End Sub
     Sub CargarPeriodos()
         If cboPeriodicidad.Items.Count = 0 Or cboPeriodicidad.Items.Count = 1 Then
@@ -316,7 +292,6 @@
         oDAPCE = Nothing
         oDAPDAO = New DepositosAPlazoDAO
         CodigoInversion = Variables.Codigo
-        'oDAPDAO.CargarRegistro(oDAPCE, TipoDocumento, IdDocumento)
         oDAPCE = oDAPDAO.CargarRegistro(Me.CodigoInversion)
 
         TipoTransaccion = "C"
@@ -332,7 +307,7 @@
     End Sub
 
     Private Sub dtpFechaVencimiento_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimiento.ValueChanged
-        'ControlFechaVencimiento()
+
         CalcularPlazo()
         Calculo()
     End Sub
@@ -347,7 +322,7 @@
     End Sub
 
     Private Sub cboPeriodicidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodicidad.SelectedIndexChanged
-        'ControlPreriodicidad()
+
         CalcularPlazo()
         Calculo()
     End Sub
@@ -377,13 +352,7 @@
             Me.dtpFechaOperacion.Value = oDAPCE.FechaOperacion
             Me.dtpFechaVencimiento.Value = oDAPCE.FechaVencimiento
             Me.txtTasa.Text = oDAPCE.Tasa.ToString(Configuraciones.CodigoTXTMontos)
-           
             txtPlazo.Text = oDAPCE.Plazo.ToString
-
-            'txtPlazo.Text = 10 'oDAPCE.Plazo.ToString
-
-
-
             'anio base
             Me.cboPeriodicidad.SelectedValue = oDAPCE.Periodicidad
             Me.txtRendimientoBruto.Text = oDAPCE.RendimientoBruto.ToString(Configuraciones.CodigoTXTMontos)
@@ -399,130 +368,13 @@
 
 
     End Sub
-    Private Sub PreparardgvIntereses()
-
-
-
-
-
-
-
-    End Sub
-    Private Sub PrepararCalculoIntereses(ByVal IdFila As Integer, idColumna As Integer)
-        Dim vFila As DataGridViewRow = dgvIntereses.Rows(IdFila)
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vFecha As Date
-        Dim vFechaAnterior As Date
-        Dim vPeriodicidad As String = oDAPCE.Periodicidad
-        Dim vDiasDelPeriodo As Integer
 
-        If vFila.IsNewRow Then
-            If IdFila = 0 Then
-                vFecha = oDAPCE.FechaOperacion
-            Else
-                vFilaAnterior = dgvIntereses.Rows(IdFila - 1)
-                vFecha = vFilaAnterior.Cells("Fecha").Value
-
-            End If
-            'vFecha = vFechaAnterior
-
-            If vPeriodicidad = "M" Then
-                vDiasDelPeriodo = 30
-            ElseIf vPeriodicidad = "T" Then
-                vDiasDelPeriodo = 90
-            ElseIf vPeriodicidad = "S" Then
-                vDiasDelPeriodo = 180
-            Else
-                vDiasDelPeriodo = 30
-            End If
 
-            vFila.Cells("Plazo").Value = vDiasDelPeriodo
-            If Not IdFila = 0 Then
-                vFecha = vFecha.AddDays(vFila.Cells("Plazo").Value)
-            End If
-            vFila.Cells("Fecha").Value = vFecha
-            vFila.Cells("PorcImp").Value = 0.1
-            vFila.Cells("Estado").Value = "A"
-            dgvIntereses.Rows(IdFila).Selected = False
-            'dgvIntereses.Rows.Insert(IdFila + 1)
-
-            'MsgBox("IsNewRow")
-        Else
-            'MsgBox("No IsNewRow")
-        End If
-        'CalcularIntereses(IdFila)
-        'dgvIntereses.Refresh()
-    End Sub
 
     Private Sub dgvIntereses_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs) Handles dgvIntereses.CellBeginEdit
-        'MsgBox("CellBeginEdit")
-        '        PrepararCalculoIntereses(e.RowIndex, e.ColumnIndex)
-
-    End Sub
-    Private Sub CalcularIntereses(ByVal IdFila As Integer, ByVal IdCol As Integer)
-        Dim vFila As DataGridViewRow = dgvIntereses.Rows(IdFila)
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vPlazo As Integer = 0
-        Dim vFechaAnterior As Date
-        Dim vFecha As Date
-        Dim vIngresoBruto As Double = 0
-        Dim vMontoInversion As Double = oDAPCE.MontoDeInversion
-        Dim vTasa As Double = oDAPCE.Tasa
-        Dim vPorcentajeImpuesto As Double = 0
-        Dim vMontoImpuesto As Double = 0
-        Dim vIngresoNeto As Double = 0
-        If (Not String.IsNullOrEmpty(vTasa.ToString) And Not vTasa.ToString = "0") Then
-            vTasa = vTasa / 100
-        End If
-
-        If (Not String.IsNullOrEmpty(vPorcentajeImpuesto.ToString) And Not vPorcentajeImpuesto.ToString = "0") Then
-            vPorcentajeImpuesto = vPorcentajeImpuesto / 100
-        End If
-
-
-        If IdFila = 0 Then
-            vFechaAnterior = oDAPCE.FechaOperacion
-        Else
-            vFilaAnterior = dgvIntereses.Rows(IdFila - 1)
-            vFechaAnterior = vFilaAnterior.Cells("Fecha").Value
-
-        End If
-
-
-        'vFecha = vFila.Cells("Fecha").Value
-        vFecha = vFechaAnterior
-
-
-        'If vFila.IsNewRow Then
-        Integer.TryParse(vFila.Cells("Plazo").Value.ToString, vPlazo)
-        Double.TryParse(vFila.Cells("PorcImp").Value.ToString, vPorcentajeImpuesto)
-
-        vFecha = DateAdd(DateInterval.Day, vPlazo, vFecha)
-        vIngresoBruto = vMontoInversion * vTasa * vPlazo
-        If (Not String.IsNullOrEmpty(Utilidades.CalcularDiasDelAnio(vFecha).ToString) And Not Utilidades.CalcularDiasDelAnio(vFecha) = 0) Then
-            vIngresoBruto = vIngresoBruto / Utilidades.CalcularDiasDelAnio(vFecha)
-        Else
-            vIngresoBruto = "0.0"
-        End If
-
-        vFila.Cells("IngrBruto").Value = vIngresoBruto
-
-        vMontoImpuesto = vIngresoBruto * vPorcentajeImpuesto
-        vFila.Cells("MontoImp").Value = vMontoImpuesto
-
-        vIngresoNeto = vIngresoBruto - vMontoImpuesto
-        vFila.Cells("IngrNeto").Value = vIngresoNeto
-
-        'End If
-        If dgvIntereses.IsCurrentCellDirty Then
-            dgvIntereses.CommitEdit(DataGridViewDataErrorContexts.Commit)
-        End If
-
-
-        RefrescarClaseEntidad()
-        RefrescarValorControles()
     End Sub
 
+
     Private Sub RefrescarClaseEntidad()
         ControlMontoInversion()
         ControlFechaOperacion()
@@ -535,14 +387,7 @@
 
     Private Sub dgvIntereses_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIntereses.CellEndEdit
 
-        'If e.ColumnIndex = dgvIntereses.Columns("PorcImp").Index Then
-        '    Dim valor As Double
-        '    valor = dgvIntereses.Rows(e.RowIndex).Cells("PorcImp").Value
-        '    valor = valor / 100
 
-        '    dgvIntereses.Rows(e.RowIndex).Cells("PorcImp").Value = valor
-        'End If
-        'CalcularIntereses(e.RowIndex, e.ColumnIndex)
 
     End Sub
 
@@ -552,7 +397,7 @@
     Private Sub PrepararNuevo()
         oDAPCE = New DepositosAPlazoCE
         RefrescarValorControles()
-        'PreparardgvIntereses()
+
 
     End Sub
 
@@ -565,30 +410,21 @@
     End Sub
 
     Private Sub dgvIntereses_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles dgvIntereses.RowPostPaint
-        'MsgBox("RowPostPaint")
+
     End Sub
 
     Private Sub dgvIntereses_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles dgvIntereses.RowPrePaint
-        'MsgBox("RowPrePaint")
+
     End Sub
 
     Private Sub dgvIntereses_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles dgvIntereses.RowsAdded
-        'MsgBox("RowsAdded")
+
     End Sub
 
     Private Sub dgvIntereses_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIntereses.RowValidated
 
     End Sub
-    Private Sub ActualizarRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
-        res = oDAPDAO.Actualizar(oDAPCE)
-        If res > 0 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
-    End Sub
+
 
     Private Sub navModificar_Click(sender As Object, e As EventArgs) Handles navModificar.Click
 
@@ -748,7 +584,7 @@
 
 
     Private Sub Button1_Click(sender As Object, e As EventArgs)
-        'ColeccionElementos()
+
     End Sub
 
 
@@ -759,7 +595,6 @@
         For i As Integer = 0 To Index
 
             Dim colec As Collection = ColeccionElementos(i)
-            'oDAPDAO.NuevoElemento(colec, codigo)
             diccionario.Add(i, colec)
         Next
 
@@ -1063,4 +898,8 @@
             txtTasa.Text = Variables.RetRendimiento
         End If
     End Sub
+
+    Private Sub txtRendimientoNeto_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoNeto.TextChanged
+
+    End Sub
 End Class

FRM/frmDetallesPortafolioGeneralRendimiento.Designer.vb

@@ -85,7 +85,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         'lblRendimientoPromedio
         '
         Me.lblRendimientoPromedio.AutoSize = True
-        Me.lblRendimientoPromedio.Location = New System.Drawing.Point(282, 60)
+        Me.lblRendimientoPromedio.Location = New System.Drawing.Point(267, 60)
         Me.lblRendimientoPromedio.Name = "lblRendimientoPromedio"
         Me.lblRendimientoPromedio.Size = New System.Drawing.Size(116, 13)
         Me.lblRendimientoPromedio.TabIndex = 88
@@ -94,7 +94,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         'lblPesoPromedio
         '
         Me.lblPesoPromedio.AutoSize = True
-        Me.lblPesoPromedio.Location = New System.Drawing.Point(576, 60)
+        Me.lblPesoPromedio.Location = New System.Drawing.Point(562, 60)
         Me.lblPesoPromedio.Name = "lblPesoPromedio"
         Me.lblPesoPromedio.Size = New System.Drawing.Size(81, 13)
         Me.lblPesoPromedio.TabIndex = 89
@@ -102,7 +102,7 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         '
         'Panel2
         '
-        Me.Panel2.BackColor = System.Drawing.Color.DodgerBlue
+        Me.Panel2.BackColor = System.Drawing.Color.DimGray
         Me.Panel2.Controls.Add(Me.lblPortafolio)
         Me.Panel2.Controls.Add(Me.dgvPortafolio)
         Me.Panel2.Location = New System.Drawing.Point(12, 308)
@@ -115,7 +115,8 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         Me.lblPortafolio.Anchor = System.Windows.Forms.AnchorStyles.Top
         Me.lblPortafolio.AutoSize = True
         Me.lblPortafolio.Font = New System.Drawing.Font("Trebuchet MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblPortafolio.Location = New System.Drawing.Point(201, 19)
+        Me.lblPortafolio.ForeColor = System.Drawing.Color.White
+        Me.lblPortafolio.Location = New System.Drawing.Point(348, 16)
         Me.lblPortafolio.Name = "lblPortafolio"
         Me.lblPortafolio.Size = New System.Drawing.Size(107, 27)
         Me.lblPortafolio.TabIndex = 83
@@ -142,14 +143,14 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         '
         'txtRendimientoPromedio
         '
-        Me.txtRendimientoPromedio.Location = New System.Drawing.Point(404, 60)
+        Me.txtRendimientoPromedio.Location = New System.Drawing.Point(389, 60)
         Me.txtRendimientoPromedio.Name = "txtRendimientoPromedio"
         Me.txtRendimientoPromedio.Size = New System.Drawing.Size(166, 20)
         Me.txtRendimientoPromedio.TabIndex = 92
         '
         'txtPesoPromedio
         '
-        Me.txtPesoPromedio.Location = New System.Drawing.Point(663, 60)
+        Me.txtPesoPromedio.Location = New System.Drawing.Point(649, 60)
         Me.txtPesoPromedio.Name = "txtPesoPromedio"
         Me.txtPesoPromedio.Size = New System.Drawing.Size(174, 20)
         Me.txtPesoPromedio.TabIndex = 93
@@ -189,8 +190,8 @@ Partial Class frmDetallesPortafolioGeneralRendimiento
         Me.Controls.Add(Me.chklInstrumentos)
         Me.Controls.Add(Me.chklEmpresas)
         Me.Controls.Add(Me.lblTitulo)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmDetallesPortafolioGeneralRendimiento"
-        Me.Text = "frmDetallesPortafolioGeneralRendimiento"
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         CType(Me.dgvPortafolio, System.ComponentModel.ISupportInitialize).EndInit()

FRM/frmDetallesPortafolioGeneralRendimiento.vb

@@ -21,10 +21,6 @@
     Sub New(Tipo As String)
         Me.New
         Me.Tipo = Tipo
-        'Cargar(Tipo)
-
-
-
 
     End Sub
 
@@ -51,7 +47,7 @@
 
     Sub CargarInstrumento()
         Dim dt As New DataTable
-        dt = General.ListaInstrumentos
+        dt = General.ListaInstrumentos("Propuesta")
         dt.Rows.Add("Todos", "Todos")
         chklInstrumentos.DataSource = dt
         chklInstrumentos.DisplayMember = "Descripcion"

FRM/frmFOIN.Designer.vb

@@ -72,7 +72,6 @@ Partial Class frmFOIN
         Me.txtDividendo = New System.Windows.Forms.TextBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.btnRescate = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.RadioButton2 = New System.Windows.Forms.RadioButton()
         Me.RadioButton1 = New System.Windows.Forms.RadioButton()
@@ -343,6 +342,7 @@ Partial Class frmFOIN
         '
         'dgvIngresos
         '
+        Me.dgvIngresos.BackgroundColor = System.Drawing.Color.White
         Me.dgvIngresos.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIngresos.Location = New System.Drawing.Point(22, 19)
         Me.dgvIngresos.Name = "dgvIngresos"
@@ -351,12 +351,15 @@ Partial Class frmFOIN
         '
         'btnQuitar
         '
+        Me.btnQuitar.BackColor = System.Drawing.Color.White
+        Me.btnQuitar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuitar.ForeColor = System.Drawing.Color.Maroon
         Me.btnQuitar.Location = New System.Drawing.Point(22, 225)
         Me.btnQuitar.Name = "btnQuitar"
         Me.btnQuitar.Size = New System.Drawing.Size(75, 37)
         Me.btnQuitar.TabIndex = 145
         Me.btnQuitar.Text = "Quitar"
-        Me.btnQuitar.UseVisualStyleBackColor = True
+        Me.btnQuitar.UseVisualStyleBackColor = False
         '
         'lblErrCuotasDeParticipacion
         '
@@ -438,7 +441,7 @@ Partial Class frmFOIN
         Me.BindingNavigator1.MovePreviousItem = Nothing
         Me.BindingNavigator1.Name = "BindingNavigator1"
         Me.BindingNavigator1.PositionItem = Nothing
-        Me.BindingNavigator1.Size = New System.Drawing.Size(1138, 25)
+        Me.BindingNavigator1.Size = New System.Drawing.Size(1155, 25)
         Me.BindingNavigator1.TabIndex = 155
         Me.BindingNavigator1.Text = "BindingNavigator1"
         '
@@ -476,12 +479,15 @@ Partial Class frmFOIN
         '
         'btnAccion
         '
-        Me.btnAccion.Location = New System.Drawing.Point(10, 355)
+        Me.btnAccion.BackColor = System.Drawing.Color.White
+        Me.btnAccion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAccion.ForeColor = System.Drawing.Color.Maroon
+        Me.btnAccion.Location = New System.Drawing.Point(10, 372)
         Me.btnAccion.Name = "btnAccion"
         Me.btnAccion.Size = New System.Drawing.Size(140, 23)
         Me.btnAccion.TabIndex = 157
         Me.btnAccion.Text = "Aceptar"
-        Me.btnAccion.UseVisualStyleBackColor = True
+        Me.btnAccion.UseVisualStyleBackColor = False
         '
         'GroupBox2
         '
@@ -525,18 +531,21 @@ Partial Class frmFOIN
         Me.GroupBox2.Controls.Add(Me.Label4)
         Me.GroupBox2.Location = New System.Drawing.Point(12, 52)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Size = New System.Drawing.Size(457, 374)
+        Me.GroupBox2.Size = New System.Drawing.Size(457, 412)
         Me.GroupBox2.TabIndex = 158
         Me.GroupBox2.TabStop = False
         '
         'btnCancelat
         '
-        Me.btnCancelat.Location = New System.Drawing.Point(176, 355)
+        Me.btnCancelat.BackColor = System.Drawing.Color.White
+        Me.btnCancelat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelat.ForeColor = System.Drawing.Color.Maroon
+        Me.btnCancelat.Location = New System.Drawing.Point(200, 372)
         Me.btnCancelat.Name = "btnCancelat"
         Me.btnCancelat.Size = New System.Drawing.Size(123, 23)
         Me.btnCancelat.TabIndex = 158
         Me.btnCancelat.Text = "Cancelar"
-        Me.btnCancelat.UseVisualStyleBackColor = True
+        Me.btnCancelat.UseVisualStyleBackColor = False
         '
         'txtDividendo
         '
@@ -565,22 +574,13 @@ Partial Class frmFOIN
         Me.GroupBox3.TabIndex = 159
         Me.GroupBox3.TabStop = False
         '
-        'btnRescate
-        '
-        Me.btnRescate.Location = New System.Drawing.Point(497, 12)
-        Me.btnRescate.Name = "btnRescate"
-        Me.btnRescate.Size = New System.Drawing.Size(75, 23)
-        Me.btnRescate.TabIndex = 160
-        Me.btnRescate.Text = "Rescate"
-        Me.btnRescate.UseVisualStyleBackColor = True
-        '
         'GroupBox1
         '
         Me.GroupBox1.Controls.Add(Me.RadioButton2)
         Me.GroupBox1.Controls.Add(Me.RadioButton1)
-        Me.GroupBox1.Location = New System.Drawing.Point(267, 11)
+        Me.GroupBox1.Location = New System.Drawing.Point(212, 15)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(180, 35)
+        Me.GroupBox1.Size = New System.Drawing.Size(180, 34)
         Me.GroupBox1.TabIndex = 163
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Fechas"
@@ -612,15 +612,15 @@ Partial Class frmFOIN
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
-        Me.ClientSize = New System.Drawing.Size(1155, 413)
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ClientSize = New System.Drawing.Size(1155, 476)
         Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.btnRescate)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.GroupBox2)
         Me.Controls.Add(Me.BindingNavigator1)
         Me.Controls.Add(Me.lblBono)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmFOIN"
-        Me.Text = "frmFOIN"
         CType(Me.dgvIngresos, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
@@ -680,7 +680,6 @@ Partial Class frmFOIN
     Friend WithEvents btnAccion As Button
     Friend WithEvents GroupBox2 As GroupBox
     Friend WithEvents GroupBox3 As GroupBox
-    Friend WithEvents btnRescate As Button
     Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents RadioButton2 As RadioButton
     Friend WithEvents RadioButton1 As RadioButton

FRM/frmFOIN.resx

@@ -139,32 +139,32 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE7TNtQFIZdBrryWLqywsbMVCqmtgxMwQmP
-        EGRiqi7pXG9UCKEWiQkWQCSUgBCOKgFjK0EbpcKFmhAlKXmAAjY4iUPih1Ll4HuVBBLhKuovfTo69rnf
-        te8lUDLcx5Ykv9iW4Oa7EicbXTzvbcYvGkk4PPc0e/yhNROa6YgF+ov5IDNEO9/6qXFKdNgpcawOuwE1
-        MpmyWuzfsCB5MNsmB6dfaj9egB54DTo3CKoigardmpIvyIAkWHDhn2rPBvqUr5+el/SjyW7tey9ohyRE
-        0iVTkIQkKbEsWG7P8Uyn/nMAtP0eUP2vQBAEnYumYNX9GbZZX5WNzS04il3XCtCBCbz32fio469mSNgd
-        9hwNxKQiREUFIgZRUa0SSxdrBZUM2cYUMSMD6/uCB0LnEiwsLsHKiruKZ80L4ZRsLpByBfypaCB+nQf+
-        7BKO/9QSv1EaEwRTeeCil3BogGqF0ysTga1OcJKUwO1Zrx4gAvWnF1kTgbVWELkpQkhQ7jF2Dl2p+HlD
-        gl+PXCPqf8frrrESKzmafihIyiVMolwf8qjAYpkoZAzBzu4eHvgXipqD4eE3fHkpQQDAE+MXWJfrPTgn
-        XEA73+FqBk3Tuo10+BiGaSor/jcEcQfAaGw2chD6HAAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE9TNtAFMfdDnSlsHRlLVtnJkBMtAydUidQ
+        QpCJQSxhxltRVaEKqVNZCiJQAkI4QgIWBiSgURAGakKUhOYDFLDBSRwSfyhVHr5TEkiEUcRf+unp2e9+
+        Z98RKGnue2OCn26Kcz9a4ydLrTzvacAv6kkoNPUqczzxOh381hL19xRyAaaXdo76qEFKdNgpcaAGuwH1
+        eThptdi3sSCxO9kkB752a386Qfd/AJ37BKoigardmpLLy4AkWHDh+9Kc8XcpW5PtRf1o+J221wHaAQnh
+        VNEUJCFJSiwJZpqzPPNW3/8I2k4bqL73IAiCzkWSMOf+Daust8LS8gocRa+rBejABN7zZrDf8V8zJOw6
+        e44GolIBIqICYYOIqFaIpgrVgnJ6bQOKmJaB9a7hgeC5BD+nf8HsrLvC/IIHQknZXCBl8/hT0UDsOgf8
+        v0s4PqsmdqPUJwgkc8BFLuHAANUyp1cmAluN4CQhgXt+sXKACNSfXmRMBNZqQfimAEFBucfYOXil4ud1
+        CQ4fuUbU/43VXGM5VrI/9VCQkIuYeKk+5FGBxTKUTxuC9Y1NPPAUipqFvr4RvrSUIADghfELrMs1Ds4h
+        F9DOMVzNoGlat5EOL8MwL0uK54Yg7gCs02wwGPYHzgAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOFW6lXrf/AGK
-        iyji5OBg0cVNUHGwIXRyctHBDkqxQsELtILg4uDmpSApvdlb0nv7er7Q1GpTqx88JBzO++T7ziFctboY
-        ZoalBX2MNkZDmTOZTMLn85VLpRL0yOVyEAThgO3VlVgoLMsyFEWpkUwmEY/HEQqFVEkwGIQoig0SA8NC
-        G7LZLPL5vPok0uk0EokEwuGwKmBdgj7idDo1iVo1AYU1SECBVCqFSCTybRyCMtXsl6BYLNY20DvNrY0S
-        jUbVTiRJai74Sb2EOqHziMVifxcQmoTGoTMhEa3/WUAUCgX1XEhC0Nq/BNTF26kDdwtD8E6YcDPXC8Fi
-        EH8VUEgj4BLwuG5F1r2PypMHyvEarmzD5ctR42pLAbV/Oz+ADAvDMQPY24HtfkR2R+Ee41+aCuol1Hbl
-        wYX6im91YnvcWKkJ/H5/RU9CXM/2QD5cBFgot87hgxFY4eGZ4t9JQDXCrkdhEt2f6fVkD/fLg5Ds/Qhv
-        mPC8ZIDXZixfTLZtVvNcN2OEQVejy+F0h3g2zkvU9rmNDx1Z+R2O47hP9mqEMdiui1UAAAAASUVORK5C
-        YII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG1SURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6ldZ62fwB
+        ioso4uTg0KKLgyCoONgQOjm56GAHpVhBUNtBEFwc3LwUJKU3e0t6b1/PF5paNfXywUPC4bxPvu8cwtWr
+        izHCsPxCH8PI+FYjuVwuFQgEqpVKBXoUCgUIgrDH9upKLBSWZRmKojRIp9NIJpOIRCKqJBwOQxTFbxID
+        w0Ib8vk8isWi+iSy2SxSqRSi0agqYF2CPuLxeDSJWg0BhTVIQIFMJoNYLPZpHIIy9eyHoFwuNzbQO82t
+        jRKPx9VOJElqLfhKs4Q6ofNIJBJ/FxCahMahMyERrf9ZQJRKJfVcSELQ2r8E1MXLsRs3c0O4GGvD9Uwv
+        BItB/FFAIY2QV8C904q8bxe1Bz+UwxVc2oar53bT8q8Caj8wO4AcC8M9Bbjagc1+xLbt8I3yTy0FzRJq
+        u3bnRXMl1zux4TDVGoJgMFjTkxBX0z2Q9+cBFio4ObwxQks8/BP8KwmozOx6FCbR/Zmej3ZwuzgIydWP
+        6GobHhcMuLCZqmfjxrV6nutmmBl0NbrsT3aIJw5eorZPbXzkwMpvcRzHvQOn44QHuJ9J8wAAAABJRU5E
+        rkJggg==
 </value>
   </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>95</value>
+    <value>36</value>
   </metadata>
 </root>

FRM/frmFOIN.vb

@@ -32,7 +32,7 @@
             navNuevo.Enabled = True
             navModificar.Enabled = False
             navEliminar.Enabled = False
-            'LimpiarCampos()
+
         End If
 
 
@@ -141,79 +141,12 @@
 
 
 
-    Sub CalculoDGT()
-
-
-    End Sub
-
-    Function CalcularIngreso(ByVal Index As Integer, ByVal Dividendo As Double, ByVal CuotaParticipacion As Double)
-        Dim Total
-        If (Index = 0) Then
-
-            Total = ((Dividendo * CuotaParticipacion) / 30) * 11
-        Else
-            Total = Dividendo * CuotaParticipacion
-        End If
-
-        Return Total
-    End Function
-    Function CalcularRendimieno(ByVal Ingreso As Double, ByVal ValorNominal As Double, ByVal Base As Integer, ByVal Dias As Integer)
-        Dim Total = Ingreso / ValorNominal * Base / Dias
-
-        Return Total
-    End Function
-
-    Sub CargarDatos()
-        ''Declaracion de Variables'
-        'Dim Base As Integer = 0
-        'Dim DiaFijo As Integer = 0
-        'Dim Periodicidad As String = "M"
-        'Dim TipoCalculo As String = String.Empty
-
-
-        ''Seleccion de Tipo de Calculo'
-        'If RadioButton1.Checked Then
-        '    TipoCalculo = "FinMes"
-        'Else
-        '    If RadioButton2.Checked Then
-        '        TipoCalculo = "Mensual"
-        '    End If
-        'End If
-
-
-
-
-
-
-        'If (IndexBase = 0 Or IndexBase = 2) Then
-
-        '    Base = 360
 
 
-        '    If TipoCalculo = "FinMes" Then
-        '        DateTimePicker1.Value = Operaciones.FechaFinMes(DateTimePicker1.Value, Periodicidad, Base)
 
-        '    ElseIf TipoCalculo = "Mensual" Then
 
-        '        DateTimePicker1.Value = Operaciones.FechaMensual(DateTimePicker1.Value, Periodicidad, TipoCalculo, 0, DiaFijo, Base)
-        '    End If
 
 
-        'ElseIf IndexBase = 1 Or IndexBase = 3 Then
-        '    Base = 365
-
-        '    If TipoCalculo = "FinMes" Then
-        '        DateTimePicker1.Value = Operaciones.FechaFinMes(DateTimePicker1.Value, Periodicidad, Base)
-
-        '    ElseIf TipoCalculo = "Mensual" Then
-
-        '        DateTimePicker1.Value = Operaciones.FechaMensual(DateTimePicker1.Value, Periodicidad, TipoCalculo, 0, DiaFijo, Base)
-        '    End If
-
-
-        'End If
-
-    End Sub
 
     Function CalcularFecha(ByVal FechaInicial As Date, ByVal DiaFijo As Integer)
         'Declaracion de Variables'
@@ -719,20 +652,9 @@
 
     Sub RefrescarValorControles()
         Me.txtValorNominal.Text = oCEFOIN.ValorNominal.ToString()
-        'Me.txtCuotasDeParticipacion.Text = oCEFOIN.CuotasDeParticipacion.ToString(Configuraciones.CodigoTXTMontos)
-        'Me.txtValorDeParticipacion.Text = oCEFOIN.ValorDeParticipacion.ToString(Configuraciones.CodigoTXTMontos)
-        'Me.txtPorcentajeComisionCasa.Text = oCEFOIN.PorcentajeComisionCasa.ToString(Configuraciones.CodigoTXTPorcentaje)
         Me.txtComisionCasa.Text = oCEFOIN.ComisionCasa.ToString()
-        'Me.txtPorcentajeComisionBolsa.Text = oCEFOIN.PorcentajeComisionBolsa.ToString(Configuraciones.CodigoTXTPorcentaje)
         Me.txtComisionBolsa.Text = oCEFOIN.ComisionBolsa.ToString()
         Me.txtValorTransado.Text = oCEFOIN.ValorTransado.ToString()
-        'Me.dtpFechaOperacion.Value = oCEFOIN.FechaOperacion
-        'Me.dtpFechaLiquidacion.Value = oCEFOIN.FechaLiquidacion
-        'Me.dtpFechaVencimiento.Value = oCEFOIN.FechaVencimiento
-        'Me.txtRendimientoOfrecido.Text = oCEFOIN.RendimientoOfrecido.ToString(Configuraciones.CodigoTXTPorcentaje)
-        'Me.cboPeriodicidad.SelectedValue = oCEFOIN.Periodicidad
-        'Me.cboAnioBase.SelectedValue = oCEFOIN.AnioBase
-
     End Sub
 
     Private Sub txtPorcentajeComisionCasa_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeComisionCasa.TextChanged
@@ -777,7 +699,7 @@
 
     Private Sub dtpFechaOperacion_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaOperacion.ValueChanged
         Calculos()
-        'oCEFOIN.FechaOperacion = dtpFechaOperacion.Value.Date
+
     End Sub
 
     Private Sub dtpFechaLiquidacion_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaLiquidacion.ValueChanged
@@ -789,13 +711,6 @@
     End Sub
 
     Private Sub txtRendimientoOfrecido_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoOfrecido.TextChanged
-        'Dim valor As Double
-        'If Not Double.TryParse(txtRendimientoOfrecido.Text.Replace("%", ""), valor) Then
-        'lblErrRendimientoOfrecido.Visible = True
-        'Else
-        'lblErrRendimientoOfrecido.Visible = False
-        'End If
-        'oCEFOIN.RendimientoOfrecido = valor / 100
 
         Calculos()
         If (txtRendimientoOfrecido.ToString.IndexOf("%") = -1) Then
@@ -804,7 +719,6 @@
     End Sub
 
     Private Sub txtRendimientoOfrecido_LostFocus(sender As Object, e As EventArgs) Handles txtRendimientoOfrecido.LostFocus
-        ' txtRendimientoOfrecido.Text = oCEFOIN.RendimientoOfrecido.ToString(Configuraciones.CodigoTXTPorcentaje)
     End Sub
 
     Private Sub cboPeriodicidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodicidad.SelectedIndexChanged
@@ -835,45 +749,18 @@
     End Sub
 
     Private Sub btnRefrescar_Click(sender As Object, e As EventArgs) Handles btnQuitar.Click
-        'Dim coleccion = ColeccionFINV1()
-        'GuardarData.GuardarDataGrid(coleccion, Variables.Codigo)
         QuitarFila()
     End Sub
 
 
 
 
-    Sub CargarDGVIngresos()
-        'Dim FondoInversion As New FondoInversionDAO
-        'Dim dr = FondoInversion.CargarData(Variables.Codigo)
-        'Dim fecha As String
-        'While dr.Read
-        '    fecha = Format(dr("FechaCorte"), "dd/MM/yyyy").ToString
-
-        '    dgvIngresos.Rows.Add(dr("correlativo"), fecha, dr("Dias"), dr("Dividendo"), dr("Ingreso"), dr("RendMensual"))
-        'End While
-
-    End Sub
-
-
-
-
-
-
     Private Sub txtDividendo_TextChanged(sender As Object, e As EventArgs)
-        'Dim valor As Double
-        'If Not Double.TryParse(Me.txtDividendo.Text.Replace("%", ""), valor) Then
-        'lblErrDividendo.Visible = True
-        'Else
-        'lblErrDividendo.Visible = False
-        'End If
-        'oCEFOIN.Dividendo = valor / 100
 
         Calculos()
     End Sub
 
     Private Sub txtDividendo_LostFocus(sender As Object, e As EventArgs)
-        'Me.txtDividendo.Text = oCEFOIN.Dividendo.ToString(Configuraciones.CodigoTXTPorcentaje)
     End Sub
 
     Private Sub txtCuotasDeParticipacion_KeyUp(sender As Object, e As KeyEventArgs) Handles txtCuotasDeParticipacion.KeyUp
@@ -1125,14 +1012,13 @@
     End Sub
 
     Private Sub dgvIngresos_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvIngresos.CellMouseClick
-        'Calculos()
+
         CalculosTabla()
     End Sub
 
     Private Sub dgvIngresos_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIngresos.CellEndEdit
 
-        CargarDatos()
-        CalculoDGT()
+
     End Sub
 
     Private Sub txtDiasLiq_TextChanged(sender As Object, e As EventArgs) Handles txtDiasLiq.TextChanged
@@ -1152,10 +1038,9 @@
 
     End Sub
 
-    Private Sub btnRescate_Click(sender As Object, e As EventArgs) Handles btnRescate.Click
+    Private Sub btnRescate_Click(sender As Object, e As EventArgs)
 
 
-        'frmRescate.Show()
     End Sub
 
     Private Sub txtCuotasDeParticipacion_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCuotasDeParticipacion.KeyPress
@@ -1297,7 +1182,7 @@
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs)
-        CargarDatos()
+
     End Sub
 
     Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs)

FRM/frmFechasAcciones.Designer.vb

@@ -80,18 +80,22 @@ Partial Class frmFechasAcciones
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(78, 198)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 82
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'frmFechasAcciones
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(243, 245)
         Me.Controls.Add(Me.btnAceptar)
         Me.Controls.Add(Me.lblTitulo)
@@ -99,10 +103,10 @@ Partial Class frmFechasAcciones
         Me.Controls.Add(Me.Label18)
         Me.Controls.Add(Me.dtpFechaCorte)
         Me.Controls.Add(Me.dtpFechaInicial)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmFechasAcciones"
-        Me.Text = "frmFechasAcciones"
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

FRM/frmFiltrosReporte.Designer.vb

@@ -1,73 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmFiltrosReporte
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.cboInstrumento = New System.Windows.Forms.ComboBox()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.btnBuscar = New System.Windows.Forms.Button()
-        Me.SuspendLayout()
-        '
-        'cboInstrumento
-        '
-        Me.cboInstrumento.FormattingEnabled = True
-        Me.cboInstrumento.Location = New System.Drawing.Point(71, 41)
-        Me.cboInstrumento.Name = "cboInstrumento"
-        Me.cboInstrumento.Size = New System.Drawing.Size(121, 21)
-        Me.cboInstrumento.TabIndex = 0
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(98, 25)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(112, 13)
-        Me.Label5.TabIndex = 91
-        Me.Label5.Text = "Instrumento"
-        '
-        'btnBuscar
-        '
-        Me.btnBuscar.Location = New System.Drawing.Point(71, 261)
-        Me.btnBuscar.Name = "btnBuscar"
-        Me.btnBuscar.Size = New System.Drawing.Size(121, 44)
-        Me.btnBuscar.TabIndex = 92
-        Me.btnBuscar.Text = "Buscar"
-        Me.btnBuscar.UseVisualStyleBackColor = True
-        '
-        'frmFiltrosReporte
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(277, 317)
-        Me.Controls.Add(Me.btnBuscar)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.cboInstrumento)
-        Me.Name = "frmFiltrosReporte"
-        Me.Text = "FiltrosReporte"
-        Me.ResumeLayout(False)
-
-    End Sub
-
-    Friend WithEvents cboInstrumento As ComboBox
-    Friend WithEvents Label5 As Label
-    Friend WithEvents btnBuscar As Button
-End Class

FRM/frmFiltrosReporte.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

FRM/frmFiltrosReporte.vb

@@ -1,51 +0,0 @@
-Public Class frmFiltrosReporte
-
-    Dim oDAOGeneral As New DAOGeneral
-    Private Sub FiltrosReporte_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Call CargarInstrumentosFinancieros()
-    End Sub
-    Private Sub CargarInstrumentosFinancieros()
-        Me.cboInstrumento.DataSource = oDAOGeneral.ListaInstrumentos
-        Me.cboInstrumento.DisplayMember = "Descripcion"
-        Me.cboInstrumento.ValueMember = "Codigo"
-        Me.cboInstrumento.SelectedIndex = -1
-    End Sub
-
-    Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
-        Variables.CodigoInstrumento = cboInstrumento.SelectedValue
-        If (cboInstrumento.SelectedValue = "REPO") Then
-            frmRegistroReportos.Show()
-            Me.Close()
-        End If
-        If (cboInstrumento.SelectedValue = "LETE" Or cboInstrumento.SelectedValue = "PBUR" Or cboInstrumento.SelectedValue = "VCN") Then
-            frmRegistroLetes.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "PPER") Then
-            frmRegistroPrestamoPersonal.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "PEMP") Then
-            frmResgistrosPrestamoEmpresarial.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "FINV") Then
-            frmRegitrosFondoInversion.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "ACCNC" Or cboInstrumento.SelectedValue = "ACCNP" Or cboInstrumento.SelectedValue = "ACCI") Then
-            frmRegistroAcciones.Show()
-            Me.Close()
-        End If
-
-        If (cboInstrumento.SelectedValue = "FUTU" Or cboInstrumento.SelectedValue = "OPC") Then
-            frmRegistroFuturosOpciones.Show()
-            Me.Close()
-        End If
-
-    End Sub
-End Class

FRM/frmFlujoArbitraje.Designer.vb

@@ -49,7 +49,6 @@ Partial Class frmFlujoArbitraje
         Me.Controls.Add(Me.trvFlujo)
         Me.Controls.Add(Me.flpContenedorTemporal)
         Me.Name = "frmFlujoArbitraje"
-        Me.Text = "frmFlujoArbitraje"
         Me.ResumeLayout(False)
 
     End Sub

FRM/frmFlujoArbitraje.vb

@@ -27,7 +27,7 @@
 
     Private Sub frmFlujoArbitraje_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         OrdenarTablas()
-        'GeneradorFlujo()
+
         AgregarEstructura()
 
 

FRM/frmFuturos.Designer.vb

@@ -355,23 +355,29 @@ Partial Class frmFuturos
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnCancelar.Location = New System.Drawing.Point(116, 483)
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnCancelar.Location = New System.Drawing.Point(116, 472)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 162
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnAceptar.Location = New System.Drawing.Point(26, 483)
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
+        Me.btnAceptar.Location = New System.Drawing.Point(24, 472)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 161
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'dtpOperacionVenta
         '
@@ -480,7 +486,7 @@ Partial Class frmFuturos
         '
         Me.lblTitulo.AutoSize = True
         Me.lblTitulo.Font = New System.Drawing.Font("Trebuchet MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblTitulo.Location = New System.Drawing.Point(293, 25)
+        Me.lblTitulo.Location = New System.Drawing.Point(281, 48)
         Me.lblTitulo.Name = "lblTitulo"
         Me.lblTitulo.Size = New System.Drawing.Size(77, 24)
         Me.lblTitulo.TabIndex = 167
@@ -491,7 +497,7 @@ Partial Class frmFuturos
         Me.cboOperacionVenta.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboOperacionVenta.FormattingEnabled = True
         Me.cboOperacionVenta.Items.AddRange(New Object() {"Corto", "Largo"})
-        Me.cboOperacionVenta.Location = New System.Drawing.Point(234, 65)
+        Me.cboOperacionVenta.Location = New System.Drawing.Point(234, 93)
         Me.cboOperacionVenta.Name = "cboOperacionVenta"
         Me.cboOperacionVenta.Size = New System.Drawing.Size(166, 21)
         Me.cboOperacionVenta.TabIndex = 169
@@ -542,12 +548,15 @@ Partial Class frmFuturos
         '
         'btnVenderTitulo
         '
-        Me.btnVenderTitulo.Location = New System.Drawing.Point(454, 49)
+        Me.btnVenderTitulo.BackColor = System.Drawing.Color.White
+        Me.btnVenderTitulo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVenderTitulo.ForeColor = System.Drawing.Color.Maroon
+        Me.btnVenderTitulo.Location = New System.Drawing.Point(454, 84)
         Me.btnVenderTitulo.Name = "btnVenderTitulo"
-        Me.btnVenderTitulo.Size = New System.Drawing.Size(75, 51)
+        Me.btnVenderTitulo.Size = New System.Drawing.Size(140, 37)
         Me.btnVenderTitulo.TabIndex = 173
         Me.btnVenderTitulo.Text = "Vender Titulo"
-        Me.btnVenderTitulo.UseVisualStyleBackColor = True
+        Me.btnVenderTitulo.UseVisualStyleBackColor = False
         Me.btnVenderTitulo.Visible = False
         '
         'frmFuturos
@@ -555,6 +564,7 @@ Partial Class frmFuturos
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(654, 518)
         Me.Controls.Add(Me.btnVenderTitulo)
         Me.Controls.Add(Me.GrpVenta)
@@ -576,9 +586,9 @@ Partial Class frmFuturos
         Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.Label13)
         Me.Controls.Add(Me.Label6)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.Name = "frmFuturos"
-        Me.Text = "9"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmFuturos.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHaSURBVDhPnZFNTNpgGMc7D9t16sXrrvO2805qPKk77IQF
-        nYipVOOFndfbjFnMsmQnvagZbENjLDFRryZTCcb6UZEAyocGbbVAGfQjGB77vgEUYg3xn/zy5Gmf9/e2
-        70ugZLjvr5P8bEuC+9meOF5s53nvS/yikYTDP15lDyebM6Fvb2KBD8V8kBmgnRN+aoQSHXZKHK7DbkB9
-        GktZLfZNLEhuTbfIwakebacL9EAf6Fw/qIoEqvbflHxBBiTBggv/19ZsoFuZZzpK+sHYO227E7Q9EiLp
-        kilIQpKUWBbMt+Z45q2++xG0f+9B9feCIAg6F03BL/cfWGF9VRaXluEgdl0rQAcm8N62kSHHrWZI2DX2
-        HA3EpCJERQUiBlFRrRJLF2sFlQzYhhUxIwPrW8UDoXMJZmbnYGHBXcXz2wvhlGwukHIF/KloIH6dB/7s
-        Eg5Pa4nfKI0Jgqk8cNFL2DNAtcLJlYnAVic4Tkrg9vytHiAC9ScXWROBtVYQuSlCSFDuMXYOXan4eUOC
-        /UeuEfVH8bprrMRKDqUfCpJyCZMo14c8KrBYRgsZQ7C2voEHnkJRczA4OM6XlxIEALwwfoF1ub6Ac9QF
-        tPMzrmbQNK3bSIePYZimsuK5IYg7IHVsBdFYyKkAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFLTBpRFIanLtptxY1bt2Xn2lXbdOVj4YoO
+        +ADMyGjc0HVnp2maxph0VRe1RrTFpumQJrZbEx8E4/gYkQCWhwac0QGGwjyC4Tj3BqgQpyH9ky8nZ+bc
+        787cS6DkufnHaX7RkuLeW1Mn61ae9z/EL9pJNLrwqHA015mPvO1JhIYqpTAzQntmgtQEJbqdlOhqwWlA
+        jU1l7DbnJhakt99Z5PCbfm33OeihQdC5l6AqEqjaH1NKZRmQBAsugrNdhdAL5SPztKofTvVqO89A2ych
+        lquagiQkSYk1waeuIs880feGQdvqAzU4AIIg6Fw8Ayu+z/CdDTRY//oNDhNXzQJ0YALv754Yd99ohoTd
+        YM/RQEKqQFxUIGYQF9UGiVylWVDPiMOliHkZ2MAPPBA5l+DD4hIsL/sarK75IZqRzQVSsYw/FQ0kr0rA
+        /87C0VkzyWulPUE4UwIunoV9A1TrnF6aCBwtgpO0BL7VL40DRKD+9KJgIrA3C2LXFYgIyl+MnSOXKn7e
+        luDgnmtE/XGy5RrrsZPjubuCtFzFpGr1LvcKbLbJct4QbPz8hQf+haIWYXR0mq8tJQgAeGD8Auv1vgbP
+        pBdozytczaBpWneQ7gDDMB01xf+GIG4BGe1sA0MLMcAAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnJRuUq2XzR+g
-        uIgiTg4OFl26CSoOGkKnTkLRQQelWKFQdREEFwc3byAp6cWmlzS9v54vNLFqa+sHDwmH8z75vnMIV6lO
+        uIgiTg4OFl26CSoOGkKnTnbQQQelWKFQdREEFwc3byAp6cWmlzS9v54vNLFqa+sHDwmH8z75vnMIV6lO
         xjDD1oBeRgvjVw1nMhklGAyWisUiapHNZiEIwj7bW1Nio3A6nYaqqiaJRALxeByyLOuSUCgEURR/SSwM
         G23QNA25XE5/EqlUCoqiIBwO6wLWJegjbrfbkOhlCihsQAIKJJNJRCKRb+MQlKlkvwSFQsHcQO80tzFK
         NBrVO5Ekqb7gJ9US6oTOIxaLNS8gDAmNQ2dCIlpvWkDk83n9XEhC0Nq/BNTF68kBbhcGEZhoxfVcDwSb
         RfxTQCGDt1MBD+uj0Hx7KD/6oR6tIWgfKl2OWVcbCqj9m/l+ZFgYBzOAsw3Y6kNkZwy+cf65rqBaQm2X
         709RXXFXB1wOa9kUeL3eci0JcTXbjbRnEWCh7DqHD8bbCg//FP9OAqoRdj1qvZ/p5XgXd8sDkJx9CG+0
-        4mnJgoDdWrqYbNms5LkuxgiDrqYmnul28czBS9T2uZ2XD0f5bY7juE8ey4OKOAFa2QAAAABJRU5ErkJg
+        4mnJgoDdWrqYbNms5LkuxgiDrqYmnul28czBS9T2uZ2XD0f5bY7juE8adYOECRaKRwAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmFuturos.vb

@@ -82,14 +82,7 @@
     End Sub
 
 
-    Function ExisteVenta()
-        Dim Ventas As Boolean = False
-        Dim General As New DAOGeneral
-        Dim Codigo As String = Variables.Codigo
-        Ventas = General.ExisteVenta(Codigo)
 
-        Return Ventas
-    End Function
     Function ExisteInversion()
         Dim Codigo As String = Variables.Codigo
         Dim TablaINV As String = "INV0"
@@ -845,39 +838,11 @@
     End Sub
 
     Private Sub txtIdentificacionContratoCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtIdentificacionContratoCompra.KeyPress
-        'If String.IsNullOrEmpty(txtIdentificacionContratoCompra.Text) Then
-        '    If e.KeyChar = "." Then
-        '        txtIdentificacionContratoCompra.Text = "0"
-        '        Exit Sub
-        '    End If
-        'End If
-
-        'If (Not txtIdentificacionContratoCompra.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-        '    Operaciones.ValidarEntrada(sender, e, True)
-
-        'Else
 
-        '    Operaciones.ValidarEntrada(sender, e, False)
-
-        'End If
     End Sub
 
     Private Sub txtIdentificacionContratoVenta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtIdentificacionContratoVenta.KeyPress
-        'If String.IsNullOrEmpty(txtIdentificacionContratoVenta.Text) Then
-        '    If e.KeyChar = "." Then
-        '        txtIdentificacionContratoVenta.Text = "0"
-        '        Exit Sub
-        '    End If
-        'End If
-
-        'If (Not txtIdentificacionContratoVenta.Text.ToString.IndexOf(".") = -1 And e.KeyChar = ".") Then
-        '    Operaciones.ValidarEntrada(sender, e, True)
-
-        'Else
-
-        '    Operaciones.ValidarEntrada(sender, e, False)
 
-        'End If
     End Sub
 
     Private Sub txtCantidadContratosCompra_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCantidadContratosCompra.KeyPress

FRM/frmLetes.Designer.vb

@@ -353,13 +353,16 @@ Partial Class frmLetes
         '
         'btnAceptar
         '
+        Me.btnAceptar.BackColor = System.Drawing.Color.White
         Me.btnAceptar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAceptar.ForeColor = System.Drawing.Color.Maroon
         Me.btnAceptar.Location = New System.Drawing.Point(39, 597)
         Me.btnAceptar.Name = "btnAceptar"
         Me.btnAceptar.Size = New System.Drawing.Size(75, 23)
         Me.btnAceptar.TabIndex = 86
         Me.btnAceptar.Text = "Aceptar"
-        Me.btnAceptar.UseVisualStyleBackColor = True
+        Me.btnAceptar.UseVisualStyleBackColor = False
         '
         'Label13
         '
@@ -381,13 +384,16 @@ Partial Class frmLetes
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(209, 597)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 88
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'cboPeriodicidad
         '
@@ -535,13 +541,15 @@ Partial Class frmLetes
         '
         'btnRedencion
         '
-        Me.btnRedencion.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.btnRedencion.BackColor = System.Drawing.Color.White
+        Me.btnRedencion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRedencion.ForeColor = System.Drawing.Color.Maroon
         Me.btnRedencion.Location = New System.Drawing.Point(229, 92)
         Me.btnRedencion.Name = "btnRedencion"
         Me.btnRedencion.Size = New System.Drawing.Size(79, 24)
         Me.btnRedencion.TabIndex = 138
         Me.btnRedencion.Text = "Redención"
-        Me.btnRedencion.UseVisualStyleBackColor = True
+        Me.btnRedencion.UseVisualStyleBackColor = False
         '
         'lblRedencion
         '
@@ -568,6 +576,7 @@ Partial Class frmLetes
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.CancelButton = Me.btnCancelar
         Me.ClientSize = New System.Drawing.Size(390, 632)
         Me.Controls.Add(Me.dtpRedencion)
@@ -620,9 +629,9 @@ Partial Class frmLetes
         Me.Controls.Add(Me.txtValorNominal)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.lblBono)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.MaximizeBox = False
         Me.Name = "frmLetes"
-        Me.Text = "LETES"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmLetes.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIbdDu1KYWFlha1zJ1p14jEwpU6g
-        hCATg1jSuWaiQhVCSEywFNQADRXCUSVgReIRBWEeJkRJaB6ggA1O4pD4oVQ5+F4lKYkwivilT0fHPve7
-        9r0ESpqbakjwc41xbqYtfrrSxvOeV/hFPQmFpl9njr+9SQe/t0T93YVcgOmlnaM+apASHXZKHKjBbkB9
-        Hk5aLfYtLEjsTDbKgYkObe8D6P4u0LlPoCoSqNqdKbm8DEiCBZe+8aaM/6PCjrUX9aPht9rue9AOSAin
-        iqYgCUlSYkkw35TlmVZ9vwe07Xeg+jpBEASdiyThp3sZ1lhvhZXfq3AUvakWoAMTeE/zYL/jn2ZI2HX2
-        Ag1EpQJERAXCBhFRrRBNFaoF5fTaBhQxLQPr/YMHghcSzM79gIUFd4XFJQ+EkrK5QMrm8aeigdhNDvi/
-        V3B8Xk3sVqlPEEjmgItcwYEBqmXOrk0EthrBaUIC9+KvygEiUH92mTERWKsF4dsCBAXlP8bOwWsVP69L
-        cPjINaL+JFZzjeVYyf7UQ0FCLmLipfqQRwUWy1A+bQjWNzbxwFMoahb6+kb40lKCAIAXxi+wLtdXcA65
-        gHZ+wdUMmqZ1G+nwMgzzsqR4bgjiHlf4bBajZA5bAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZE7TNtQFIbdDmVtYWFlha1zJ0CdgA5MwQmP
+        EGRiEEuY660IIYQqdSpLixoeAVEcIdGuSDyiIMzDhChJmwcoYIOTOE38UFAOvldJIBGuIn7p09Gxz/2u
+        fS+BkubmXif4+cY496UtfrbaxvOeV/hFPQmFPjdkTqbepIMzLVH/h0IuwPTTzgkfNUKJDjslDtdgN6AG
+        x5JWi30bCxK7s41yYLpL2+8E3d8DOtcHqiKBqv0zJZeXAUmw4NL3qSnjf6/8ZNqL+vHYW22vA7RDEsKp
+        oilIQpKUWBJ8b8ryTKt+0AvazjtQfd0gCILORZLww70MG6y3wuraOhxHb6oF6MAE3tM8MuS40wwJu8Ve
+        oIGoVICIqEDYICKqFaKpQrWgnH7bsCKmZWC9m3ggeCHB1/lvsLDgrrC45IFQUjYXSNk8/lQ0ELvJAf/3
+        Ck7+VBO7VeoTBJI54CJXcGiAapnzaxOBrUZwlpDAvbhSOUAE6s8vMyYCa7UgfFuAoKA8YOwcvFbx87oE
+        R09cI+pPYzXXWI6VHEo9FiTkIiZeqo95UmCxjObThmDr12888D8UNQsDA+N8aSlBAMAL4xdYl+sjOEdd
+        QDsncTWDpmndRjq8DMO8LCmeG4K4B04tbBPumXp1AAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwVnAQwUnpJvW++QMU
-        F1HEycFB0cVNUHHQEDo5uehgB6VVQYi6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
+        F1HEycFB0cVNUHHQEDo5uehgB21RQYi6CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
         Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
         YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
         VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
-        VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
-        KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
-        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AEF7g7q6yTNgAAAAAElFTkSuQmCC
+        VUAhm1e/gPulfhjBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAcJB/qimolFDbxTs/
+        KktZa8bakKtYFgQCgWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
+        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AD0lg7Tvh7efAAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmLetes.vb

@@ -65,18 +65,7 @@ Public Class frmLetes
 
 
     'GETS
-    Function GetRendimientoBruto() As Double
-        Dim valor As Double
 
-        If Me.txtRendimientoBruto.Text.Length = 0 Then
-            valor = 0
-        Else
-            valor = Me.txtRendimientoBruto.Text
-            valor = valor
-        End If
-
-        Return valor
-    End Function
 
     Function GetFechaOperacion() As Date
         Dim valor As Date
@@ -94,13 +83,6 @@ Public Class frmLetes
         Return valor
     End Function
 
-    Function GetFechaVencimiento() As Date
-        Dim valor As Date
-
-        valor = dtpFechaVencimiento.Value
-
-        Return valor
-    End Function
 
 
     Function GetPlazoInversion() As Integer
@@ -145,31 +127,9 @@ Public Class frmLetes
         Return valor
     End Function
 
-    Function GetPorcentajeBolsa() As Double
-        Dim valor As Double
-
-        If Me.txtPorcentajeComisionBolsa.Text.Length = 0 Then
-            valor = 0
-        Else
-            valor = Me.txtPorcentajeComisionBolsa.Text
-            valor = valor / 100
-        End If
 
-        Return valor
-    End Function
 
-    Function GetPorcentajeCasa() As Double
-        Dim valor As Double
 
-        If Me.txtPorcentajeComisionCasa.Text.Length = 0 Then
-            valor = 0
-        Else
-            valor = Me.txtPorcentajeComisionCasa.Text
-            valor = valor / 100
-        End If
-
-        Return valor
-    End Function
 
     Function GetValorTransado() As Double
         Dim valor As Double
@@ -218,22 +178,7 @@ Public Class frmLetes
 
         Return valor
     End Function
-    Function GetRendimientoNeto() As Double
-        Dim valor As Double
 
-        If Me.txtRendimientoNeto.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtRendimientoNeto.Text
-                valor = valor / 100
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
     Function GetPeriodicidad() As String
         Dim valor As String
 
@@ -245,36 +190,8 @@ Public Class frmLetes
 
         Return valor
     End Function
-    Function GetIngresoBruto() As Double
-        Dim valor As Double
-
-        If Me.txtIngresoBruto.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtIngresoBruto.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
-
-        Return valor
-    End Function
-    Function GetIngresoNeto() As Double
-        Dim valor As Double
 
-        If Me.txtIngresoNeto.Text.Length = 0 Then
-            valor = 0
-        Else
-            Try
-                valor = Me.txtIngresoNeto.Text
-            Catch ex As Exception
-                valor = 0
-            End Try
-        End If
 
-        Return valor
-    End Function
     Function GetCasa() As String
         Dim valor As String
 
@@ -285,29 +202,9 @@ Public Class frmLetes
 
 
     'CALCULOS
-    Function CalcularPlazoInversion() As Integer
-        'Dim valor As Integer
-
-        'If AnioBase = 360 Then
-        '    valor = Utilidades.Days360(GetFechaLiquidacion, GetFechaVencimiento)
-        'Else
-        '    valor = DateDiff(DateInterval.Day, GetFechaLiquidacion, GetFechaVencimiento)
-        'End If
-        'Return valor
-    End Function
 
-    Function CalcularPrecio() As Double
-        'Dim valor As Double
-        'Try
-        '    valor = (1 - (GetRendimientoBruto() / (1 + GetRendimientoBruto() * GetPlazoInversion() / AnioBase)) * GetPlazoInversion() / AnioBase)
-        'Catch ex As Exception
-        '    valor = 0
-        'End Try
-
-        'valor = valor * 100
-        'valor = Math.Round(valor, DecimalesRedondeo)
-        'Return valor
-    End Function
+
+
 
     Function CalcularFechaLiquidacion() As Date
         Dim valor As Date
@@ -329,23 +226,9 @@ Public Class frmLetes
         Return valor
     End Function
 
-    Function CalcularComisionBolsa() As Double
-        'Dim valor As Double
-
-        'valor = (GetValorTransado() * GetPorcentajeBolsa()) * (GetPlazoInversion() / AnioBase)
-        'valor = Math.Round(valor, DecimalesRedondeo)
 
-        'Return valor
-    End Function
-
-    Function CalcularComisionCasa() As Double
-        'Dim valor As Double
 
-        'valor = (GetValorTransado() * GetPorcentajeCasa()) * (GetPlazoInversion() / AnioBase)
-        'valor = Math.Round(valor, DecimalesRedondeo)
 
-        'Return valor
-    End Function
 
     Function CalcularValorApagar() As Double
         Dim valor As Double
@@ -356,15 +239,7 @@ Public Class frmLetes
         Return valor
     End Function
 
-    Function CalcularRendimientoNeto() As Double
-        'Dim valor As Double
 
-        'valor = ((GetValorNominal() - GetTotalAPagar()) / GetTotalAPagar()) * (AnioBase / GetPlazoInversion())
-        'valor = valor * 100
-        'valor = Math.Round(valor, DecimalesRedondeo)
-
-        'Return valor
-    End Function
 
     Function CalcularIngresoBruto() As Double
         Dim valor As Double
@@ -388,48 +263,26 @@ Public Class frmLetes
 
     'AUTO
     Sub RefrescarPlazoInversion()
-        Me.txtPlazoInversion.Text = CalcularPlazoInversion()
+        Me.txtPlazoInversion.Text = 0
     End Sub
 
     Sub RefrescarPrecio()
-        Me.txtPrecio.Text = CalcularPrecio()
+        Me.txtPrecio.Text = 0
     End Sub
 
-    Sub RefrescarFechaLiquidacion()
-        Me.dtpFechaLiquidacion.Value = CalcularFechaLiquidacion()
-    End Sub
 
-    Sub RefrescarFechaVencimiento()
-        Me.dtpFechaVencimiento.Value = CalcularFechaVencimiento()
-    End Sub
 
-    Sub RefrescarValorTransado()
-        Me.txtValorTransado.Text = CalcularValorTransado()
-    End Sub
 
-    Sub RefrescarComisionBolsa()
-        Me.txtComisionBolsa.Text = CalcularComisionBolsa()
-    End Sub
 
-    Sub RefrescarComisionCasa()
-        Me.txtComisionCasa.Text = CalcularComisionCasa()
-    End Sub
+
 
     Sub RefrescarTotalAPagar()
         Me.txtTotalAPagar.Text = CalcularValorApagar()
     End Sub
 
-    Sub RefrescarRendimientoNeto()
-        Me.txtRendimientoNeto.Text = CalcularRendimientoNeto()
-    End Sub
 
-    Sub RefrescarIngresoBruto()
-        Me.txtIngresoBruto.Text = CalcularIngresoBruto()
-    End Sub
 
-    Sub RefrescarIngresoNeto()
-        Me.txtIngresoNeto.Text = CalcularIngresoNeto()
-    End Sub
+
 
 
 
@@ -450,37 +303,22 @@ Public Class frmLetes
 
     Private Sub txtPlazoInversion_TextChanged(sender As Object, e As EventArgs) Handles txtRendimientoBruto.TextChanged, txtPlazoInversion.TextChanged
 
-        'If Modo = "N" Then
-        '    RefrescarPlazoInversion()
-        '    RefrescarPrecio()
-        '    RefrescarComisionBolsa()
-        '    RefrescarComisionCasa()
-        '    RefrescarRendimientoNeto()
-        'End If
+
 
         RellenarDatos()
     End Sub
 
 
     Private Sub dtpFechaVencimiento_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimiento.ValueChanged
-        '    If Modo = "N" Then
-        '        RefrescarPlazoInversion()
-        '    End If
+
 
     End Sub
 
     Private Sub dtpFechaLiquidacion_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaLiquidacion.ValueChanged
-        'If Modo = "N" Then
-        '    RefrescarFechaVencimiento()
-        '    RefrescarPlazoInversion()
-        'End If
         RellenarDatos()
     End Sub
 
     Private Sub dtpFechaOperacion_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaOperacion.ValueChanged
-        'If Modo = "N" Then
-        '    RefrescarFechaLiquidacion()
-        'End If
         RellenarDatos()
         AgregarDiasExtra()
     End Sub
@@ -490,33 +328,22 @@ Public Class frmLetes
     End Sub
 
     Private Sub txtPrecio_TextChanged(sender As Object, e As EventArgs) Handles txtPrecio.TextChanged
-        'If Modo = "N" Then
-        '    RefrescarValorTransado()
-        'End If
+
     End Sub
 
     Private Sub txtPorcentajeComisionCasa_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeComisionCasa.TextChanged
         RellenarDatos()
-        'If Modo = "N" Then
-        '    RefrescarComisionCasa()
-        'End If
+
     End Sub
 
     Private Sub txtPorcentajeComisionBolsa_TextChanged(sender As Object, e As EventArgs) Handles txtPorcentajeComisionBolsa.TextChanged
         RellenarDatos()
-        'If Modo = "N" Then
-        '    RefrescarComisionBolsa()
-        'End If
+
 
     End Sub
 
     Private Sub txtValorTransado_TextChanged(sender As Object, e As EventArgs) Handles txtValorTransado.TextChanged
-        'If Modo = "N" Then
-        '    RefrescarComisionBolsa()
-        '    RefrescarComisionCasa()
-        '    RefrescarTotalAPagar()
-        '    RefrescarIngresoBruto()
-        'End If
+
     End Sub
 
     Private Sub txtComisionCasa_TextChanged(sender As Object, e As EventArgs) Handles txtComisionCasa.TextChanged
@@ -532,10 +359,7 @@ Public Class frmLetes
     End Sub
 
     Private Sub txtTotalAPagar_TextChanged(sender As Object, e As EventArgs) Handles txtTotalAPagar.TextChanged
-        'If Modo = "N" Then
-        '    RefrescarRendimientoNeto()
-        '    RefrescarIngresoNeto()
-        'End If
+
     End Sub
     Sub ValidarExistencia()
         Dim General As New DAOGeneral
@@ -562,7 +386,7 @@ Public Class frmLetes
             navNuevo.Enabled = True
             navModificar.Enabled = False
             navEliminar.Enabled = False
-            'LimpiarCampos()
+
         End If
         TipoTransaccion = String.Empty
         btnAceptar.Text = "Aceptar"
@@ -1029,7 +853,6 @@ Public Class frmLetes
         If CET Or PBUR Or VCN Then
             coleccion.Add(IntAcumulado)
         End If
-        'oDAOLetes.NuevoIngreso(coleccion, Instrumento)
         Return coleccion
     End Function
 
@@ -1110,28 +933,12 @@ Public Class frmLetes
             Me.cboBase.SelectedIndex = 0
         End If
     End Sub
-    Function ValidarControles() As Boolean
-        Dim valor As Boolean = True
-
-        Dim vValorNominal As Double = GetValorNominal()
-        Dim vPlazoInversion As Integer = GetPlazoInversion()
-        Dim vCasa As String = GetCasa()
-        Dim vPeriodicidad As String = GetPeriodicidad()
-
-        If vValorNominal = 0 Then valor = False
-        If vPlazoInversion = 0 Then valor = False
-        If vCasa = "" Then valor = False
-        If vPeriodicidad = "" Then valor = False
-
-        Return valor
-    End Function
 
     Private Sub CargarRegistroBD()
-        'oCELetes = New CELetes
-        'oDAOLetes.CargarRegistro(oCELetes, TipoDocumento, IdDocumento)
+
         Dim oCELetes As LETESCE
         CodigoInversion = Variables.Codigo
-        oCELetes = oDAOLetes.CargarRegistro(CodigoInversion)
+
         If Not oCELetes Is Nothing Then
 
 
@@ -1156,20 +963,6 @@ Public Class frmLetes
             vPrecio = vPrecio * 100
 
 
-            'Me.txtValorNominal.Text = vValorNominal.ToString
-            'Me.dtpFechaOperacion.Value = vFechaOperacion
-            'Me.dtpFechaLiquidacion.Value = vFechaLiquidacion
-            'Me.dtpFechaVencimiento.Value = vFechaVencimiento
-            'Me.txtPlazoInversion.Text = vPlazoInversion.ToString
-            'Me.cboCasasCorredoras.SelectedValue = vCodigoCasa
-            'Me.cboPeriodicidad.SelectedValue = vPeriodicidad
-            'Me.txtRendimientoBruto.Text = vRendimientoBruto.ToString
-            'Me.txtRendimientoNeto.Text = vRendimientoNeto.ToString
-            'Me.txtIngresoBruto.Text = vIngresoBruto.ToString
-            'Me.txtIngresoNeto.Text = vIngresoNeto.ToString
-            'Me.txtValorTransado.Text = vValorNominal.ToString
-            'Me.txtPrecio.Text = vPrecio.ToString
-            'Me.txtTotalAPagar.Text = vTotalAPagar.ToString
         End If
     End Sub
 
@@ -1178,14 +971,9 @@ Public Class frmLetes
         IdDocumento = vId
         TipoDocumento = vTipo
     End Sub
-    Public Sub CargarRegistro(ByVal CodInversion As String)
-        Modo = "C"
-        CodigoInversion = CodInversion
-    End Sub
 
-    Sub GuardarRegistro()
 
-    End Sub
+
 
     Private Sub txtRendimientoBruto_MouseCaptureChanged(sender As Object, e As EventArgs) Handles txtRendimientoBruto.MouseCaptureChanged
 
@@ -2255,7 +2043,7 @@ Public Class frmLetes
         Dim Fechaliquidacion = dtpFechaLiquidacion.Value
 
 
-        'If (cboBase.SelectedIndex = 0) Then
+
         If (IndexBase = 0 Or IndexBase = 2) Then
 
 
@@ -2289,7 +2077,7 @@ Public Class frmLetes
 
 
     Private Sub txtRendimientoBruto_Leave(sender As Object, e As EventArgs) Handles txtRendimientoBruto.Leave
-        ' txtRendimientoBruto.Text = CStr(GetRendimientoBruto())
+
         Rellenar()
     End Sub
 
@@ -2588,10 +2376,8 @@ Public Class frmLetes
 
     End Sub
 
-    Private Sub btnReporto_Click(sender As Object, e As EventArgs) 
-        Dim Codigo As String = Variables.Codigo
-        Dim FrmReporto As New frmReporteVentaSeleccion(Me, Codigo)
-        FrmReporto.ShowDialog()
+    Private Sub btnReporto_Click(sender As Object, e As EventArgs)
+
     End Sub
 
     Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click
@@ -2625,33 +2411,7 @@ Public Class frmLetes
     End Sub
 
 
-    Sub LimpiarCampos()
-
-        chbValorPar.Checked = False
-        txtValorNominal.Text = 0
-        txtPlazoInversion.Text = 0
-        cboCasasCorredoras.SelectedIndex = -1
-        cboBase.SelectedIndex = -1
-        txtPorcentajeComisionBolsa.Text = 0
-        txtPorcentajeComisionCasa.Text = 0
-        txtComisionBolsa.Text = 0
-        txtComisionCasa.Text = 0
-        txtRendimientoBruto.Text = 0
-        txtRendimientoNeto.Text = 0
-        txtIngresoBruto.Text = 0
-        txtIngresoNeto.Text = 0
-        txtValorTransado.Text = 0
-        txtPrecio.Text = 0
-        txtTotalAPagar.Text = 0
-        dtpFechaOperacion.Value = Date.Now.Date
-        dtpFechaLiquidacion.Value = Date.Now.Date
-        dtpFechaVencimiento.Value = Date.Now.Date
-        dtpUltimaFecha.Value = Date.Now.Date
-        dtpRedencion.Value = Date.Now.Date
-        txtInteresAcumulado.Text = 0
-        txtOtrosCostos.Text = 0
 
-    End Sub
 
 
     Sub CargarTransladoNuevo()

FRM/frmMenuCostos.Designer.vb

@@ -102,7 +102,6 @@ Partial Class frmMenuCostos
         Me.ClientSize = New System.Drawing.Size(639, 232)
         Me.Controls.Add(Me.Panel1)
         Me.Name = "frmMenuCostos"
-        Me.Text = "frmMenuCostos"
         Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
 

FRM/frmMenuCostos.vb

@@ -4,7 +4,7 @@
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        frmCostosReportos.Show()
+
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
@@ -12,7 +12,7 @@
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        frmReporteVentaSeleccion.Show()
+
     End Sub
 
     Private Sub Button5_Click(sender As Object, e As EventArgs)

FRM/frmMenuRendimientos.Designer.vb

@@ -23,10 +23,6 @@ Partial Class frmMenuRendimientos
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Button6 = New System.Windows.Forms.Button()
-        Me.Button5 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Panel1.SuspendLayout()
@@ -34,78 +30,22 @@ Partial Class frmMenuRendimientos
         '
         'Panel1
         '
-        Me.Panel1.BackColor = System.Drawing.Color.Silver
-        Me.Panel1.Controls.Add(Me.Button6)
-        Me.Panel1.Controls.Add(Me.Button5)
-        Me.Panel1.Controls.Add(Me.Button4)
-        Me.Panel1.Controls.Add(Me.Button3)
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel1.Controls.Add(Me.Button2)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(650, 376)
+        Me.Panel1.Size = New System.Drawing.Size(645, 89)
         Me.Panel1.TabIndex = 0
         '
-        'Button6
-        '
-        Me.Button6.BackColor = System.Drawing.Color.Brown
-        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button6.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button6.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button6.Location = New System.Drawing.Point(347, 12)
-        Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(279, 52)
-        Me.Button6.TabIndex = 5
-        Me.Button6.Text = "Consolidacion de Saldos"
-        Me.Button6.UseVisualStyleBackColor = False
-        '
-        'Button5
-        '
-        Me.Button5.BackColor = System.Drawing.Color.Brown
-        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button5.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button5.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button5.Location = New System.Drawing.Point(12, 296)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(279, 52)
-        Me.Button5.TabIndex = 4
-        Me.Button5.Text = "Saldos Totales"
-        Me.Button5.UseVisualStyleBackColor = False
-        '
-        'Button4
-        '
-        Me.Button4.BackColor = System.Drawing.Color.Brown
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button4.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button4.Location = New System.Drawing.Point(12, 224)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(279, 52)
-        Me.Button4.TabIndex = 3
-        Me.Button4.Text = "Inversiones"
-        Me.Button4.UseVisualStyleBackColor = False
-        '
-        'Button3
-        '
-        Me.Button3.BackColor = System.Drawing.Color.Brown
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button3.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button3.Location = New System.Drawing.Point(12, 152)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(279, 52)
-        Me.Button3.TabIndex = 2
-        Me.Button3.Text = "Rendimiento Diario"
-        Me.Button3.UseVisualStyleBackColor = False
-        '
         'Button2
         '
         Me.Button2.BackColor = System.Drawing.Color.Brown
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button2.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Button2.ForeColor = System.Drawing.SystemColors.ButtonHighlight
-        Me.Button2.Location = New System.Drawing.Point(12, 82)
+        Me.Button2.Location = New System.Drawing.Point(333, 12)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(279, 52)
         Me.Button2.TabIndex = 1
@@ -129,20 +69,16 @@ Partial Class frmMenuRendimientos
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(650, 376)
+        Me.ClientSize = New System.Drawing.Size(645, 89)
         Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmMenuRendimientos"
-        Me.Text = "frmMenuRendimientos"
         Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
 
     Friend WithEvents Panel1 As Panel
-    Friend WithEvents Button6 As Button
-    Friend WithEvents Button5 As Button
-    Friend WithEvents Button4 As Button
-    Friend WithEvents Button3 As Button
     Friend WithEvents Button2 As Button
     Friend WithEvents Button1 As Button
 End Class

FRM/frmMenuRendimientos.vb

@@ -1,5 +1,5 @@
 Public Class frmMenuRendimientos
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click(sender As Object, e As EventArgs) 
 
     End Sub
 
@@ -11,15 +11,15 @@
         frmRendimientoFiltro.Show()
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub Button3_Click(sender As Object, e As EventArgs) 
 
     End Sub
 
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
-        frmRendimientoConsolidacion.Show()
+    Private Sub Button6_Click(sender As Object, e As EventArgs) 
+
     End Sub
 
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
-        frmRendimientoSaldos.Show()
+    Private Sub Button5_Click(sender As Object, e As EventArgs) 
+
     End Sub
 End Class

FRM/frmNotaEstructurada.Designer.vb

@@ -208,12 +208,15 @@ Partial Class frmNotaEstructurada
         '
         'btnGME
         '
+        Me.btnGME.BackColor = System.Drawing.Color.White
+        Me.btnGME.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGME.ForeColor = System.Drawing.Color.Maroon
         Me.btnGME.Location = New System.Drawing.Point(29, 555)
         Me.btnGME.Name = "btnGME"
         Me.btnGME.Size = New System.Drawing.Size(75, 23)
         Me.btnGME.TabIndex = 151
         Me.btnGME.Text = "Aceptar"
-        Me.btnGME.UseVisualStyleBackColor = True
+        Me.btnGME.UseVisualStyleBackColor = False
         '
         'cboPeriodicidad
         '
@@ -226,19 +229,23 @@ Partial Class frmNotaEstructurada
         '
         'btnCancelar
         '
+        Me.btnCancelar.BackColor = System.Drawing.Color.White
         Me.btnCancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancelar.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancelar.ForeColor = System.Drawing.Color.Maroon
         Me.btnCancelar.Location = New System.Drawing.Point(127, 555)
         Me.btnCancelar.Name = "btnCancelar"
         Me.btnCancelar.Size = New System.Drawing.Size(75, 23)
         Me.btnCancelar.TabIndex = 150
         Me.btnCancelar.Text = "Cancelar"
-        Me.btnCancelar.UseVisualStyleBackColor = True
+        Me.btnCancelar.UseVisualStyleBackColor = False
         '
         'dgvIntereses
         '
         Me.dgvIntereses.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvIntereses.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvIntereses.BackgroundColor = System.Drawing.Color.White
         Me.dgvIntereses.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvIntereses.Location = New System.Drawing.Point(0, 351)
         Me.dgvIntereses.MultiSelect = False
@@ -388,6 +395,7 @@ Partial Class frmNotaEstructurada
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(783, 597)
         Me.Controls.Add(Me.txtImpuesto)
         Me.Controls.Add(Me.lblImpuesto)
@@ -413,8 +421,8 @@ Partial Class frmNotaEstructurada
         Me.Controls.Add(Me.txtMontoInversion)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmNotaEstructurada"
-        Me.Text = "frmNotaEstructurada"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmNotaEstructurada.resx

@@ -139,29 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZE7TNtQFIZdBrryWLqywsbMVCqmtgxMwQmP
-        EGRiqi7pXG9UgKoKiQkWQCSUgBCOKgHqVgnaKBUu1IQoSckDFLDBSRwSP5QqB9+rJJAIV1F/6dPRsc/9
-        rn0vgZLhPrUk+cW2BDfflTjZ6OJ5bzN+0UjC4bmn2eMPrZnQbEcs0F/MB5kh2vnWT41TosNOiWN12A2o
-        kcmU1WL/hgXJg49tcnD6pfbjBeiB16Bzg6AqEqjarSn5ggxIggUX/qn2bKBP+TrzvKQfTXZr33tBOyQh
-        ki6ZgiQkSYllwXJ7jmc69Z8DoO33gOp/BYIg6Fw0Bavuz7DN+qpsbG7BUey6VoAOTOC9z8ZHHX81Q8Lu
-        sOdoICYVISoqEDGIimqVWLpYK6hkyDamiBkZWN8XPBA6l2BhcQlWVtxVPGteCKdkc4GUK+BPRQPx6zzw
-        Z5dw/KeW+I3SmCCYygMXvYRDA1QrnF6ZCGx1gpOkBG7PevUAEag/vciaCKy1gshNEUKCco+xc+hKxc8b
-        Evx65BpR/zted42VWMnR9ENBUi5hEuX6kEcFFstEIWMIdnb38MC/UNQcDA+/4ctLCQIAnhi/wLpc78E5
-        4QLa+Q5XM2ia1m2kw8cwTFNZ8b8hiDuZPmwq6xyY/wAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHbSURBVDhPnZFPTNpQHMe7Hdx104tXr/O28066eJp68MQK
+        OhFSKWYXdl5vbstizBJPetnMcIrGWGKCXpdMRzB0akUCbPzRoK0WKIP+CYaffS+AQqwh+yaf/PJrf+/z
+        2vcIlDw3+zjDL3Smubne9NFqL8/7OvCLdhKLfX5UOHj/JB/91JMMDVdKEWaUdr0JUk5KdNgpcaIFuwH1
+        2p21Wuw/sCCzM9MpRz6+1H69AD00BDr3ClRFAlX7Z0qpLAOSYMFpcLqrEBpQtj/0VfV99zNttx+0MAnx
+        XNUUJCFJSqwJvnYVeeapvjcC2s/noAYHQRAEnUtk4Zt3GTZYf4PVtXXYT140C9CBCbyv2znuuNIMCRtg
+        T9BAUqpAQlQgbpAQ1QbJXKVZUM+obUIR8zKw/k08ED2RYH7hCywuehssffdBLCubC6RiGX8qGkhdlID/
+        ewYHf5pJXSrtCSLZEnCJMwgboFrn+NxEYGsRHGUk8C6tNA4Qgfrj04KJwNosiF9WICooNxg7R89V/Lwt
+        we87rhH1h6mWa6zHSo7nbgsychWTrtXb3CmwWCbLeUMQ2NrGA/ehqEUYG5via0sJAgAeGL/AejzvwDXp
+        Adr1FlczaJrWbaTDzzDMw5rif0MQ14wwbCY+RNEUAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGzSURBVDhPlZM7S8NQGIbTpv4AF3HwCg4iOFm6SbVeNn+A
-        4iKKODk4WHTRSVBxsCF0cnLRwQ5KsYLQ6iIILg5u3kBSerPX9N68ni80sdrU1g8eEg7nffJ95xCuWl2M
-        EYatCX0MM6OuRrLZbMLv91fK5TKMyOfzEAThkO01lNgonMlkIMuyTjKZRDweRygUUiXBYBCiKNZJTAwb
-        bcjlcigUCuqTSKfTSCQSCIfDqoB1CfqI2+3WJGrpAgprkIACqVQKkUjkxzgEZarZb0GpVNI30DvNrY0S
-        jUbVTiRJaiz4Ta2EOqHziMVirQsITULj0JmQiNZbFhDFYlE9F5IQtPYvAXXxdubC3cIQrifacDPXC8Fm
-        Ev8UUEjj3SPgcX0UOe8BlCcf5JM1+O3Dlasxy2pTAbV/Oz+ALAvDNQM424GdfkT2xuAd518aCmol1Lby
-        4EFtxbc6se2wKLogEAgoRhIiMNuDzNEiwEL5dQ6fjPcVHr4p/oMEVFZ2PTKTGP5Mr6f7uF8ehOTsR3ij
-        Dc9LJlzbLZXLSfNmNc91M6wMuhpDjqY7xHMHL1HbF3Y+dDzK73Icx30BWVyD3W9se9YAAAAASUVORK5C
-        YII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGxSURBVDhPlZM7S8NQGIbTpv4AF3HwVnAQwUnpJvW++QMU
+        F1HEycFB0cVNUHHQEDo5uehgB6WoII26CIKLg5s3kJTeTHrJpdfX84WmVm2tfvCQcDjvk+87h3ClamH0
+        Mjx16GA4GT+qV9d1VZKkQj6fRzVM04QgCDtsb1WJh8LpdBqappVJJBJQFAXhcNiShEIhiKL4Q+JgeGiD
+        YRjIZDLWk0ilUlBVFZFIxBKwLkEf8fl8tsSqsoDCNiSgQDKZRDQa/TIOQZlS9lOQy+XKG+id5rZHicVi
+        VieyLNcWfKdSQp3QecTj8b8LCFtC49CZkIjW/ywgstmsdS4kIWjtXwLq4uVoFzfT3bgYbsDVZDsEj0P8
+        VUAhm1e/gPulfhiBbRQfzqAdLELy9hTOB1wLdQXU/vVUJ3QWxu44sNwIrLsR3RxAYJB/qimolFDbxTs/
+        KktZa8bakKtYFgSDwWI1CXE50Yb03gzAQuYSh3fG6zyPs1H+jQRUfex6tFo/0/PhFm7nuiAvuxFZacDj
+        rAMXXlfhdMS5WspzrYw+Bl1NVfbGmsTjIV6mtk+8fHi/n9/gOI77AFLTg9ItGsa4AAAAAElFTkSuQmCC
 </value>
   </data>
 </root>

FRM/frmNotaEstructurada.vb

@@ -10,7 +10,7 @@
     Dim codigo As String = Variables.Codigo
     Dim Operaciones As New Operaciones
     Dim NotaCalcular As New NotaEstructuradaCE
-    'Dim oUtilidades As New Utilidades
+
 
     Private _TipoTransaccion As String
     Private _IdDocumento As Integer
@@ -57,7 +57,7 @@
 
 
     Private Sub frmNotaEstructurada_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'Me.txtBase.Text = AnioBase.ToString
+
         dgvIntereses.Columns.Clear()
         AgregarCampos()
 
@@ -78,7 +78,7 @@
             Call CargarRegistroBD()
         End If
 
-        PreparardgvIntereses()
+
 
 
 
@@ -156,7 +156,7 @@
             navNuevo.Enabled = True
             navModificar.Enabled = False
             navEliminar.Enabled = False
-            'LimpiarCampos()
+
         End If
         Estado = String.Empty
         btnGME.Text = "Aceptar"
@@ -174,26 +174,13 @@
         Return Existe
     End Function
 
-    Sub LimpiarCampos()
-        txtMontoInversion.Text = "0"
-        txtPlazo.Text = 0
-        txtTasa.Text = 0
-        cboPeriodicidad.SelectedIndex = 0
-        txtRendimientoBruto.Text = "0.0%"
-        txtRendimientoNeto.Text = "0.0%"
-        dtpFechaOperacion.Value = Date.Now.Date
-        dtpFechaVencimiento.Value = Date.Now.Date
-    End Sub
+
 
     Private Sub txtPlazo_TextChanged(sender As Object, e As EventArgs)
-        'If Modo = "N" Then
-        '    RefrescarFechaVencimiento()
-        '    CalcularIntereses()
-        'End If
         Calculo()
     End Sub
     Private Sub txtPlazo_LostFocus(sender As Object, e As EventArgs)
-        '   ControlPlazo()
+
     End Sub
     Private Sub ControlPlazo()
         Dim valor As Integer
@@ -211,10 +198,6 @@
 
     End Sub
     Private Sub dtpFechaOperacion_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaOperacion.ValueChanged
-        'If Modo = "N" Then
-        '    RefrescarFechaVencimiento()
-        'End If
-        'ControlFechaOperacion()
         CalcularPlazo()
         Calculo()
     End Sub
@@ -229,18 +212,12 @@
     End Sub
 
     Private Sub txtIngresoBruto_TextChanged(sender As Object, e As EventArgs)
-        'If Modo = "N" Then
-        '    RefrescarRendimientoBruto()
-        'End If
+
     End Sub
 
 
 
     Private Sub txtTasa_TextChanged(sender As Object, e As EventArgs) Handles txtTasa.TextChanged
-        'If Modo = "N" Then
-        '    CalcularIntereses()
-        'End If
-
 
         Calculo()
         If (txtTasa.ToString.IndexOf("%") = -1) Then
@@ -250,7 +227,7 @@
         Calculo()
     End Sub
     Private Sub txtTasa_LostFocus(sender As Object, e As EventArgs) Handles txtTasa.LostFocus
-        ' ControlTasa()
+
     End Sub
     Private Sub ControlTasa()
         Dim valor As Double
@@ -270,14 +247,11 @@
 
     Private Sub txtMontoInversion_TextChanged(sender As Object, e As EventArgs) Handles txtMontoInversion.TextChanged
 
-        'If Modo = "N" Then
-        '    CalcularIntereses()
-        'End If
         CalcularPlazo()
         Calculo()
     End Sub
     Private Sub txtMontoInversion_LostFocus(sender As Object, e As EventArgs) Handles txtMontoInversion.LostFocus
-        '  ControlMontoInversion()
+
     End Sub
     Private Sub ControlMontoInversion()
         Dim valor As Double
@@ -297,9 +271,7 @@
 
 
     Private Sub txtIngresoNeto_TextChanged(sender As Object, e As EventArgs)
-        'If Modo = "N" Then
-        '    RefrescarRendimientoNeto()
-        'End If
+
     End Sub
     Sub CargarPeriodos()
         If cboPeriodicidad.Items.Count = 0 Or cboPeriodicidad.Items.Count = 1 Then
@@ -312,14 +284,6 @@
         End If
     End Sub
     Private Sub btnAceptar_Click(sender As Object, e As EventArgs)
-        'If (TipoTransaccion = "N" Or TipoTransaccion = "A") Then
-        'RefrescarClaseEntidad()
-        ' If TipoTransaccion = "A" Then
-        '      ActualizarRegistro()
-        '   End If
-        'Else
-        '    Me.Close()
-        ' End If
 
         If (Estado = "N") Then
             NuevoElemento()
@@ -332,15 +296,12 @@
 
     End Sub
 
-    Function RetornarObjeto()
-        Return oNETSCE
-    End Function
+
 
     Private Sub CargarRegistroBD()
         oNETSCE = Nothing
         oDAONEST = New DAONotaEstructurada
         CodigoInversion = Variables.Codigo
-        'oDAPDAO.CargarRegistro(oDAPCE, TipoDocumento, IdDocumento)
         oNETSCE = oDAONEST.CargarRegistro(Me.CodigoInversion)
 
         TipoTransaccion = "C"
@@ -349,14 +310,9 @@
 
     End Sub
 
-    Public Sub CargarRegistro(vId As Integer, vTipo As String)
-        TipoTransaccion = "C"
-        IdDocumento = vId
-        TipoDocumento = vTipo
-    End Sub
+
 
     Private Sub dtpFechaVencimiento_ValueChanged(sender As Object, e As EventArgs) Handles dtpFechaVencimiento.ValueChanged
-        'ControlFechaVencimiento()
         CalcularPlazo()
         Calculo()
     End Sub
@@ -371,7 +327,7 @@
     End Sub
 
     Private Sub cboPeriodicidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPeriodicidad.SelectedIndexChanged
-        'ControlPreriodicidad()
+
         CalcularPlazo()
         Calculo()
     End Sub
@@ -404,7 +360,7 @@
 
             txtPlazo.Text = oNETSCE.Plazo.ToString
 
-            'txtPlazo.Text = 10 'oDAPCE.Plazo.ToString
+
 
 
 
@@ -423,130 +379,13 @@
 
 
     End Sub
-    Private Sub PreparardgvIntereses()
-
-
-
-
-
-
-
-    End Sub
-    Private Sub PrepararCalculoIntereses(ByVal IdFila As Integer, idColumna As Integer)
-        Dim vFila As DataGridViewRow = dgvIntereses.Rows(IdFila)
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vFecha As Date
-        Dim vFechaAnterior As Date
-        Dim vPeriodicidad As String = oNETSCE.Periodicidad
-        Dim vDiasDelPeriodo As Integer
 
-        If vFila.IsNewRow Then
-            If IdFila = 0 Then
-                vFecha = oNETSCE.FechaOperacion
-            Else
-                vFilaAnterior = dgvIntereses.Rows(IdFila - 1)
-                vFecha = vFilaAnterior.Cells("Fecha").Value
-
-            End If
-            'vFecha = vFechaAnterior
-
-            If vPeriodicidad = "M" Then
-                vDiasDelPeriodo = 30
-            ElseIf vPeriodicidad = "T" Then
-                vDiasDelPeriodo = 90
-            ElseIf vPeriodicidad = "S" Then
-                vDiasDelPeriodo = 180
-            Else
-                vDiasDelPeriodo = 30
-            End If
-
-            vFila.Cells("Plazo").Value = vDiasDelPeriodo
-            If Not IdFila = 0 Then
-                vFecha = vFecha.AddDays(vFila.Cells("Plazo").Value)
-            End If
-            vFila.Cells("Fecha").Value = vFecha
-            vFila.Cells("PorcImp").Value = 0.1
-            vFila.Cells("Estado").Value = "A"
-            dgvIntereses.Rows(IdFila).Selected = False
-            'dgvIntereses.Rows.Insert(IdFila + 1)
-
-            'MsgBox("IsNewRow")
-        Else
-            'MsgBox("No IsNewRow")
-        End If
-        'CalcularIntereses(IdFila)
-        'dgvIntereses.Refresh()
-    End Sub
 
     Private Sub dgvIntereses_CellBeginEdit(sender As Object, e As DataGridViewCellCancelEventArgs) Handles dgvIntereses.CellBeginEdit
-        'MsgBox("CellBeginEdit")
-        '        PrepararCalculoIntereses(e.RowIndex, e.ColumnIndex)
-
-    End Sub
-    Private Sub CalcularIntereses(ByVal IdFila As Integer, ByVal IdCol As Integer)
-        Dim vFila As DataGridViewRow = dgvIntereses.Rows(IdFila)
-        Dim vFilaAnterior As DataGridViewRow
-        Dim vPlazo As Integer = 0
-        Dim vFechaAnterior As Date
-        Dim vFecha As Date
-        Dim vIngresoBruto As Double = 0
-        Dim vMontoInversion As Double = oNETSCE.MontoDeInversion
-        Dim vTasa As Double = oNETSCE.Tasa
-        Dim vPorcentajeImpuesto As Double = 0
-        Dim vMontoImpuesto As Double = 0
-        Dim vIngresoNeto As Double = 0
-        If (Not String.IsNullOrEmpty(vTasa.ToString) And Not vTasa.ToString = "0") Then
-            vTasa = vTasa / 100
-        End If
-
-        If (Not String.IsNullOrEmpty(vPorcentajeImpuesto.ToString) And Not vPorcentajeImpuesto.ToString = "0") Then
-            vPorcentajeImpuesto = vPorcentajeImpuesto / 100
-        End If
-
-
-        If IdFila = 0 Then
-            vFechaAnterior = oNETSCE.FechaOperacion
-        Else
-            vFilaAnterior = dgvIntereses.Rows(IdFila - 1)
-            vFechaAnterior = vFilaAnterior.Cells("Fecha").Value
-
-        End If
-
-
-        'vFecha = vFila.Cells("Fecha").Value
-        vFecha = vFechaAnterior
-
-
-        'If vFila.IsNewRow Then
-        Integer.TryParse(vFila.Cells("Plazo").Value.ToString, vPlazo)
-        Double.TryParse(vFila.Cells("PorcImp").Value.ToString, vPorcentajeImpuesto)
-
-        vFecha = DateAdd(DateInterval.Day, vPlazo, vFecha)
-        vIngresoBruto = vMontoInversion * vTasa * vPlazo
-        If (Not String.IsNullOrEmpty(Utilidades.CalcularDiasDelAnio(vFecha).ToString) And Not Utilidades.CalcularDiasDelAnio(vFecha) = 0) Then
-            vIngresoBruto = vIngresoBruto / Utilidades.CalcularDiasDelAnio(vFecha)
-        Else
-            vIngresoBruto = "0.0"
-        End If
-
-        vFila.Cells("IngrBruto").Value = vIngresoBruto
 
-        vMontoImpuesto = vIngresoBruto * vPorcentajeImpuesto
-        vFila.Cells("MontoImp").Value = vMontoImpuesto
-
-        vIngresoNeto = vIngresoBruto - vMontoImpuesto
-        vFila.Cells("IngrNeto").Value = vIngresoNeto
-
-        'End If
-        If dgvIntereses.IsCurrentCellDirty Then
-            dgvIntereses.CommitEdit(DataGridViewDataErrorContexts.Commit)
-        End If
-
-
-        RefrescarClaseEntidad()
-        RefrescarValorControles()
     End Sub
 
+
     Private Sub RefrescarClaseEntidad()
         ControlMontoInversion()
         ControlFechaOperacion()
@@ -559,15 +398,6 @@
 
     Private Sub dgvIntereses_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIntereses.CellEndEdit
 
-        'If e.ColumnIndex = dgvIntereses.Columns("PorcImp").Index Then
-        '    Dim valor As Double
-        '    valor = dgvIntereses.Rows(e.RowIndex).Cells("PorcImp").Value
-        '    valor = valor / 100
-
-        '    dgvIntereses.Rows(e.RowIndex).Cells("PorcImp").Value = valor
-        'End If
-        'CalcularIntereses(e.RowIndex, e.ColumnIndex)
-
     End Sub
 
     Private Sub dgvIntereses_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIntereses.CellContentClick
@@ -576,7 +406,7 @@
     Private Sub PrepararNuevo()
         oNETSCE = New NotaEstructuradaCE
         RefrescarValorControles()
-        'PreparardgvIntereses()
+
 
     End Sub
 
@@ -589,30 +419,21 @@
     End Sub
 
     Private Sub dgvIntereses_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles dgvIntereses.RowPostPaint
-        'MsgBox("RowPostPaint")
+
     End Sub
 
     Private Sub dgvIntereses_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles dgvIntereses.RowPrePaint
-        'MsgBox("RowPrePaint")
+
     End Sub
 
     Private Sub dgvIntereses_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles dgvIntereses.RowsAdded
-        'MsgBox("RowsAdded")
+
     End Sub
 
     Private Sub dgvIntereses_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIntereses.RowValidated
 
     End Sub
-    Private Sub ActualizarRegistro()
-        Dim res As Integer
-        RefrescarClaseEntidad()
-        res = oDAONEST.Actualizar(oNETSCE)
-        If res > 0 Then
-            MsgBox("Registro Guardado")
-        Else
-            MsgBox("Algo no salio bien.")
-        End If
-    End Sub
+
 
     Private Sub navModificar_Click(sender As Object, e As EventArgs) Handles navModificar.Click
 
@@ -772,7 +593,7 @@
 
 
     Private Sub Button1_Click(sender As Object, e As EventArgs)
-        'ColeccionElementos()
+
     End Sub
 
 
@@ -783,7 +604,6 @@
         For i As Integer = 0 To Index
 
             Dim colec As Collection = ColeccionElementos(i)
-            'oDAPDAO.NuevoElemento(colec, codigo)
             diccionario.Add(i, colec)
         Next
 

FRM/frmPrestamoEmpresariales.Designer.vb

@@ -153,6 +153,7 @@ Partial Class frmPrestamoEmpresariales
         '
         'Panel2
         '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel2.Controls.Add(Me.lblPrestamoEmpresarial)
         Me.Panel2.Controls.Add(Me.btnAccion)
         Me.Panel2.Controls.Add(Me.GrpDatos)
@@ -166,12 +167,15 @@ Partial Class frmPrestamoEmpresariales
         'btnAccion
         '
         Me.btnAccion.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.btnAccion.BackColor = System.Drawing.Color.White
+        Me.btnAccion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAccion.ForeColor = System.Drawing.Color.Maroon
         Me.btnAccion.Location = New System.Drawing.Point(351, 285)
         Me.btnAccion.Name = "btnAccion"
         Me.btnAccion.Size = New System.Drawing.Size(93, 33)
         Me.btnAccion.TabIndex = 170
         Me.btnAccion.Text = "Aceptar"
-        Me.btnAccion.UseVisualStyleBackColor = True
+        Me.btnAccion.UseVisualStyleBackColor = False
         '
         'GrpDatos
         '
@@ -409,8 +413,8 @@ Partial Class frmPrestamoEmpresariales
         Me.ClientSize = New System.Drawing.Size(797, 391)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmPrestamoEmpresariales"
-        Me.Text = "Prestamo Empresariales"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmPrestamoEmpresariales.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFPTNpQHMe7Hdx1k4vXXedt553UeNLtsBMr
-        6ERMoRov7LwelmxZFmOWeNLLZgZTNMYSE/Rq4ibBWHUVCbDxR4O2WqAM+icYfva9AAqxhvhNPvnl1/7e
-        57XvESh5bvpxhp/rTHMz3enDpW6e93fgF+0kFvv6qHDw6Uk++uVpMvyqUoowQ7R7MkSNUaLTQYmjLTgM
-        qLfjWZvVsYkFmV9TnXLk84C23Qd6+CXo3BtQFQlU7b8ppbIMSIIFJ6GPlkK4X1n70FPV98efa797Qdsl
-        IZ6rmoIkJEmJNcF3S5Fnnuk7r0HbegFqaBAEQdC5RBZ+eBdglQ00WFpegf3kebMAHZjA+7vGRpyXmiFh
-        g+wxGkhKFUiICsQNEqLaIJmrNAvqGbKPKmJeBjawhgeixxLMzn2D+XlvA99PP8SysrlAKpbxp6KB1HkJ
-        +H+ncPC3mdSF0p4gki0BlziFXQNU6xydmQjsLYLDjARe32LjABGoPzopmAhszYL4RQWignKNsXP0TMXP
-        2xLs3XKNqP+TarnGemzkSO6mICNXMelavcmtAqvVVc4bguD6Bh64C0UtwvDwBF9bShAA8MD4BdbjeQ9u
-        lwdo9ztczaBpWreTzgDDMA9rivuGIK4Aa41sHJ5fbUwAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFNTNpgGMe7HdzV4WVXr3LbeSdnPDk97IQF
+        nYCp1MULO6/ZZcaYZTHxpJdphnO4GEtM1OuSbRIW60dFAkw+NGCrBYrQj7DwrO8bYEKsIf6TX5487fP+
+        3vZ9CZQ897EzzS9aUty8NXW8ZuV5fwd+0U6i0blHhcPpx/nIbHciNFQphZkR2jMVpMYp0e2kRFcLTgPq
+        1WTGbnN+x4L0zw8WOTwzoO32gR4aBJ0bBlWRQNWuTSmVZUASLDgPvu8qhPqVwLveqn4w+VT79Ry0PRJi
+        uaopSEKSlFgTLHUVeaZH//0StB/PQA2+AEEQdC6egc++VdhgAw3Wvq3DQeKyWYAOTOD9T8bH3H81Q8Ju
+        sWdoICFVIC4qEDOIi2qDRK7SLKhnxOFSxLwMbGATD0TOJFhY/ATLy74GK1/8EM3I5gKpWMafigaSlyXg
+        T7Nw+KeZ5JXSniCcKQEXz8KeAap1Ti5MBI4WwXFaAt/K18YBIlB/cl4wEdibBbGrCkQE5T/GzpELFT9v
+        S7B/yzWi/ijZco312Mmx3E1BWq5iUrV6k1sFNttEOW8ItrZ38MBdKGoRRkdf87WlBAEAD4xfYL3et+CZ
+        8ALteYOrGTRN6w7SHWAY5mFNcd8QxD9ef2wYhh+LtAAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnFq6ldbr5g9Q
-        XEQRJweHFl26CSoONoROTi466KCIBgpVF0FwcXDzUpCU3mzaJm16fT1faGrV1ssHDwmH8z75vnMIV6tu
-        ho3h+IV+RhvjW9lyuZwSCoUq5XIZzdB1HYIg7LK9TSUOCquqCk3T6qTTaaRSKUSjUUMSiUQgiuI3iYXh
-        oA35fB6FQsF4EtlsFoqiIBaLGQLWJegjgUDAlBhVF1DYhAQUyGQyiMfjn8YhKFPLfghKpVJ9A73T3OYo
-        iUTC6ESW5daCrzRKqBM6j2Qy+XcBYUpoHDoTEtH6nwVEsVg0zoUkBK39S0BdvBz5cTM/jOB4O65m+yA4
-        LOKPAgqZhI8F3HucyJ/toPpwAe1gFSHXSEVyW1d+FVD713ODyLEw/NOAtwPYGEB8y42zUf6ppaBRQm1X
-        747RWClfF3xj1mpdIElStZmEuJzphbq3ALCQ7uHwxggv87iY5F9JQGVn16O1+pmeD7dxuzQE2TuA2Fo7
-        HhctCLqslfOJtvVanuth2Bl0NU3Zm+oUT8Z4mdo+dfHRfSe/yXEc9w5H/IPDoglrbAAAAABJRU5ErkJg
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOLV0k2q9bP4A
+        xUUUcXJwaNHFTVBx0BA6dXLRQQdFqlCougiCi4Obl4KkpGntLWl6fz1faGrV1uoHDwmH8z75vnMIV60u
+        hp3hbEEfo43xo+zZbDYZCoXKpVIJjcjlchAEYY/tbShxUlhVVWiaViOVSiGRSECWZUMSiUQgiuIPiYXh
+        pA26riOfzxtPIpPJIJlMIhqNGgLWJegjPp/PlBhVE1DYhAQUSKfTUBTlyzgEZarZT0GxWKxtoHea2xwl
+        FosZnUiS1FzwnXoJdULnEY/H/y4gTAmNQ2dCIlr/s4AoFArGuZCEoLV/CaiL1+N93M4PIThuw/VsLwSn
+        RfxVQCGT8ImAB88I9PNdVB4voB2uIuQaLl+OWldaCqj9m7kBZFkY+9OAtx3Y7IeyPYrzMf65qaBeQm1X
+        7k9QX4mNTmy4rZWaIBAIVBpJiKuZHqj+BYCFch4O74zwMo+LSf6NBFQOdj1as5/p5WgHd0uDkLz9iK7Z
+        8LRoQdBlLQcm2tarea6b4WDQ1TTEP9Uhnrp5ido+c/HywQi/xXEc9wFDpoO9i5iysQAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmPrestamoEmpresariales.vb

@@ -60,7 +60,6 @@
 
         End If
         FinCarga = True
-        '  CargarDetalles()
         ExisteInversion()
         ValidarExistencia()
         CargarTransladoNuevo()
@@ -108,15 +107,7 @@
         End If
         Return False
     End Function
-    Sub CargarFecha()
-        Dim Index As Integer = dgvDetalles.CurrentRow.Index
-        Dim Anterior As Integer = Index - 1
-        Dim Fecha = dtpFechaOperacion.Value
-        Dim strFecha = Format(Fecha, "dd/MM/yyyy")
-        If (String.IsNullOrEmpty(dgvDetalles.Rows(Index).Cells("Fechas de Pago").Value)) Then
-            dgvDetalles.Rows(Index).Cells("Fechas de Pago").Value = strFecha
-        End If
-    End Sub
+
 
 
     Function CanRegistros()
@@ -361,29 +352,6 @@
             Dim Salir As Boolean = False
             FechaAux = FechaFinal
 
-
-
-
-
-
-            'While (Mes = FechaFinal.Month) Or (FechaFinal.Month = FechaVen.Month)
-            '    FechaFinal = Format(FechaFinal, "dd/MM/yyyy")
-            '    FechaVen = Format(FechaVen, "dd/MM/yyyy")
-            '    FechaFinal = FechaFinal.AddDays(1)
-            '    If (FechaFinal > FechaVen) Then
-
-            '        Salir = True
-            '        Exit While
-            '    End If
-
-            'End While
-
-
-
-
-
-
-
             While (Mes = FechaFinal.Month)
                 FechaFinal = Format(FechaFinal, "dd/MM/yyyy")
                 FechaVen = Format(FechaVen, "dd/MM/yyyy")
@@ -625,7 +593,7 @@
             SaldoAnterior = Monto
             PagoPendienteAnterior = dgvDetalles.Rows(Index - 1).Cells("Saldo Pendiente").Value
             Amortizacion = dgvDetalles.Rows(Index - 1).Cells("Amortizacion").Value
-            'PagoPendiente = dgvDetalles.Rows(Index).Cells("Saldo Pendiente").Value
+
 
             If (SaldoAnterior = Amortizado) Then
                 Saldo = 0
@@ -653,8 +621,6 @@
     Function Plazo(ByVal Index As Integer, ByVal fecha2 As Date)
 
         Dim fecha1 As Date
-        Dim fecha1Str As String
-        Dim fecha2Str As String
         Dim Valor
         Dim Anterior = Index - 1
         If (Index = 0) Then
@@ -783,13 +749,7 @@
         Return Valor
     End Function
 
-    Sub BorrarAnterior(ByVal Index As Integer)
-        Dim IndexAnterior As Integer = Index - 1
-        Dim Cantidad As Integer = dgvDetalles.Rows().Count - 1
-        If (Cantidad >= 0) Then
-            dgvDetalles.Rows(Index).Cells("Amortizacion").Value = 0
-        End If
-    End Sub
+
 
     Function CalculoAmortizacion(ByVal Ultimo As Integer, ByVal V_txtMonto As Double)
         Dim Monto As Integer = 0
@@ -815,20 +775,7 @@
         Return Valor
     End Function
 
-    Function SaldoFinal(ByVal Index As Integer, ByVal V_txtMonto As Double)
-        Dim Valor As Double
 
-        Dim Anterior As Integer = Index - 1
-        If (Index = 0) Then
-            Valor = V_txtMonto - dgvDetalles.Rows(Index).Cells("Amortizacion").Value
-        ElseIf (Index > 0) Then
-            Valor = dgvDetalles.Rows(Anterior).Cells("Saldo Final").Value - dgvDetalles.Rows(Index).Cells("Amortizacion").Value
-
-        Else
-            Valor = 0
-        End If
-        Return Valor
-    End Function
 
     Function Coleccion()
         Dim colec As New Collection
@@ -917,22 +864,13 @@
     End Function
 
 
-    Sub Nuevo(ByVal codigo As String)
 
-        PrestamoConsulta.NuevoDato(Coleccion, codigo)
-    End Sub
 
 
-    Sub ProcesoDatos(ByVal Colec As Collection, ByVal codigo As String, ByVal Diccionario As Dictionary(Of Integer, String), ByVal Diccionario2 As Dictionary(Of String, Collection), ByVal Estado As String)
 
-        PrestamoConsulta.ProcesoDatos(Colec, codigo, Diccionario2, Estado)
-    End Sub
 
 
-    Sub Modificar(ByVal codigo As String)
 
-        PrestamoConsulta.ModificarDato(Coleccion, codigo)
-    End Sub
 
     Sub NuevoDetalle(ByVal AgregarModificar As Boolean, ByVal Cantidad As Integer)
 
@@ -986,59 +924,10 @@
 
     End Sub
 
-    Sub ModificarDetalle(ByVal codigo As String)
-
-        Dim i As Integer = 0
-        Dim CantidadRegistrosDB = CanRegistros()
-        Dim CantidadRegistros As Integer = dgvDetalles.Rows.Count - 1
-
-        While i < CantidadRegistrosDB
-            If i < CantidadRegistros Then
-
-
-
-                Dim coleccion = ColeccionDetalle(i)
-                If PrestamoConsulta.ModificarDetalle(coleccion, codigo) Is Nothing Then
-
-                    Exit Sub
-                End If
-            End If
-            i += 1
-        End While
-
-
-
-        NuevoDetalle(True, CantidadRegistrosDB)
-        CantidadRegistrosDB = CanRegistros()
-
-        EliminarDetalles(CantidadRegistros, CantidadRegistrosDB)
-
-    End Sub
-
 
-    Function ColeccionModificar(ByVal codigo As String)
 
-        Dim i As Integer = 0
-        Dim CantidadRegistrosDB = CanRegistros()
-        Dim CantidadRegistros As Integer = dgvDetalles.Rows.Count - 1
-        Dim diccionario As New Dictionary(Of String, Collection)
-        While i < CantidadRegistrosDB
-            If i < CantidadRegistros Then
-
-
-
-                Dim coleccion = ColeccionDetalle(i)
-                diccionario.Add(i, coleccion)
-            End If
-            i += 1
-        End While
 
 
-
-
-        Return diccionario
-    End Function
-
     Function ColeccionNuevo(ByVal codigo As String)
 
 
@@ -1086,7 +975,6 @@
     End Sub
 
     Private Sub dgvDetalles_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvDetalles.CellEndEdit
-        '       CargarFecha()
 
         Calculos(True, False)
 
@@ -1165,8 +1053,6 @@
             PrestamoConsulta.ProcesoDatos(Colec, codigo, Diccionario2, "Nuevo")
 
 
-            'Nuevo(codigo)
-            'ModificarDetalle(codigo)
 
         ElseIf Not ExisteValidacion() Then
 
@@ -1192,7 +1078,7 @@
     Private Sub navModificar_Click(sender As Object, e As EventArgs) Handles navModificar.Click
         Estado = "M"
         btnAccion.Text = "Modificar"
-        '     btnagregar.Text = "Modificar"
+
     End Sub
 
     Private Sub navNuevo_Click(sender As Object, e As EventArgs) Handles navNuevo.Click
@@ -1204,21 +1090,11 @@
     Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click
         Estado = "B"
         btnAccion.Text = "Eliminar"
-        '  btnagregar.Text = "Eliminar"
+
     End Sub
 
     Private Sub btnagregar_Click(sender As Object, e As EventArgs)
-        'Dim codigo As String = Variables.Codigo
-
-        'If (Estado = "N") Then
-        '    NuevoDetalle(codigo)
-        'End If
-        'If (Estado = "M") Then
-        '    ModificarDetalle(codigo)
-        'End If
-        'If (Estado = "B") Then
-        '    EliminarDetalle(codigo)
-        'End If
+
     End Sub
 
     Private Sub txtMonto_TextChanged(sender As Object, e As EventArgs) Handles txtMonto.TextChanged

FRM/frmPrestamoPersonal.Designer.vb

@@ -35,6 +35,7 @@ Partial Class frmPrestamoPersonal
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.GrpDatos = New System.Windows.Forms.GroupBox()
+        Me.CkbPrueba = New System.Windows.Forms.CheckBox()
         Me.txtNombreDeudor = New System.Windows.Forms.TextBox()
         Me.txtNumeroDeudor = New System.Windows.Forms.TextBox()
         Me.txtPeriodo = New System.Windows.Forms.TextBox()
@@ -73,7 +74,6 @@ Partial Class frmPrestamoPersonal
         Me.TabPage3 = New System.Windows.Forms.TabPage()
         Me.dgvAmortizacion = New System.Windows.Forms.DataGridView()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.CkbPrueba = New System.Windows.Forms.CheckBox()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.BindingNavigator1.SuspendLayout()
         Me.TabControl1.SuspendLayout()
@@ -180,6 +180,7 @@ Partial Class frmPrestamoPersonal
         '
         'TabPage2
         '
+        Me.TabPage2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage2.Controls.Add(Me.GrpDatos)
         Me.TabPage2.Controls.Add(Me.GrpInfo)
         Me.TabPage2.Controls.Add(Me.lblPrestamoPersonal)
@@ -196,7 +197,6 @@ Partial Class frmPrestamoPersonal
         Me.TabPage2.Size = New System.Drawing.Size(866, 378)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Deudor"
-        Me.TabPage2.UseVisualStyleBackColor = True
         '
         'GrpDatos
         '
@@ -213,6 +213,15 @@ Partial Class frmPrestamoPersonal
         Me.GrpDatos.TabIndex = 178
         Me.GrpDatos.TabStop = False
         '
+        'CkbPrueba
+        '
+        Me.CkbPrueba.AutoSize = True
+        Me.CkbPrueba.Location = New System.Drawing.Point(25, 12)
+        Me.CkbPrueba.Name = "CkbPrueba"
+        Me.CkbPrueba.Size = New System.Drawing.Size(15, 14)
+        Me.CkbPrueba.TabIndex = 133
+        Me.CkbPrueba.UseVisualStyleBackColor = True
+        '
         'txtNombreDeudor
         '
         Me.txtNombreDeudor.Location = New System.Drawing.Point(25, 29)
@@ -317,12 +326,15 @@ Partial Class frmPrestamoPersonal
         'btnAccion
         '
         Me.btnAccion.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.btnAccion.Location = New System.Drawing.Point(377, 294)
+        Me.btnAccion.BackColor = System.Drawing.Color.White
+        Me.btnAccion.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAccion.ForeColor = System.Drawing.Color.Maroon
+        Me.btnAccion.Location = New System.Drawing.Point(362, 294)
         Me.btnAccion.Name = "btnAccion"
-        Me.btnAccion.Size = New System.Drawing.Size(77, 29)
+        Me.btnAccion.Size = New System.Drawing.Size(92, 29)
         Me.btnAccion.TabIndex = 170
         Me.btnAccion.Text = "Aceptar"
-        Me.btnAccion.UseVisualStyleBackColor = True
+        Me.btnAccion.UseVisualStyleBackColor = False
         '
         'Label13
         '
@@ -380,6 +392,7 @@ Partial Class frmPrestamoPersonal
         '
         'TabPage1
         '
+        Me.TabPage1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TabPage1.Controls.Add(Me.Label19)
         Me.TabPage1.Controls.Add(Me.GrpDatos2)
         Me.TabPage1.Controls.Add(Me.GrpInfo2)
@@ -391,7 +404,6 @@ Partial Class frmPrestamoPersonal
         Me.TabPage1.Size = New System.Drawing.Size(866, 378)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Detalles"
-        Me.TabPage1.UseVisualStyleBackColor = True
         '
         'Label19
         '
@@ -563,6 +575,7 @@ Partial Class frmPrestamoPersonal
         'dgvAmortizacion
         '
         Me.dgvAmortizacion.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvAmortizacion.BackgroundColor = System.Drawing.Color.White
         Me.dgvAmortizacion.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAmortizacion.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvAmortizacion.Location = New System.Drawing.Point(3, 3)
@@ -579,15 +592,6 @@ Partial Class frmPrestamoPersonal
         Me.Panel1.Size = New System.Drawing.Size(874, 404)
         Me.Panel1.TabIndex = 170
         '
-        'CkbPrueba
-        '
-        Me.CkbPrueba.AutoSize = True
-        Me.CkbPrueba.Location = New System.Drawing.Point(25, 12)
-        Me.CkbPrueba.Name = "CkbPrueba"
-        Me.CkbPrueba.Size = New System.Drawing.Size(15, 14)
-        Me.CkbPrueba.TabIndex = 133
-        Me.CkbPrueba.UseVisualStyleBackColor = True
-        '
         'frmPrestamoPersonal
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -595,8 +599,8 @@ Partial Class frmPrestamoPersonal
         Me.ClientSize = New System.Drawing.Size(874, 429)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.BindingNavigator1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Name = "frmPrestamoPersonal"
-        Me.Text = "Prestamo Personal"
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

FRM/frmPrestamoPersonal.resx

@@ -139,28 +139,28 @@
   <data name="navNuevo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHdSURBVDhPnZFPTNpQHMe7Hdx1k4vXXedt553UeNLtsBMr
-        6ERMoRov7LwelmxZFmOWeNLLZgZTNMYSE/Rq4ibBWHUVCbDxR4O2WqAM+icYfva9AAqxhvhNPvnl1/7e
-        57XvESh5bvpxhp/rTHMz3enDpW6e93fgF+0kFvv6qHDw6Uk++uVpMvyqUoowQ7R7MkSNUaLTQYmjLTgM
-        qLfjWZvVsYkFmV9TnXLk84C23Qd6+CXo3BtQFQlU7b8ppbIMSIIFJ6GPlkK4X1n70FPV98efa797Qdsl
-        IZ6rmoIkJEmJNcF3S5Fnnuk7r0HbegFqaBAEQdC5RBZ+eBdglQ00WFpegf3kebMAHZjA+7vGRpyXmiFh
-        g+wxGkhKFUiICsQNEqLaIJmrNAvqGbKPKmJeBjawhgeixxLMzn2D+XlvA99PP8SysrlAKpbxp6KB1HkJ
-        +H+ncPC3mdSF0p4gki0BlziFXQNU6xydmQjsLYLDjARe32LjABGoPzopmAhszYL4RQWignKNsXP0TMXP
-        2xLs3XKNqP+TarnGemzkSO6mICNXMelavcmtAqvVVc4bguD6Bh64C0UtwvDwBF9bShAA8MD4BdbjeQ9u
-        lwdo9ztczaBpWreTzgDDMA9rivuGIK4Aa41sHJ5fbUwAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPnZFNTNpgGMe7HdzV4WVXr3LbeSdnPDk97IQF
+        nYCp1MULO6/ZZcaYZTHxpJdphnO4GEtM1OuSbRIW60dFAkw+NGCrBYrQj7DwrO8bYEKsIf6TX5487fP+
+        3vZ9CZQ897EzzS9aUty8NXW8ZuV5fwd+0U6i0blHhcPpx/nIbHciNFQphZkR2jMVpMYp0e2kRFcLTgPq
+        1WTGbnN+x4L0zw8WOTwzoO32gR4aBJ0bBlWRQNWuTSmVZUASLDgPvu8qhPqVwLveqn4w+VT79Ry0PRJi
+        uaopSEKSlFgTLHUVeaZH//0StB/PQA2+AEEQdC6egc++VdhgAw3Wvq3DQeKyWYAOTOD9T8bH3H81Q8Ju
+        sWdoICFVIC4qEDOIi2qDRK7SLKhnxOFSxLwMbGATD0TOJFhY/ATLy74GK1/8EM3I5gKpWMafigaSlyXg
+        T7Nw+KeZ5JXSniCcKQEXz8KeAap1Ti5MBI4WwXFaAt/K18YBIlB/cl4wEdibBbGrCkQE5T/GzpELFT9v
+        S7B/yzWi/ijZco312Mmx3E1BWq5iUrV6k1sFNttEOW8ItrZ38MBdKGoRRkdf87WlBAEAD4xfYL3et+CZ
+        8ALteYOrGTRN6w7SHWAY5mFNcd8QxD9ef2wYhh+LtAAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="navEliminar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZTU3+Aizh4BQcRnFq6ldbr5g9Q
-        XEQRJweHFl26CSoONoROTi466KCIBgpVF0FwcXDzUpCU3mzaJm16fT1faGrV1ssHDwmH8z75vnMIV6tu
-        ho3h+IV+RhvjW9lyuZwSCoUq5XIZzdB1HYIg7LK9TSUOCquqCk3T6qTTaaRSKUSjUUMSiUQgiuI3iYXh
-        oA35fB6FQsF4EtlsFoqiIBaLGQLWJegjgUDAlBhVF1DYhAQUyGQyiMfjn8YhKFPLfghKpVJ9A73T3OYo
-        iUTC6ESW5daCrzRKqBM6j2Qy+XcBYUpoHDoTEtH6nwVEsVg0zoUkBK39S0BdvBz5cTM/jOB4O65m+yA4
-        LOKPAgqZhI8F3HucyJ/toPpwAe1gFSHXSEVyW1d+FVD713ODyLEw/NOAtwPYGEB8y42zUf6ppaBRQm1X
-        747RWClfF3xj1mpdIElStZmEuJzphbq3ALCQ7uHwxggv87iY5F9JQGVn16O1+pmeD7dxuzQE2TuA2Fo7
-        HhctCLqslfOJtvVanuth2Bl0NU3Zm+oUT8Z4mdo+dfHRfSe/yXEc9w5H/IPDoglrbAAAAABJRU5ErkJg
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGySURBVDhPlZM7S8NQGIZT0/4AF3HwCg4iOLV0k2q9bP4A
+        xUUUcXJwaNHFTVBx0BA6dXLRQQdFqlCougiCi4Obl4KkpGntLWl6fz1faGrV1uoHDwmH8z75vnMIV60u
+        hp3hbEEfo43xo+zZbDYZCoXKpVIJjcjlchAEYY/tbShxUlhVVWiaViOVSiGRSECWZUMSiUQgiuIPiYXh
+        pA26riOfzxtPIpPJIJlMIhqNGgLWJegjPp/PlBhVE1DYhAQUSKfTUBTlyzgEZarZT0GxWKxtoHea2xwl
+        FosZnUiS1FzwnXoJdULnEY/H/y4gTAmNQ2dCIlr/s4AoFArGuZCEoLV/CaiL1+N93M4PIThuw/VsLwSn
+        RfxVQCGT8ImAB88I9PNdVB4voB2uIuQaLl+OWldaCqj9m7kBZFkY+9OAtx3Y7IeyPYrzMf65qaBeQm1X
+        7k9QX4mNTmy4rZWaIBAIVBpJiKuZHqj+BYCFch4O74zwMo+LSf6NBFQOdj1as5/p5WgHd0uDkLz9iK7Z
+        8LRoQdBlLQcm2tarea6b4WDQ1TTEP9Uhnrp5ido+c/HywQi/xXEc9wFDpoO9i5iysQAAAABJRU5ErkJg
         gg==
 </value>
   </data>

FRM/frmPrestamoPersonal.vb

@@ -23,7 +23,7 @@ Public Class frmPrestamoPersonal
         Formato()
         Calculos(False)
 
-        ' Calculos()
+
         ExisteInversion()
         ValidarExistencia()
         CargarTransladoNuevo()
@@ -729,32 +729,7 @@ Public Class frmPrestamoPersonal
 
         End If
 
-        'Else
-
-        'Dim Index As Integer = dgvAmortizacion.CurrentRow.Index
-        'dgvAmortizacion.Rows(Index).Cells(2).Value = Periodo(Index)
-        'dgvAmortizacion.Rows(Index).Cells(4).Value = PagoCuotaMensual(Index)
-        'If (String.IsNullOrEmpty(dgvAmortizacion.Rows(Index).Cells(10).Value)) Then
-        '   dgvAmortizacion.Rows(Index).Cells(10).Value = SeguroDaños(Index)
-        'End If
-        'If (String.IsNullOrEmpty(dgvAmortizacion.Rows(Index).Cells(11).Value)) Then
-        '   dgvAmortizacion.Rows(Index).Cells(11).Value = SeguroVivienda(Index)
-        'End If
-
-        'dgvAmortizacion.Rows(Index).Cells(12).Value = TotalCuota(Index)
-        'dgvAmortizacion.Rows(Index).Cells(13).Value = TotalCuota(Index)
-        'If (String.IsNullOrEmpty(dgvAmortizacion.Rows(Index).Cells(14).Value)) Then
-        '    dgvAmortizacion.Rows(Index).Cells(14).Value = 0
-        ' End If
 
-        ' dgvAmortizacion.Rows(Index).Cells(3).Value = PagoInicial(Index)
-        ' dgvAmortizacion.Rows(Index).Cells(5).Value = PagoInteresIVA(Index)
-        '  dgvAmortizacion.Rows(Index).Cells(7).Value = PagoIntereses(Index)
-        '   dgvAmortizacion.Rows(Index).Cells(6).Value = IVAIntereses(Index)
-        '    dgvAmortizacion.Rows(Index).Cells(8).Value = Abono(Index)
-        '     dgvAmortizacion.Rows(Index).Cells(9).Value = PrestamoRemanente(Index)
-
-        'IndexIterable = False
 
 
 
@@ -951,7 +926,6 @@ Public Class frmPrestamoPersonal
 
     Private Sub dgvAmortizacion_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAmortizacion.CellContentClick
         CargarDatos()
-        '  Calculos()
     End Sub
 
     Private Sub dgvAmortizacion_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAmortizacion.CellEndEdit
@@ -963,21 +937,20 @@ Public Class frmPrestamoPersonal
         EstadoAccion = "M"
         btnAccion.Text = "Modificar"
 
-        'btnagregar.Text = "Modificar"
+
     End Sub
 
     Private Sub navNuevo_Click(sender As Object, e As EventArgs) Handles navNuevo.Click
         EstadoAccion = "N"
         btnAccion.Text = "Nuevo"
 
-        '  btnagregar.Text = "Nuevo"
+
     End Sub
 
     Private Sub navEliminar_Click(sender As Object, e As EventArgs) Handles navEliminar.Click
         EstadoAccion = "B"
         btnAccion.Text = "Eliminar"
 
-        'btnagregar.Text = "Eliminar"
     End Sub
 
 
@@ -985,7 +958,7 @@ Public Class frmPrestamoPersonal
     Sub CargarColecciones()
         CargarDeudor()
         CargarDetalles()
-        ' CargarAmortizacion()
+
     End Sub
 
 
@@ -1080,8 +1053,6 @@ Public Class frmPrestamoPersonal
         If (EstadoAccion = "B") Then
 
             PrestamoConsulta.Eliminar(codigo)
-            'PrestamoConsulta.EliminarDetalle(codigo)
-            'PrestamoConsulta.EliminarAmortizacion(codigo)
             ValidarExistencia()
 
         End If
@@ -1090,9 +1061,6 @@ Public Class frmPrestamoPersonal
             If (Validar) Then
 
                 PrestamoConsulta.ProcesoDatos(colecciondeuda, colecciondetalle, codigo, diccionarioAmort, "Modificar", "Modificar")
-                'PrestamoConsulta.ModificarDetalle(colecciondetalle, codigo)
-                'PrestamoConsulta.ModificarDeudor(colecciondeuda, codigo)
-                'ModificarAmort(codigo)
 
 
 
@@ -1104,10 +1072,7 @@ Public Class frmPrestamoPersonal
             Dim Validar = ValidarDatos()
             If (Validar) Then
                 PrestamoConsulta.ProcesoDatos(colecciondeuda, colecciondetalle, codigo, diccionarioAmort, "Nuevo", "Nuevo")
-                'PrestamoConsulta.NuevoDetalle(colecciondetalle, codigo)
-                'PrestamoConsulta.NuevoDeudor(colecciondeuda, codigo)
 
-                'NuevoAmort(codigo)
                 ValidarExistencia()
 
             End If
@@ -1142,7 +1107,7 @@ Public Class frmPrestamoPersonal
             navNuevo.Enabled = True
             navModificar.Enabled = False
             navEliminar.Enabled = False
-            'LimpiarCampos()
+
         End If
         EstadoAccion = String.Empty
         btnAccion.Text = "Aceptar"
@@ -1163,18 +1128,7 @@ Public Class frmPrestamoPersonal
 
         Return Existe
     End Function
-    Sub LimpiarCampos()
-        dtpFechaOtorgamiento.Value = Date.Now.Date
-        dtpFechaPago.Value = Date.Now.Date
-        txtTasaInteres.Text = "0.0%"
-        txtAñoPrestamo.Text = 0
-        txtCuotasMensuales.Text = 0
-        txtMontoPrestamo.Text = 0
-        txtCuotaSinSeguro.Text = 0
-        txtSeguro.Text = 0
-        txtCuotaReal.Text = 0
-        dgvAmortizacion.Rows.Clear()
-    End Sub
+
 
     Function ColeccionDeudor()
         Dim coleccion As New Collection
@@ -1274,36 +1228,14 @@ Public Class frmPrestamoPersonal
     End Function
 
 
-    Sub ModificarAmort(ByVal codigo As String)
-
-        PrestamoConsulta.EliminarAmortizacion(codigo)
 
-        NuevoAmort(codigo)
-    End Sub
 
     Private Sub txtTasaInteres_TextChanged(sender As Object, e As EventArgs) Handles txtTasaInteres.TextChanged
         Calculos(False)
     End Sub
 
     Private Sub btnagregar_Click(sender As Object, e As EventArgs)
-        'Dim coleccionAmor = coleccionAmortizacion()
-        'Dim codigo As String = Variables.Codigo
-
-
-        'If (EstadoAccion = "N") Then
-
-
-        '    PrestamoConsulta.NuevaAmortizacion(coleccionAmor, codigo)
-
-        'End If
-        'If (EstadoAccion = "B") Then
-        '    Dim Siguiente = dgvAmortizacion.CurrentRow.Cells(0).Value
-        '    PrestamoConsulta.EliminarAmortizacion(codigo, Siguiente)
-        'End If
-        'If (EstadoAccion = "M") Then
 
-        '    PrestamoConsulta.ModificarAmortizacion(coleccionAmor, codigo)
-        'End If
     End Sub
 
     Private Sub btnAccion2_Click(sender As Object, e As EventArgs)

FRM/frmPrincipalInicio.vb

@@ -0,0 +1,110 @@
+Public Class frmPrincipalInicio
+    Private Sub frmPrincipalInicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Listas()
+    End Sub
+    Sub Fuente()
+
+
+
+
+        lblMontoIngresos.ForeColor = Drawing.Color.FromArgb(237, 51, 50)
+        lblIngresostexto.ForeColor = Drawing.Color.FromArgb(15, 151, 208)
+        lblMontoRendimiento.ForeColor = Drawing.Color.FromArgb(237, 51, 50)
+        lblRendimientotexto.ForeColor = Drawing.Color.FromArgb(15, 151, 208)
+    End Sub
+    Sub RendimientoMonto()
+        Dim general As New DAOGeneral
+        Dim Monto As String = "0.00"
+        Dim Cantidad As Integer = 0
+        Dim Rendimiento As String = "0.00 "
+        Dim dt As DataTable = general.RendimientoMontoGraficas
+        For Each rows As DataRow In dt.Rows
+            If Not String.IsNullOrEmpty(rows("Rendimiento").ToString) Then
+                Rendimiento = rows("Rendimiento").ToString
+            End If
+
+            If Not String.IsNullOrEmpty(rows("Monto").ToString) Then
+                Monto = rows("Monto").ToString
+            End If
+
+            If Not String.IsNullOrEmpty(rows("Cantidad").ToString) Then
+                Cantidad = rows("Cantidad")
+            End If
+        Next
+
+        lblMontoIngresos.Text = "$ " + Monto
+        If Cantidad = 0 Then
+            lblMontoRendimiento.Text = "0 %"
+        Else
+
+            lblMontoRendimiento.Text = FormatNumber((((CDec(Rendimiento) / Cantidad)) * 100), 6).ToString + " %"
+        End If
+    End Sub
+
+    Sub GraficaInstrumentos()
+        Dim general As New DAOGeneral
+        Dim dt As DataTable = general.InstrumentosGrafica
+
+
+
+        charPastel.Series(0).Points.Clear()
+        charPastel.Series(0).IsValueShownAsLabel = False
+        charPastel.Series(0).LabelForeColor = Color.Transparent
+        'charPastel.Series(0).LabelAngle = -45
+
+        'charPastel.Series(0).Font = New Font(charPastel.Series(0).Font.Name, 5)
+
+        'charPastel.ChartAreas(0).Area3DStyle.Enable3D = True
+
+        charPastel.Series(0).XValueMember = "Instrumento"
+        charPastel.Series(0).YValueMembers = "Cantidad"
+
+        charPastel.DataSource = dt
+    End Sub
+
+    Sub GraficaMontoInstrumentos()
+        Dim general As New DAOGeneral
+
+        Dim dt As DataTable = general.MontosInstrumentosGrafica
+        charbarras.Series(0).Points.Clear()
+        'charbarras.ChartAreas(0).Area3DStyle.Enable3D = True
+
+
+        charbarras.Series(0).XValueMember = "Instrumento"
+        charbarras.Series(0).YValueMembers = "Suma"
+        charbarras.DataSource = dt
+    End Sub
+
+
+    Sub GraficaRendimientoInstrumentos()
+        Dim general As New DAOGeneral
+
+        Dim dt As DataTable = general.RendimientosInstrumentoGrafica
+        charlineal.Series(0).Points.Clear()
+
+
+
+        charlineal.Series(0).XValueMember = "Instrumento"
+        charlineal.Series(0).YValueMembers = "Suma"
+        charlineal.DataSource = dt
+    End Sub
+    Sub Listas()
+        Fuente()
+        GraficaInstrumentos()
+        GraficaMontoInstrumentos()
+        GraficaRendimientoInstrumentos()
+        RendimientoMonto()
+    End Sub
+
+    Private Sub charlineal_Click(sender As Object, e As EventArgs) Handles charlineal.Click
+
+    End Sub
+
+    Private Sub pnlRendimientoTotal_Paint(sender As Object, e As PaintEventArgs)
+
+    End Sub
+
+    Private Sub TableLayoutPanel2_Paint(sender As Object, e As PaintEventArgs) Handles TableLayoutPanel2.Paint
+
+    End Sub
+End Class

FRM/frmRegistroAcciones.Designer.vb

@@ -1,202 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmRegistroAcciones
-    Inherits System.Windows.Forms.Form
-
-    'Form reemplaza a Dispose para limpiar la lista de componentes.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Requerido por el Diseñador de Windows Forms
-    Private components As System.ComponentModel.IContainer
-
-    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
-    'Se puede modificar usando el Diseñador de Windows Forms.  
-    'No lo modifique con el editor de código.
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRegistroAcciones))
-        Dim navSiguienteRegistro As System.Windows.Forms.ToolStripButton
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtConta = New System.Windows.Forms.TextBox()
-        Me.txtPosicion = New System.Windows.Forms.TextBox()
-        Me.Navegador = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.navNuevoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navPrimerRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.navRegistroAnterior = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.navUltimoRegistro = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.dgvLETES = New System.Windows.Forms.DataGridView()
-        navSiguienteRegistro = New System.Windows.Forms.ToolStripButton()
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Navegador.SuspendLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'Label1
-        '
-        Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label1.Location = New System.Drawing.Point(119, 8)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 17)
-        Me.Label1.TabIndex = 130
-        Me.Label1.Text = "Posición: "
-        '
-        'Label5
-        '
-        Me.Label5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label5.Location = New System.Drawing.Point(237, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(25, 17)
-        Me.Label5.TabIndex = 129
-        Me.Label5.Text = "de: "
-        '
-        'txtConta
-        '
-        Me.txtConta.Location = New System.Drawing.Point(266, 4)
-        Me.txtConta.Name = "txtConta"
-        Me.txtConta.ReadOnly = True
-        Me.txtConta.Size = New System.Drawing.Size(58, 20)
-        Me.txtConta.TabIndex = 128
-        '
-        'txtPosicion
-        '
-        Me.txtPosicion.Location = New System.Drawing.Point(170, 4)
-        Me.txtPosicion.Name = "txtPosicion"
-        Me.txtPosicion.Size = New System.Drawing.Size(56, 20)
-        Me.txtPosicion.TabIndex = 127
-        '
-        'Navegador
-        '
-        Me.Navegador.AddNewItem = Me.navNuevoRegistro
-        Me.Navegador.CountItem = Nothing
-        Me.Navegador.DeleteItem = Nothing
-        Me.Navegador.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.navPrimerRegistro, Me.navRegistroAnterior, Me.BindingNavigatorSeparator, Me.BindingNavigatorSeparator1, navSiguienteRegistro, Me.navUltimoRegistro, Me.BindingNavigatorSeparator2, Me.navNuevoRegistro})
-        Me.Navegador.Location = New System.Drawing.Point(0, 0)
-        Me.Navegador.MoveFirstItem = Nothing
-        Me.Navegador.MoveLastItem = Nothing
-        Me.Navegador.MoveNextItem = Nothing
-        Me.Navegador.MovePreviousItem = Nothing
-        Me.Navegador.Name = "Navegador"
-        Me.Navegador.PositionItem = Nothing
-        Me.Navegador.Size = New System.Drawing.Size(873, 25)
-        Me.Navegador.TabIndex = 126
-        Me.Navegador.Text = "BindingNavigator1"
-        '
-        'navNuevoRegistro
-        '
-        Me.navNuevoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navNuevoRegistro.Enabled = False
-        Me.navNuevoRegistro.Image = CType(resources.GetObject("navNuevoRegistro.Image"), System.Drawing.Image)
-        Me.navNuevoRegistro.Name = "navNuevoRegistro"
-        Me.navNuevoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navNuevoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navNuevoRegistro.Text = "Agregar nuevo"
-        Me.navNuevoRegistro.Visible = False
-        '
-        'navPrimerRegistro
-        '
-        Me.navPrimerRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navPrimerRegistro.Image = CType(resources.GetObject("navPrimerRegistro.Image"), System.Drawing.Image)
-        Me.navPrimerRegistro.Name = "navPrimerRegistro"
-        Me.navPrimerRegistro.RightToLeftAutoMirrorImage = True
-        Me.navPrimerRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navPrimerRegistro.Text = "Mover primero"
-        '
-        'navRegistroAnterior
-        '
-        Me.navRegistroAnterior.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navRegistroAnterior.Image = CType(resources.GetObject("navRegistroAnterior.Image"), System.Drawing.Image)
-        Me.navRegistroAnterior.Name = "navRegistroAnterior"
-        Me.navRegistroAnterior.RightToLeftAutoMirrorImage = True
-        Me.navRegistroAnterior.Size = New System.Drawing.Size(23, 22)
-        Me.navRegistroAnterior.Text = "Mover anterior"
-        '
-        'BindingNavigatorSeparator
-        '
-        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
-        '
-        'BindingNavigatorSeparator1
-        '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
-        '
-        'navSiguienteRegistro
-        '
-        navSiguienteRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        navSiguienteRegistro.Image = CType(resources.GetObject("navSiguienteRegistro.Image"), System.Drawing.Image)
-        navSiguienteRegistro.Name = "navSiguienteRegistro"
-        navSiguienteRegistro.RightToLeftAutoMirrorImage = True
-        navSiguienteRegistro.Size = New System.Drawing.Size(23, 22)
-        navSiguienteRegistro.Text = "Mover siguiente"
-        '
-        'navUltimoRegistro
-        '
-        Me.navUltimoRegistro.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.navUltimoRegistro.Image = CType(resources.GetObject("navUltimoRegistro.Image"), System.Drawing.Image)
-        Me.navUltimoRegistro.Name = "navUltimoRegistro"
-        Me.navUltimoRegistro.RightToLeftAutoMirrorImage = True
-        Me.navUltimoRegistro.Size = New System.Drawing.Size(23, 22)
-        Me.navUltimoRegistro.Text = "Mover último"
-        '
-        'BindingNavigatorSeparator2
-        '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
-        '
-        'dgvLETES
-        '
-        Me.dgvLETES.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLETES.Location = New System.Drawing.Point(12, 27)
-        Me.dgvLETES.Name = "dgvLETES"
-        Me.dgvLETES.Size = New System.Drawing.Size(859, 425)
-        Me.dgvLETES.TabIndex = 131
-        '
-        'frmRegistroAcciones
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(873, 450)
-        Me.Controls.Add(Me.dgvLETES)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtConta)
-        Me.Controls.Add(Me.txtPosicion)
-        Me.Controls.Add(Me.Navegador)
-        Me.Name = "frmRegistroAcciones"
-        Me.Text = "frmRegistroAcciones"
-        CType(Me.Navegador, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Navegador.ResumeLayout(False)
-        Me.Navegador.PerformLayout()
-        CType(Me.dgvLETES, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtConta As TextBox
-    Friend WithEvents txtPosicion As TextBox
-    Friend WithEvents Navegador As BindingNavigator
-    Friend WithEvents navNuevoRegistro As ToolStripButton
-    Friend WithEvents navPrimerRegistro As ToolStripButton
-    Friend WithEvents navRegistroAnterior As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
-    Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
-    Friend WithEvents navUltimoRegistro As ToolStripButton
-    Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
-    Friend WithEvents dgvLETES As DataGridView
-End Class

FRM/frmRegistroAcciones.resx

@@ -1,179 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="Navegador.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="navNuevoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
-        pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
-        Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
-        /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
-        zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
-        IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
-        rkJggg==
-</value>
-  </data>
-  <data name="navPrimerRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
-        wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
-        v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
-        UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
-        Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
-        lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navRegistroAnterior.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
-        5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
-        Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
-        08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <metadata name="navSiguienteRegistro.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>False</value>
-  </metadata>
-  <data name="navSiguienteRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
-        n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
-        N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
-        oAc0QjgAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="navUltimoRegistro.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
-        h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
-        twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
-        kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
-        WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
-        8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
-</value>
-  </data>
-</root>