Ajustes RSCO, pasa a prudctos servicios, ajustes en reporte apuntando a productos servcios, se quita modulo RegRSCO

App_Code/ClsInventarios.vb

@@ -5957,128 +5957,6 @@ Public Class ClsInventarios
 #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

App_Code/ClsPaginas.vb

@@ -5603,7 +5603,7 @@ 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)
 
 

Compras/Importaciones.aspx

@@ -11,7 +11,7 @@
 
             <li>
                 <asp:LinkButton ID="LnkCerrarImportacion" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  Cerrar Importación" OnClick="LnkCerrarImportacion_Click"
-                    data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Flete?" data-btn-ok-label="si" Visible="false" />
+                    data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Importación?" data-btn-ok-label="si" Visible="false" />
             </li>
         </ContentTemplate>        
     </asp:UpdatePanel>

Inventarios/Fletes.aspx

@@ -15,8 +15,8 @@
             <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
         </li>
         <li>
-            <asp:LinkButton ID="LnkCerrarFlete" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  Cerrar Flete" OnClick="LnkCerrarFlete_Click"
+            <asp:LinkButton ID="LnkCerrarFlete" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  Cerrar Costo Indirecto" OnClick="LnkCerrarFlete_Click"
-                data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Flete?" data-btn-ok-label="si" Visible="false" />
+                data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Costo Indirecto?" data-btn-ok-label="si" Visible="false" />
         </li>
     </ContentTemplate>
         <Triggers>

Inventarios/Fletes.aspx.vb

@@ -449,7 +449,7 @@ Partial Class Compras_Fletes
         Dim ObjInv As New ClsInventarios
 
         If ObjInv.UpdateFleteCierre(CveFlete, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
-            Alert("Flete cerrado correctamente.", TipoMensaje.MsgInformacion, $" location.href =  ""./Fletes.aspx?CveFlete={CveFlete}"" ")
+            Alert("Costo Indirecto cerrado correctamente.", TipoMensaje.MsgInformacion, $" location.href =  ""./Fletes.aspx?CveFlete={CveFlete}"" ")
         End If
 
         ObjInv.Dispose()

Inventarios/RegRSCO.aspx

@@ -1,187 +0,0 @@
-<%@ 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

@@ -1,232 +0,0 @@
-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

@@ -115,26 +115,20 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 
 
-                DataKeyNames="CveCompuestoVigencia,CveCompuesto,CveProveedor,RegistroRSCO,FechaVigencia,VigenciaIndeterminada,CveUsuario"
+                DataKeyNames="CvePS,CveCompuesto,CveProveedorCompra,RegistroRSCO,FechaVigenciaRSCOStr,VigenciaIndeterminadaRSCO,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="Producto" DataField="CodigoPS" 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. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigenciaRSCOStr" ItemStyle-Width="5%"  />                    
-                    <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:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="Fecha" 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>

Ventas/ProductosServicios.aspx

@@ -250,13 +250,7 @@
                                             <i></i>
                                         </div>
 
-                                        <div runat="server" id="DivCompuesto" class="form-group form-md-line-input input-iconright" visible="false">
+                                       
-                                            <asp:DropDownList ID="DdlCompuesto" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" runat="server" DataTextField="Compuesto" DataValueField="CveCompuesto" Width="206px" Height="22px">
-                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                            </asp:DropDownList>
-                                            <label for="<%= DdlCompuesto.ClientID.ToString()%>">Compuesto:</label>
-                                            <i></i>
-                                        </div>
                                         <div class="form-group form-md-line-input input-iconright col-xs-3">
                                             <asp:TextBox ID="TxtVentaMinima" CssClass="form-control " runat="server"></asp:TextBox>
                                             <%--<ajax:FilteredTextBoxExtender ID="FTBETVentaMinima" TargetControlID="TxtVentaMinima" FilterType="Numbers" runat="server" ValidChars=".," />--%>
@@ -264,51 +258,67 @@
                                             <i></i>
                                         </div>
 
+                                        <div class="row">
+                                            <div class=" col-md-12">
 
-                                         <br />
+                                                <div runat="server" id="DivCompuesto" class="form-group form-md-line-input input-iconright" visible="false">
-                                        <br />
+                                                    <asp:DropDownList ID="DdlCompuesto" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" runat="server" DataTextField="Compuesto" DataValueField="CveCompuesto" Width="206px" Height="22px">
-                                        <br />
+                                                        <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                        <div runat="server" id="DivRegistroRSCO1" class="form-group form-md-line-input input-iconright" visible="false" style="width:350px!important">
+                                                    </asp:DropDownList>
-                                                <asp:TextBox ID="TxtRegistroRSCO" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                    <label for="<%= DdlCompuesto.ClientID.ToString()%>">Compuesto:</label>
-                                                <label for="<%= TxtRegistroRSCO.ClientID.ToString()%>">Registro RSCO:</label>
+                                                    <i></i>
-                                                <%--<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="GrpGuardar"></asp:RequiredFieldValidator>--%>
-                                                <i></i>
-                                        </div>
-
-
-                                        <div class="row" runat="server" id="DivRegistroRSCO2" visible="false" >
-
-                                            <div class="col-md-6">
-
-                                                <div class="form-group form-md-line-input input-iconright" runat="server"  style="width:200px">
-                                                    <asp:CheckBox ID="ChkFechaIndeterminadaRSCO" runat="server" CssClass="form-control" OnCheckedChanged="ChkFechaIndeterminadaRSCO_CheckedChanged" AutoPostBack="true"   />
-                                                    <label for="<%= ChkFechaIndeterminadaRSCO.ClientID.ToString()%>">Fecha Indeterminada:</label>
                                                 </div>
 
                                             </div>
                                         </div>
+                                        <br />
+                                          <div class="row">
+                                            <div class=" col-md-4">
                                                  
+                                                <div runat="server" id="DivRegistroRSCO1" class="form-group form-md-line-input input-iconright" visible="false" style="width:100%!important">
+                                                    <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="GrpGuardar"></asp:RequiredFieldValidator>--%>
+                                                    <i></i>
+                                                </div>
 
+                                            </div>
+                                                <div class=" col-md-4" runat="server" id="DivRegistroRSCO2" visible="false">
 
-                                        <div class="form-group form-md-line-input input-iconright" style="width: 160px!important" runat="server" id="DivRegistroRSCO3" visible="false">
+                                                    <div class="form-group form-md-line-input input-iconright" runat="server" style="width: 200px">
+                                                        <asp:CheckBox ID="ChkFechaIndeterminadaRSCO" runat="server" CssClass="form-control" OnCheckedChanged="ChkFechaIndeterminadaRSCO_CheckedChanged" AutoPostBack="true" />
+                                                        <label for="<%= ChkFechaIndeterminadaRSCO.ClientID.ToString()%>">Fecha Indeterminada:</label>
+                                                    </div>
 
-                                            <asp:TextBox ID="TxtFechaVigenciaRSCO" CssClass="form-control" MaxLength="50" runat="server" Width="130px"></asp:TextBox>
+                                                </div>
-                                            <span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
+                                                <div class=" col-md-4">
-                                                <asp:LinkButton ID="LnkTxtFechaVigenciaRSCO" 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="CETxtFechaVigenciaRSCO" TargetControlID="TxtFechaVigenciaRSCO" PopupButtonID="LnkTxtFechaVigenciaRSCO" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
 
-                                            <asp:CompareValidator ID="CvTxtFechaVigenciaRSCO" runat="server" ControlToValidate="TxtFechaVigenciaRSCO" Display="None"
+                                                    <div class="form-group form-md-line-input input-iconright" style="width: 160px!important" runat="server" id="DivRegistroRSCO3" visible="false">
-                                                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="GrpGuardar"></asp:CompareValidator>
 
-                                            <%--<asp:RequiredFieldValidator ID="RfvTxtFechaVigenciaRSCO" runat="server" ControlToValidate="TxtFechaVigenciaRSCO" Display="None"
+                                                        <asp:TextBox ID="TxtFechaVigenciaRSCO" 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="LnkTxtFechaVigenciaRSCO" 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="CETxtFechaVigenciaRSCO" TargetControlID="TxtFechaVigenciaRSCO" PopupButtonID="LnkTxtFechaVigenciaRSCO" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                                        <asp:CompareValidator ID="CvTxtFechaVigenciaRSCO" runat="server" ControlToValidate="TxtFechaVigenciaRSCO" 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="GrpGuardar"></asp:CompareValidator>
+
+                                                        <%--<asp:RequiredFieldValidator ID="RfvTxtFechaVigenciaRSCO" runat="server" ControlToValidate="TxtFechaVigenciaRSCO" 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="GrpGuardar"></asp:RequiredFieldValidator>--%>
 
-                                            <ajax:ValidatorCalloutExtender ID="CvcTxtFechaVigenciaRSCO" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaVigenciaRSCO" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        <ajax:ValidatorCalloutExtender ID="CvcTxtFechaVigenciaRSCO" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaVigenciaRSCO" Width="300px"></ajax:ValidatorCalloutExtender>
-                                            <%--<ajax:ValidatorCalloutExtender ID="VCETxtFechaVigenciaRSCO" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVigenciaRSCO" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                                        <%--<ajax:ValidatorCalloutExtender ID="VCETxtFechaVigenciaRSCO" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVigenciaRSCO" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+
+                                                        <label for="<%= TxtFechaVigenciaRSCO.ClientID.ToString() %>">Fecha de Vigencia:</label>
+
+
+                                                    </div>
+
+
+                                                </div>
 
-                                            <label for="<%= TxtFechaVigenciaRSCO.ClientID.ToString() %>">Fecha de Vigencia:</label>
 
 
                                         </div>
@@ -316,6 +326,22 @@
                                        
 
 
+                                   
+
+
+                                     
+                                      
+
+
+                                      
+
+
+ 
+                                                                         
+
+                                       
+
+
                                         <div class="form-group form-md-line-input input-iconright col-xs-3" id="divLitraje" visible="false" runat="server">
                                             <asp:TextBox ID="TxtLitraje" CssClass="form-control " runat="server" ></asp:TextBox>
                                             <%--<ajax:FilteredTextBoxExtender ID="FTBETVentaMinima" TargetControlID="TxtVentaMinima" FilterType="Numbers" runat="server" ValidChars=".," />--%>

Ventas/ProductosServicios.aspx.vb

@@ -1035,7 +1035,7 @@ Partial Class ProductosyServicios
 
                 Else
                     TxtRegistroRSCO.Text = ""
-                    TxtFechaVigenciaRSCO.Text = "01/01/1900"
+                    TxtFechaVigenciaRSCO.Text = ""
                     ChkFechaIndeterminadaRSCO.Checked = False
                 End If