Inversiones/DAO/LETESDAO.vb

Imports System.Data.SqlClient
Public Class LETESDAO


    Dim Operaciones As New Operaciones



    Public Function ActualizarLETE(ByVal coleccion As Collection, ByVal Instrumento As String)
        Dim objCon As New Conexion
        Dim retorno As Integer
        Dim sql As String = String.Empty
        Dim cmd As SqlCommand
        Dim cn As SqlConnection = objCon.Conectar
        If cn.State = ConnectionState.Closed Then
            cn.Open()
        End If
        If (Instrumento = "LETE") Then
            sql = "UPDATE [dbo].[LET0] SET 
            
           [ValNom]=@ValNom
           ,[FOper]=@FOper
           ,[FLiq]=@FLiq
           ,[RendBruto]=@RendBruto
           ,[Plazo]=@Plazo
           ,[ComisionCasa]=@ComisionCasa
           ,[ComisionBolsa]=@ComisionBolsa
           ,[CasasCorredoras]=@CasasCorredoras
           ,[Periodic]=@Periodic
           ,[AnioBase]=@AnioBase
          
            ,[ValTrans] = @ValTrans 
            ,[Precio] = @Precio
            ,[TotPagar]=  @TotPagar
            ,[RendNeto] = @RendNeto 
            ,[IngrBruto] =@IngrBruto
            ,[IngrNeto] =@IngrNeto
            ,[ComisionCasaValor] =@ComisionCasaValor
            ,[ComisionBolsaValor] =@ComisionBolsaValor
            ,[FUlt] =@FUlt
            ,[FRed] =@FRed
            ,[FVenc] =@FVenc

where [CodInv]=   @CodInv

            
"
        ElseIf (Instrumento = "PBUR") Then

            sql = "UPDATE [dbo].[PBUR] SET
       
           [ValNom]=@ValNom
           ,[FOper]=@FOper
           ,[FLiq]=@FLiq
           ,[RendBruto]=@RendBruto
           ,[Plazo]=@Plazo
           ,[ComisionCasa]=@ComisionCasa
           ,[ComisionBolsa]=@ComisionBolsa
           ,[CasasCorredoras]=@CasasCorredoras
           ,[Periodic]=@Periodic
           ,[AnioBase]=@AnioBase
           ,[ValorPar]= @ValorPar
           ,[FechaUltima]=@FechaUltima
           
            ,[ValTrans] = @ValTrans 
            ,[Precio] = @Precio
            ,[TotPagar]=  @TotPagar
            ,[RendNeto] = @RendNeto 
            ,[IngrBruto] =@IngrBruto
            ,[IngrNeto] =@IngrNeto
            ,[ComisionCasaValor] =@ComisionCasaValor
            ,[ComisionBolsaValor] =@ComisionBolsaValor
            ,[FUlt] =@FUlt
            ,[FRed] =@FRed
            ,[FVenc] =@FVenc
            ,[IntAcumulado]=@IntAcumulado
where [CodInv]=   @CodInv
            
"

        ElseIf (Instrumento = "VCN") Then

            sql = "UPDATE [dbo].[VCN] SET
           [ValNom]=@ValNom
           ,[FOper]=@FOper
           ,[FLiq]=@FLiq
           ,[RendBruto]=@RendBruto
           ,[Plazo]=@Plazo
           ,[ComisionCasa]=@ComisionCasa
           ,[ComisionBolsa]=@ComisionBolsa
           ,[CasasCorredoras]=@CasasCorredoras
           ,[Periodic]=@Periodic
           ,[AnioBase]=@AnioBase
           ,[ValorPar]= @ValorPar
           ,[FechaUltima]=@FechaUltima
           ,[OtrosCostos]=@OtrosCostos

            ,[ValTrans] = @ValTrans 
            ,[Precio] = @Precio
            ,[TotPagar]=  @TotPagar
            ,[RendNeto] = @RendNeto 
            ,[IngrBruto] =@IngrBruto
            ,[IngrNeto] =@IngrNeto
            ,[ComisionCasaValor] =@ComisionCasaValor
            ,[ComisionBolsaValor] =@ComisionBolsaValor
            ,[FUlt] =@FUlt
            ,[FRed] =@FRed
            ,[FVenc] =@FVenc
            ,[IntAcumulado]=@IntAcumulado
            where [CodInv]=   @CodInv
"



        ElseIf (Instrumento = "CETE") Then

            sql = "UPDATE [dbo].[CET0] SET
           [ValNom]=@ValNom
           ,[FOper]= @FOper
           ,[FLiq]=@FLiq
           ,[RendBruto]= @RendBruto
           ,[Plazo]=@Plazo
           ,[ComisionCasa]=  @ComisionCasa
           ,[ComisionBolsa]= @ComisionBolsa
           ,[CasasCorredoras]=     @CasasCorredoras
           ,[Periodic]=   @Periodic
           ,[AnioBase]=@AnioBase
           ,[FechaUltima]=@FechaUltima

            ,[ValTrans] = @ValTrans 
            ,[Precio] = @Precio
            ,[TotPagar]=  @TotPagar
            ,[RendNeto] = @RendNeto 
            ,[IngrBruto] =@IngrBruto
            ,[IngrNeto] =@IngrNeto
            ,[ComisionCasaValor] =@ComisionCasaValor
            ,[ComisionBolsaValor] =@ComisionBolsaValor
            ,[FUlt] =@FUlt
            ,[FRed] =@FRed
            ,[FVenc] =@FVenc
            ,[IntAcumulado]=@IntAcumulado
            where [CodInv]=   @CodInv
           
"
        End If




        cmd = New SqlCommand
            cmd.CommandText = sql

            With cmd.Parameters
            .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 = 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 = 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 = 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


            cmd.Connection = cn

            retorno = cmd.ExecuteNonQuery
            MsgBox("Registro Modificado con éxito")

        cn.Close()
        Return retorno
    End Function

    Public Function NuevoIngreso(ByVal coleccion As Collection, ByVal Instrumento 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 (Instrumento = "LETE") Then
            sql = "INSERT INTO [dbo].[LET0](
            [CodInv]
           ,[ValNom]
           ,[FOper]
           ,[FLiq]
           ,[RendBruto]
           ,[Plazo]
           ,[ComisionCasa]
           ,[ComisionBolsa]
           ,[CasasCorredoras]
           ,[Periodic]
           ,[AnioBase]
            ,[ValTrans] 
            ,[Precio]
            ,[TotPagar] 
            ,[RendNeto] 
            ,[IngrBruto] 
            ,[IngrNeto] 
            ,[ComisionCasaValor] 
            ,[ComisionBolsaValor] 
            ,[FUlt] 
            ,[FRed] 
            ,[FVenc]         

)
           VALUES(
            @CodInv 
           ,@ValNom
           ,@FOper
           ,@FLiq
           ,@RendBruto
           ,@Plazo
           ,@ComisionCasa
           ,@ComisionBolsa
           ,@CasasCorredoras
           ,@Periodic 
           ,@AnioBase 

            ,@ValTrans 
            ,@Precio 
            ,@TotPagar 
            ,@RendNeto 
            ,@IngrBruto 
            ,@IngrNeto 
            ,@ComisionCasaValor 
            ,@ComisionBolsaValor 
            ,@FUlt 
            ,@FRed 
            ,@FVenc    

)
            
"
        ElseIf (Instrumento = "PBUR") Then

            sql = "INSERT INTO [dbo].[PBUR](
            [CodInv]
           ,[ValNom]
           ,[FOper]
           ,[FLiq]
           ,[RendBruto]
           ,[Plazo]
           ,[ComisionCasa]
           ,[ComisionBolsa]
           ,[CasasCorredoras]
           ,[Periodic]
           ,[AnioBase]
           ,[ValorPar]
           ,[FechaUltima]

,[ValTrans] 
            ,[Precio]
            ,[TotPagar] 
            ,[RendNeto] 
            ,[IngrBruto] 
            ,[IngrNeto] 
            ,[ComisionCasaValor] 
            ,[ComisionBolsaValor] 
            ,[FUlt] 
            ,[FRed] 
            ,[FVenc]  
            ,[IntAcumulado]

)
           VALUES(
            @CodInv 
           ,@ValNom
           ,@FOper
           ,@FLiq
           ,@RendBruto
           ,@Plazo
           ,@ComisionCasa
           ,@ComisionBolsa
           ,@CasasCorredoras
           ,@Periodic 
           ,@AnioBase
           ,@ValorPar
           ,@FechaUltima
            ,@ValTrans 
            ,@Precio 
            ,@TotPagar 
            ,@RendNeto 
            ,@IngrBruto 
            ,@IngrNeto 
            ,@ComisionCasaValor 
            ,@ComisionBolsaValor 
            ,@FUlt 
            ,@FRed 
            ,@FVenc    
            ,@IntAcumulado
)
            
"

        ElseIf (Instrumento = "VCN") Then

            sql = "INSERT INTO [dbo].[VCN](
            [CodInv]
           ,[ValNom]
           ,[FOper]
           ,[FLiq]
           ,[RendBruto]
           ,[Plazo]
           ,[ComisionCasa]
           ,[ComisionBolsa]
           ,[CasasCorredoras]
           ,[Periodic]
           ,[AnioBase]
           ,[ValorPar]
           ,[FechaUltima]
           ,[OtrosCostos]

,[ValTrans] 
            ,[Precio]
            ,[TotPagar] 
            ,[RendNeto] 
            ,[IngrBruto] 
            ,[IngrNeto] 
            ,[ComisionCasaValor] 
            ,[ComisionBolsaValor] 
            ,[FUlt] 
            ,[FRed] 
            ,[FVenc]    
            ,[IntAcumulado]

)
           VALUES(
            @CodInv 
           ,@ValNom
           ,@FOper
           ,@FLiq
           ,@RendBruto
           ,@Plazo
           ,@ComisionCasa
           ,@ComisionBolsa
           ,@CasasCorredoras
           ,@Periodic 
           ,@AnioBase 
           ,@ValorPar
           ,@FechaUltima
           ,@OtrosCostos
            ,@ValTrans 
            ,@Precio 
            ,@TotPagar 
            ,@RendNeto 
            ,@IngrBruto 
            ,@IngrNeto 
            ,@ComisionCasaValor 
            ,@ComisionBolsaValor 
            ,@FUlt 
            ,@FRed 
            ,@FVenc  
            ,@IntAcumulado
)
            
"



        ElseIf (Instrumento = "CETE") Then

            sql = "INSERT INTO [dbo].[CET0](
            [CodInv]
           ,[ValNom]
           ,[FOper]
           ,[FLiq]
           ,[RendBruto]
           ,[Plazo]
           ,[ComisionCasa]
           ,[ComisionBolsa]
           ,[CasasCorredoras]
           ,[Periodic]
           ,[AnioBase]
           ,[FechaUltima]

,[ValTrans] 
            ,[Precio]
            ,[TotPagar] 
            ,[RendNeto] 
            ,[IngrBruto] 
            ,[IngrNeto] 
            ,[ComisionCasaValor] 
            ,[ComisionBolsaValor] 
            ,[FUlt] 
            ,[FRed] 
            ,[FVenc]    
            ,[IntAcumulado]

)
           VALUES(
            @CodInv 
           ,@ValNom
           ,@FOper
           ,@FLiq
           ,@RendBruto
           ,@Plazo
           ,@ComisionCasa
           ,@ComisionBolsa
           ,@CasasCorredoras
           ,@Periodic 
           ,@AnioBase 
           ,@FechaUltima
            ,@ValTrans 
            ,@Precio 
            ,@TotPagar 
            ,@RendNeto 
            ,@IngrBruto 
            ,@IngrNeto 
            ,@ComisionCasaValor 
            ,@ComisionBolsaValor 
            ,@FUlt 
            ,@FRed 
            ,@FVenc
            ,@IntAcumulado
)
            
"
        End If

        Try


            cmd = New SqlCommand
            cmd.CommandText = sql

            With cmd.Parameters
                .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 = 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 = 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 = 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


            cmd.Connection = cn

            retorno = cmd.ExecuteNonQuery
            MsgBox("Registro creado con éxito")
        Catch ex As Exception
            MsgBox("Error al crear el registro")
        End Try
        cn.Close()
        Return retorno
    End Function

    Public Sub Eliminar(ByVal Eliminar As String, ByVal Instrumento 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
        If (Instrumento = "LETE") Then
            sql = "DELETE FROM [dbo].[LET0]
      WHERE [CodInv]=@CodInv"
        ElseIf (Instrumento = "PBUR") Then
            sql = "DELETE FROM [dbo].[PBUR]
      WHERE [CodInv]=@CodInv"

        ElseIf (Instrumento = "VCN") Then
            sql = "DELETE FROM [dbo].[VCN]
      WHERE [CodInv]=@CodInv"

        ElseIf (Instrumento = "CETE") Then
            sql = "DELETE FROM [dbo].[CET0]
      WHERE [CodInv]=@CodInv"
        End If


        cn = objCon.Conectar
        Try




            cmd = New SqlCommand
            cmd.CommandText = sql
            cmd.Parameters.Add("@CodInv", SqlDbType.VarChar).Value = Eliminar
            cmd.Connection = cn

            res = cmd.ExecuteNonQuery
            MsgBox("Registro eliminado con éxito")
        Catch ex As Exception
            MsgBox("Error al eliminar el registro")
        End Try
        cn.Close()
    End Sub






    Public Function Cargar(ByVal CodInversion As String, ByVal Instrumento As String)
        Dim objCon As New Conexion
        Dim sql As String
        Dim cmd As SqlCommand
        Dim Coleccion As New Collection
        Dim cn As SqlConnection = objCon.Conectar
        If cn.State = ConnectionState.Closed Then
            cn.Open()
        End If
        If (Instrumento = "LETE") Then
            sql = "SELECT * FROM [dbo].[LET0] WHERE CodInv=@CodInversion"
        ElseIf (Instrumento = "PBUR") Then
            sql = "SELECT * FROM [dbo].[PBUR] WHERE CodInv=@CodInversion"
        ElseIf (Instrumento = "VCN") Then
            sql = "SELECT * FROM [dbo].[VCN] WHERE CodInv=@CodInversion"
        ElseIf (Instrumento = "CETE") Then
            sql = "SELECT * FROM [dbo].[CET0] WHERE CodInv=@CodInversion"
        End If
        cmd = New SqlCommand


        cmd.CommandText = sql
        cmd.Parameters.Add("@CodInversion", SqlDbType.VarChar).Value = CodInversion
        cmd.Connection = cn


        Dim Datos = cmd.ExecuteReader
        If Datos.HasRows Then
            'SE ENCONTRO EL REGISTRO

            If Datos.Read Then


                Coleccion.Add(Datos.Item("ValNom"))
                Coleccion.Add(Datos.Item("FOper"))
                Coleccion.Add(Datos.Item("FLiq"))
                Coleccion.Add(Datos.Item("Plazo"))
                Coleccion.Add(Datos.Item("RendBruto"))
                Coleccion.Add(Datos.Item("CodCasa"))
                Coleccion.Add(Datos.Item("Periodic"))
                Coleccion.Add(Datos.Item("AnioBase"))
                Coleccion.Add(Datos.Item("ComisionCasa"))
                Coleccion.Add(Datos.Item("ComisionBolsa"))
                Coleccion.Add(Datos.Item("CodInv"))
                Coleccion.Add(Datos.Item("CasasCorredoras"))
                If (Instrumento = "PBUR" Or Instrumento = "VCN") Then
                    Coleccion.Add(Datos.Item("ValorPar"))
                    Coleccion.Add(Datos.Item("FechaUltima"))
                ElseIf Instrumento = "CETE" Then

                    Coleccion.Add(Datos.Item("FechaUltima"))
                End If

                If Instrumento = "VCN" Then
                    Coleccion.Add(Datos.Item("OtrosCostos"))
                End If
                cn.Close()
                Return Coleccion
            End If
        End If
        Coleccion.Add(False)
        cn.Close()
        Return Coleccion
    End Function
End Class