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

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