Cerrar Fletes, Cerrar importaciones, RSCO Productos servicios, rep productos por caducarse agrega Compuesto

App_Code/ClsCompras.vb

@@ -1329,7 +1329,7 @@ Public Class ClsCompras
 
 
 #Region "I M P O R T A C I O N E S"
-    Public Function GetImportaciones(CveImportacion As Integer, CveProveedor As Integer, CveActivoFijo As Integer, FechaInicio As String, FechaFin As String, CveEmpresa As Integer) As Boolean
+    Public Function GetImportaciones(CveImportacion As Integer, CveProveedor As Integer, CveActivoFijo As Integer, FechaInicio As String, FechaFin As String, CveEmpresa As Integer, Optional CveEstatus As Integer = -1) As Boolean
 
         Dim Retorno = False
 
@@ -1342,6 +1342,7 @@ Public Class ClsCompras
             .Add("@FechaI", SqlDbType.VarChar).Value = FechaInicio
             .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
         End With
 
         Try

App_Code/ClsInventarios.vb

@@ -1665,7 +1665,7 @@ Public Class ClsInventarios
     End Function
 
     Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer,
-                                           CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
+                                           CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1, Optional CveCompuesto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1681,6 +1681,7 @@ Public Class ClsInventarios
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
         End With
 
         Try

App_Code/ClsProductosServicios.vb

@@ -416,12 +416,15 @@ Public Class ClsProductosServicios
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                           Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
                           Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
-                          Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0) As Integer
+                          Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
+                          Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
+
+
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
@@ -506,6 +509,10 @@ Public Class ClsProductosServicios
             .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
             .Add("@CveObjetoImpuesto", SqlDbType.TinyInt).Value = CveObjetoImpuesto
 
+            .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO
+            .Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO
+            .Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO
+
         End With
 
         Try
@@ -653,7 +660,8 @@ Public Class ClsProductosServicios
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                              Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
                              Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
-                             Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0) As Boolean
+                             Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
+                             Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -745,6 +753,10 @@ Public Class ClsProductosServicios
             .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
             .Add("@CveObjetoImpuesto", SqlDbType.TinyInt).Value = CveObjetoImpuesto
 
+            .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO
+            .Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO
+            .Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO
+
         End With
 
         Try

Ashx/SIGWeb.ashx

@@ -1647,7 +1647,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                             End If
                         End While
                         xtr.Close()
-                        xtr.
+
                     End Using
                     If (System.IO.File.Exists(urfile)) Then
                         Dim fechita As DateTime = fecha.ToDateTime()

Compras/Importaciones.aspx

@@ -6,6 +6,16 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+        <asp:UpdatePanel runat="server" ID="UpAcciones">
+        <ContentTemplate>
+
+            <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" />
+            </li>
+        </ContentTemplate>        
+    </asp:UpdatePanel>
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Importaciones

Compras/Importaciones.aspx.vb

@@ -95,6 +95,11 @@ Partial Class Compras_Importaciones
                 'HLCompraSerieFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
                 'LbCompraImporte.Text = ObjImportaciones.DtResultados.Rows(0)("Total").ToString
 
+                If ObjImportaciones.DtResultados.Rows(0)("CveEstatus").ToString.ToEntero = 0 Then
+                    LnkCerrarImportacion.Visible = True
+                End If
+
+
                 HdnCveAF.Value = ObjImportaciones.DtResultados.Rows(0)("CveActivoFijo").ToString
                 VincularAF()
 
@@ -491,4 +496,17 @@ Partial Class Compras_Importaciones
 
 
 
+
+    Protected Sub LnkCerrarImportacion_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjInv As New ClsInventarios
+
+        If ObjInv.UpdateImportacionCierre(CveImportacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+            Alert("Importación cerrada correctamente.", TipoMensaje.MsgInformacion, $" location.href =  ""./Importaciones.aspx?CveImportacion={CveImportacion}"" ")
+        End If
+
+        ObjInv.Dispose()
+
+    End Sub
 End Class

Compras/RepImportaciones.aspx

@@ -114,6 +114,17 @@
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
+
+                             <div class="col-md-1" style="max-width: 70px">Esatus:</div>
+                            <div class="col-md-2">
+                                
+                                    <asp:DropDownList runat="server" ID="DdlEstatus" Width="100%" CssClass="select2me">
+                                        <asp:ListItem Value="-1">Todos</asp:ListItem>
+                                        <asp:ListItem Value="0" Selected="True">Activo</asp:ListItem>
+                                        <asp:ListItem Value="1">Cerrado</asp:ListItem>
+                                    </asp:DropDownList>
+                                
+                            </div>
                         </div>
                     </div>
                 </div>

Compras/RepImportaciones.aspx.vb

@@ -40,9 +40,11 @@ Partial Class Compras_RepImportaciones
 
 
 #Region "  CARGA DAATOS  "
+
     Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs)
         CargaDatos()
     End Sub
+
     Private Sub CargaDatos()
         Dim ObjImportaciones As New ClsCompras
         Dim FechaI, FechaF As String
@@ -50,7 +52,7 @@ Partial Class Compras_RepImportaciones
         If TxtFechaI.Text <> "" Then FechaI = TxtFechaI.Text Else FechaI = "-1"
         If TxtFechaF.Text <> "" Then FechaF = TxtFechaF.Text Else FechaF = "-1"
 
-        If ObjImportaciones.GetImportaciones(-1, DdlProveedor.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+        If ObjImportaciones.GetImportaciones(-1, DdlProveedor.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then
             DtImportaciones = ObjImportaciones.DtResultados
         Else
             Alert("Ocurrió un error al cargar las importaciones", TipoMensaje.MsgError)
@@ -59,6 +61,7 @@ Partial Class Compras_RepImportaciones
 
         CargaGrid()
     End Sub
+
     Private Sub CargaGrid()
         GvDatos.DataSource = DtImportaciones
         GvDatos.DataBind()

Inventarios/Consignaciones.aspx.vb

@@ -744,9 +744,33 @@ Partial Class Inventarios_Consignaciones
 
 
                 If Not ErrorMovInv Then
-                    If DdlConcepto.SelectedValue = "11" Then
 
+
+
+                    Dim ImportePrePoliza As Decimal = DtMovimientos.SUMD("Total")
+
+
+                    Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
+
+                    Dim Concepto As String = "Consig"
+                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Entrada/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrePoliza, "Entrada por Consignacion", 68, "Entrada por Consignacion", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then
+                        ErrorMovInv = True
                     End If
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImportePrePoliza, "Entrada por Consignacion", 337, "Entrada por Consignacion", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then
+                        ErrorMovInv = True
+                    End If
+
+                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                        If ObjConta.ValorPolizaDescuadre > 0 Then
+                            GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            ErrorMovInv = True
+                        End If
+                    End If
+
+
                 End If
 
 

Inventarios/Fletes.aspx

@@ -8,9 +8,24 @@
     Costo Indirecto
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-    <li>
+
-        <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    <asp:UpdatePanel runat="server" ID="UpAcciones">
-    </li>
+    <ContentTemplate>
+        <li>
+            <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"
+                data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Flete?" data-btn-ok-label="si" Visible="false" />
+        </li>
+    </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger  ControlID="LnkPdf" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+    
+
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>

Inventarios/Fletes.aspx.vb

@@ -94,6 +94,11 @@ Partial Class Compras_Fletes
                 'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
                 'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
 
+                If ObjInv.DtResultados.Rows(0)("CveEstatus").ToString.ToEntero = 0 Then
+                    LnkCerrarFlete.Visible = True
+                End If
+
+
                 If ObjInv.GetFleteDetalle(CveFlete) Then
                     DtCompras = ObjInv.DtResultados
                 Else
@@ -104,6 +109,9 @@ Partial Class Compras_Fletes
                     GvComprasVinculadas.DataSource = ObjInv.DtResultados
                 End If
 
+
+
+
             Else
                 Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
             End If
@@ -434,4 +442,17 @@ Partial Class Compras_Fletes
     End Sub
 
 
+
+    Protected Sub LnkCerrarFlete_Click(sender As Object, e As EventArgs)
+
+
+        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}"" ")
+        End If
+
+        ObjInv.Dispose()
+
+    End Sub
 End Class

Inventarios/RepFletes.aspx

@@ -40,6 +40,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpFiltros" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
+
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
@@ -91,9 +92,31 @@
                                 </asp:DropDownList>
                             </div>
                         </div>
+                      
                     </div>
+                 
+
+                     
+
                 </div>
+                     <div class="portlet-body" style="display: block">
+                         <div class="row">
+                              <div class="col-md-1" style="max-width: 70px">Esatus:</div>
+                            <div class="col-md-2">
+                                
+                                    <asp:DropDownList runat="server" ID="DdlEstatus" Width="100%" CssClass="select2me">
+                                        <asp:ListItem Value="-1">Todos</asp:ListItem>
+                                        <asp:ListItem Value="0" Selected="True">Activo</asp:ListItem>
+                                        <asp:ListItem Value="1">Cerrado</asp:ListItem>
+                                    </asp:DropDownList>
+                                
+                            </div>
+                        </div>
+                    </div>
+
             </div>
+         
+
         </ContentTemplate>
     </asp:UpdatePanel>
     <br />

Inventarios/RepFletes.aspx.vb

@@ -49,7 +49,7 @@ Partial Class Compras_RepFletes
         Dim ObjInv As New ClsInventarios
         If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
         If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedores.SelectedValue.ToString.ToEntero, -1, -1,
-                               TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
+                               TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero(), CveEstatus:=DdlEstatus.SelectedValue.ToEntero()) Then
             DtFletes = ObjInv.DtResultados
         End If
         ObjInv.Dispose()

Inventarios/RepProductosPorCaducar.aspx

@@ -118,7 +118,7 @@
                                 <ajax:CalendarExtender ID="CalFechaIEjec" runat="server" TargetControlID="TxtFechaInicio" PopupButtonID="ImgCalFechaIEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
                             <div class="col-md-1" style="text-align:right">
-                                <label>. Fin:</label>
+                                <label>F. Fin:</label>
                             </div>
                             <div class="col-md-1">
                                 <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;display:flex">
@@ -139,10 +139,10 @@
                          <div class="col-sm-1" style="text-align:right">
                                 <label>Sucursal:</label>
                             </div>
-                            <div class="col-sm-1">
+                            <div class="col-sm-2">
                                 <asp:DropDownList runat="server" ID="DdlSucursal" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AutoPostBack="true" OnSelectedIndexChanged="DdlSucursal_SelectedIndexChanged" Width="100%"></asp:DropDownList>
                             </div> 
-                             <label class="col-md-1 truncate" >Almacén:</label>
+                             <label class="col-md-1 truncate" style="text-align:right">Almacén:</label>
                             <div class="col-md-1">                                
                                 <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
 
@@ -152,13 +152,21 @@
                             </div>
                             <div class="col-md-1">
                                 <asp:DropDownList runat="server" ID="DdlClasificacion" CssClass="select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion"  Width="100%" CssStyle="width: 100%;"/>
-                            </div>
+                            </div>                       
-                        <label class="col-md-1 truncate">Producto:</label>
+
+
+                        <label class="col-md-1 truncate" style="text-align:right" >Compuesto:</label>
                         <div class="col-md-2">
-                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" />
+                            <asp:DropDownList runat="server" ID="DdlCompuesto" CssClass="select2me"  DataTextField="Compuesto" DataValueField="CveCompuesto" Width="100%" ></asp:DropDownList>
                         </div> 
                           
                     </div>
+                    <div class="row">
+                         <label class="col-md-1 truncate" style="text-align:right">Producto:</label>
+                         <div class="col-md-2">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" />
+                        </div> 
+                    </div>
                 </div> 
         </div>
         </ContentTemplate>

Inventarios/RepProductosPorCaducar.aspx.cs

@@ -29,10 +29,13 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
             CargaFiltros();
             CargarDatos();
             CargaAlamacenes();
+            CargaCompuestos();
 
         }
     }
 
+
+
     private void CargarDatos()
     {
 
@@ -47,8 +50,9 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
         // aqui siempre se visualiza la caducidad, sin importar la condición, porque siempre se valida la caducidad
         ClsInventarios ObjInventarios = new ClsInventarios();
         if (ObjInventarios.GetProductosCaducidad(DdlProveedor.SelectedValue.ToEntero(), FI, TxtFechaFin.Text.ToDate(), DdlSucursal.SelectedValue.ToEntero(),
-                                                   DdlClasificacion.SelectedValue.ToEntero(), CvePS, Cves_Alamcenes, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion: DdlOpcion.SelectedValue.ToEntero()))
+                                                   DdlClasificacion.SelectedValue.ToEntero(), CvePS, Cves_Alamcenes, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion: DdlOpcion.SelectedValue.ToEntero(), 
-        {
+                                                   CveCompuesto: DdlCompuesto.SelectedValue.ToEntero() )) 
+            {
             GvDatos.DataSource = ObjInventarios.DtResultados;
             DTDatos = ObjInventarios.DtResultados;
             if (DdlOpcion.SelectedValue == "1")
@@ -75,6 +79,16 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
 
     }
 
+
+    private void CargaCompuestos()
+    {
+        ClsProductosServicios ObjPS = new ClsProductosServicios();
+        ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa);
+        DdlCompuesto.DataSource = ObjPS.DtResultados;
+        ObjPS.Dispose();
+        DdlCompuesto.DataBind();
+        DdlCompuesto.Items.Insert(0, new ListItem("Todos", "-1"));
+    }
     private void CargarFechaText()
     {
         DateTime date = new DateTime(DateTime.Today.Year, DateTime.Today.Month, 1);

Ventas/ProductosServicios.aspx

@@ -263,6 +263,59 @@
                                             <label class="truncate" style="padding-left: 16px;" for="<%= TxtVentaMinima.ClientID.ToString()%>">Venta Mínima:</label>
                                             <i></i>
                                         </div>
+
+
+                                         <br />
+                                        <br />
+                                        <br />
+                                        <div runat="server" id="DivRegistroRSCO1" class="form-group form-md-line-input input-iconright" visible="false" style="width:350px!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 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>
+
+
+ 
+                                        <div class="form-group form-md-line-input input-iconright" style="width: 160px!important" runat="server" id="DivRegistroRSCO3" visible="false">
+
+                                            <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="VCETxtFechaVigenciaRSCO" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVigenciaRSCO" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+
+                                            <label for="<%= TxtFechaVigenciaRSCO.ClientID.ToString() %>">Fecha de Vigencia:</label>
+
+
+                                        </div>                                        
+
+                                       
+
+
                                         <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

@@ -220,6 +220,18 @@ Partial Class ProductosyServicios
                     End If
                 End If
 
+
+                If UsuarioActual.Empresa.Funcionalidad(143) = "1" Then
+
+                    DivRegistroRSCO1.Visible = True
+                    DivRegistroRSCO2.Visible = True
+                    DivRegistroRSCO3.Visible = True
+
+                    TxtRegistroRSCO.Text = ""
+                    TxtFechaVigenciaRSCO.Text = ""
+                    ChkFechaIndeterminadaRSCO.Checked = False
+                End If
+
             End If
 
             If Request("Ret") IsNot Nothing AndAlso Request("Ret").ToString <> "" Then
@@ -1000,6 +1012,35 @@ Partial Class ProductosyServicios
                 ChkPrecioLibre.Checked = ObjProductosServicios.PrecioLibre
 
 
+
+                If UsuarioActual.Empresa.Funcionalidad(143) = "1" Then
+
+                    TxtRegistroRSCO.Text = ObjProductosServicios.DtResultados.Rows(0)("RegistroRSCO").ToString
+                    ChkFechaIndeterminadaRSCO.Checked = Boolean.Parse(ObjProductosServicios.DtResultados.Rows(0)("VigenciaIndeterminadaRSCO").ToString)
+
+
+                    DivRegistroRSCO1.Visible = True
+                    DivRegistroRSCO2.Visible = True
+
+
+                    If ChkFechaIndeterminadaRSCO.Checked Then
+                        TxtFechaVigenciaRSCO.Text = "01/01/1900"
+                    Else
+                        TxtFechaVigenciaRSCO.Text = ObjProductosServicios.DtResultados.Rows(0)("FechaVigenciaRSCO").ToString.ToDate.ToString("dd/MM/yyyy")
+                        DivRegistroRSCO3.Visible = True
+                    End If
+
+
+
+
+                Else
+                    TxtRegistroRSCO.Text = ""
+                    TxtFechaVigenciaRSCO.Text = "01/01/1900"
+                    ChkFechaIndeterminadaRSCO.Checked = False
+                End If
+
+
+
             Else
                 Alert("El Producto o Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -1365,6 +1406,11 @@ Partial Class ProductosyServicios
                 End If
             End If
 
+
+            If TxtFechaVigenciaRSCO.Text = "" Then
+                TxtFechaVigenciaRSCO.Text = "01/01/1900"
+            End If
+
             If CvePS = -1 Then
                 Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
                 If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
@@ -1380,8 +1426,8 @@ Partial Class ProductosyServicios
                                                CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
-                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
+                                               CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
-                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal) > 0 Then
+                                               CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1432,7 +1478,8 @@ Partial Class ProductosyServicios
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
                                                   AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
                                                   CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
-                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal) Then
+                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal,
+                                                  RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked) Then
 
                     If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                         TieneError = True
@@ -1900,6 +1947,10 @@ Partial Class ProductosyServicios
             DdlCompuesto.DataSource = PS.DtResultados
             PS.Dispose()
             DdlCompuesto.DataBind()
+
+
+
+
         End If
     End Sub
 
@@ -3183,5 +3234,16 @@ Partial Class ProductosyServicios
     End Sub
 
 
+    Protected Sub ChkFechaIndeterminadaRSCO_CheckedChanged(sender As Object, e As EventArgs)
 
+        DivRegistroRSCO3.Visible = If(ChkFechaIndeterminadaRSCO.Checked, False, True)
+
+
+        If TxtFechaVigenciaRSCO.Text = "01/01/1900" Then
+            TxtFechaVigenciaRSCO.Text = ""
+        End If
+
+        UpDatos.Update()
+
+    End Sub
 End Class