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

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()