Reg RSCO, Rep RSCO

App_Code/ClsInventarios.vb

@@ -5903,6 +5903,164 @@ Public Class ClsInventarios
     End Function
 #End Region
 
+
+
+#Region "VIGENCIA COMPUESTOS"
+
+
+    Public Function AddCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO
+            .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia
+            .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then
+                Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then
+                Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la vigencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateCompuestosVigencia(CveCompuestoVigencia As Integer, CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO
+            .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia
+            .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then
+                Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then
+                Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al actualizar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function RemoveCompuestosVigencia(CveCompuestoVigencia As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar el RSCO.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar  el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function RepCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaRep")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
+
 #Region " IDisposable Support "
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)

App_Code/ClsPaginas.vb

@@ -5603,6 +5603,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1)
 
             PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326)
+            PaginaDict.Add("/Inventarios/RegRSCO.aspx".ToUpper(), 1327)
+            PaginaDict.Add("/Inventarios/RepRSCO.aspx".ToUpper(), 1328)
 
 
             PaginaDict.Add("/testApi.aspx".ToUpper(), -1)

Inventarios/RegRSCO.aspx

@@ -0,0 +1,187 @@
+<%@ Page Title="Reg RSCO" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegRSCO.aspx.vb" Inherits="Inventarios_RegRSCO" EnableEventValidation="false" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+
+    <style>
+        #DivAgregarUnidad > div.modal-dialog > div label input {
+            padding: 0px !important;
+        }
+    </style>
+
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reg RSCO
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton runat="server" ID="LnkAgregarRSCO" OnClick="LnkAgregarRSCO_Click" data-toggle="tooltip" data-placement="left" title="Agregar RSCO" Text="<i class='fa fa-plus'></i>Agregar RSCO"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 
+
+                DataKeyNames="CveCompuestoVigencia,CveCompuesto,CveProveedor,RegistroRSCO,FechaVigencia,VigenciaIndeterminada,CveUsuario, NombreComercial"
+                EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Compuesto" DataField="Compuesto" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-HorizontalAlign="Left" />
+
+                    <asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigencia" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    <asp:BoundField HeaderText="Fecha Indeterminada" DataField="VigenciaIndeterminadaStr" ItemStyle-HorizontalAlign="Center" />                   
+                    
+                    
+                    <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
+                    <asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    
+                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    <div id="DivAgregarRSCO" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog ">
+
+            <asp:UpdatePanel runat="server" class="modal-content rowpadding" tabindex="-1" ID="UpModalRSCO" UpdateMode="Conditional">
+                <ContentTemplate>
+
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Literal runat="server" ID="LtlTituloModal" Text="Agregar Unidad"></asp:Literal></h4>
+                    </div>
+
+                    <div class="modal-body">
+
+                        <div class="row">
+                            <div class="col-md-12" runat="server" id="DVTiposRemolque" >
+                                <div class="form-group form-md-line-input input-iconright"  >
+                                    <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssClass="form-control" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>                                
+                                    <label for="<%= DdlProveedores.ClientID.ToString()%>" style="margin-top:-6px" >Proveedor:</label>                                    
+                                    <i></i>
+                                </div>
+
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-12" runat="server">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlCompuesto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCompuesto" DataTextField="Compuesto" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlCompuesto.ClientID.ToString()%>">Compuesto:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RfvDdlCompuesto" ControlToValidate="DdlCompuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Compuesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+
+                            </div>
+                        </div>
+
+                        <div class="row">
+                            <div class="col-md-12">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRegistroRSCO" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                    <label for="<%= TxtRegistroRSCO.ClientID.ToString()%>">Registro RSCO:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RfvTxtRegistroRSCO" ControlToValidate="TxtRegistroRSCO" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro RSCO''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+
+
+                            </div>
+                        </div>
+
+ 
+                                <div class="form-group form-md-line-input input-iconright" style="width: 160px!important"  runat="server"  id="DvFechaVijencia">
+
+                                    <asp:TextBox ID="TxtFechaVigencia" CssClass="form-control" MaxLength="50" runat="server" Width="130px"></asp:TextBox>
+                                    <span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
+                                        <asp:LinkButton ID="LnkTxtFechaVigencia" class="btn default" Style="margin-top: 15px; margin-left: 6px" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:CalendarExtender runat="server" ID="CETxtFechaVigencia" TargetControlID="TxtFechaVigencia" PopupButtonID="LnkTxtFechaVigencia" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CvTxtFechaVigencia" runat="server" ControlToValidate="TxtFechaVigencia" Display="None"
+                                        ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
+                                        Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRSCO"></asp:CompareValidator>
+
+                                    <asp:RequiredFieldValidator ID="RfvTxtFechaVigencia" runat="server"  ControlToValidate="TxtFechaVigencia" Display="None"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Cierre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
+
+                                    <ajax:ValidatorCalloutExtender ID="CvcTxtFechaVigencia" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaVigencia" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="VCETxtFechaVigencia" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVigencia" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                    <label for="<%= TxtFechaVigencia.ClientID.ToString() %>">Fecha de Vigencia:</label>
+                                    
+
+                                </div>
+
+                          
+
+
+                            <div class="row">
+                            
+                            <div class="col-md-6">
+
+                                <div class="form-group form-md-line-input input-iconright"  runat="server">
+                                        <asp:CheckBox ID="ChkFechaIndeterminada" runat="server" CssClass="form-control"  OnCheckedChanged="ChkFechaIndeterminada_CheckedChanged" AutoPostBack="true" />
+                                        <label for="<%= ChkFechaIndeterminada.ClientID.ToString()%>">Fecha Indeterminada:</label>
+                                  </div>
+                              
+                            </div>
+                        </div>
+
+
+                        
+                            <div class="row" runat="server" id="DivModalContinuarAgregando">
+                            
+                            <div class="col-md-12" style="text-align:right!important">                                                                        
+                                <asp:CheckBox ID="ChkModalContinuarAgregando" runat="server"    Text="Continuar Agregando" TextAlign="Left" />                                                                       
+                              
+                            </div>
+                        </div>
+
+
+
+                    </div>                    
+
+                    <div class="modal-footer">
+
+                        <asp:Button ID="BtnAgregarRSCO" Text="Agregar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" OnClick="BtnAgregarRSCO_Click" ValidationGroup="GrpRSCO" />
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+
+                    </div>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+
+        </div>
+    </div>
+
+
+
+
+
+
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Inventarios/RegRSCO.aspx.vb

@@ -0,0 +1,232 @@
+Imports Extensiones
+Partial Class Inventarios_RegRSCO
+    Inherits ClsPaginas
+
+    Private Property CveCompuestoVigencia As Integer
+        Get
+
+            If ViewState("CveCompuestoVigencia") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveCompuestoVigencia").ToString().ToEntero()
+            End If
+        End Get
+        Set(ByVal value As Integer)
+            ViewState("CveCompuestoVigencia") = value
+        End Set
+    End Property
+
+    Private Sub Inventarios_RegRSCO_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+
+            CargaDatos()
+        End If
+    End Sub
+
+
+
+
+
+
+    Public Sub CargaDatos()
+
+
+        Dim ObjInventarios As New ClsInventarios
+
+        If ObjInventarios.GetCompuestosVigencia(-1, -1, MinFecha, MaxFecha, 1, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjInventarios.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjInventarios.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+
+    End Sub
+
+    Private Sub CargaCombos()
+
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Seleccione Uno"
+        DdlProveedores.SelectedValue = "-1"
+
+
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
+            DdlCompuesto.DataSource = ObjPS.DtResultados
+        Else
+            DdlCompuesto.DataSource = Nothing
+        End If
+
+        ObjPS.Dispose()
+        DdlCompuesto.DataBind()
+        DdlCompuesto.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
+
+
+        UpModalRSCO.Update()
+
+    End Sub
+
+    Private Sub LimpiarModalDivAgregarRSCO()
+        CveCompuestoVigencia = -1
+
+        BtnAgregarRSCO.Text = "Agregar"
+
+        DdlProveedores.txtValue.Value = "-1"
+        DdlProveedores.txtText.Value = ""
+
+        DdlCompuesto.SelectedValueExist(-1)
+
+        TxtFechaVigencia.Text = ""
+        TxtRegistroRSCO.Text = ""
+        ChkFechaIndeterminada.Checked = False
+
+        LtlTituloModal.Text = "Agregar RSCO"
+
+        DivModalContinuarAgregando.Visible = True
+        ChkModalContinuarAgregando.Checked = True
+
+        UpModalRSCO.Update()
+    End Sub
+
+    Protected Sub LnkAgregarRSCO_Click(sender As Object, e As EventArgs)
+
+        LimpiarModalDivAgregarRSCO()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO"))
+
+    End Sub
+
+    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+
+        BtnAgregarRSCO.Text = "Actualizar"
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+
+        CveCompuestoVigencia = GvRow.DataKey("CveCompuestoVigencia").ToEntero()
+
+
+
+        DdlProveedores.txtValue.Value = GvRow.DataKey("CveProveedor")
+        DdlProveedores.txtText.Value = GvRow.DataKey("NombreComercial")
+
+
+        DdlCompuesto.SelectedValueExist(GvRow.DataKey("CveCompuesto"))
+        TxtFechaVigencia.Text = GvRow.DataKey("FechaVigencia").ToDate.ToString("dd/MM/yyyy")
+        TxtRegistroRSCO.Text = GvRow.DataKey("RegistroRSCO")
+        ChkFechaIndeterminada.Checked = Boolean.Parse(GvRow.DataKey("VigenciaIndeterminada"))
+
+        LtlTituloModal.Text = "Actualizar RSCO"
+
+        DivModalContinuarAgregando.Visible = False
+        ChkModalContinuarAgregando.Checked = False
+
+
+        If ChkFechaIndeterminada.Checked Then
+            DvFechaVijencia.Visible = False
+            TxtFechaVigencia.Text = "01/01/1900"
+        Else
+            DvFechaVijencia.Visible = True
+        End If
+
+
+
+
+        UpModalRSCO.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO"))
+    End Sub
+
+    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
+
+        Dim ErrorAlElimiar As Boolean = False
+
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+
+        Dim CveCompuestoVigenciaEliminar = GvRow.DataKey("CveCompuestoVigencia").ToEntero()
+
+        Using ObjInventarios As New ClsInventarios
+
+            If (ObjInventarios.RemoveCompuestosVigencia(CveCompuestoVigenciaEliminar, UsuarioActual.CveEmpresa)) Then
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO"))
+                Alert("RSCO Eliminado Correctamente.")
+            Else
+                ErrorAlElimiar = True
+            End If
+        End Using
+
+
+        If Not ErrorAlElimiar Then
+            GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
+            CargaDatos()
+        End If
+
+    End Sub
+
+    Protected Sub BtnAgregarRSCO_Click(sender As Object, e As EventArgs)
+
+        Dim ErrorPrceso As Boolean = False
+
+
+        If DdlProveedores.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe de seleccionar un proveedor.")
+            Exit Sub
+        End If
+
+        Using ObjInventarios As New ClsInventarios
+
+            If CveCompuestoVigencia <= 0 Then
+                If ObjInventarios.AddCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                    Alert("RSCO agregado correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
+            Else
+                If ObjInventarios.UpdateCompuestosVigencia(CveCompuestoVigencia, DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                    Alert("RSCO actualizado correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
+            End If
+        End Using
+
+
+        If Not ErrorPrceso Then
+            GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
+            CargaDatos()
+
+            If Not ChkModalContinuarAgregando.Checked Then
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO"))
+            Else
+                LimpiarModalDivAgregarRSCO()
+            End If
+
+            UpDatos.Update()
+        End If
+
+
+
+    End Sub
+
+
+
+    Protected Sub ChkFechaIndeterminada_CheckedChanged(sender As Object, e As EventArgs)
+
+        If ChkFechaIndeterminada.Checked Then
+            DvFechaVijencia.Visible = False
+            TxtFechaVigencia.Text = "01/01/1900"
+        Else
+            DvFechaVijencia.Visible = True
+            TxtFechaVigencia.Text = ""
+        End If
+
+        UpModalRSCO.Update()
+
+    End Sub
+End Class

Inventarios/RepRSCO.aspx

@@ -0,0 +1,154 @@
+<%@ Page Title="Rep RSCO" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRSCO.aspx.vb" Inherits="Inventarios_RepRSCO" EnableEventValidation="false" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+
+    <style>
+        #DivAgregarUnidad > div.modal-dialog > div label input {
+            padding: 0px !important;
+        }
+    </style>
+
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Rep RSCO
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton runat="server" ID="LnkDescargaExcel" Visible="false" OnClick="LnkDescargaExcel_Click" data-toggle="tooltip" data-placement="left" title="Excel" Text="<i class='fa fa-file-excel-o'></i>Excel"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkDescargaExcel" />
+        </Triggers>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+
+
+
+      <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                            <div class="col-md-1 ">Proveedor:</div>                            
+                            <div class="col-md-2 ">                                
+                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>                                
+                            </div>
+                            <div class="col-md-1">Compuesto: </div>
+                            <div class="col-md-2">
+                                    <asp:DropDownList ID="DdlCompuesto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCompuesto" DataTextField="Compuesto" Style="padding: 0px">
+                                    </asp:DropDownList>
+                            </div>
+
+                            <div class="col-md-1 truncate">
+                                Fecha Inicio:                           
+                            </div>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate">
+                                Fecha Fin: 
+                           
+                            </div>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+
+
+                          
+
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">                
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <br />
+
+
+
+
+
+
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 
+
+                DataKeyNames="CveCompuestoVigencia,CveCompuesto,CveProveedor,RegistroRSCO,FechaVigencia,VigenciaIndeterminada,CveUsuario"
+                EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Compuesto" DataField="Compuesto" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-HorizontalAlign="Left" />
+
+                    <asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigencia" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    <asp:BoundField HeaderText="Fecha Indeterminada" DataField="VigenciaIndeterminadaStr" ItemStyle-HorizontalAlign="Center" />                   
+                    
+                    
+                    <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
+                    <asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    
+                   <%-- <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>--%>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+ 
+
+
+
+
+
+
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Inventarios/RepRSCO.aspx.vb

@@ -0,0 +1,150 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Inventarios_RepRSCO
+    Inherits ClsPaginas
+
+    Private Property DTDatos As DataTable
+        Get
+
+            If ViewState("DTDatos") Is Nothing Then
+
+                ViewState("DTDatos") = New DataTable
+            End If
+
+            Return DirectCast(ViewState("DTDatos"), DataTable)
+
+        End Get
+        Set(ByVal value As DataTable)
+            ViewState("DTDatos") = value
+        End Set
+    End Property
+
+    Private Sub Inventarios_RepRSCO_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+
+        End If
+    End Sub
+
+
+    Public Sub CargaDatos()
+
+
+        Dim ObjInventarios As New ClsInventarios
+
+        LnkDescargaExcel.Visible = False
+
+        If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then
+
+            DTDatos = ObjInventarios.DtResultados
+            GvDatos.DataSource = DTDatos
+            If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then
+                LnkDescargaExcel.Visible = True
+                UpAcciones.Update()
+            End If
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjInventarios.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+
+    End Sub
+
+    Private Sub CargaCombos()
+
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
+
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
+            DdlCompuesto.DataSource = ObjPS.DtResultados
+        Else
+            DdlCompuesto.DataSource = Nothing
+        End If
+
+        ObjPS.Dispose()
+        DdlCompuesto.DataBind()
+        DdlCompuesto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+        txtFechaI.Text = txtFechaF.Text.ToDate.AddMonths(-2).ToString("dd/MM/yyyy")
+
+
+
+    End Sub
+
+
+
+
+
+
+    Protected Sub LnkDescargaExcel_Click(sender As Object, e As EventArgs)
+        ImprimirReporte("EXCEL")
+    End Sub
+
+
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+
+        Dim ObjTareas As New ClsOIEventos
+        Dim params As New List(Of ReportParameter)
+
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim FechaI, FechaF As String
+        FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
+        FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
+
+
+        params.Add(New ReportParameter("Filtros", FiltrosUsados()))
+        'params.Add(New ReportParameter("GPO", DdlGrupo.SelectedItem.Text))
+        params.Add(New ReportParameter("Titulo", "Reporte RSCO"))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("FechaInicio", FechaI))
+        params.Add(New ReportParameter("FechaFin", FechaF))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+
+        ImprimirPDF("Empresas\Grales\Formatos\RepRSCO.rdlc", DTDatos, params, "RepRSCO" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
+
+    End Sub
+
+    Private Function FiltrosUsados() As String
+        Dim Filtros As String = ""
+
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+            Filtros = $"<b>Proveedor:</b> {DdlProveedores.txtText.Value}, "
+        End If
+
+        If DdlCompuesto.SelectedValue.ToEntero > 0 Then
+            Filtros = Filtros & $"<b>Compuesto:</b> {DdlProveedores.txtText.Value}, "
+        End If
+
+
+        Filtros = Filtros & $"<b>Fecha Inicio:</b> {txtFechaI.Text}, <b>Fecha Fin:</b> {txtFechaF.Text}"
+
+        Return Filtros
+
+    End Function
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+End Class